Is there some bug reporting mechanism I don't know about yet?
Consequence of this bug is, that a ship trying to release all of its own locks at once (a.station==null or a.ware==null), instead releases all locks existing.
Code: Select all
[...]
sub.RemoveAllWares:
$next.ware = get next key: table=$lock.station key=null
while $next.ware
$ware = $next.ware
$next.ware = get next key: table=$lock.station key=$next.ware
- $lock.ship = $lock.station[$ware]
+ $lock.array = $lock.station[$ware]
+ $lock.ship = $lock.array[0]
if $lock.ship != [THIS]
do if $lock.ship -> exists
continue
end
remove key $ware from table $lock.station
end
endsub
[...]