hedgewars/uTeams.pas
changeset 7001 89488f5b99ca
parent 6992 b8f3d8991e92
child 7010 10a0a31804f3
equal deleted inserted replaced
7000:d22633829ac8 7001:89488f5b99ca
   248 
   248 
   249 ResetKbd;
   249 ResetKbd;
   250 
   250 
   251 if (GameFlags and gfDisableWind) = 0 then
   251 if (GameFlags and gfDisableWind) = 0 then
   252     begin
   252     begin
   253     cWindSpeed:= rndSign(GetRandom * 2 * cMaxWindSpeed);
   253     cWindSpeed:= rndSign(GetRandomf * 2 * cMaxWindSpeed);
   254     w:= hwFloat2Float(cWindSpeed);
   254     w:= hwFloat2Float(cWindSpeed);
   255     vg:= AddVisualGear(0, 0, vgtSmoothWindBar);
   255     vg:= AddVisualGear(0, 0, vgtSmoothWindBar);
   256     if vg <> nil then vg^.dAngle:= w;
   256     if vg <> nil then vg^.dAngle:= w;
   257     AddFileLog('Wind = '+FloatToStr(cWindSpeed));
   257     AddFileLog('Wind = '+FloatToStr(cWindSpeed));
   258     end;
   258     end;