#include <lib.h>
#include <daemons.h>
inherit LIB_DAEMON;
void help();
mixed var, newval;
object ob;
int CheckVar(string var, object ob){
mixed *vars;
if(!var || !ob) return 0;
vars = variables(ob);
if(member_array(var, vars) == -1) return 0;
return 1;
}
int cmd(string str) {
int i;
mixed ret;
string cmd, what;
if(!this_player() || !archp(this_player())){
write("Sorry, this is an arch command.");
return 1;
}
if(!str || str == ""){
help();
return 1;
}
i = sscanf(str,"%s %s %s", cmd, var, what);
if(i != 3 || (cmd != "get" && cmd != "set")){
help();
return i;
}
if(cmd == "set"){
int tmp;
i = sscanf(what,"%s %s", newval, what);
if(i != 2){
help();
return i;
}
if(sscanf(newval,"%d",tmp)) newval = tmp;
}
ob = get_object(what);
if(!ob){
string path = this_player()->query_cwd()+"/";
if(last(what,2) != ".c") what += ".c";
if(file_exists(what)) ob = load_object(what);
else if(file_exists(path+what)) ob = load_object(path+what);
}
if(!ob){
write(truncate(what,2)+" not found.");
return 1;
}
if(!CheckVar(var, ob)){
write("No such variable exists in that object.");
return 1;
}
i = catch( ret = evaluate(bind( (: fetch_variable($(var)) :), ob)) );
if(i){
write("Error in variable query.");
return 1;
}
write(var+" in "+identify(ob)+" is "+identify(ret));
if(cmd == "get"){
return 1;
}
if(cmd == "set"){
evaluate(bind( (: store_variable($(var), $(newval)) :), ob));
ret = evaluate(bind( (: fetch_variable($(var)) :), ob));
write(var+" in "+identify(ob)+" is now "+identify(ret));
return 1;
}
write("Error.");
return 1;
}
void help() {
write("Syntax: var get <variable name> <object or file>\n"
" var set <variable name> <new value> <object or file>\n\n"
"Sets or gets the value of a variable in an object.\n"
"Examples:\n"
"var get isPK me\n"
"var set Attackable 0 fighter\n\n"
"Use with EXTREME caution.");
}
