69              ClanHealth: LongInt;

    69              ClanHealth: LongInt;

    70              ClanIndex: LongInt;

    70              ClanIndex: LongInt;

    71              end;

    71              end;

    72 

    72 

    73 var CurrentTeam: PTeam = nil;

    73 var CurrentTeam: PTeam = nil;

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

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

    75     TeamsCount: Longword = 0;

    76     TeamsCount: Longword = 0;

    76     ClansArray: array[0..Pred(cMaxTeams)] of PClan;

    77     ClansArray: array[0..Pred(cMaxTeams)] of PClan;

    77     ClansCount: Longword = 0;

    78     ClansCount: Longword = 0;

    78     CurMinAngle, CurMaxAngle: Longword;

    79     CurMinAngle, CurMaxAngle: Longword;

   167       until (Hedgehogs[CurrHedgehog].Gear <> nil) or (CurrHedgehog = PrevHH)

   168       until (Hedgehogs[CurrHedgehog].Gear <> nil) or (CurrHedgehog = PrevHH)

   168       end

   169       end

   169     until (CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog].Gear <> nil) or (PrevTeam = CurrTeam);

   170     until (CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog].Gear <> nil) or (PrevTeam = CurrTeam);

   170 until CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog].Gear <> nil;

   171 until CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog].Gear <> nil;

   171 

   172 

   173      begin

   175      begin

   174      with Gear^ do

   176      with Gear^ do

   175           begin

   177           begin

   176           Z:= cCurrHHZ;

   178           Z:= cCurrHHZ;

   177           State:= gstHHDriven;

   179           State:= gstHHDriven;

   185 

   187 

   186 cWindSpeed:= rndSign(GetRandom * cMaxWindSpeed);

   188 cWindSpeed:= rndSign(GetRandom * cMaxWindSpeed);

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

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

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

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

   189 {$IFDEF DEBUGFILE}AddFileLog('Wind = '+FloatToStr(cWindSpeed));{$ENDIF}

   191 {$IFDEF DEBUGFILE}AddFileLog('Wind = '+FloatToStr(cWindSpeed));{$ENDIF}

   191 if CurrentTeam^.ExtDriven then SetDefaultBinds

   193 if CurrentTeam^.ExtDriven then SetDefaultBinds

   192                           else SetBinds(CurrentTeam^.Binds);

   194                           else SetBinds(CurrentTeam^.Binds);

   193 bShowFinger:= true;

   195 bShowFinger:= true;

   194 TurnTimeLeft:= cHedgehogTurnTime

   196 TurnTimeLeft:= cHedgehogTurnTime

   195 end;

   197 end;