View/Edit #13:@anchor

Switch to edit mode.

1:  if (dobj == $nothing)
2:    $msg:mtell("no_dobj", verb)
3:    return
4:  elseif (prepstr != "" && iobj == $nothing)
5:    $msg:mtell("no_iobj", verb, dobj)
6:    return
7:  elseif ($command_utils:object_match_failed(dobj, dobjstr) || (prepstr != "" && $command_utils:object_match_failed(iobj, iobjstr)))
8:    "LOSE!"
9:    return
10: elseif (!dobj:has_property("anchor"))
11:   player:tell($su:nn(dobj), " cannot be anchored.")
12:   return
13: endif
14: if (prepstr == "")
15:   iobj = dobj.location
16: endif
17: set_task_perms(player)
18: try
19:   dobj:anchor_me(iobj)
20: except (E_PERM)
21:   return player:tell("You do not have permission to anchor ", $su:nn(dobj))
22: except (E_INVARG, E_VERBNF)
23:   return player:tell($su:nn(iobj), " doesn't look like an object that you'd want to anchor to.")
24: except (E_NACC)
25:   return player:sub_tell("%D won't accept %i inside %d#-2, so anchoring to %d doesn't make much sense.")
26: except error (ANY)
27:   return player:tell(error[1])
28: endtry
29: player:sub_tell("%D anchored to %i.")
30: "Last modified by Lao-Tzu (#8084) on Fri Aug  9 10:57:24 2002 MDT."

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