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 begin |
431 Hedgehogs[i].CurAmmoType:= amNothing; |
432 FillAmmoStore(Hedgehogs[i].Ammo, InitialCounts[Hedgehogs[i].AmmoStore]); |
432 |
433 Hedgehogs[i].CurAmmoType:= amNothing |
433 for i:= 0 to Pred(StoreCnt) do FillAmmoStore(StoresList[i], InitialCounts[i]); |
434 end; |
|
435 |
434 |
436 for a:= Low(TAmmoType) to High(TAmmoType) do |
435 for a:= Low(TAmmoType) to High(TAmmoType) do |
437 if Ammoz[a].SkipTurns >= 10000 then dec(Ammoz[a].SkipTurns,10000) |
436 if Ammoz[a].SkipTurns >= 10000 then dec(Ammoz[a].SkipTurns,10000) |
438 end; |
437 end; |
439 |
438 |