2766 

  2766 

  2767         repeat

  2767         repeat

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

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

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

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

  2770 

  2770 

  2772         AmmoMenuInvalidated:= true; 

  2772         AmmoMenuInvalidated:= true; 

  2773 

  2773 

  2774         HHGear := CurrentHedgehog^.Gear;

  2774         HHGear := CurrentHedgehog^.Gear;

  2775         HHGear^.State := State;

  2775         HHGear^.State := State;

  2776         HHGear^.Active := true;

  2776         HHGear^.Active := true;