equal
deleted
inserted
replaced
2711 PlaySound(sndSwitchHog); |
2711 PlaySound(sndSwitchHog); |
2712 |
2712 |
2713 repeat |
2713 repeat |
2714 CurrentTeam^.CurrHedgehog := Succ(CurrentTeam^.CurrHedgehog) mod (CurrentTeam^. |
2714 CurrentTeam^.CurrHedgehog := Succ(CurrentTeam^.CurrHedgehog) mod (CurrentTeam^. |
2715 HedgehogsNumber); |
2715 HedgehogsNumber); |
2716 until (CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog].Gear <> nil); |
2716 until (CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog].Gear <> nil) and (CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog].Gear^.Damage = 0); |
2717 |
2717 |
2718 CurrentHedgehog := @CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog]; |
2718 CurrentHedgehog := @CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog]; |
2719 |
2719 |
2720 HHGear := CurrentHedgehog^.Gear; |
2720 HHGear := CurrentHedgehog^.Gear; |
2721 HHGear^.State := State; |
2721 HHGear^.State := State; |