View/Edit #13:@unanchor

Name(s): @unanchor

1:  if (dobj == $nothing)
2:    $msg:mtell("no_dobj", verb)
3:  elseif ($command_utils:object_match_failed(dobj, dobjstr))
4:    "LOSE!"
5:  elseif (!dobj:has_property("anchor"))
6:    player:tell($su:nn(dobj), " cannot be anchored or unanchored.")
7:  elseif (dobj.anchor == #-1)
8:    player:tell(dobj.name, " was already unanchored.")
9:  else
10:   set_task_perms(player)
11:   try
12:     dobj:anchor_me(#-1)
13:   except (E_PERM)
14:     return player:tell("You do not have permission to unanchor ", $su:nn(dobj))
15:   except error (ANY)
16:     return player:tell(error[1])
17:   endtry
18:   player:sub_tell("%D unanchored.")
19: endif
20: "Last modified by whiz (#3135) on Wed Aug  4 20:20:20 1999 MDT."

Verb arguments: any none none
Verb perms: Readable NOT-Debug
Verb owned by: Slacker (#55)

You are not logged in.