/*    /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 *************/

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