372
@verb #4457:"eval" this none this rxdo #4457
@program #4457:"eval" this none this
"Copied from Everyman (#61):eval by Slacker (#55)Sep 19 18:59:23 2000"
"eval(code)"
"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."
exp = args[1]
if (exp[1] == ";" || index(exp, "return"))
  return eval(tostr("this = ", caller, ";", exp, ";"))
else
  return eval(tostr("this=", caller, "; return ", exp, ";"))
endif
player = this.bah
"Last modified by Rubbie (#4457) on Tue Sep 19 18:59:41 2000 MDT."
.

0