// /d/standard/bank.c
// from the Nightmare mudlib
// banking room
// created by Descartes of Borg 28 february 1993
#include <lib.h>
#include <daemons.h>
//#include <money.h>
//#include <bank.h>
#define BANK_ID "praxis"
inherit LIB_ROOM;
void init() {
::init();
add_action("Bugga", "Bugga");
add_action("read", "read");
}
void create() {
::create();
SetProperty("magic hold", 10);
SetProperty("no castle", 1);
SetProperty("light", 2);
SetProperty("night light", 2);
SetShort( "the bank of praxis");
SetLong(
"Welcome to the Bank of Praxis!\n"
"The Bank of Praxis is a lovely looking building. Red carpeting "
"covers the worn floor, and to the north there is a polished wooden "
"counter. In the back of the bank there is a vault where all "
"the town's deposits are kept. A sign by the teller details "
"all commands. The exit to the bank is back south.");
SetItems(
(["bank" : "You are in its huge lobby. There is a counter in "
"front of you\nand and exit behind you.",
"citizens" : "They are wandering about aimlessly.",
"account" : "You're a damn loon.",
"sign" : "Reading it will give you a list of commands.",
"teller" : "The teller looks at you impatiently.",
"counter" : "A teller waits behind it for you to do something.",
"exit" : "It leads out into the alley.",
"vault" : (: this_object(), "look_at_vault" :) ]) );
SetExits(
(["south":"/domains/Praxis/alley1"]) );
}
void reset() {
object mon, weapon, key;
::reset();
if(!present("guard")) {
mon = new(LIB_NPC);
mon->SetKeyName("guard");
mon->SetId( ({ "guard", "bank guard", "big ogre" }) );
mon->SetRace( "ogre");
mon->SetGender("male");
mon->SetShort( "Bank guard");
mon->SetLong( "A big, ugly ogre hired to guard the "
"newly open bank.\n");
mon->SetLevel(14);
mon->SetRace("human");
mon->SetHealthPoints(500 + random(100));
mon->SetClass("fighter");
mon->SetSpellChance(10);
mon->SetSpells( ({ "parry", "Bugga" }) );
mon->SetSkills("defense", 70);
mon->SetSkills("blade", 90);
mon->set_emotes(9,
({ "Guard says: Goddamn thief!",
"Guard grunts.",
"Guard says: No way you're getting past me!",
"Guard says: You disgust me."}), 1);
mon->set_emotes(3,
({ "Guard munches on a rat pie.",
"Guard says: I hate rogues." }), 0);
mon->SetWielding_limbs( ({ "right hand", "left hand" }) );
mon->move(this_object());
weapon = new(LIB_ITEM);
weapon->SetKeyName("broadsword");
weapon->SetId( ({ "broadsword", "sword" }) );
weapon->SetShort( "Broadsword");
weapon->SetLong( "A huge broadsword.");
weapon->SetClass(13);
weapon->SetType("blade");
weapon->SetMass(700);
weapon->SetValue(91);
weapon->move(mon);
mon->eventForce("wield broadsword in right hand");
key = new(LIB_ITEM);
key->SetKeyName("key");
key->SetId( ({ "bank key", "key", "bronze key" }) );
key->SetShort( "Bronze key");
key->SetLong( "An unremarkable bronze key.");
key->SetMass(29);
key->SetValue(35);
key->move(mon);
}
if(query_reset_number() != 1) {
object tmpob = present("guard");
if(tmpob){
tmpob->eventForce("close vault");
tmpob->eventForce("lock vault with key");
}
}
}
int do_drunkard() {
if(present("guard") && !this_player()->query_invis()) {
present("guard")->eventForce("kill "+(string)this_player()->query_name());
this_player()->add_follower(present("guard"));
write("The guard foils you before you can slip the key in!");
say(this_player()->query_cap_name()+" is foiled trying to break "
"into the vault!");
return 0;
}
if(this_player()->query_intox()) {
write("You are fumble around drunkenly with the bank key.");
say(this_player()->query_cap_name()+" fiddles around drunkenly "
"with the bank key.");
return 0;
}
return 1;
}
int read(string str) {
if(str != "sign") return notify_fail("Read what?\n");
message("info",
"You may do any of the following at Praxis Merchant's Bank:\n"
"<open account>\nWill open an account for you.\n\n"
"<close account>\nCloses your account.\n\n"
"<balance>\nGives you account balance information.\n\n"
"<deposit [#] [type]>\nDeposits # of currency of type.\n\n"
"<withdraw [#] [type]>\nWithdraws # of currency of type.\n\n"
"<exchange [#] of [type1] for [type2]>\nExchanges currencies. There is a 10% charge.\n\n",
this_player()
);
return 1;
}
int Bugga(string str) {
string limb;
object ob;
int amount;
if(this_player()->is_player()) return 0;
ob = (object)this_player()->query_current_attacker();
if(!ob) return 1;
limb = (string)ob->return_limb();
if((string)ob->query_class() == "rogue") amount = 24 + random(30);
else amount = 20 + random(20);
ob->do_damage(limb, amount);
tell_object(ob, "The guard bashes your "+limb+" with his "
"left fist!");
tell_room(this_object(), "The guard bashes "+ob->query_cap_name()+"'s "+
limb+" with his left fist!", ({ ob }));
return 1;
}
