62 lines
2.0 KiB
C
62 lines
2.0 KiB
C
#include <lib.h>
|
|
|
|
inherit LIB_ROOM;
|
|
|
|
void create() {
|
|
::create();
|
|
SetProperties( ([ "light" : 2, "indoors" : 1, "no castle" : 1 ]) );
|
|
SetShort("Horace's General Supply Shop");
|
|
SetLong(
|
|
"Welcome to Horace's General Supply Shop!\n"
|
|
"Horace buys and sells goods created for and found "
|
|
"by adventurer's when he is in. The store opens out "
|
|
"onto Boc La Road south. There is a passage to the "
|
|
"north guarded by a magic field.");
|
|
SetItems(
|
|
(["shop" : "You can buy and sell things here.",
|
|
"passage" : "Horace keeps the things he has for sale back there.",
|
|
"road" : "Boc La Road."]) );
|
|
SetExits( ([ "south" : "/domains/Praxis/e_boc_la2",
|
|
"north" : "/domains/Praxis/storage" ]) );
|
|
set_pre_exit_functions( ({ "north" }), ({ "go_north" }) );
|
|
add_sky_event( (: "shop_closing" :) );
|
|
}
|
|
|
|
void reset() {
|
|
::reset();
|
|
if(query_night()) return;
|
|
if(!present("horace"))
|
|
new("/domains/Praxis/obj/mon/horace")->move(this_object());
|
|
}
|
|
|
|
string shop_long(string str) {
|
|
if(query_night())
|
|
return "Horace's is now closed.";
|
|
}
|
|
|
|
void shop_closing(string str) {
|
|
object ob;
|
|
|
|
if(str == "night" && ob = present("horace", this_object()))
|
|
ob->destruct();
|
|
else if(str == "dawn" && !present("horace", this_object()))
|
|
new("/domains/Praxis/obj/mon/horace")->move(this_object());
|
|
}
|
|
|
|
int go_north(string str) {
|
|
if(!creatorp(this_player())) {
|
|
message("my_action", "The magic of Horace stops you.", this_player());
|
|
message("other_action", this_player()->query_cap_name()+
|
|
" is stopped by the magic of Horace.", this_object(),
|
|
({ this_player() }));
|
|
return 0;
|
|
}
|
|
message("other_action", this_player()->query_cap_name()+
|
|
" cannot be stopped by Horace's magic.", this_object(),
|
|
({ this_player() }));
|
|
return 1;
|
|
}
|
|
void init(){
|
|
::init();
|
|
}
|