equal
deleted
inserted
replaced
342 for i:= 0 to Pred(StoreCnt) do |
342 for i:= 0 to Pred(StoreCnt) do |
343 for slot:= 0 to cMaxSlotIndex do |
343 for slot:= 0 to cMaxSlotIndex do |
344 begin |
344 begin |
345 for a:= 0 to cMaxSlotAmmoIndex do |
345 for a:= 0 to cMaxSlotAmmoIndex do |
346 with StoresList[i]^[slot, a] do |
346 with StoresList[i]^[slot, a] do |
347 if (Propz and ammoprop_NotBorder) <> 0 then Count:= 0; |
347 if (Propz and ammoprop_NotBorder) <> 0 then |
|
348 begin |
|
349 Count:= 0; |
|
350 InitialCount:= 0 |
|
351 end; |
348 |
352 |
349 PackAmmo(StoresList[i], slot) |
353 PackAmmo(StoresList[i], slot) |
350 end; |
354 end; |
351 |
355 |
352 for t:= Low(TAmmoType) to High(TAmmoType) do |
356 for t:= Low(TAmmoType) to High(TAmmoType) do |