hedgewars/uTeams.pas
changeset 7001 89488f5b99ca
parent 6992 b8f3d8991e92
child 7010 10a0a31804f3
--- a/hedgewars/uTeams.pas	Wed May 02 19:36:23 2012 +0200
+++ b/hedgewars/uTeams.pas	Wed May 02 22:12:58 2012 +0400
@@ -250,7 +250,7 @@
 
 if (GameFlags and gfDisableWind) = 0 then
     begin
-    cWindSpeed:= rndSign(GetRandom * 2 * cMaxWindSpeed);
+    cWindSpeed:= rndSign(GetRandomf * 2 * cMaxWindSpeed);
     w:= hwFloat2Float(cWindSpeed);
     vg:= AddVisualGear(0, 0, vgtSmoothWindBar);
     if vg <> nil then vg^.dAngle:= w;