49 lines
1.5 KiB
C
49 lines
1.5 KiB
C
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(this_player()->query_position() == "player" ||
|
|
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;
|
|
}
|
|
|