81 lines
2.8 KiB
C
81 lines
2.8 KiB
C
#include <lib.h>
|
|
|
|
inherit LIB_ROOM;
|
|
|
|
void create() {
|
|
::create();
|
|
SetProperty("light", 2);
|
|
SetProperty("no castle", 1);
|
|
SetShort( "The entrance to the Valley of the Orcs");
|
|
SetLong(
|
|
"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.");
|
|
SetItems(
|
|
(["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."]) );
|
|
SetSkyDomain("town");
|
|
SetExits(
|
|
(["north" : "/domains/Praxis/orc_valley/open",
|
|
"south" : "/domains/Praxis/highway3"]) );
|
|
AddExit("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(LIB_NPC);
|
|
ob->SetKeyName("guard");
|
|
ob->SetId( ({ "orc", "orc guard", "guard" }) );
|
|
ob->SetShort( "Orc guard");
|
|
ob->SetLong( "He is not happy to have people like you around.");
|
|
ob->SetRace( "orc");
|
|
ob->SetGender("male");
|
|
ob->SetLevel(4);
|
|
ob->SetHealthPoints(77);
|
|
ob->SetMorality(-75);
|
|
ob->SetAggressive( 15);
|
|
ob->SetWielding_limbs( ({ "right hand", "left hand" }) );
|
|
ob->move(this_object());
|
|
|
|
thing = new(LIB_ITEM);
|
|
thing->SetKeyName("axe");
|
|
thing->SetId( ({ "axe", "hand axe" }) );
|
|
thing->SetShort( "Hand axe");
|
|
thing->SetLong( "It was clearly made by orcs.");
|
|
thing->SetType("knife");
|
|
thing->SetClass(8);
|
|
thing->SetMass(223);
|
|
thing->SetValue(90);
|
|
thing->move(ob);
|
|
ob->eventForce("wield axe in right hand");
|
|
}
|
|
}
|
|
}
|
|
|
|
int go_north() {
|
|
if(present("orc")) {
|
|
present("orc")->eventForce("speak in orcish No one gets past us!");
|
|
return 0;
|
|
}
|
|
else return 1;
|
|
}
|
|
|
|
void init(){
|
|
::init();
|
|
}
|