--- a/hedgewars/GSHandlers.inc	Mon Jul 03 17:46:58 2006 +0000
+++ b/hedgewars/GSHandlers.inc	Sat Jul 08 21:40:03 2006 +0000
@@ -117,7 +117,10 @@
 procedure doStepCloud(Gear: PGear);
 begin
 Gear.X:= Gear.X + cWindSpeed * 200 + Gear.dX;
-if Gear.X < -cScreenWidth-256 then Gear.X:= cScreenWidth + 2048 else
+if Gear.Y > -160 then Gear.dY:= Gear.dY - 0.00002
+                 else Gear.dY:= Gear.dY + 0.00002;
+Gear.Y:= Gear.Y + Gear.dY;
+if Gear.X < -cScreenWidth - 256 then Gear.X:= cScreenWidth + 2048 else
 if Gear.X > cScreenWidth + 2048 then Gear.X:= -cScreenWidth - 256
 end;