#include "path.h" inherit CASTLE+"baseroom.c"; object *npc; void setup() { my_setup(); set_short("Realm of the Orc: Dungeon Cell"); set_light(40); set_long("\n Realm of the Orc: Dungeon Cell.\n\n" " This appears to be just a normal cell used to keep " "prisoners of various races. It is cold and damp with no " "distinguishing features of any kind. " " Maybe its the lack of features that raises a brow to this room. " "It almost appears that this cell has never been used! " "\n\n"); add_item(("floor"),"\nLooking at the floor, you see nothing " "other small pebbles scattered around the room."); add_item(("walls"),"The wall here are made of large stones stacked " "on top of one another, and connected together by a " "crude morter."); add_item(("door"),"This is a very sturdy oak door. It is about " "six inches thick, no one would have ever been able to " "escape throught it"); add_exit("north",DUNGEON +"dungeon06","door"); npc=allocate(2); } void reset() { int i; for(i = 0; i < sizeof(npc); i++) { if(!npc[i]) { npc[i]=clone_object("/d/newbie/orc/monsters/cave_rat.c"); npc[i]->move(this_object()); } } } void dest_me() { int i; for(i = 0; i < sizeof(npc); i++) { if( npc[i] ) npc[i]->dest_me(); } ::dest_me(); } int do_search(string str) { if(str=="wall") { tell_object(this_player(),"\n" " You discover a lose stone and behind it you find an unusual " "piece of metal. The metal seems attached and maybe part of some " "kind of mechanism. Maybe if you knew how to operate it " "something cool might happen....\n"); return 1; } else tell_object(this_player(),"\n" " You search around but find nothing of interest.\n\n"); return 1; } void init() { ::init(); add_action("do_search","search"); add_action("do_flip","flip"); } int do_flip(string str) { if(str=="switch") { tell_object(this_player(),"\n" " The floor beneath you disappears...........YOU FALL!!!!\n\n"); tell_room(this_object(),"\n" " You hear the slam of metal doors.\n"); this_player()->move(DUNGEON + "dungeon1a"); this_player()->look_me(); return 1; } return 0; }