#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;
    }
}