@verb #2203:"]* ';*" any any any rdo #2203
@program #2203:"]* ';*" any any any
"Copied from Generic Programmer (#14):';* by manta (#7165)Jul 17 22:32:07 2001"
"';<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)."
set_task_perms(player)
if (verb[1] == "]")
  argstr = verb[2..length(verb)] + " " + argstr
else
  argstr = verb[3..length(verb)] + " " + 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() + " seems to be concentrating... Suddenly, a very bright light comes out of his head and very quickly, the particules of light start forming some text like shapes. You can read:,")
player.location:announce_all("> ;" + $html_utils:literal_text(argstr))
player.location:announce_all("> " + resultstr)
player.location:announce_all("> " + tickstr)
player.location:announce_all("Only seconds afters the final shape was completed, the text has disappeared. Nectis now seems a bit tired after all this.,")
"Last modified by Nectis (#2203) on Tue Jul 17 22:55:30 2001 MDT."
.