// 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);
}
void setup () { my_setup();
set_short("Realm of the Dwarf: Long Tunnel");
set_zone("CAVE");
set_light(40);
set_long("\n Realm of the Dwarf: Long Tunnel\n\n"
" The sound of the rushing water is almost deafening "
"here. You must be getting very close to the source. "
"The dirty cave walls seem to close in on you giving "
"you an eerie feeling. Something touches your "
"shoulder. Do you dare look? "
"There is a little more light here and you can see that "
"it is much brighter to the north. To the south, the "
"cave has a bend in it. "
"\n\n");
add_item(({"wall","something","cave"}),"The low cave wall is "
"covered with moss and crud. This must have been what "
"was on your shoulder. "
"\n\n");
add_item(({"moss","mosses"}),"This multi-colored moss hangs "
"from the cave walls. Its colors fade from blue, purple, "
"and green to yellow, orange, and red. You could "
"probably collect a small sample of this moss to take "
"with you. \n\n");
add_item("crud","This cave wall is covered with this filthy "
"crud everywhere except where the moss is growing. "
"\n\n");
add_exit("south",ROOM+"dwarf27","path");
add_exit("north",ROOM+"dwarf18","path");
add_clone(CHAR+"cave_rat2.c",2);
}