/* /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"
private string array TrainingSkills;
private mapping Students;
int NoSpells = 0;
private static object me;
/**** driver applies ****/
void create(){
me = this_object();;
TrainingSkills = ({});
Students = ([]);
me->SetNoClean(1);
me->SetCommandResponses( ([
"train" : (: eventTrain :),
"teach" : (: eventTrain :),
"default" : (: eventHelp :),
"help" : (: eventHelp :),
]) );
me->SetRequestResponses( ([
"help" : (: eventHelp :),
]) );
}
static void init(){
string str;
if( !living(this_player()) ) return;
str = (string)this_player()->GetKeyName();
if( Students[str] ){
me->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 = me->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) me->eventForce("speak I am not sure of what you are "
"asking, " + (string)who->GetName() + ".");
if(sizeof( GetTrainingSkills() )){
me->eventForce("speak My area of training expertise covers " +
Expertise() + ".");
me->eventForce("speak You can \"ask "+me->GetKeyName()+" to train "
"<SKILL>\" if you have training points.");
if(sizeof(me->GetSpellBook()) && !GetNoSpells()){
me->eventForce("speak You can also \"ask "+me->GetKeyName()+
" to teach <SPELL>.\"");
}
}
return 1;
}
int eventTrain(object who, string verb, string skill){
if( !who || environment(who) != environment() ){
return 0;
}
if(who->GetLanguageLevel(me->GetDefaultLanguage()) < 100){
write("You must be fluent in "+me->GetDefaultLanguage()+
" in order to understand the training provided by "+
me->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(me->GetSpellBook()) || me->GetNoSpells()){
me->eventForce("speak I am not able to teach spells. I only train skills.");
me->eventHelp();
return 0;
}
if(!ob){
me->eventForce("speak I've never heard of such a spell.");
return 0;
}
if( !who->eventLearnSpell(skill) ){
me->eventForce("speak You are not prepared for that spell!");
return 0;
}
who->eventPrint(me->GetName() + " touches your forehead and gives "
"you knowledge of " + skill + ".");
environment()->eventPrint(me->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() ] ){
me->eventForce("speak I am already training you!");
return 0;
}
if( member_array(skill, me->GetTrainingSkills()) == -1 ){
me->eventHelp();
return 0;
}
if( member_array(skill,
(string *)this_player()->GetSkills() ) == -1 ){
me->eventForce("speak You do not appear to be the type "
"who would be skilled in " + skill + "!");
me->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 ){
me->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(me->GetName() + " begins teaching you "
"about the skill of " + skill + ".");
environment()->eventPrint(me->GetName() + " begins teaching " +
(string)who->GetName() + "...", who);
return 1;
}
int eventContinue(object who, string skill, int x){
who->eventPrint("You listen intently as " + me->GetName()
+ " continues " + possessive(me)
+ " dissertation on " + skill + ".");
return 1;
}
int eventComplete(object who, string skill){
who->eventPrint("You feel more adept with your " + skill + ".");
me->eventForce("speak I can teach you no more for now, " +
(string)who->GetName() + ".");
return 1;
}
