// Petrarch // Merentha West string help() { return "Syntax: eval <commands>\n\nEvaluates the commands typed.\n\n\ Examples: eval 2+2\n\ eval environment(find_player(\"petrarch\"))"; } int command(string str) { mixed o; string file; if(!str) return notify_fail("Syntax: eval <command>\n"); file="/realms/"+this_player()->query_name()+"/eval.c"; rm(file); write_file(file, "mixed command() { "+str+"; }"); if(o=find_object(file)) o->remove(); if(o=find_object(file)) destruct(o); o=file->command(); message("command", ""+identify(o), this_player()); if(o=find_object(file)) o->remove(); if(o=find_object(file)) destruct(o); return 1; }