66              Teams: array[0..Pred(cMaxTeams)] of PTeam;

    66              Teams: array[0..Pred(cMaxTeams)] of PTeam;

    67              TeamsNumber: Longword;

    67              TeamsNumber: Longword;

    68              CurrTeam: LongWord;

    68              CurrTeam: LongWord;

    69              ClanHealth: LongInt;

    69              ClanHealth: LongInt;

    70              ClanIndex: LongInt;

    70              ClanIndex: LongInt;

    71              end;

    72              end;

    72 

    73 

    73 var CurrentTeam: PTeam = nil;

    74 var CurrentTeam: PTeam = nil;

    74     CurrentHedgehog: PHedgehog = nil;

    75     CurrentHedgehog: PHedgehog = nil;

    75     TeamsArray: array[0..Pred(cMaxTeams)] of PTeam;

    76     TeamsArray: array[0..Pred(cMaxTeams)] of PTeam;

   179           end;

   180           end;

   180      RemoveGearFromList(Gear);

   181      RemoveGearFromList(Gear);

   181      InsertGearToList(Gear);

   182      InsertGearToList(Gear);

   182      FollowGear:= Gear

   183      FollowGear:= Gear

   183      end;

   184      end;

   184 ResetKbd;

   188 ResetKbd;

   185 

   189 

   186 cWindSpeed:= rndSign(GetRandom * cMaxWindSpeed);

   190 cWindSpeed:= rndSign(GetRandom * cMaxWindSpeed);

   187 g:= AddGear(0, 0, gtATSmoothWindCh, 0, _0, _0, 1);

   191 g:= AddGear(0, 0, gtATSmoothWindCh, 0, _0, _0, 1);

   188 g^.Tag:= hwRound(cWindSpeed * 72 / cMaxWindSpeed);

   192 g^.Tag:= hwRound(cWindSpeed * 72 / cMaxWindSpeed);