4d3
@verb #59:"_irradiate_quick" this none this rxdo #55
@program #59:"_irradiate_quick" this none this
!caller_perms():controls(this) && raise(E_PERM)
for x in ($set_utils:diff(this.owned_objects, {this, @this.safe}))
  dobj = x
  $rappie:tell(x)
  if (!x.wizard && `x:is_expired() ! E_VERBNF => x.owner == this')
    this:tell("Toasting ", x.name, " (", x, ")...")
    $recycler:recycle(x)
  elseif (!`x:is_expired() ! E_VERBNF => x.owner == this' && !x:isa($project))
    "Why DO we have this?"
    if (x:isa($toad) && `!$list_utils:assoc(x, $toad_jar.toads)[$] ! E_RANGE => 0')
      "Nuke!  Nuke!"
      $recycler:recycle(x)
    else
      "I don't know.. so, let's do something about it."
      dobjstr = tostr(dobj = x)
      if (dobj:has_property("__owned_by") && property_info(dobj, "__owned_by")[1]:isa($guardian) && dobj.__owned_by != this)
        suspend(0)
        $wiz_utils:set_owner(dobj, dobj.__owned_by)
        `delete_property(dobj, "__owned_by") ! ANY'
        $msg:mtell("chowned", dobjstr, "Repo_man", dobj.owner)
        continue
      endif
    endif
  endif
  $cmd_utils:suspend_if_needed()
endfor
this.log = {}
"Last modified by Raptor (#6319) on Sun Feb 20 14:27:09 2000 MST."
.

0