inherit "/lib/std/room";
void init() {
::init();
add_action("go_north", "north");
}
void create() {
::create();
SetProperty("light", 2);
SetProperty("indoors", 1);
SetShort( "Horace's Adventurer's Supply Shop");
SetLong(
"Welcome to Horace's Adventurer's 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"]) );
SetProperty("no castle", 1);
}
void reset() {
::reset();
if(!present("horace"))
new("/domains/Praxis/obj/mon/horace")->move(this_object());
}
int go_north() {
if((string)this_player()->query_position() == "player" ||
(string)this_player()->query_position() == "high mortal") {
write("The magic of Horace stops you.");
say(this_player()->query_cap_name()+" is stopped by the magic of Horace.",
this_player());
return 1;
}
write("You cannot be stopped by Horace's magic.");
say(this_player()->query_cap_name()+" cannot be stopped by Horace's "+
"magic.", this_player());
this_player()->eventMoveLiving("/domains/Praxis/storage", "north");
return 1;
}
