equal
deleted
inserted
replaced
353 for i:= 0 to Pred(StoreCnt) do |
353 for i:= 0 to Pred(StoreCnt) do |
354 for slot:= 0 to cMaxSlotIndex do |
354 for slot:= 0 to cMaxSlotIndex do |
355 begin |
355 begin |
356 for a:= 0 to cMaxSlotAmmoIndex do |
356 for a:= 0 to cMaxSlotAmmoIndex do |
357 with StoresList[i]^[slot, a] do |
357 with StoresList[i]^[slot, a] do |
358 if Count <> InitialCount then Count:= InitialCount; |
358 Count:= InitialCount; |
359 |
359 |
360 PackAmmo(StoresList[i], slot) |
360 PackAmmo(StoresList[i], slot) |
361 end; |
361 end; |
362 for t:= Low(TAmmoType) to High(TAmmoType) do |
362 for t:= Low(TAmmoType) to High(TAmmoType) do |
363 if Ammoz[t].SkipTurns >= 10000 then dec(Ammoz[t].SkipTurns,10000); |
363 if Ammoz[t].SkipTurns >= 10000 then dec(Ammoz[t].SkipTurns,10000); |