// 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: Dead End"); set_light(40); set_long("\n Realm of the Dwarf: Dead End\n\n" " The path between the rocks has led you nowhere. " "There is nothing here but the cave wall and the " "sand. Over in one corner, there is a hole in the " "sand here that looks like a small animal has dug " "out a nest. There are a number of small holes in the " "walls here. The only way out of here is the path " "to the east. " "\n\n"); add_item(({"wall","cave wall","rocks"}),"The rock wall " "surrounds you on three sides. The rocks are rough " "and extend upward way above your head. " "There are several holes in the " "walls here. One that is a bit larger than the others " "is full of some multi-colored moss. " "\n\n"); add_item(({"hole","sand","corner","nest"}),"There is a small " "nest burrowed in the sand in one corner. It looks " "as if a small animal lives in this area. " "\n\n"); add_item(({"moss","mosses","multi-colored moss"}),"This moss " "is stringy and very colorful. The colors fade from " "blue, purple, and green to yellow, orange, and red. " "You might be able to collect a small amount of it. " "\n\n"); add_exit("east", ROOM+"dwarf06.c", "path"); add_clone(CHAR +"spider.c", 1); }