# HG changeset patch
# User unc0rr
# Date 1215971885 0
# Node ID 2a4a8a5ca3926de097499dacaac9d93f450d0c5b
# Parent  8f891269392fe89326684d0e3a3eb1339ab194fc
Fix clouds shaking up

diff -r 8f891269392f -r 2a4a8a5ca392 hedgewars/uVisualGears.pas
--- a/hedgewars/uVisualGears.pas	Sun Jul 13 11:39:02 2008 +0000
+++ b/hedgewars/uVisualGears.pas	Sun Jul 13 17:58:05 2008 +0000
@@ -76,12 +76,19 @@
 end;
 
 procedure doStepCloud(Gear: PVisualGear; Steps: Longword);
+var i: Longword;
 begin
 Gear^.X:= Gear^.X + (cWindSpeed * 200 + Gear^.dX) * Steps;
-if hwRound(Gear^.Y) > -160 then Gear^.dY:= Gear^.dY - _1div50000 * Steps
-                           else Gear^.dY:= Gear^.dY + _1div50000 * Steps;
 
-Gear^.Y:= Gear^.Y + Gear^.dY * Steps;
+for i:= 0 to Steps - 1 do
+	begin
+	if hwRound(Gear^.Y) > -160 then
+		Gear^.dY:= Gear^.dY - _1div50000
+	else
+		Gear^.dY:= Gear^.dY + _1div50000;
+
+	Gear^.Y:= Gear^.Y + Gear^.dY
+	end;
 
 if hwRound(Gear^.X) < -cScreenWidth - 256 then Gear^.X:= int2hwFloat(cScreenWidth + 2048) else
 if hwRound(Gear^.X) > cScreenWidth + 2048 then Gear^.X:= int2hwFloat(-cScreenWidth - 256)
@@ -250,7 +257,7 @@
 var i: LongInt;
 begin
 for i:= 0 to cCloudsNumber do
-    AddVisualGear( - cScreenWidth + i * ((cScreenWidth * 2 + 2304) div cCloudsNumber), -140, vgtCloud)
+    AddVisualGear( - cScreenWidth + i * ((cScreenWidth * 2 + 2304) div cCloudsNumber), -160, vgtCloud)
 end;
 
 initialization