#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;
}