2e6
@verb #13:"@unanchor" any none none rdo #55
@program #13:"@unanchor" any none none
if (dobj == $nothing)
  $msg:mtell("no_dobj", verb)
elseif ($command_utils:object_match_failed(dobj, dobjstr))
  "LOSE!"
elseif (!dobj:has_property("anchor"))
  player:tell($su:nn(dobj), " cannot be anchored or unanchored.")
elseif (dobj.anchor == #-1)
  player:tell(dobj.name, " was already unanchored.")
else
  set_task_perms(player)
  try
    dobj:anchor_me(#-1)
  except (E_PERM)
    return player:tell("You do not have permission to unanchor ", $su:nn(dobj))
  except error (ANY)
    return player:tell(error[1])
  endtry
  player:sub_tell("%D unanchored.")
endif
"Last modified by whiz (#3135) on Wed Aug  4 20:20:20 1999 MDT."
.

0