1729 	HHGear^.Active:= false;

  1729 	HHGear^.Active:= false;

  1730 	HHGear^.Z:= cHHZ;

  1730 	HHGear^.Z:= cHHZ;

  1731 	RemoveGearFromList(HHGear);

  1731 	RemoveGearFromList(HHGear);

  1732 	InsertGearToList(HHGear);

  1732 	InsertGearToList(HHGear);

  1733 

  1733 

  1734 	repeat

  1736 	repeat

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

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

  1736 	until (CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog].Gear <> nil);

  1738 	until (CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog].Gear <> nil);

  1737 

  1739 

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

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