@verb #13:"@chparent" any at/to any rdo #55
@program #13:"@chparent" any at/to any
set_task_perms(player)
if (player != this)
  return $msg:mtell("huh")
elseif ($command_utils:object_match_failed(object = player:my_match_object(dobjstr), dobjstr))
  "...bogus object..."
elseif (object == this)
  "hello moron.."
  return player:tell("You cannot chparent yourself.")
elseif (!player:controls(object))
  return player:tell("You do not control ", $string_utils:nn(object))
elseif ($command_utils:object_match_failed(parent = player:my_match_object(iobjstr), iobjstr))
  "...bogus new parent..."
elseif (is_player(object) && (parent:isa($project) || !parent:isa($player)))
  $msg:mtell("bad_chparent", object, parent)
elseif (!player:isa($guardian) && (object:_get_subsidised() || object:_get_petrified()))
  $msg:mtell("must_thaw", object)
elseif (typeof(result = `chparent(object, parent) ! ANY') != $ERR)
  $msg:mtell("chparent", object, parent)
elseif (result == E_INVARG && (valid(object) && valid(parent)))
  $msg:mtell("chparent_conflict", object, parent)
else
  player:notify(tostr(result))
endif
"Last modified by Dax (#789) on Wed May  4 06:46:28 2005 MDT."
.