@verb #12:"steal re*move ta*ke g*et pr*end" any out of/from inside/from this rxdo #55
@program #12:"steal re*move ta*ke g*et pr*end" any out of/from inside/from this
set_task_perms(valid(caller_perms()) ? caller_perms() | caller)
if ((dobj = this:match_object(dobjstr)) == $nothing)
  $msg:mtell("iobj_only", verb, prepstr, iobjstr)
elseif ($command_utils:object_match_failed(dobj, dobjstr))
elseif (!(dobj in this.contents))
  $msg:mtell("not_contain", iobj, dobj)
elseif (iobj.location != player && iobj.location != player.location)
  $msg:mtell("not_here", iobj)
elseif (player == this)
  $msg:mtell("give_self")
elseif (!player:controls(dobj))
  $msg:mtell("not_own", dobj)
else
  `move(dobj, player) ! ANY'
  $msg:mtell({iobj, "i"}, dobj.location == player ? "steal" | "steal_failed")
endif
"Last modified by Dax (#789) on Mon Dec 10 21:00:35 2001 MST."
.