//	/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) {
	present("guard")->eventForce("close vault");
	present("guard")->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;
}