/* /lib/std/virtual.c
* From DeadSouls Object Library
* A virtual object server
* Created by Descartes of Borg 970523
* Version: @(#) virt_std.c 1.3@(#)
* Last modified: 98/09/12
*/
private string recursed = "";
/****************************** events ************************************/
mixed CreateVirtualObject(string fname) {
object daemon;
string tmp, vname;
int x, y, z, s;
int i, j;
if(fname == recursed){
recursed = "";
error("Recursion error in CreateVirtualObject()");
return 0;
}
i = strsrch(fname, "/", -1);
if( i == -1 || i == 0 || i == strlen(fname)-1 ) {
return -1;
}
tmp = fname[(i+1)..];
if( sscanf(tmp, "%d,%d,%d,%d", x, y, z, s) != 4 ) {
if( sscanf(tmp, "%d,%d,%d", x, y, z) != 3 ) {
if( sscanf(tmp, "%d,%d", x, y) != 2 ) {
vname = tmp;
}
else {
vname = 0;
z = 0;
}
}
s = 0;
}
else {
vname = 0;
}
tmp = fname[0..(i-1)];
recursed = tmp;
daemon = load_object(tmp);
recursed = "";
if(!daemon) return 0;
if( vname ) {
return daemon->CreateNamedObject(vname);
}
else {
if(!s) return daemon->CreateGridObject(x, y, z);
else return daemon->CreateGridObject(x, y, z, s);
}
}
/************************** driver applies ********************************/
object compile_object(string fname) {
return CreateVirtualObject(fname);
}
