// 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: Small Room"); set_light(40); set_long("\n Realm of the Dwarf: Small Room\n\n" " This is the wall of the cave, overlooking the pit. " "You are in a crack in the wall, about 40 feet from the " "floor of the cave. The crack continues up to a ledge, " "and down to the cave floor. " "\n\n"); add_item(({"wall","crack"}),"This large crack in the wall runs " "all the way up to the ledge above. " "The sides of the crack are slippery due to the growth " "of some beautiful, multi-colored moss. " "\n\n"); add_item(({"ledge"}),"The ledge overhead sticks out a bit from " "the wall. But you will have no problem getting to it " "though, the crack gives you easy access to the top. " "\n\n"); add_item(({"moss","mosses","multi-colored moss"}),"This moss " "runs up and down the crack in the wall. Its colors " "fade from blue, purple, and green to yellow, orange, " "and red. You might be able to collect a small sample " "of it. " "\n\n"); add_exit("up",ROOM+"dwarf01","path"); add_exit("down",ROOM+"dwarf07","path"); }