186 lines
7.6 KiB
C
186 lines
7.6 KiB
C
#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, RestrictedSpells;
|
|
|
|
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,
|
|
"greater fireball" : 3000,
|
|
"light" : 100,
|
|
"missile" : 500,
|
|
"buffer" : 200,
|
|
"greater buffer" : 2000,
|
|
"meditate" : 500,
|
|
"whip" : 10000,
|
|
]) );
|
|
RestrictedSpells = ( ([
|
|
"greater fireball" : 3000,
|
|
"light" : 100,
|
|
"greater buffer" : 2000,
|
|
"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(ob->GetMass());
|
|
return 1;
|
|
}
|