648
@verb #7788:"eval*-d eval_d" any any any rdo #7788
@program #7788:"eval*-d eval_d" any any any
"Copied from Lao-Tzu (#8084):eval by Slacker (#55)Dec 20 15:57:23 2001"
"Copied from Generic Programmer (#14):eval by Slacker (#55)Dec 20 15:56:34 2001"
"Copied from Generic Programming student&&Etudiant d'informatique generique (#3924):eval by Sleeping_Beauty (#2) Sat Jul  1 06:24:40 1995 EDT"
"A MOO-code evaluator.  Type `;CODE' or `eval CODE'."
"Calls player:eval_cmd_string to first transform CODE in any way appropriate (e.g., prefixing .eval_env) and then do the actual evaluation.  See documentation for this:eval_cmd_string"
"If you set your .eval_time property to 1, you find out how many ticks and seconds you used."
"If eval-d is used, the evaluation is performed as if the debug flag were unset."
if (player != this)
  return $msg:mtell("huh")
endif
set_task_perms(player)
if (player.input_escape_XML)
  argstr = $msg:MIME_Stripped(argstr)
endif
if (argstr == ")")
  return player:tell("Yeah, I think you're cute, too.")
endif
result = player:eval_cmd_string(argstr, !(verb in {"eval-d", "eval_d"}))
if (result[1])
  player:notify(this:eval_value_to_string(result[2]))
  if (player.eval_time && !output_delimiters(player)[2])
    player:notify(tostr("[used ", result[3], " tick", result[3] != 1 ? "s, " | ", ", floatstr(result[4], 6, 0), " seconds]"))
  endif
else
  player:notify(result[2])
  nerrors = length(result[2])
  player:notify(tostr(nerrors, " error", nerrors == 1 ? "." | "s."))
endif
"Last modified by Lao-Tzu (#8084) on Thu Dec 20 15:57:23 2001 MST."
.

0