#include <lib.h>
inherit LIB_ROOM;
void init() {
::init();
add_action("climb", "climb");
}
void create() {
::create();
SetProperty("light", 3);
SetProperty("night light", 1);
SetProperty("no castle", 1);
SetShort( "the southern end of East Road");
SetLong(
"Starting your journey down East Road, you can see that this is "
"a less travelled street. Boc La Road is south from here, running "
"straight through Praxis. Every now and then you can see a street "
"lamp or two, in its ancient and rusted stage. The walls of the supply "
"store border the western side of the road, and the Praxis Library, "
"one of the biggest libraries in this realm, is to the east.");
SetItems(
(["road" : "East Road, which marks the far east end of Praxis.",
"roads" : "East Road and Boc La Road.",
"side" : "It's the supply shop.",
"shop" : "The local adventurer's supply shop sits on Boc La "
"and East Road.",
"walls" : "They are nothing special.",
"wall" : "You are fairly certain that you cannot climb them.",
"library" : "It is open for your reading pleasure."]) );
SetExits(
(["north" : "/domains/Praxis/east_road2",
"south" : "/domains/Praxis/e_boc_la3",
"east" : "/domains/Praxis/library"]) );
SetProperty("no castle", 1);
}
int climb(string str) {
if(!str) {
notify_fail("Climb what?\n");
return 0;
}
if(str != "wall" && str != "walls") {
notify_fail("That's not here for climbing.\n");
return 0;
}
if((int)this_player()->query_stats("dexterity") < random(30)) {
write("Ack! You slip and hurt yourself in trying!");
say(this_player()->query_cap_name()+" slips and hurts "+
(string)this_player()->query_objective()+"self in trying "
"to climb the walls.");
this_player()->add_hp(-(random(7)));
}
else {
write("You can't quite manage the climb.");
say(this_player()->query_cap_name()+" tries to climb the shop "
"walls and fails.");
}
return 1;
}
