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

0