#include <std.h>

inherit ROOM;

void create() {
    ::create();
    set_property("light", -1);
    set_property("indoors", 1);
    set_property("no teleport", 1);
    set_property("no castle", 1);
    set_smell_string("default", "The stench in here is foul and trapped.");
    set_short( "A dark chamber under the mountains");
    set_long(
        "You are in a very dark chamber, illuminated only by your "
        "light source.");
    set_items(
        (["light" : "What light?",
	  "tunnel" : "It is very dark.",
	  "chamber" : "You cannot see it very well."]) );
    set_exits( 
	      (["east" : "/domains/Praxis/mountains/tunnel1"]) );
}

void reset() {
    object arm, mon;

    ::reset();
    if(!present("goblin")) {
        mon = new(MONSTER);
        mon->set_name("goblin");
        mon->set_id( ({ "soldier", "goblin", "goblin soldier" }) );
        mon->set_short( "Goblin soldier");
        mon->set_long( "An ugly monster who has likely never seen "
		 "the light of day.");
        mon->set_level(3);
        mon->set_race( "goblin");
        mon->set_aggressive( 10);
        mon->set_alignment(-140);
        mon->set_languages( ({ "goeblesque" }) );
        mon->set_speech(10, "goeblesque", ({ "Piss off.", "Go away or die!" }),
          1);
        mon->set_hp(240);
        mon->set_gender("female");
        mon->set_body_type("human");
        mon->move(this_object());
        arm = new(ARMOUR);
        arm->set_name("boot");
        arm->set_id( ({ "left boot", "boot", "goblin boot" }) );
        arm->set_short( "Left goblin boot");
        arm->set_long( "A boot for left foot made from the "
		 "rotting leather goblins can only find.");
        arm->set_type("boot");
        arm->set_limbs( ({ "left foot" }) );
        arm->set_ac(3);
        arm->set_mass(120);
        arm->set_value(50);
        arm->move(mon);
        mon->force_me("wear boot");
    }
}