459
@verb #13:"@anchor" any any any rdo #55
@program #13:"@anchor" any any any
if (dobj == $nothing)
  $msg:mtell("no_dobj", verb)
  return
elseif (prepstr != "" && iobj == $nothing)
  $msg:mtell("no_iobj", verb, dobj)
  return
elseif ($command_utils:object_match_failed(dobj, dobjstr) || (prepstr != "" && $command_utils:object_match_failed(iobj, iobjstr)))
  "LOSE!"
  return
elseif (!dobj:has_property("anchor"))
  player:tell($su:nn(dobj), " cannot be anchored.")
  return
endif
if (prepstr == "")
  iobj = dobj.location
endif
set_task_perms(player)
try
  dobj:anchor_me(iobj)
except (E_PERM)
  return player:tell("You do not have permission to anchor ", $su:nn(dobj))
except (E_INVARG, E_VERBNF)
  return player:tell($su:nn(iobj), " doesn't look like an object that you'd want to anchor to.")
except (E_NACC)
  return player:sub_tell("%D won't accept %i inside %d#-2, so anchoring to %d doesn't make much sense.")
except error (ANY)
  return player:tell(error[1])
endtry
player:sub_tell("%D anchored to %i.")
"Last modified by Lao-Tzu (#8084) on Fri Aug  9 10:57:24 2002 MDT."
.

0