// Dwarven Newbie Area: Created By Mist Fall 1994
#include "path.h";
inherit ROOM+"baseroom.c";
void init()
{
::init();
add_action("col_me","collect");
}
int col_me(string str)
{
object *stuff;
int c;
if(str == "moss")
{
stuff = all_inventory(this_player());
for(c=0; c<sizeof(stuff);c++)
{
if((string)stuff[c]->query_name() == "moss")
{
write("You have collected some moss already!\n");
return(1);
}
else
{
switch(random(5)+1)
{
case(1): clone_object(MISC + "blue_moss.c")->move(this_player());
break;
case(2): clone_object(MISC + "red_moss.c")->move(this_player());
break;
case(3): clone_object(MISC + "green_moss.c")->move(this_player());
break;
case(4): clone_object(MISC + "yellow_moss.c")->move(this_player());
break;
case(5): clone_object(MISC + "purple_moss.c")->move(this_player());
break;
case(6): clone_object(MISC + "orange_moss.c")->move(this_player());
break;
}
write("You scrape a piece of moss from the wall.\n");
return(1);
}
}
}
return(0);
add_clone(CHAR+"caverat.c",1);
}
void setup () { my_setup();
set_short("Realm of the Dwarf: Ledge");
set_zone("CAVE");
set_light(40);
set_long("\n Realm of the Dwarf: Ledge\n\n"
" This is a narrow ledge that goes around the pit. "
"The footing here is not too good, so it might be a "
"good idea to be very careful. The sound of water "
"can be heard from deep within the pit. The ledge continues "
"northwest and southwest, and there is a small tunnel "
"here that leads east. There is light coming from "
"somewhere in there. "
"\n\n");
add_item(({"ledge"}),"The ledge here is very narrow. It would "
"be wise to watch your step. The ledge leads around "
"the pit. "
"\n\n");
add_item(({"pit"}),"The pit is very deep, you cannot see the "
"bottom, but you can hear the sound of rushing water "
"from down there. Must be a river at the bottom. "
"There are big clumps of something lining the edge of "
"the pit. "
"\n\n");
add_item(({"tunnel","passage"}),"The tunnel leads into the "
"eastern wall. It looks as if there is light coming "
"from within the tunnel. "
"\n\n");
add_item(({"clumps"}),"These are large clumps of some kind of "
"multi-colored moss. The moss clings to the inside "
"of the pit wall. "
"\n\n");
add_item(({"moss","mosses","multi-colored moss"}),"This moss "
"is very beautiful and the colors fade from blue, "
"purple, and green to yellow, orange, and red. "
"If you are careful you might be able to collect "
"a specimen of it. "
"\n\n");
add_exit("east",ROOM+"dwarf11","path");
add_exit("southwest",ROOM+"dwarf14","path");
add_exit("northwest",ROOM+"dwarf07","path");
}