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

inherit LIB_DAEMON;

object blue, orange, bportal, oportal;
string oroom = "/domains/town/room/wtunnel3";
string broom = "/domains/campus/room/hazlab";
static int heart_count;

void CheckPortals(){
    mixed *tmp;
    if(catch(blue = load_object(broom)) || !blue){
        broom = ROOM_POD;
        blue = load_object(broom);
    }
    if(catch(orange = load_object(oroom)) || !orange){
        oroom = ROOM_POD;
        orange = load_object(oroom);
    }
    if(!bportal){
        tmp = objects( (: base_name($1) == "/secure/obj/portal_blue" &&
                    clonep($1) :) );
        if(sizeof(tmp)){
            bportal = tmp[0];
            tmp -= ({ bportal });
            foreach(object foo in tmp){
                foo->eventDestruct();
                if(foo) destruct(foo);
            }
        }
    }
    if(!oportal){
        tmp = objects( (: base_name($1) == "/secure/obj/portal_orange" &&
                    clonep($1) :) );
        if(sizeof(tmp)){
            oportal = tmp[0];
            tmp -= ({ oportal });
            foreach(object foo in tmp){
                foo->eventDestruct();
                if(foo) destruct(foo);
            }
        }
    }
    if(!bportal){
        catch(bportal = new("/secure/obj/portal_blue"));
    }
    if(!oportal){
        catch(oportal = new("/secure/obj/portal_orange"));
    }
    if(bportal && (!environment(bportal) || environment(bportal) != blue)){
        if(blue){
            bportal->eventMove(blue);
        }
    }
    if(oportal && (!environment(oportal) || environment(oportal) != orange)){
        if(orange){
            oportal->eventMove(orange);
        }
    }
}

void PurgePortals(){
    mixed *tmp = objects( (: base_name($1) == "/secure/obj/portal_orange" &&
                clonep($1) :) );
    if(sizeof(tmp)){
        foreach(object foo in tmp){
            if(foo != oportal){
                foo->eventDestruct();
                if(foo) destruct(foo);
            }
        }
    }
    tmp = objects( (: base_name($1) == "/secure/obj/portal_blue" &&
                clonep($1) :) );
    if(sizeof(tmp)){
        foreach(object foo in tmp){
            if(foo != bportal){
                foo->eventDestruct();
                if(foo) destruct(foo);
            }
        }
    }
}

void RegisterPortal(object env){
    string tmp = base_name(previous_object());
    if(tmp == "/secure/obj/portal_orange" && clonep(previous_object())){
        oportal = previous_object();
        orange = env;
        oroom = base_name(orange);
    }
    if(tmp == "/secure/obj/portal_blue" && clonep(previous_object())){
        bportal = previous_object();
        blue = env;
        broom = base_name(blue);
    }
    PurgePortals();
}

object GetBluePortal(){
    CheckPortals();
    return blue;
}

object GetOrangePortal(){
    CheckPortals();
    return orange;
}

void heart_beat(){
    heart_count++;
    if(!(heart_count % 30) && (!oportal || !bportal)){
        CheckPortals();
    }
    if(!(heart_count % 60)){
        PurgePortals();
    }
    if(!(heart_count % 300)){
        CheckPortals();
    }
    if(heart_count > 3600){
        heart_count = 0;
        unguarded( (: save_object(SAVE_PORTAL, 1) :) );
    }
}

void create(){
    ::create();
    SetNoClean(1);
    if( file_size( SAVE_PORTAL __SAVE_EXTENSION__ ) > 0 )
        unguarded( (: restore_object, SAVE_PORTAL, 1 :) );
    CheckPortals();
    set_heart_beat(1);
}

int eventDestruct(){
    unguarded( (: save_object(SAVE_PORTAL, 1) :) );
    return daemon::eventDestruct();
}