/*    /lib/virtual/virt_map.c
 *    From DeadSouls Object Library
 *    Provides a map for map based virtual rooms
 *    Created by Dvarsk 980310
 *    Version: @(#) virt_map.c 1.3@(#)
 *    Last modified: 98/08/25
 */      

#include <lib.h>

inherit LIB_DAEMON;

private mapping Location=([]);
private mixed AreaMap;
private string Virt_Room= "";

/******************* virt_map.c required overrides ************/

varargs string array BaseMap(){ //override with actual map
	return 
		({
	//   0
    	//   012
          ({"000",//0
    	    "010",//1
      	    "000",//2
      	    })});
}

/******************* virt_map.c attributes ********************/

int *GetLocations(string str){return Location[str]; }

varargs mixed GetAreaMap(int x, int y, int z){ 
	if(nullp(x) || nullp(y) || nullp(z)) return copy(AreaMap);
	if(	   x<0 
		|| y<0 
		|| z<0
		|| z>sizeof(AreaMap)
		|| y>sizeof(AreaMap[0])
		|| x>sizeof(AreaMap[0][0]))
			return "0";
	return copy(AreaMap[z][y][x..x]);

}

varargs mixed SetAreaMap(int y,int x ,int z, string str){
	if(nullp(x)||nullp(y)||nullp(z)){
		string x_line="";
	    string * y_line=({});
		AreaMap=BaseMap();
		z=sizeof(AreaMap);
		y=sizeof(AreaMap[0]);
		x=sizeof(AreaMap[0][0]);
		while (x --) x_line += "0";
		while (y --) y_line += ({x_line});
		return AreaMap = ({y_line}) +AreaMap + ({y_line});
	}
	else return AreaMap[z][y][x..x]=str;
}

int SetVirtFile( string file){
    string str;
    if( str = catch(call_other(file, "???")) ) {
		if( creatorp() ) message("error", str, previous_object());
                return 0;
	}
	Virt_Room=file+"/";
	SetAreaMap();
	return 1;
}

/******************* virt_map.c events ************************/

int * RecurseLocations(){
	mixed map=GetAreaMap();
	int *locat;
	int z=random(sizeof(map)-2)+1;
	int y=random(sizeof(map[z]));
	int x=random(sizeof(map[z][y]));

	if(map[z][y][x..x]!="1") 
        return RecurseLocations(); // Is it within the general land?
	foreach(string tmp in keys(Location)){ //Is something else here?
		locat=Location[tmp];
		if(locat[0]==x && locat[1]==y && locat[2]==z) 
            return RecurseLocations(); 
	}
	return ({x,y,z});
}

varargs void InitializeLocations(string tmp){
	if(!nullp(tmp)){
		if(!Location[tmp][0] && !Location[tmp][1] 
            && !Location[tmp][2])
			Location[tmp]=RecurseLocations(); 
		SetAreaMap(Location[tmp][1], Location[tmp][0], 
            Location[tmp][2], tmp);
		(Virt_Room+(Location[tmp][0] ) + "," 
            + (Location[tmp][1]) + ","
			+ (Location[tmp][2]))->ResetLocation();
    }
    else foreach(tmp in keys(Location)){
        Location[tmp]=RecurseLocations();
        SetAreaMap(Location[tmp][1], Location[tmp][0],
            Location[tmp][2], tmp);
		(Virt_Room+(Location[tmp][0] ) + "," + (Location[tmp][1])
            + "," +(Location[tmp][2]))->ResetLocation(); 
	}

}

// call this if all the locations randomly move around
void SwitchLocations(){
	int * old_location;
	mixed areas=BaseMap();

	foreach(string tmp in keys(Location)){
		if(Location[tmp][3]) continue;
		old_location=copy(Location[tmp]);
		Location[tmp]=({0,0,0}); 
		SetAreaMap(old_location[1], old_location[0], 
            old_location[2], areas[(old_location[2]-1)]
            [old_location[1]][old_location[0]..old_location[0]]);
		Location[tmp]=RecurseLocations();
		(Virt_Room + (old_location[0]) + ","
			+ (old_location[1]) + "," 
            + (old_location[2]))->ResetLocation();
		SetAreaMap(Location[tmp][1], Location[tmp][0],
            old_location[2], tmp);
		(Virt_Room + (Location[tmp][0] ) + ","
			+ (Location[tmp][1]) + "," 
            + (old_location[2]))->ResetLocation();

	}
}

/******************* virt_map.c driver applies ****************/

varargs static void create(string virt_file) {
    daemon::create();
    SetNoClean(1);
    if(!nullp(virt_file)) SetVirtFile(virt_file);
    else SetVirtFile(base_name(this_object()));
}

/******************* virt_map.c optional settings *************/

// AddLocation(string str, int array where)
// string = unique identifier
// where==({0,0,0}) will randomly place the location

int AddLocation(string str, int array where){ 
	if(!nullp(Location[str])) return 0;
	Location[str]=where; 
	InitializeLocations(str);
	return 1;
}

int RemoveLocation(string str){ 
	int * location=Location[str];
	mixed areas=BaseMap();
	if(nullp(location)) return 0;
	SetAreaMap(location[1],location[0],location[2],
			areas[(location[2]-1)][location[1]]
            [location[0]..location[0]]);
	(Virt_Room + (location[0] ) + ","
			+ (location[1]) + "," 
            + (location[2]))->ResetLocation();
	map_delete(Location,str);
	return 1;
}