#include "path.h"
inherit "/std/outside";
int found;
object chain;
object sword;
void setup()
{
add_property("no_undead",1);
set_light(LIGHT);
set_short("Isle of Havmand: Ledge. ");
set_long("\nIsle of Havmand : Ledge\n\n"
" You are standing on a narrow ledge halfway down a deep pit. Below you "
"sea water surges to and fro in a most alarming manner. If you slip and "
"fall from here you will certainly die. Above you to your right is the "
"ledge you have just swung down from. You are very pleased to see that "
"your vine is still firmly attached because there is no other way out "
"from here.\n"
"Lying on the ledge is the skeletal remains of an adventurer who wasn't "
"so lucky. Most of his equipment seems to have disappeared as well. "
"\n\n");
set_night_long("\nIsle of Havmand : Ledge\n\n"
" It is difficult to see anything because it is so dark. You can just "
"make out what looks like a skeleton of sorts lying on this ledge. "
"\n\n");
add_sound("water","You can hear the sea pounding back and forth against "
"rock walls.\n");
add_smell("water","You can smell sea water quite strongly.\n");
add_item(({"water","sea water"}),"Foaming waves pound against the rock "
"walls at the bottom of this pit, sending up clouds of spray which don't "
"quite reach to the ledge. \n");
add_item("ledge","Above you to the right is the ledge you came from. "
"From here it looks a lot smaller than when you were standing on it. \n");
add_item("vine","This is the vine you used to swing down on. One end is "
"attached to your waist and the other is still tied to a tree above. "
"This is lucky because you wont be able to get out of here without it. \n");
add_item("tree","The small scraggly but well-rooted tree you tied the "
"end of your vine to. \n");
add_item("skeleton","White, sun-bleached bones are about all that is left "
"of some poor adventurer who got stuck here. \n");
}
void init()
{
add_exit("vine",HAVMAND+"j37.c","path");
add_action("do_search","search");
::init();
}
void reset()
{
found = 0;
}
void dest_me()
{
::dest_me();
}
int do_search(string str)
{
if(! found)
{
write("You search the skeleton and find a rusty chainmail and a bastard "
"sword. They could both use a good clean, but since it's the best gear "
"you are likely to find here, you sit down and start work on sharpening and "
"polishing.\n");
say(this_player()->query_cap_name()+" searches the skeleton.\n",this_player());
found = 1;
chain = new(ARMOUR+"chainmail");
chain->set_short("Rusty chainmail");
chain->set_long("This chainmail has a thin coating of rust and it's "
"going to be uncomfortable to wear for a while. But time, use and a "
"wipe with an oily cloth now and then should clean it up.\n");
chain->move(this_object());
sword = new(WEAPON+"bastard_sword");
sword->set_short("Rusty Bastard sword");
sword->set_long("A large heavy sword, you may have trouble swinging it "
"but it isn't going to stop swinging in a hurry. It looks in pretty "
"good shape even though it has a patina of rust. A little time "
"and tender loving care should restore it nicely.\n");
sword->move(this_object());
}
else
{
write("You search around but don't find anything.\n");
}
return 1;
}