#include <daemons.h>
#include <lib.h>
string namen, ret;

int reload_room(object ob){
    string name;
    object *stuff;
    name=base_name(ob);
    stuff = deep_inventory(ob);
    foreach(object item in stuff){
        object *int_inv = ({});
        int_inv = filter(containers(item), (: interactive($1) :));
        if(!sizeof(int_inv) && !interactive(item)) item->eventDestruct();
    }
    ob->eventDestruct();
    load_object(name);
    return 1;
}

int query_night_light(object ob){
    string file;
    string filename = base_name(ob)+".c";
    namen = filename;
    if(file_size(filename) < 1) return -1;
    file = unguarded( (: read_file(namen) :) );
    if(strsrch(file,"SetNightLight") != -1) return 1;
    else return 0;
}

int query_day_light(object ob){
    string filename = base_name(ob)+".c";
    if(file_size(filename) < 1) return -1;
    if(strsrch(read_file(filename),"SetDayLight") != -1) return 1;
    else return 0;
}

int query_ambient_light(object ob){
    string filename = base_name(ob)+".c";
    if(file_size(filename) < 1) return -1;
    if(strsrch(read_file(filename),"SetAmbientLight") != -1) return 1;
    else return 0;
}

string opposite_dir(string str){
    switch(str){
        case "north" : ret = "south";break;
        case "south" : ret = "north";break;
        case "east" : ret = "west";break;
        case "west" : ret = "east";break;
        case "northeast" : ret = "southwest";break;
        case "northwest" : ret = "southeast";break;
        case "southeast" : ret = "northwest";break;
        case "southwest" : ret = "northeast";break;
        case "up" : ret = "down";break;
        case "down" : ret = "up";break;

        case "fore" : ret = "aft";break;
        case "aft" : ret = "fore";break;
        case "port" : ret = "starboard";break;
        case "starboard" : ret = "port";break;

        case "+y" : ret = "-y";break;
        case "-y" : ret = "+y";break;
        case "+x" : ret = "-x";break;
        case "-x" : ret = "+x";break;
        case "+z" : ret = "-z";break;
        case "-z" : ret = "+z";break;


        case "+x+y" : ret = "-x-y";break;
        case "-x-y" : ret = "+x+y";break;
        case "+x-y" : ret = "-x+y";break;
        case "-x+y" : ret = "+x-y";break;

        case "+x+z" : ret = "-x-z";break;
        case "-x-z" : ret = "+x+z";break;
        case "+x-z" : ret = "-x+z";break;
        case "-x+z" : ret = "+x-z";break;

        case "+y+z" : ret = "-y-z";break;
        case "-y-z" : ret = "+y+z";break;
        case "+y-z" : ret = "-y+z";break;
        case "-y+z" : ret = "+y-z";break;


        case "+x+y-z" : ret = "-x-y+z";break;
        case "+x+y+z" : ret = "-x-y-z";break;
        case "-x-y-z" : ret = "+x+y+z";break;
        case "-x-y+z" : ret = "+x+y-z";break;
        case "+x-y-z" : ret = "-x+y+z";break;
        case "+x-y+z" : ret = "-x+y-z";break;
        case "-x+y-z" : ret = "+x-y+z";break;
        case "-x+y+z" : ret = "+x-y-z";break;

        default : ret = "";break;
    }
    return ret;
}

varargs mixed coordinates(object ob, string type){
    mixed ret;
    object env;
    if(!ob) return;
    if(!(ret = ROOMS_D->GetCoordinates(ob))){
        if(env = room_environment(ob)){
            ret = ROOMS_D->GetCoordinates(env);
        }
    }
    return ret;
}

mixed calculate_coordinates(string str, int x, int y, int z, string type){
    mixed ret, str_ret = ({});
    switch(str){
        case "north" : ret = ({ x, y+1, z });break;
        case "south" : ret = ({ x, y-1, z });break;
        case "east" : ret = ({ x+1, y, z });break;
        case "west" : ret = ({ x-1, y, z });break;
        case "northeast" : ret = ({ x+1, y+1, z });break;
        case "northwest" : ret = ({ x-1, y+1, z });break;
        case "southeast" : ret = ({ x+1, y-1, z });break;
        case "southwest" : ret = ({ x-1, y-1, z });break;
        case "up" : ret = ({ x, y, z+1 });break;
        case "down" : ret = ({ x, y, z-1 });break;
        default: ret = ({ x, y, z }); break;
    }
    if(type != "string") return ret;
    foreach(int element in ret){
        str_ret += ({ itoa(element) });
    }
    return implode(str_ret, ",");
}

object room_environment(object ob){
#if 1
    foreach(object element in containers(ob)){
        if(inherits(LIB_ROOM, element)){
            return element;
        }
    }
    return 0;
#else
    object ret;
    object *envs = containers(ob);
    int i = sizeof(envs);
    for(i--; i > 0; i--){
        if(inherits(LIB_ROOM, envs[i])){
            return envs[i];
        }
    }
    return 0;
#endif
}

float calculate_slope(int x1, int y1, int x2, int y2){
    float x3 = x1 - x2;
    float y3 = y1 - y2;
    float ret = y3/x3;
    return ret;
}

int bearing(int x1, int y1, int x2, int y2){
    float ret;
    int y = y2 + ( 0 - y1 );
    int x = x2 + ( 0 - x1 );
    ret = atan(calculate_slope(0,0,x,y));
    ret = abs(ret * (180/3.141592));
    if(x1 < x2 && y1 < y2){
        ret = 90 - ret;
    }
    if(x1 < x2 && y1 > y2){
        ret = ret + 90;
    }
    if(x1 > x2 && y1 > y2){
        ret = 270 - ret;
    }
    if(x1 > x2 && y1 < y2){
        ret += 270;
    }
    return ret;
}