162 AddGear(0, 0, gtATSmoothWindCh, 0, 0, 0, 1).Tag:= round(72 * cWindSpeed / cMaxWindSpeed);

   162 AddGear(0, 0, gtATSmoothWindCh, 0, 0, 0, 1).Tag:= round(72 * cWindSpeed / cMaxWindSpeed);

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

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

   164 ApplyAmmoChanges(CurrentTeam.Hedgehogs[CurrentTeam.CurrHedgehog]);

   164 ApplyAmmoChanges(CurrentTeam.Hedgehogs[CurrentTeam.CurrHedgehog]);

   165 if CurrentTeam.ExtDriven then SetDefaultBinds

   165 if CurrentTeam.ExtDriven then SetDefaultBinds

   166                          else SetBinds(CurrentTeam.Binds);

   166                          else SetBinds(CurrentTeam.Binds);

   167 TurnTimeLeft:= cHedgehogTurnTime

   168 TurnTimeLeft:= cHedgehogTurnTime

   168 end;

   169 end;

   169 

   170 

   170 function AddTeam: PTeam;

   171 function AddTeam: PTeam;

   171 begin

   172 begin