View/Edit #7165:fix

Switch to edit mode.

1:  "Copied from whiz.kid (#3135):fix Aug 30 00:20:57 1996"
2:  player:tell("Starting ownership-fix")
3:  for what in [#1..max_object()]
4:    $cmd_utils:suspend_if_needed()
5:    ow = what.owner
6:    if (!valid(ow))
7:      continue
8:    endif
9:    if (!$object_utils:has_property(ow, "owned_objects"))
10:     player:tell("QUACK! Object " + tostr(ow) + " owns " + tostr(what) + " but is not an $accountable!!")
11:   else
12:     if (!(what in ow.owned_objects))
13:       player:tell("Adding " + tostr(what) + " to " + tostr(ow) + ".owned_objects")
14:       ow.owned_objects = {@ow.owned_objects, what}
15:     endif
16:   endif
17: endfor
18: player:tell("Done")
19: player:tell("Starting stage 2")
20: for x in ($accountable:descendants())
21:   for y in (x.owned_objects)
22:     $cmd_utils:suspend_if_needed()
23:     if (y != $object_utils && y:isa($garbage) || y.owner != x)
24:       player:tell("Removing " + tostr(y) + " from " + tostr(x) + ".owned_objects")
25:       x.owned_objects = setremove(x.owned_objects, y)
26:     endif
27:   endfor
28: endfor
29: player:tell("Stage 2 Done.")
30: "Last modified by Dax (#789) on Sat May 16 14:20:33 1998 EDT."

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