#include <std.h> inherit ROOM; void create() { ::create(); set_property("light", 2); set_property("no castle", 1); set_short( "The entrance to the Valley of the Orcs"); set_long( "In the shadow of the Daroq Mountains to the west, and just north " "of the great highway is the valley of the orcs. Here you find " "the entrance to a huge stone orc fortress surrounded by dense " "forest. The great highway is south of here."); set_items( (["mountains" : "They are a dark range of mountains to the " "northwest. To the southwest, the mountains are go by " "the name of Destiny Mountains.", "highway" : "You cannot see it through the trees.", "valley" : "It sits in the shadow of the Daroq Mountains.", "entrance" : "A grand stone gateway into the orc fortress.", "stone" : "It is an old grey stone that has stood here for ages.", "fortress" : "It is the home of the orcs who live in Orc Valley.", "forest" : "It is terribly dense here.", "trees" : "They are huge and grow close together.", "gateway" : "The entrance to the orc fortress."]) ); set_exits( (["north" : "/domains/Praxis/orc_valley/open", "south" : "/domains/Praxis/highway3"]) ); add_exit("north", "/domains/Praxis/orc_valley/open", (: "go_north" :) ); } void reset() { int i, x; object ob, thing; ::reset(); if(!present("orc")) { for(i=0; i< 3; i++) { ob = new(MONSTER); ob->set_name("guard"); ob->set_id( ({ "orc", "orc guard", "guard" }) ); ob->set_short( "Orc guard"); ob->set_long( "He is not happy to have people like you around."); ob->set_race( "orc"); ob->set_gender("male"); ob->set_level(4); ob->set_hp(77); ob->set_alignment(-75); ob->set_languages( ({ "orcish" }) ); ob->set_aggressive( 15); ob->set_body_type("human"); ob->set_wielding_limbs( ({ "right hand", "left hand" }) ); ob->move(this_object()); thing = new(WEAPON); thing->set_name("axe"); thing->set_id( ({ "axe", "hand axe" }) ); thing->set_short( "Hand axe"); thing->set_long( "It was clearly made by orcs."); thing->set_type("knife"); thing->set_wc(8); thing->set_mass(223); thing->set_value(90); thing->move(ob); ob->force_me("wield axe in right hand"); } } } int go_north() { if(present("orc")) { present("orc")->force_me("speak in orcish No one gets past us!"); return 0; } else return 1; }