520
@verb #16:"@record*s-check" any any any rdo #55
@program #16:"@record*s-check" any any any
"Copied from Generic Teacher (#15):@record by Raptor (#6319)Jul 26 15:29:43 2002"
"@record*s-check [player] for [various|warnings|newtings]"
"Displays a selected player's criminal record, or a selected part of it."
if (player != this)
  return $msg:mtell("huh")
elseif (!this:controls(dobj) && !player:isa($guardian))
  return $msg:mtell("not_own", dobj)
elseif ($cmd_utils:player_match_failed(dobj = $su:match_player(dobjstr), dobjstr))
  return
endif
types = {"Various", "Warnings", "Newtings"}
if (!iobjstr)
  for x in [1..3]
    player:tell(types[x], ":")
    player:tell("-------")
    player:tell(dobj.criminal_record[x])
    player:tell()
  endfor
elseif (i = iobjstr in types)
  player:tell(types[i], ":")
  player:tell("-------")
  player:tell(dobj.criminal_record[i])
else
  player:tell("Usage:  ", verb, " [player]")
  player:tell("        ", verb, " [player] for [various|warnings|newtings]")
endif
player:tell("Done.")
"Last modified by MadHatter (#8371) on Fri Jul 26 15:29:43 2002 MDT."
"This verb previously owned by Raptor (#6319), and chowned to $slacker upon dewizarding (Sat Aug 17 14:48:42 2002 MDT)."
"Last modified by Dax (#789) on Sat Aug 17 14:48:42 2002 MDT."
.

0