// 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: Hole in the Wall"); set_zone("CAVE"); set_light(15); set_long("\n Realm of the Dwarf: Hole in the Wall\n\n" " You crawl your way into the hole in the wall. " "It is a tight squeeze but you have made it in. " "There are a number of small holes here on the cave " "wall. They have something squishy in them. " "You can see the main part of the cave to the " "southwest and to the northeast there is a large, " "well lighted room with the smell of guano coming " "from it. " "\n\n"); add_smell(({"guano","path"}),"The smell coming from the room " "to the northeast is the most horrible thing you " "have ever smelled of in your life. You recognize " "it to be guano, the disgusting waste of bats. " "Considering the incredible power of the smell, " "there must be lots of bats in that room. " "\n\n"); add_item(({"wall","hole","something"}),"The holes here in the " "walls are packed with some strange variety of moss. " "\n\n"); add_item(({"moss","mosses"}),"This variety of multi-colored " "moss has colors that fade from blue, purple, and green " "to yellow, orange, and red. It might be possible " "for you to collect a small piece of it. " "\n\n"); add_clone(CHAR+"goblin.c",1); add_exit("southwest",ROOM+"dwarf24","path"); add_exit("northeast",ROOM+"dwarf19","path"); }