/*    /lib/languages.c
 *    from the Dead Souls LPC Library
 *    language module for linguistic people
 *    created by Descartes of Borg 950412
 */

#include <function.h>

int Polyglot = 0;

class comprehension {
    function check;
    int time;
    function end;
}

private mapping                    Languages      = ([]);
private static class comprehension Comprehension  = 0;
private string                     DefaultLanguage = "";

// abstract methods
int GetHeartRate();
int GetStatLevel(string stat);
string GetNativeLanguage();
// end abstract methods

int GetNextLevel(string lang, int curr_level);

varargs void SetLanguage(string lang, int level, int native){
    string key;
    if(!lang || !sizeof(lang)) return;
    key = convert_name(lang);
    if( !Languages[key] ) Languages[key] = ([]);
    Languages[key] = ([ "name" : lang, "points" : 0, "level" : level,
            "native" : native ]);
}

mapping RemoveLanguage(string lang){
    if(lang && sizeof(lang)) lang = convert_name(lang);
    else return copy(Languages);
    map_delete(Languages, lang);
    return copy(Languages);
}

mapping SetNativeLanguage(string lang){
    string old_lang = GetNativeLanguage();
    RemoveLanguage(old_lang);
    SetLanguage(old_lang, 100);
    SetLanguage(lang, 100, 1);
    return copy(Languages);
}

varargs void SetLanguageComprehension(function check, int time, function end){
    if( !check ){
        Comprehension = 0;
    }
    else {
        Comprehension = new(class comprehension);
        Comprehension->check = check;
        Comprehension->time = time;
        Comprehension->end = end;
    }
}

mixed SetDefaultLanguage(string str){
    if(!str || str == "") return DefaultLanguage = GetNativeLanguage();
    if(member_array(lower_case(str),keys(Languages)) != -1 ||
            member_array(capitalize(lower_case(str)),keys(Languages)) != -1)
        return DefaultLanguage = capitalize(lower_case(str));
    else return DefaultLanguage = GetNativeLanguage();
}

string GetDefaultLanguage(){
    if(sizeof(DefaultLanguage)) return DefaultLanguage;
    else return GetNativeLanguage();
}

int GetLanguageLevel(string lang){
    if( Comprehension ){
        int fp = functionp(Comprehension->check);

        if( fp && !(fp & FP_OWNER_DESTED) ){
            return evaluate(Comprehension->check, this_object(), lang);
        }
    }
    lang = convert_name(lang);
    if( !Languages[lang] ) return 0;
    else return Languages[lang]["level"];
}

string GetLanguageName(string lang){
    lang = convert_name(lang);
    if( !Languages[lang] ) return 0;
    else return Languages[lang]["name"];
}

int AddLanguagePoints(string lang, int points){
    string key;

    key = convert_name(lang);
    if( !Languages[key] ) SetLanguage(key, 0, 0);
    Languages[key]["points"] += points;
    Languages[key]["level"] = Languages[key]["points"];
    if(Languages[key]["level"] > 100) Languages[key]["level"] = 100;
    return Languages[key]["points"];
}

int GetLanguagePoints(string lang){
    lang = convert_name(lang);
    if( !Languages[lang] ) return 0;
    else return Languages[lang]["points"];
}

string array GetLanguages(){
    return map(keys(Languages), (: Languages[$1]["name"] :));
}

int GetNextLevel(string lang, int curr_level){
    int y;

    lang = lower_case(lang);
    if( !Languages[lang] ) return 0;
    y = (1 + Languages[lang]["native"]) * GetStatLevel("intelligence");
    y = (2000 * curr_level) / y;
    return y;
}

int GetStatLevel(string stat){ return 0; }

string GetNativeLanguage(){
    mapping val;
    string lang;

    foreach(lang, val in Languages)
        if( val["native"] ) return Languages[lang]["name"];
}

int SetPolyglot(int i){
    if(!i) Polyglot = 0;
    else Polyglot = 1;
    return Polyglot;
}

int GetPolyglot(){
    return Polyglot;
}

static void heart_beat(){
    if( Comprehension ){
        Comprehension->time -= GetHeartRate();
        if( Comprehension->time < 1 ){
            function tmp = Comprehension->end;

            Comprehension = 0;
            if( functionp(tmp) && !(functionp(tmp) & FP_OWNER_DESTED) ){
                evaluate(tmp, this_object());
            }
        }
    }
}