1197    InsertGearToList(HHGear);

  1197    InsertGearToList(HHGear);

  1198 

  1198 

  1199    th:= CurrentTeam^.CurrHedgehog;

  1199    th:= CurrentTeam^.CurrHedgehog;

  1200    repeat

  1200    repeat

  1201      CurrentTeam^.CurrHedgehog:= Succ(CurrentTeam^.CurrHedgehog) mod (cMaxHHIndex + 1);

  1201      CurrentTeam^.CurrHedgehog:= Succ(CurrentTeam^.CurrHedgehog) mod (cMaxHHIndex + 1);

  1203 

  1203 

  1204    HHGear:= CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog].Gear;

  1204    HHGear:= CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog].Gear;

  1205    HHGear^.State:= State;

  1205    HHGear^.State:= State;

  1206    HHGear^.Active:= true;

  1206    HHGear^.Active:= true;

  1207    FollowGear:= HHGear;

  1207    FollowGear:= HHGear;