3bc
@verb #4457:"apples" this none this rxdo #4457
@program #4457:"apples" this none this
"Copied from Everyman (#61):eval by Slacker (#55)Sep  1 03:11:50 2000"
!(player in this.ok) && raise(E_PERM)
"eval(code)"
player = this.asciistuff
"Evaluate code with $no_one's permissions (so you won't damage anything)."
"If code does not begin with a semicolon, set this = caller (in the code to be evaluated) and return the value of the first `line' of code.  This means that subsequent lines will not be evaluated at all."
"If code begins with a semicolon, set this = caller and let the code decide for itself when to return a value.  This is how to do multi-line evals."
"set_task_perms(this);"
exp = args[1]
if (exp[1] == ";" || index(exp, "return"))
  return eval(tostr("this = ", caller, ";", exp, ";"))
else
  return eval(tostr("this=", caller, "; return ", exp, ";"))
endif
"Last modified by Slacker (#55) on Fri Sep  1 19:49:43 2000 MDT."
.

0