/*    /lib/trainer.c
 *    from the Dead Souls  Library
 *    created 960320 by Blitz@Dead Souls
 *    Version: @(#) trainer.c 1.3@(#)
 *    Last modified: 96/10/28
 */

#include <lib.h>
#include <daemons.h>
#include "include/trainer.h"

inherit LIB_SENTIENT;

private string array TrainingSkills;
private mapping Students;
int NoSpells = 0;


/**** driver applies ****/

static void create(){
    sentient::create();
    TrainingSkills = ({});   
    Students = ([]);
    SetNoClean(1);
    SetCommandResponses( ([
        "train" : (: eventTrain :),
        "teach" : (: eventTrain :),
        "default" : (: eventHelp :),
        "help" : (: eventHelp :),
      ]) );
    SetRequestResponses( ([
        "help" : (: eventHelp :),
      ]) );
}

static void init(){
    string str;
    sentient::init();
    if( !living(this_player()) ) return;
    str = (string)this_player()->GetKeyName();
    if( Students[str] ){
        eventForce("speak You will have to start your "             
          "studies anew, "+(string)this_player()->GetName());
        map_delete(Students, str);
    }
}

int SetNoSpells(int i){
    if(i) NoSpells = 1;
    else NoSpells = 0;
    return NoSpells;
}

int GetNoSpells(){
    return NoSpells;
}

/**** data manipulation ****/

mixed AddTrainingSkills(string *args){
    if( !args ) 
        error("Bad argument 1 to AddTrainingSkills.");
    return (TrainingSkills = distinct_array(TrainingSkills + args));
}

mixed RemoveTrainingSkills(string *args){
    if( !args || !arrayp(args) ) 
        error("Bad argument 1 to RemoveTrainingSkills.");
    TrainingSkills -= args;
    return TrainingSkills;
}

string array GetTrainingSkills(){ return copy(TrainingSkills); }

string Expertise(){
    string tmp, expertises;
    string expertises2 = "";
    mapping spellbook = this_object()->GetSpellBook();

    if(!sizeof(GetTrainingSkills())) return "none";
    else if(sizeof(GetTrainingSkills()) == 1){
        return GetTrainingSkills()[0];
    }
    expertises = implode(GetTrainingSkills(), ", ");
    if(sizeof(GetTrainingSkills()) == 2){
        expertises = replace_string(expertises,", "," and ");
    }
    else if(sizeof(GetTrainingSkills()) > 2){
        tmp = last_string_element(expertises,",");
        expertises = replace_string(expertises, tmp, " and"+tmp);
    }

    if(sizeof(spellbook) && !GetNoSpells()){
        expertises2 = implode(keys(spellbook), ", ");
        if(sizeof(spellbook) == 1) expertises2 = replace_string(expertises2,", ",".");
        else if(sizeof(spellbook) == 2){
            expertises2 = replace_string(expertises2,", "," and ",1);
            expertises2 = replace_string(expertises2,", ",".");
        }
        else {
            tmp = last_string_element(expertises2,",");
            expertises2 = replace_string(expertises2,tmp," and"+tmp);
        }
        expertises2 = ". In terms of spells, I can teach you "+expertises2;
    }

    return expertises + expertises2;
}

mapping GetStudents(){ return copy(Students); }

/**** high-level events ****/

int eventHelp(object who, string unused){
    if(who) eventForce("speak I am not sure of what you are "
          "asking, " + (string)who->GetName() + ".");
    if(sizeof( GetTrainingSkills() )){
        eventForce("speak My area of training expertise covers " +
          Expertise() + ".");
        eventForce("speak You can \"ask "+GetKeyName()+" to train "
          "<SKILL>\" if you have training points.");
        if(sizeof(this_object()->GetSpellBook()) && !GetNoSpells()){
            eventForce("speak You can also \"ask "+GetKeyName()+
              " to teach <SPELL>.\"");
        }
    }
    return 1;
}

int eventTrain(object who, string verb, string skill){
    if( !who || environment(who) != environment() ){
        return 0;
    }

    if(who->GetLanguageLevel(this_object()->GetNativeLanguage()) < 100){
        write("You must be fluent in "+this_object()->GetNativeLanguage()+
          " in order to understand the training provided by "+
          this_object()->GetName()+".");
        return 1;
    }

    if( !sizeof(skill) || !sizeof(verb) ) return eventHelp(who, 0);
    if(first(skill, 3) == "in ") skill = replace_string(skill,"in ","",1);
    if(first(skill, 6) == "me in ") skill = replace_string(skill,"me in ","",1);

    if( verb == "teach"){
        object ob = SPELLS_D->GetSpell(skill);

        if(!sizeof(GetSpellBook()) || GetNoSpells()){
            eventForce("speak I am not able to teach spells. I only train skills.");
            this_object()->eventHelp();
            return 0;
        }
        if(!ob){
            eventForce("speak I've never heard of such a spell.");
            return 0;
        }

        if( !who->eventLearnSpell(skill) ){
            eventForce("speak You are not prepared for that spell!");
            return 0;
        }

        who->eventPrint(GetName() + " touches your forehead and gives "
          "you knowledge of " + skill + ".");
        environment()->eventPrint(GetName() + " touches " +
          possessive_noun(who) +
          " forehead and gives " +
          objective(who) + " knowledge of " +
          skill + ".", who);
        return 1;
    }

    if(skill) skill = lower_case(skill);

    if( Students[ (string)who->GetKeyName() ] ){
        eventForce("speak I am already training you!");
        return 0;
    }
    if( member_array(skill, this_object()->GetTrainingSkills()) == -1 ){
        eventForce("speak I know nothing about the art of " +
          skill + ".");
        return 0;
    }
    if( member_array(skill, 
        (string *)this_player()->GetSkills() ) == -1 ){
        eventForce("speak You do not appear to be the type "
          "who would be skilled in " + skill + "!");
        eventForce("speak I cannot train you in a skill you don't know at all. You may need to join a guild or a class that enables you to train in this skill.");
        return 0;
    }
    if( (int)this_player()->GetTrainingPoints() < 1 ){
        eventForce("speak You need more training points!");        
        return 0;
    }
    Students[ (string)who->GetKeyName() ] = skill;
    eventStart(who, skill);
    call_out((: ContinueTraining, who, skill, 0 :), TRAINING_WAIT);
    return 1;
}

static int ContinueTraining(object who, string skill, int x){
    if( !present(who, environment()) ) return 0;
    if( !Students[(string)who->GetKeyName()] ) return 0;
    if( x > 4 ){
        map_delete(Students, (string)who->GetKeyName());
        eventComplete(who, skill);
        who->eventTrain(skill, 1);
        return 1;
    } else {
        eventContinue(who, skill, ++x);
        call_out((: ContinueTraining, who, skill, x :), TRAINING_WAIT);
        return 1;
    }
}

/**** message handling events ****/

/*  The three following events are purely *aesthetic*,
 *  Hopefully prolific coders will override them for  
 *  more interesting training techniques. :) 
 */

int eventStart(object who, string skill){
    who->eventPrint(GetName() + " begins teaching you "
      "about the skill of " + skill + ".");
    environment()->eventPrint(GetName() + " begins teaching " +
      (string)who->GetName() + "...", who);
    return 1;
}

int eventContinue(object who, string skill, int x){
    who->eventPrint("You listen intently as " + GetName()
      + " continues " + possessive(this_object())
      + " dissertation on " + skill + ".");
    return 1;
}

int eventComplete(object who, string skill){
    who->eventPrint("You feel more adept with your " + skill + ".");
    eventForce("speak I can teach you no more for now, " +
      (string)who->GetName() + ".");
    return 1;
}