View/Edit #13:@digwith

Switch to edit mode.

1:  "@digwith [<generic room> | <generic exit>]"
2:  "Used to specify what @dig uses as parents when creating rooms and exits."
3:  if (player != this)
4:    return $msg:mtell("huh")
5:  elseif (!dobjstr)
6:  elseif (!$command_utils:object_match_failed(dobj = this:my_match_object(dobjstr), dobjstr))
7:    if (dobj != $vexit && !$perm_utils:perm_f(player, dobj))
8:      $msg:mtell("not_own", dobj)
9:    elseif ($object_utils:isa(dobj, $room))
10:     this.digwith[1] = dobj
11:   elseif ($object_utils:isa(dobj, $exit))
12:     this.digwith[2] = dobj
13:   elseif (dobj == $vexit)
14:     this.digwith[2] = $vexit
15:   else
16:     player:sub_tell("%d (#%d~#) isn't a room nor is %d~s an exit.")
17:   endif
18: endif
19: player:sub_tell("@dig will use %1 (#%1~#) and %2 (#%2~#) as parent objects.", @this.digwith)
20: "Last modified by Lao-Tzu (#8084) on Tue Mar  6 12:27:56 2001 MST."

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