@verb #12:"@last-tb @last-tr*aceback" any any any rdo #789
@program #12:"@last-tb @last-tr*aceback" any any any
"@last-tb [<player>]"
"@last-tb on/for [<player>]"
"Prints the last traceback which the player received."
set_task_perms(player)
who = this
if (dobjstr && $command_utils:player_match_failed(who = this:match_entity(dobjstr), dobjstr))
  return
elseif (iobjstr && $command_utils:player_match_failed(who = this:match_entity(iobjstr), iobjstr))
  return
endif
if (typeof(x = `who.last_tb ! ANY') == $ERR)
  player:tell(x)
elseif (who.last_tb)
  player:tell(who.name + "'s last recorded traceback was at " + ctime(who.last_tb[2][1][2]) + ":")
  player:tell($su:space(player:linelength(), "-"))
  player:tell(who.last_tb[2][1][1])
  player:tell($su:space(player:linelength(), "-"))
else
  player:tell(who.name + " has no recorded tracebacks.")
endif
"Last modified by Dax (#789) on Tue May  3 13:45:55 2005 MDT."
.