@verb #14:"eval evalwiz" any any any rdo #55
@program #14:"eval evalwiz" any any any
"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
"Get the output delimiters before we give up our wiz perms."
delim = output_delimiters(player)
effective_perms = player
if (player.wizard && verb != "evalwiz")
  effective_perms = $no_one
endif
set_task_perms(effective_perms)
if (player.input_escape_XML)
  argstr = $msg:MIME_Stripped(argstr)
endif
if (argstr == ")" || argstr == "-)")
  return player:tell("Yeah, I think you're cute, too.")
endif
result = player:eval_cmd_string(argstr)
if (result[1])
  player:notify(this:eval_value_to_string(result[2]))
  if (player.eval_time && !delim[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 Dax (#789) on Fri Jul 12 11:57:53 2002 MDT."
.