//modified by Ljen nov -96
//Coded by Joram on the 16th of September '96
inherit "/std/room";
#include "path.h"
object ditt, datt;
void setup(){
set_light(40);
set_short("Strange Passage Behind Mirror - Dead End");
set_long("This seems to be the end of the passage. Looking carefully "
"at the rocks of the east wall you see one of them which might "
"be moved lately.\n");
add_exit("north", SECRET+"c3.c", "path");
}
void init()
{
::init();
add_action("do_move","move");
add_action("do_look", "look");
}
int do_move(string str)
{
if(str != "rock")
{
return 0;
}
/* if(this_player()->query_property("halfelf_newbie_eq"))
{
notify_fail("Seems like someone have been here before you, because "
"there is nothing to find here.\n");
tell_room(environment(this_player()), this_player()->query_cap_name() +" looks "
"confused as nothing happens when "+
this_player()->query_pronoun()+" moves the rock.\n",({this_player()}));
return 0;
}
*/
if (str = "rock")
{
write("You move the red rock from the east wall to the center "
"of the passage, discovering a small hole on the wall. "
"Looking carefully at the hole you find a chainmail and a "
"broad sword, the two of them are a bit rusty.\n");
tell_room(environment(this_player()), this_player()->query_cap_name()+" moves"
" the rock and some equipment falls out from it.\n",({this_player()}));
ditt= clone_object("/baseobs/weapons/broad_sword",1)->move(this_player());
datt= clone_object("/baseobs/armours/chainmail", 1)->move(this_player());
/* this_player()-> add_property("halfelf_newbie_eq",1);*/
return 1;
}
}
int do_look(string str)
{
if(str == "rock")
{
write("You see a red rock that seems a bit loose.."
" Looks like it has been moved.\n");
return 1;
}
}