27a
@verb #8165:"do_steal" this none this rxdo #8165
@program #8165:"do_steal" this none this
"Copied from the thievery device (#3535):do_steal by Maxamillian (#833) Jun 25 13:57:10 1996"
object = args[1]
dest = args[2]
thief = args[3]
if (caller != #3535 && caller_perms() != #3535.owner)
  return E_PERM
endif
if (!this.crooks || thief in this.crooks && !($no_one in this.crooks))
  if (object.owner == $code_utils:verb_perms())
    object:moveto(dest)
    #2334:set(thief, "Stole from " + this.name, 1)
  else
    return E_PERM
  endif
else
  #2334:set(thief, "Stole from " + this.name, 2)
  return E_PERM
endif
.

0