hedgewars/uTeams.pas
changeset 4900 8ad0e23e6d63
parent 4889 f71e30eb1d37
child 4976 088d40d8aba2
equal deleted inserted replaced
4899:8163c9aaad0c 4900:8ad0e23e6d63
   214     cWindSpeedf:= SignAs(cWindSpeed,cWindSpeed).QWordValue / SignAs(_1,_1).QWordValue;
   214     cWindSpeedf:= SignAs(cWindSpeed,cWindSpeed).QWordValue / SignAs(_1,_1).QWordValue;
   215     if cWindSpeed.isNegative then
   215     if cWindSpeed.isNegative then
   216         CWindSpeedf := -cWindSpeedf;
   216         CWindSpeedf := -cWindSpeedf;
   217     g:= AddGear(0, 0, gtATSmoothWindCh, 0, _0, _0, 1);
   217     g:= AddGear(0, 0, gtATSmoothWindCh, 0, _0, _0, 1);
   218     g^.Tag:= hwRound(cWindSpeed * 72 / cMaxWindSpeed);
   218     g^.Tag:= hwRound(cWindSpeed * 72 / cMaxWindSpeed);
   219 {$IFDEF DEBUGFILE}AddFileLog('Wind = '+FloatToStr(cWindSpeed));{$ENDIF}
   219     AddFileLog('Wind = '+FloatToStr(cWindSpeed));
   220     end;
   220     end;
   221 
   221 
   222 ApplyAmmoChanges(CurrentHedgehog^);
   222 ApplyAmmoChanges(CurrentHedgehog^);
   223 
   223 
   224 if not CurrentTeam^.ExtDriven then SetBinds(CurrentTeam^.Binds);
   224 if not CurrentTeam^.ExtDriven then SetBinds(CurrentTeam^.Binds);