inherit "/std/room";
object wizard;
void reset()
{
if(!wizard)
{
wizard=clone_object("/d/newbie/grads/npcs/wizard.c");
wizard->move(this_object());
}
}
void setup()
{set_light(90);
set_short("Glowing Cave");
set_long("\nThis dark cave is glowing with radiance from a large globe in the center of the room. The onyx "+
"walls absorb the glaring light as it radiates towards the side of the room creating "+
"a blure towards to side. Small ruins are carved around the glowing stone globe. It is set into a large stone encasing around "+
"the bottom of the globe. It is built into the very earth here.\n");
add_item("walls", "The walls of this cavernous room glow a bright red, "+
"magically illuminating the room with a bloody radiance.\n");
add_exit("north", "/w/balo/workroom.c", "door");
modify_exit("north", ({ "function", "exit_func" }) );
}
int exit_func() {
int hp, damage;
hp=(int)this_player()->query_hp();
damage=hp/3;
if(this_player()->query_level() >=10) {
write_file("/d/newbie/grads/log/bigplayer", "Level: "+this_player()->query_level()+
"L, Name: "+this_player()->query_cap_name()+
"\n");
this_player()->adjust_hp(-damage);
write("Unbearable heat stabs through your body as you leap through "+
"the Fire Gate, landing on the other side writhing in pain, skin "+
"sizzling, your eyelashes and eyebrows charred into dust.\n");
return 1;
}
else {
write_file("/d/newbie/grads/log/Lplayer", "Level: "+this_player()->query_level()+
"levels, who: "+this_player()->query_cap_name()+
"\n");
write("A hectic sensation takes hold of your mind as "+
"your bodey begins to break down into small "+
"pieces and magically re-assemble elsewhere.\n");
write("You made it safely!\n");
return 1;
}
}
dest_me()
{
if(wizard)
wizard->dest_me();
::dest_me();
}