@verb #17:"@forget @nuke" any none none rdo #55
@program #17:"@forget @nuke" any none none
if (!player.wizard)
  return $msg:mtell("huh")
elseif ($command_utils:player_match_failed(dobj = $string_utils:match_player(dobjstr), dobjstr))
  return
elseif (dobj == this)
  return player:tell("Surgeon General's Warning: " + verb + "ing yourself can be hazardous to your health.")
elseif (!$command_utils:yes_or_no(tostr("About to ", verb, " ", dobj.name, ".  Proceed?")))
  return player:tell(verb, " aborted!")
endif
$repo_man:dispatch(@listappend(setremove(dobj.owned_objects, dobj), dobj))
player:tell("Repo man dispatched.")
if (verb == "@forget")
  $wiz_utils:forget_player(dobj)
endif
.