// Dwarven Newbie Area ---- Created by Mist ---- Fall 1994
#include "path.h"
inherit "/std/outside";
object rope;
void setup() {
add_property("no_undead",1);
set_light(80);
set_short("Realm of the Dwarf: Outside Ledge");
set_long("\n Realm of the Dwarf: Outside Edge\n\n"
" As you step out of the cave and onto the ledge, "
"you are overwhelmed by the incredible view that "
"unfolds before you. This ledge is sticking out from "
"the side of a mountain that reaches up, almost to the "
"clouds. From this view you can see a city below, "
"with more cities off in the distance to the north and "
"east. To the west you can see an ocean that is dotted "
"with small islands and ships that must run between "
"them. The steep incline of this mountain makes it "
"look like a very dangerous climb down to the bottom. "
"There are some rocks with strange scratches on them "
"next to the cave."
"\n\n");
set_night_long("As you step to the ledge, you are taken by the "
"serene view of the city lights below. You can see "
"lights off in the distance to the north and east. "
"Considering the view, you must be near the top of a "
"high mountain. "
"There are some rocks here with unusual markings "
"on them. "
"\n\n");
add_item(({"city","cities"}),"The cities seem to be busy. "
"As populated as this area is, the cities are probably "
"busy day and night."
"\n\n");
add_item(({"ocean","islands"}),"The ocean is vast and you can "
"see that is is dotted with islands and ships running "
"to them. "
"\n\n");
add_item(({"mountain"}),"You are on a ledge near the top of "
"the mountain. Looking down you can see an incredible "
"view of the realms. Upward, you can see nothing but "
"the clouds and sky. "
"\n\n");
add_item(({"sky","clouds"}),"The clouds in the sky are just "
"overhead. You can almost touch them. "
"\n\n");
add_item(({"rocks","scratches","markings"}),"The scratches "
"on these rocks look like they have been made by a rope "
"that someone must have tied here to climb up or "
"down the mountain. "
"\n\n");
add_exit("in",ROOM+"dwarf02","path");
}
void init()
{
add_action("tie_me","tie");
::init();
}
int tie_me(string str)
{
if(str == "rope to rocks")
{
object *stuff;
int c;
stuff = all_inventory(this_player());
for(c=0; c<sizeof(stuff);c++)
{
if((string)stuff[c]->query_name() == "coil of rope")
{
// Taniwha 1995, quick hack to get it to work
if(this_player()->query_level() > 4)
//i/f(this_player()->query_properties("skill_rope_knots"))
{
write("You tie an excellent triple-hitch knot. This "
"secures the rope to the rock.\n");
stuff[c]->dest_me();
clone_object(MISC + "rope2.c")->move(this_object());
return(1);
}
else
{
write("You don't have the skills needed to tie a "
"knot that could support your weight.\n");
return(1);
}
}
else
{
write("You do need a rope to do that.\n");
return(1);
}
}
}
}