@verb #3512:"@spy" any none none rxdo #6319
@program #3512:"@spy" any none none
"   Usage: @spy <player name>  "
"          @spy <object number>  "
""
"Gives you an informational chart on the selected player."
""
"Original verb by Lancer (#5999).  Hacked up by Raptor (#6319)."
this:update_usage(verb, player)
prepstr = caller == this ? "Hooray!" | ""
if (!args)
  dest = prepstr && `player.user != $no_one ! ANY => 0' ? player.user | player
else
  dest = args[1]
endif
if ($command_utils:player_match_failed(dobj = $string_utils:match_local_player(tostr(dest)), tostr(dest)))
  return
endif
this:border()
for x in (this.spy_verbs)
  try
    this:("spy_" + x)()
  except e (ANY)
    {error, errorstring, value, stack} = e
    stack = $code_utils:callers(stack)
    player:tell($code_utils:tb(stack, errorstring, value))
  endtry
  this:border()
  $command_utils:suspend_if_needed()
endfor
"Last modified by Raptor (#6319) on Tue Jan 12 14:15:38 1999 MST."
.