equal
deleted
inserted
replaced
426 a: TAmmoType; |
426 a: TAmmoType; |
427 begin |
427 begin |
428 for t:= 0 to Pred(TeamsCount) do |
428 for t:= 0 to Pred(TeamsCount) do |
429 with TeamsArray[t]^ do |
429 with TeamsArray[t]^ do |
430 for i:= 0 to cMaxHHIndex do |
430 for i:= 0 to cMaxHHIndex do |
431 if Hedgehogs[i].Gear <> nil then |
431 begin |
432 begin |
432 FillAmmoStore(Hedgehogs[i].Ammo, InitialCounts[Hedgehogs[i].AmmoStore]); |
433 FillAmmoStore(Hedgehogs[i].Ammo, InitialCounts[Hedgehogs[i].AmmoStore]); |
433 Hedgehogs[i].CurAmmoType:= amNothing |
434 Hedgehogs[i].CurAmmoType:= amNothing |
434 end; |
435 end; |
|
436 |
435 |
437 for a:= Low(TAmmoType) to High(TAmmoType) do |
436 for a:= Low(TAmmoType) to High(TAmmoType) do |
438 if Ammoz[a].SkipTurns >= 10000 then dec(Ammoz[a].SkipTurns,10000) |
437 if Ammoz[a].SkipTurns >= 10000 then dec(Ammoz[a].SkipTurns,10000) |
439 end; |
438 end; |
440 |
439 |