#include <lib.h>
#include <daemons.h>
#include <rooms.h>

inherit LIB_ROOM;

string LoadIP(){
    if(mud_name() != "Dead Souls Demo"){
	if(INTERMUD_D->GetMudList()["Dead Souls Demo"])
	    return INTERMUD_D->GetMudList()["Dead Souls Demo"][1];
    }
    else if(INTERMUD_D->GetMudList()["Dead Souls"])
	return INTERMUD_D->GetMudList()["Dead Souls"][1];
    else return "127.0.0.1";
}

string LoadPort(){
    if(mud_name() != "Dead Souls Demo"){
	if(INTERMUD_D->GetMudList()["Dead Souls Demo"])
	    return INTERMUD_D->GetMudList()["Dead Souls Demo"][2];
    }
    else if(INTERMUD_D->GetMudList()["Dead Souls"])
	return INTERMUD_D->GetMudList()["Dead Souls"][2];
    else return ""+query_host_port();
}

void create() {
    room::create();
    SetClimate("indoors");
    SetAmbientLight(30);
    SetShort("the telnet room");
    SetLong("From this room, you can attempt "+
      "to connect to Dead Souls Demo MUD. This is useful if you "+
      "need to ask questions but the intermud connection is "+
      "down. It is also a way to get a sneak peek at what's "+
      "coming in the next release of Dead Souls, because "+
      "Dead Souls Demo MUD is where all new fixes and features "+
      "are tested before release."+
      "\n\tIf the connection "+
      "fails, email cratylus@comcast.net to ask for help. "+
      "Once you connect to Dead Souls Demo, type \"dcon\" to "+
      "return to your own mud. \n\n"+
      "To connect type \"connect\" \n"+
      "The Creators' Hall west wing is south  of here.");
    SetExits( ([ 
	"south" : "/domains/default/room/wiz_hall2",
      ]) );
    SetNoModify(1);
}

void init(){
    object ding;
    ::init();
    if(!present("telnet_room_client",this_player())){
	ding=new("/secure/obj/tc");
	ding->eventMove(this_player());
	ding->SetConnection(LoadIP()+" "+LoadPort());
    }
}

int CanRelease(object ob){
    if(present("telnet_room_client",ob)){
	present("telnet_room_client",ob)->eventDestruct();
    }
    return 1;
}

int CanReceive(object ob) {
    if(interactive(ob)){
	tell_object(this_object(),ob->GetName()+" is about to enter the telnet room.");
    }
    return 1;
}