hedgewars/uTeams.pas
changeset 1650 a65681cc27c2
parent 1495 2b2b89bdb5f3
child 1654 9cfa6f23e767
equal deleted inserted replaced
1649:938a0fda0206 1650:a65681cc27c2
   219 g:= AddGear(0, 0, gtATSmoothWindCh, 0, _0, _0, 1);
   219 g:= AddGear(0, 0, gtATSmoothWindCh, 0, _0, _0, 1);
   220 g^.Tag:= hwRound(cWindSpeed * 72 / cMaxWindSpeed);
   220 g^.Tag:= hwRound(cWindSpeed * 72 / cMaxWindSpeed);
   221 {$IFDEF DEBUGFILE}AddFileLog('Wind = '+FloatToStr(cWindSpeed));{$ENDIF}
   221 {$IFDEF DEBUGFILE}AddFileLog('Wind = '+FloatToStr(cWindSpeed));{$ENDIF}
   222 ApplyAmmoChanges(CurrentHedgehog^);
   222 ApplyAmmoChanges(CurrentHedgehog^);
   223 
   223 
   224 if CurrentTeam^.ExtDriven then SetDefaultBinds
   224 if not CurrentTeam^.ExtDriven then SetBinds(CurrentTeam^.Binds);
   225                           else SetBinds(CurrentTeam^.Binds);
   225 
   226 bShowFinger:= true;
   226 bShowFinger:= true;
   227 
   227 
   228 if (CurrentTeam^.ExtDriven or (CurrentHedgehog^.BotLevel > 0)) then
   228 if (CurrentTeam^.ExtDriven or (CurrentHedgehog^.BotLevel > 0)) then
   229 	PlaySound(sndIllGetYou, false)
   229 	PlaySound(sndIllGetYou, false)
   230 else
   230 else