View/Edit #12:steal re*move ta*ke g*et pr*end

Switch to edit mode.

Name(s): steal re*move ta*ke g*et pr*end
1:  set_task_perms(valid(caller_perms()) ? caller_perms() | caller)
2:  if ((dobj = this:match_object(dobjstr)) == $nothing)
3:    $msg:mtell("iobj_only", verb, prepstr, iobjstr)
4:  elseif ($command_utils:object_match_failed(dobj, dobjstr))
5:  elseif (!(dobj in this.contents))
6:    $msg:mtell("not_contain", iobj, dobj)
7:  elseif (iobj.location != player && iobj.location != player.location)
8:    $msg:mtell("not_here", iobj)
9:  elseif (player == this)
10:   $msg:mtell("give_self")
11: elseif (!player:controls(dobj))
12:   $msg:mtell("not_own", dobj)
13: else
14:   `move(dobj, player) ! ANY'
15:   $msg:mtell({iobj, "i"}, dobj.location == player ? "steal" | "steal_failed")
16: endif
17: "Last modified by Dax (#789) on Mon Dec 10 21:00:35 2001 MST."

Verb arguments: any out of/from inside/from this
Verb perms: Readable eXecutable NOT-Debug
Verb owned by: Slacker (#55)

You are not logged in.

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