mud/lib/secure/sefun/rooms.c

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

varargs string opposite_dir(string str, int article){
    int classic;
    switch(str){
        case "north" : ret = "south";classic = 1;break;
        case "south" : ret = "north";classic = 1;break;
        case "east" : ret = "west";classic = 1;break;
        case "west" : ret = "east";classic = 1;break;
        case "northeast" : ret = "southwest";classic = 1;break;
        case "northwest" : ret = "southeast";classic = 1;break;
        case "southeast" : ret = "northwest";classic = 1;break;
        case "southwest" : ret = "northeast";classic = 1;break;
        case "up" : ret = (article ? "below" : "down");break;
        case "down" : ret = (article ? "above" : "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;
    }
    if(article){
        if(classic) return "the "+ret;
    }
    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){
    foreach(object element in containers(ob)){
        if(inherits(LIB_ROOM, element)){
            return element;
        }
    }
    return 0;
}

varargs int bearing(int x1, int y1, int x2, int y2, int reverse){
    float inter = (reverse ? (y1 - y2) : (y2 - y1));
    float mark = (reverse ? (x1 - x2) : (x2 - x1));
    float range = sqrt(pow(mark, 2) + pow(inter, 2));
    int corr, ret;
    if(x1 == x2 && y1 == y2) return -1;
    corr = ((mark >= 0) ? 0 : 180);
    ret = (acos(to_float(corr ? -inter : inter)/range) * (180/3.141592)) + corr;
    return ret;
}