View/Edit #5210:unwield

Name(s): unwield

1:  $dperms:only_owner()
2:  dobj = this:my_match_object(argstr)
3:  if (!$recycler:valid(dobj))
4:    return player:tell(player:my_match_object(argstr), " is not an $toy.")
5:  elseif (!(dobj in player.wielding))
6:    return player:tell("You are not wielding ", dobj:title())
7:  endif
8:  player.wielding = setremove(player.wielding, dobj)
9:  player:tell("You take off ", dobj:title(), ".")
10: player.location:announce_all(this:msg_sub(dobj.msg_unwield))
11: "Last modified by Janette (#2633) on Thu Aug  9 14:53:02 2001 MDT."

Verb arguments: any any any
Verb perms: Readable eXecutable NOT-Debug
Verb owned by: Janette (#2633)

You are not logged in.