View/Edit #13:@chparent

Switch to edit mode.

1:  set_task_perms(player)
2:  if (player != this)
3:    return $msg:mtell("huh")
4:  elseif ($command_utils:object_match_failed(object = player:my_match_object(dobjstr), dobjstr))
5:    "...bogus object..."
6:  elseif (object == this)
7:    "hello moron.."
8:    return player:tell("You cannot chparent yourself.")
9:  elseif (!player:controls(object))
10:   return player:tell("You do not control ", $string_utils:nn(object))
11: elseif ($command_utils:object_match_failed(parent = player:my_match_object(iobjstr), iobjstr))
12:   "...bogus new parent..."
13: elseif (is_player(object) && (parent:isa($project) || !parent:isa($player)))
14:   $msg:mtell("bad_chparent", object, parent)
15: elseif (!player:isa($guardian) && (object:_get_subsidised() || object:_get_petrified()))
16:   $msg:mtell("must_thaw", object)
17: elseif (typeof(result = `chparent(object, parent) ! ANY') != $ERR)
18:   $msg:mtell("chparent", object, parent)
19: elseif (result == E_INVARG && (valid(object) && valid(parent)))
20:   $msg:mtell("chparent_conflict", object, parent)
21: else
22:   player:notify(tostr(result))
23: endif
24: "Last modified by Dax (#789) on Wed May  4 06:46:28 2005 MDT."

[home | help | who | search | setup | code]