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