hedgewars/uTeams.pas
changeset 2716 b9ca1bfca24f
parent 2715 0e4e0db79e2a
child 2726 a84fc5113d01
equal deleted inserted replaced
2715:0e4e0db79e2a 2716:b9ca1bfca24f
   232 g:= AddGear(0, 0, gtATSmoothWindCh, 0, _0, _0, 1);
   232 g:= AddGear(0, 0, gtATSmoothWindCh, 0, _0, _0, 1);
   233 g^.Tag:= hwRound(cWindSpeed * 72 / cMaxWindSpeed);
   233 g^.Tag:= hwRound(cWindSpeed * 72 / cMaxWindSpeed);
   234 {$IFDEF DEBUGFILE}AddFileLog('Wind = '+FloatToStr(cWindSpeed));{$ENDIF}
   234 {$IFDEF DEBUGFILE}AddFileLog('Wind = '+FloatToStr(cWindSpeed));{$ENDIF}
   235 ApplyAmmoChanges(CurrentHedgehog^);
   235 ApplyAmmoChanges(CurrentHedgehog^);
   236 
   236 
   237 {$IFNDEF TOUCHINPUT}
   237 {$IFNDEF IPHONEOS}
   238 if not CurrentTeam^.ExtDriven then SetBinds(CurrentTeam^.Binds);
   238 if not CurrentTeam^.ExtDriven then SetBinds(CurrentTeam^.Binds);
   239 {$ENDIF}
   239 {$ENDIF}
   240 
   240 
   241 bShowFinger:= true;
   241 bShowFinger:= true;
   242 
   242