@verb #14:"]* ';*" any any any rdo #55
@program #14:"]* ';*" any any any
"';<expression>"
""
"Evals the expression given...so it works like eval (;), except that is announces the results to the room.  Watch what you eval!"
""
"Another (useless?) verb by Raptor (#6319)."
if (player != this)
  return $msg:mtell("huh")
endif
set_task_perms(player)
argstr = player:input_get_raw(argstr)
if (verb[1] == "]")
  argstr = verb[2..$] + " " + argstr
else
  argstr = verb[3..$] + " " + argstr
endif
foo = argstr
result = this:eval_cmd_string(foo, 0)
if (result[1])
  resultstr = this:eval_value_to_string(result[2])
  ticks = result[3] + 19
  tickstr = tostr("[used ", ticks, " tick", ticks != 1 ? "s, " | ", ", floatstr(result[4], 6, 0), " seconds.]")
else
  player:notify(result[2])
  nerrors = length(result[2])
  return player:notify(tostr(nerrors, " error", nerrors == 1 ? "." | "s."))
endif
player.location:announce_all(player:title() + " evals,")
player.location:announce_all("> ;" + $html_utils:literal_text(argstr))
player.location:announce_all("> " + resultstr)
player.location:announce_all("> " + tickstr)
"Last modified by Dax (#789) on Sun Oct 14 17:55:45 2001 MDT."
"This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:04 2002 MDT)."
"Last modified by Lao-Tzu (#8084) on Tue Aug 20 17:49:09 2002 MDT."
.