/** * This is the vault inheritable object. There are two inheritables * (this one and /std/shops/vault.c) which are provided to make it * easy to setup your own vaults. This object should be inherited * by the vault entrance area. It is used to define most of the * customisation for the vault. * * You _must_ use set_vault_name and set_vault_entrance. You must * also define a vault proprietor NPC using the 'proprietor' variable * to let the system know which NPC it is. You should also check for * the proprietors location and existance every reset. You may also * want to provide some protection to prevent the NPC from being * killed too frequently. * * @author Ceres * @see /std/shops/vault_entrance.c * @see /handlers/vault_handler.c * @change Mostly rewritten by Sandoz, 2002. */ #include <dirs.h>; inherit ROOM_OBJ; #define DEFAULT_VISIT_COST 1000 #define DEFAULT_OPEN_COST 18000 #define MS(x,y) (string)MONEY_H->money_value_string(x,y) #define PTS proprietor->the_short() string vault_room, vault_name, *sizes, vault_exit; int open_cost, visit_cost; object proprietor, unused; object make_vault_room( object player ); /** @ignore yes */ void create() { ::create(); if( base_name(TO) == __FILE__[0..<3] ) return; if( !vault_name || vault_name == "") { error("No vault name set.\n"); return; } if( !pointerp( sizes ) ) { error("No vault sizes set.\n"); return; } VAULT_H->add_vault( vault_name, sizes ); add_help_file("vault"); } /* create() */ /** * This function is used to set the location used for calculation of which * currency the vault proprietor will accept. * @param location the name of the location */ void set_location( string location ) { add_property("place", location ); } /** * This method returns the location of the vault. * This is used to for calculation of which currency the * vault operates with. * @return the location of the place, or default if none is set */ string query_location() { string str; if( ( str = query_property("place") ) && str != "") return str; return "default"; } /* query_location() */ /** * This method sets the cost of opening an account with no * upkeep costs. * @param cost the cost of a new account with no upkeep costs */ void set_open_cost( int i ) { open_cost = i; } /** * This method returns the opening cost of a vault with * no upkeep costs. * @return the cost of opening a vault account with * no upkeep costs */ int query_open_cost() { return open_cost || DEFAULT_OPEN_COST; } /** * This method is used to set the cost of a visit for vaults * with no upkeep costs. * @param cost the cost of a vist */ void set_visit_cost( int i ) { visit_cost = i; } /** * This method returns the visiting cost of vaults with * no upkeep costs. * @return the visiting cost of vaults with no upkeep costs */ int query_visit_cost() { return visit_cost || DEFAULT_VISIT_COST; } /** * This method is used to set the name of the vault. * This should be a unique name for this vault, and a proper * name at that, ie. "Sandoz's Secret Stash", not "sandoz_vault". * @param str the name of the vault * @see /handlers/vault_handler->query_vault_names() */ void set_vault_name( string str ) { vault_name = str; } /** * This method returns the name of the vault. * @return the name of the vault */ string query_vault_name() { return vault_name; } /** * This method sets the available vault sizes for this vault. * The usable sizes are set in the vault handler, a list of * which can be gotten with VAULT_H->query_vault_sizes(). * NOTE : "small" vaults are the ones without upkeep costs, * but with a visiting fee. * @param str the available vault size(s) in this vault * @see /handlers/vault_handler->query_vault_sizes() * @example * set_vault_sizes("small"); * set_vault_sizes( ({"small", "large"}) ); */ void set_vault_sizes( mixed str ) { if( stringp(str) ) sizes = ({ str }); else if( pointerp(str) ) sizes = str; else printf("The argument to set_vault_sizes() must be either a string or " "an array of strings."); } /* set_vault_sizes() */ /** * This method can be used to assign a proprietor NPC to the * proprietor variable. * @param ob the proprietor NPC object */ void set_proprietor( object ob ) { proprietor = ob; } /** * Used to set the exit from this vault entrance room into the vault itself. * The parameters are just like those of add_exit, except that you cannot * use a 'door' or 'gate' type exits here. * @param direction the direction of the exit * @param dest the destination of the vault exit * @param type the exit type as in add_exit * @see add_exit */ void set_vault_exit( string direc, mixed dest, string type ) { vault_room = dest; vault_exit = direc; add_exit( direc, (: make_vault_room :), type ); modify_exit( direc, ({"function", "check_customer", "no follow", 1 }) ); } /* set_vault_exit() */ /** @ignore yes */ object make_vault_room( object thing ) { string owner; if( thing && unused && ( owner = unused->query_owner() ) && owner == thing->query_name() ) return unused; return 0; } /* make_vault_room() */ /** @ignore yes */ int check_customer( string verb, object thing, string special ) { int cost; string name, place; if( !thing || thing == proprietor ) return 0; if( !proprietor || ENV(proprietor) != TO ) { tell_object( thing, "The vault is closed since the proprietor is " "missing.\n"); return notify_fail(""); } if( proprietor->is_fighting(thing) ) { proprietor->do_command("peer "+file_name(thing) ); proprietor->do_command("lsay No way am I letting you in!"); return notify_fail(""); } name = (string)thing->query_name(); place = (string)query_location(); if( !VAULT_H->query_account_in( vault_name, name ) ) { tell_room( TO, PTS+" intercepts "+(string)thing->one_short()+".\n"); proprietor->do_command("'You have not rented any vault space here."); if( interactive(thing) ) { proprietor->do_command("'The prices of renting our vaults in " "different sizes are the following."); proprietor->do_command("'"+VAULT_H->query_pricing( vault_name, place, query_open_cost(), query_visit_cost() ) ); } return notify_fail(""); } cost = VAULT_H->query_visit_cost( vault_name, name, query_visit_cost() ); if( cost && (int)thing->query_value_in( place ) < cost ) { tell_room( TO, PTS+" intercepts "+(string)thing->one_short()+".\n"); proprietor->do_command("'It costs "+ MS( query_visit_cost(), place )+" for you to use the " "facility!"); return notify_fail(""); } if( cost ) { thing->pay_money( MONEY_H->create_money_array( cost, place ), place ); tell_object( thing, "You pay "+PTS+" who waves you through.\n"); tell_room( TO, (string)thing->the_short()+" pays "+PTS+" who waves "+ (string)thing->HIM+" through.\n", thing ); } else { tell_room( TO, PTS+" waves "+thing->the_short()+" through.\n"); } if( !unused = clone_object(vault_room) ) { tell_object( thing, "Something has gone wrong with your vault room, " "please contact a creator immediately.\n"); return notify_fail(""); } unused->setup_vault( vault_name, thing ); VAULT_H->event_visit( vault_name, name ); return 1; } /* check_customer() */ /** @ignore yes */ int do_open_check() { if( !proprietor || ENV(proprietor) != TO ) { add_failed_mess("The vault is closed since the proprietor is " "missing.\n"); return 0; } add_succeeded_mess(""); return 1; } /* do_open_check() */ /** @ignore yes */ int do_rent( string size ) { if( !do_open_check() ) return 0; tell_object( TP, "You enquire "+PTS+" about renting some vault space.\n"); tell_room( TO, TP->the_short()+" $V$0=enquires,enquire$V$ about " "renting some vault space.\n", TP ); return VAULT_H->do_rent( vault_name, size, proprietor, query_location(), query_open_cost(), query_visit_cost() ); } /* do_rent() */ /** @ignore yes */ int do_pay( int i ) { if( !do_open_check() ) return 0; tell_object( TP, "You enquire "+PTS+" about paying rent for your vault " "space.\n"); tell_room( TO, TP->the_short()+" $V$0=enquires,enquire$V$ about " "paying rent for "+verbalize("their vault accounts", TP->HIS+" vault account")+".\n", TP ); return VAULT_H->do_pay( vault_name, i, proprietor, query_location() ); } /* do_pay() */ /** @ignore yes */ int do_switch( string size ) { if( !do_open_check() ) return 0; tell_object( TP, "You enquire "+PTS+" about changing your vault size.\n"); tell_room( TO, TP->the_short()+" $V$0=enquires,enquire$V$ about " "changing "+verbalize("their vault sizes", TP->HIS+" vault size")+".\n", TP ); return VAULT_H->do_switch( vault_name, size, proprietor, query_location(), query_open_cost(), query_visit_cost() ); } /* do_switch() */ /** @ignore yes */ int do_check_rent() { if( !do_open_check() ) return 0; tell_object( TP, "You enquire "+PTS+" about the rent for your vault " "space.\n"); tell_room( TO, TP->the_short()+" $V$0=enquires,enquire$V$ about " "the rent for "+verbalize("their vault spaces", TP->HIS+" vault space")+".\n", TP ); return VAULT_H->do_check_rent( vault_name, proprietor ); } /* do_check_rent() */ /** @ignore yes */ int do_check_prices() { TP->more_string("The pricing of our vaults is the following:\n"+ VAULT_H->query_pricing( vault_name, query_location(), query_open_cost(), query_visit_cost(), 1 ), "vault prices"); return 1; } /* do_check_prices() */ /** @ignore yes */ void init() { string str; ::init(); str = "{"+implode( sizes, "|")+"}"; add_command("switch", "vault size to "+str, (: do_switch($4[0]) :) ); add_command("change", "vault size to "+str, (: do_switch($4[0]) :) ); add_command("rent", "[a] {"+implode( sizes, "|")+"} vault", (: do_rent($4[0]) :) ); add_command("pay", "rent for <number> months", (: do_pay($4[0]) :) ); add_command("check", "[my] rent", (: do_check_rent() :) ); add_command("check", "prices", (: do_check_prices() :) ); } /* init() */ /** @ignore yes */ void player_quitting( object who, object env ) { } /* player_quitting() */ /** @ignore yes */ void do_clean( object room ) { object *inv, *liv, ob; string prop; if( !room ) return; if( sizeof( inv = INV(room) ) ) { prop = ( proprietor && ENV(proprietor) == TO ? proprietor->the_short() : "a vault assistant"); liv = filter( inv, (: living($1) :) ); if( sizeof(liv) ) { inv -= liv; foreach( ob in liv ) { tell_object( ob, prop+" drags you out of the vault.\n"); ob->move_with_look( TO, prop+" drags $N out from one of the vaults.", prop+" drags $N out of the vault."); } } if( sizeof(inv) ) { inv->move(TO); tell_room( TO, prop+" drags "+query_multiple_short(inv)+" out " "from one of the vaults.\n"); } if( sizeof( INV(room) ) ) { tell_creator("sandoz", "Unmovable stuff in vault : %s", file_name(room) ); return; } } room->dest_me(); } /* do_clean() */ /** @ignore yes */ mixed stats() { return ::stats() + ({ ({"vault name", vault_name }), ({"vault sizes", implode( sizes, ", ") }), ({"open cost", query_open_cost() }), ({"visit cost", query_visit_cost() }), }); } /* stats() */