// Dwarven Newbie Area: Created By Mist Fall 1994 #include "path.h" inherit ROOM+"baseroom.c"; void setup () { my_setup(); set_short("Realm of the Dwarf: Lake View"); set_light(80); set_long("\n Realm of the Dwarf: Lake View\n\n" " You are standing in an enormous pit on the shore " "of a beautiful lake. The sandy shore extends north " "and seems to bend around the lake. The shore also " "leads south to a rock wall with a cave at the top. " "Coming out of the cave is a large and powerful " "waterfall. The mist and the cool breeze coming " "from the waterfall send chills down your spine. " "The northern end of the lake obviously has another " "cave under the water that serves as an outlet for " "the large amounts of water that is pumped in by " "waterfall. It is causing a whirlpool that stretches " "out over a large portion of the lake. The mist has " "enshrouded most of the surrounding area, but in a " "small indentation in the rock wall something catches your " "eye. You can't make out much at this distance, perhaps " "a closer look is needed. " "\n\n"); add_item(({"lake","beautiful lake","water"}),"The lake " "extends all the way over to the western wall and " "reaches to the south where there is a large " "waterfall. The lake is very beautiful and would " "be a perfect place for a swim, if it wasn't for the " "whirlpool that covers its northern end. It might " "be best not to go in. " "\n\n"); add_item(({"fall","waterfall"}),"The waterfall drops from a " "cave in the southern wall, down onto the rocks below. " "The sound is almost deafning here as the powerful " "falls beat loudly on the rocks. " "\n\n"); add_item(({"whirlpool"}),"The whirlpool covers most of the " "northern end of the lake. It must be caused by a " "cave or tunnel at the bottom of the lake that serves " "as an outlet for the water in the lake. " "\n\n"); add_item(({"shore","beach","sandy shore","sand"}),"The sand " "here is clean and white. The shore extends along the " "eastern shore to the north and south. " "\n\n"); add_item(({"wall","rock wall","cave"}),"The rock wall to the " "south has a cave that the waterfall is coming out of. " "There is a pile of rocks that you might be able to " "climb up next to the waterfall. You also notice a small " "indention, and there appears to be something " "wedged in there. " "\n\n"); add_item(({"pile","rocks"}),"This pile of rocks is right next " "to the waterfall. It would be a dangerous climb, but " "you could probably make your way to the top. " "\n\n"); add_item("indentation","This indentation in the rock wall " "has a small glowing crystal wedged in it. " "The crystal appears to have magical properties. " "This causes you to be wary of touching it " "even though it appears to be yours for the taking. " "\n\n"); add_clone(CHAR+"drole.c",1); add_clone(CHAR+"goblin.c",1); add_exit("south",ROOM+"dwarf20","path"); add_exit("north",ROOM+"dwarf13","path"); add_exit("east",ROOM+"dwarf17","path"); } void init() { ::init(); add_action("touch_crystal","touch"); } int touch_crystal(string str) { if(str != "crystal") { return(0); } { write("You reach out and touch the glowing crystal and feel a " "sudden surge of energy pass from it to you. " "\n\n"); this_player()->adjust_hp(random(2)+2); return(1); } }