#include <lib.h>
#include <daemons.h>
inherit LIB_LEADER;
int JoinGuild(object ob, string verb, string what);
int TeachSpell(object who, string verb, string spell);
string *spells;
mapping AvailableSpells;
mapping RestrictedSpells = ([ "whip" : 0 ]);
int WieldStaff(){
if(!present("staff",this_object())){
new("/domains/town/weap/leostaff")->eventMove(this_object());
tell_room(environment(),"Herkimer claps his hands and a large "+
"wooden staff materializes.");
this_object()->eventForce("wield staff");
this_object()->eventForce("say you poor fool!");
this_object()->eventForce("cast buffer");
}
return 1;
}
static void create() {
leader::create();
SetKeyName("herkimer");
SetId(({"archwizard","wizard","herkermer","herkirmer"}));
SetAdjectives(({"old","gentle","kindly"}));
SetShort("Herkimer the kind wizard");
SetLong("This kindly old wizard is the master of the "+
"local magic shop, which doubles as the Mages' Guild. "+
"You can ask Herkimer to teach you a spell, and if "+
"you're capable of learning it, he will teach you, "+
"for a fee. His penetrating blue eyes seem to "+
"see right through you, but the smile from beneath "+
"his white beard is reassuring.");
SetLevel(300);
SetUnique(0);
SetRace("human");
SetGender("male");
SetClass("mage");
SetInventory(([
"/domains/town/armor/robe":"wear robe",
"/domains/town/armor/wizard_hat":"wear hat",
]));
SetSpellBook( ([ "buffer" : 100, "meditate" : 100, "missile" : 100, "fireball" : 100, "whip" : 100 ]) );
SetAction(5, ({
"Herkimer scratches his beard thoughtfully.",
"Herkimer seems to be trying to remember something.", "Herkimer ponders.",
"Herkimer thinks.", "Herkimer thinks carefully.",
"Herkimer says, \"%^BOLD%^CYAN%^You don't have to be a mage to learn a spell, but it sure helps.%^RESET%^\"",
"Herkimer says, \"%^BOLD%^CYAN%^The more you use your magic skills, the more proficient you become.%^RESET%^\"",
"Herkimer says, \"%^BOLD%^CYAN%^Casting spells costs you mana points. Make sure you don't run out unexpectedly!%^RESET%^\"",
"Herkimer says, \"%^BOLD%^CYAN%^If you join us and then leave the guild, you will not be alowed to become a mage again.%^RESET%^\"",
"Herkimer says, \"%^BOLD%^CYAN%^Some spells require total concentration. If you move or if you are attacked, it may interrupt the casting.%^RESET%^\"",
"Herkimer says, \"%^BOLD%^CYAN%^All magical training is free of charge to guild members, of course.%^RESET%^\"",
}));
SetCombatAction(50, ({ (: WieldStaff :), "say what is your deal?",
"say don't make me destroy you","cast fireball", "cast missile", "cast buffer"}) );
SetCommandResponses( ([
"join": (: JoinGuild :),
"teach" : (: TeachSpell :),
"learn" : "I have much to learn, young one, but not from you.",
]) );
AvailableSpells = ( ([
"fireball" : 1000,
"missile" : 500,
"buffer" : 200,
"meditate" : 500,
"inner strength" : 500,
"whip" : 10000,
]) );
SetPolyglot(1);
SetLanguage("common", 100);
SetDefaultLanguage("common");
SetCustomXP(10);
}
void init(){
string key;
int val;
::init();
spells = ({});
foreach(key,val in AvailableSpells){
spells += ({ key });
}
}
int JoinGuild(object ob, string verb, string what){
if(ob->GetClass() == "mage") {
eventForce("say You're already in, doofus.");
return 1;
}
eventForce("say Hmm...want to join our guild, do you?");
if(!this_player()->GetQuest("Orc Slayer Quest")){
eventForce("say First you must prove yourself worthy. Help my brother Leo find the Orcslayer and I will happily welcome you into our family. Until then, you may not join the mages.");
return 1;
}
if(ob->GetClass() == "explorer" || !ob->GetClass()){
eventForce("say very well, "+ob->GetName()+".");
eventForce("say Welcome to the mages' guild! Now you are *extremely* magic! You must practice your magic often, since you are now physically weaker than before. The stronger your magic, the stronger you are!");
ob->ChangeClass("mage");
#if 0
if(ob->GetLevel() == 1){
eventForce("say you have been demoted to a Level 1 player. However, you still retain your experience and your questing history, so just ask Dirk to promote you again a few times.");
}
#endif
return 1;
}
eventForce("say I'm sorry, it looks to me like you have already chosen your specialty. As a member of the Guildmasters' Guild, I am forbidden from removing you from the "+capitalize(ob->GetClass())+"'s Guild.");
return 1;
}
int TeachSpell(object who, string verb, string spell){
int cost, onhand;
mapping myspells;
if(!spell || spell == ""){
eventForce("say Please ask again, but this time specify the spell you'd like to learn.");
return 1;
}
if(!SPELLS_D->GetSpell(spell)){
eventForce("say I'm sorry, that is not a spell I can teach you.");
return 1;
}
if(who->GetClass() != "mage" &&
member_array(spell, keys(RestrictedSpells)) != -1){
eventForce("That spell is for guild members only.");
return 1;
}
if(member_array(spell,spells) == -1){
eventForce("say That spell is not available right now.");
eventForce("say The spells I can teach you are "+implode(spells,", ")+".");
return 1;
}
myspells = who->GetSpellBook();
if(myspells[spell]){
eventForce("say You already know that spell.");
return 1;
}
cost = AvailableSpells[spell];
onhand = who->GetCurrency("silver");
if(who->GetClass() != "mage" && onhand < cost) {
eventForce("say You lack enough silver coins to pay for that spell.");
eventForce("say "+spell+" costs "+cost+" silver and you "+
"only have "+onhand+".");
eventForce("say I can only accept silver. It's a magic thing. If you want, you can try to exchange your other currency for silver at the bank across the street.");
return 1;
}
tell_room(environment(this_object()),"Herkimer closes his eyes, mutters under his breath, and waves his hands.");
if(!who->eventLearnSpell(spell)){
eventForce("shake");
eventForce("say You do not appear capable of learning that spell right now.");
return 1;
}
eventForce("smile");
eventForce("say Congratulations. You now possess the mystical knowledge of the "+spell+" spell. Use it wisely.");
if(who->GetClass() != "mage") who->AddCurrency("silver",-cost);
return 1;
}
int eventReceiveObject() {
object ob, player;
ob = previous_object();
player = this_player();
if( !ob || !::eventReceiveObject() ) return 0;
if( ob->GetKeyName() == "orc slayer" ) {
eventForce("say I'm sorry, you've got the wrong archwizard.");
eventForce("say You're looking for Leo. His workroom is the church basement.");
eventForce("give orcslayer to "+this_player()->GetKeyName());
return 1;
}
AddCarriedMass((int)ob->GetMass());
return 1;
}
