#include <lib.h>
inherit LIB_ROOM;
string panel_look();
int dial;
string tele_where;
static void create() {
room::create();
dial=0;
tele_where="a dark, metal corridor";
SetClimate("indoors");
SetAmbientLight(40);
SetShort("Underground Lab");
SetLong("You are in a messy, wildly disorganized underground "+
"laboratory. There are notes strewn everywhere, and a large chalkboard "+
"is covered with bizarre schematics and formulae. On the east wall is "+
"some mysterious, glowing portal, about the size of a door. Next to the "+
"portal is a control panel, and a crudely drawn sign. There is a door on "+
"the west wall.");
SetItems(([
({"lab","room","laboratory"}) : "This appears to be some sort of "+
"secret physics lab.",
"mess" : "It's definitely messy in here.",
({"note","notes"}) : "These are notes covered in highly technical "+
"equations and drawings.",
({"board","chalkboard"}) : "It is filled with lots of jargon and symbols you "+
"don't recognize.",
({"schematics","formulae"}) : "Complicated stuff, it looks like.",
({"schematic","formula"}) : "Complicated stuff, it looks like.",
"east wall" : "Other than the mysterious glowing portal and the "+
"control panel, the east wall seems pretty ordinary.",
"west wall" : "The west wall has a door leading west.",
"wall" : "It's a wall.",
({"portal","glowing portal","mysterious glowing portal"}) : "This is just "+
"what you'd expect a dimensional portal to look like, if you knew what "+
"it was. It pulsates with some weird energy, and you feel mildly "+
"nauseous looking into it. You feel strangely compelled to enter it.",
({"panel","control panel"}) : (: panel_look :),
"sign" : "A crude, hand-drawn sign in red ink next to the portal." ]));
SetInventory(([
]));
SetRead("sign","The sign reads: Enter at your own risk! This portal leads to some "+
"places of questionable safety and unstable reality...you are warned!");
AddRead( ({"schematics","formulae"}), ({"You don't understand them." }) );
AddRead( ({"notes"}) , ({"They are incomprehensible to you."}) );
AddRead( ({"board","chalkboard"}) , ({"It is full of cryptic equations. Buried in the middle of one "+
"is 'Step 3: a miracle happens'."}) );
SetExits((["west":"/domains/campus/room/tunnel3"]));
SetEnters((["portal":"/domains/campus/room/access1"]));
SetDoor("west","/domains/campus/doors/u_door");
SetObviousExits("w");
new("/domains/campus/npc/seth")->eventMove(this_object());
}
void init(){
::init();
add_action("set_dial","turn");
add_action("set_dial","set");
}
string panel_look(){
return "The control panel contains a single dial and a tiny screen. "+
"The dial is set to: "+dial+" and the screen reads: "+tele_where+".";
}
int set_dial(string str){
int i;
object ob;
ob=present("seth",this_object());
if(str=="dial"){
write("You spin the dial.\n");
say(this_player()->GetName()+" fiddles with the control panel.\n");
if(ob){
ob->eventForce("look at "+lower_case(this_player()->GetName()));
}
return 1;
}
if(sscanf(str,"dial to %d",i) > 0){
if(i > 10) i=0;
write("You set the dial to "+i+".\n");
say(this_player()->GetName()+" turns the control panel dial.\n");
if(ob){
ob->eventForce("say I hope you know what you're doing");
}
dial=i;
this_object()->set_portal(dial);
return 1;
}
else return 0;
}
int set_portal(int i){
if(i==0) { SetEnters((["portal":"/domains/campus/room/access1"]));
tele_where="a dark, metal corridor";
return 1;
}
if(i==1) { SetEnters((["portal":"/realms/boy/area/room3"]));
tele_where="village gates";
return 1;
}
if(i==2) { SetEnters((["portal":"/realms/dana/room/sc/marsh"]));
tele_where="a marsh";
return 1;
}
if(i==3) { SetEnters((["portal":"/realms/ember/swamp/swamp1"]));
tele_where="a swamp";
return 1;
}
if(i==4) { SetEnters((["portal":"/realms/haderach/land/cities/hartland/rooms/townsq"]));
tele_where="a town square";
return 1;
}
if(i==5) { SetEnters((["portal":"/realms/kyranna/law/maindesk"]));
tele_where="a police department";
return 1;
}
if(i==6) { SetEnters((["portal":"/realms/temujin/village/room/green"]));
tele_where="a ruined village";
return 1;
}
if(i==7) { SetEnters((["portal":"/realms/war/arena/3b1"]));
tele_where="an arena";
return 1;
}
if(i==8) { SetEnters((["portal":"/realms/zackron/metro/train/platfmn"]));
tele_where="a train station";
return 1;
}
if(i==9) { SetEnters((["portal":"/realms/hiccups/rooms/fen1"]));
tele_where="entrance gates";
return 1;
}
if(i==10) { SetEnters((["portal":"/domains/Midian/room/kaliid3"]));
tele_where="road by a church";
return 1;
}
}
