View/Edit #5450:re*move ta*ke g*et pr*end en*leve getverb2

Switch to edit mode.

1:  "Copied from Generic Container (#8):get by Slacker (#2) Sep 21 00:31:29 1995"
2:  set_task_perms(player)
3:  if ((dobj = this:match_object(dobjstr)) == $nothing)
4:    $msg:mtell("iobj_only", verb, prepstr, iobjstr)
5:  elseif ($command_utils:object_match_failed(dobj, dobjstr))
6:  elseif (!(dobj in this.contents))
7:    $msg:mtell("not_contain", iobj, dobj)
8:  elseif (iobj.location != player && iobj.location != player.location)
9:    $msg:mtell("not_here", iobj)
10: else
11:   dobj:moveto(player)
12:   if (dobj.location == player)
13:     $msg:mtell("remove")
14:   else
15:     dobj:moveto(this.location)
16:     if (dobj.location == this.location)
17:       $msg:mtell("remove")
18:       $msg:mtell("fall_out")
19:     else
20:       $msg:mtell("remove_fail")
21:     endif
22:   endif
23: endif
24: "Last modified by Lao-Tzu (#8084) on Wed Jan 16 06:41:24 2002 MST."

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