equal
deleted
inserted
replaced
416 begin |
416 begin |
417 for t:= 0 to Pred(TeamsCount) do |
417 for t:= 0 to Pred(TeamsCount) do |
418 with TeamsArray[t]^ do |
418 with TeamsArray[t]^ do |
419 for i:= 0 to cMaxHHIndex do |
419 for i:= 0 to cMaxHHIndex do |
420 if Hedgehogs[i].Gear <> nil then |
420 if Hedgehogs[i].Gear <> nil then |
|
421 begin |
421 FillAmmoStore(Hedgehogs[i].Ammo, InitialCounts[Hedgehogs[i].AmmoStore]); |
422 FillAmmoStore(Hedgehogs[i].Ammo, InitialCounts[Hedgehogs[i].AmmoStore]); |
|
423 Hedgehogs[i].CurAmmoType:= amNothing |
|
424 end; |
422 |
425 |
423 for a:= Low(TAmmoType) to High(TAmmoType) do |
426 for a:= Low(TAmmoType) to High(TAmmoType) do |
424 if Ammoz[a].SkipTurns >= 10000 then dec(Ammoz[a].SkipTurns,10000) |
427 if Ammoz[a].SkipTurns >= 10000 then dec(Ammoz[a].SkipTurns,10000) |
425 end; |
428 end; |
426 |
429 |