2749         repeat

  2749         repeat

  2750             CurrentTeam^.CurrHedgehog := Succ(CurrentTeam^.CurrHedgehog) mod (CurrentTeam^.HedgehogsNumber);

  2750             CurrentTeam^.CurrHedgehog := Succ(CurrentTeam^.CurrHedgehog) mod (CurrentTeam^.HedgehogsNumber);

  2751         until (CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog].Gear <> nil) and (CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog].Gear^.Damage = 0);

  2751         until (CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog].Gear <> nil) and (CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog].Gear^.Damage = 0);

  2752 

  2752 

  2753         CurrentHedgehog := @CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog];

  2753         CurrentHedgehog := @CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog];

  2754 

  2755 

  2755         HHGear := CurrentHedgehog^.Gear;

  2756         HHGear := CurrentHedgehog^.Gear;

  2756         HHGear^.State := State;

  2757         HHGear^.State := State;

  2757         HHGear^.Active := true;

  2758         HHGear^.Active := true;

  2758         FollowGear := HHGear;

  2759         FollowGear := HHGear;