454
@verb #3135:"fix" none none none rdo #3135
@program #3135:"fix" none none none
player:tell("Starting ownership-fix")
for what in [#1..max_object()]
  $cmd_utils:suspend_if_needed()
  ow = what.owner
  if (!valid(ow))
    continue
  endif
  if (!$object_utils:has_property(ow, "owned_objects"))
    player:tell("QUACK! Object " + tostr(ow) + " owns " + tostr(what) + " but is not an $accountable!!")
  else
    if (!(what in ow.owned_objects))
      player:tell("Adding " + tostr(what) + " to " + tostr(ow) + ".owned_objects")
      ow.owned_objects = {@ow.owned_objects, what}
    endif
  endif
endfor
player:tell("Done")
player:tell("Starting stage 2")
for x in ($accountable:descendants())
  for y in (x.owned_objects)
    $cmd_utils:suspend_if_needed()
    if (y != $object_utils && y:isa($garbage) || y.owner != x)
      player:tell("Removing " + tostr(y) + " from " + tostr(x) + ".owned_objects")
      x.owned_objects = setremove(x.owned_objects, y)
    endif
  endfor
endfor
player:tell("Stage 2 Done.")
"Last modified by Dax (#789) on Sat May 16 14:19:59 1998 EDT."
.

0