# HG changeset patch
# User unc0rr
# Date 1232985436 0
# Node ID fe79315a0b664bf37a32691e625b867bf4e0287c
# Parent  c7038eade58d75108357f8eeec04dd6e4d070bac
Fix clouds disappearing in the middle of map

diff -r c7038eade58d -r fe79315a0b66 hedgewars/uVisualGears.pas
--- a/hedgewars/uVisualGears.pas	Mon Jan 26 15:56:36 2009 +0000
+++ b/hedgewars/uVisualGears.pas	Mon Jan 26 15:57:16 2009 +0000
@@ -110,7 +110,7 @@
 	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)
+if hwRound(Gear^.X) > cScreenWidth + LAND_WIDTH then Gear^.X:= int2hwFloat(-cScreenWidth - 256)
 end;
 
 procedure doStepExpl(Gear: PVisualGear; Steps: Longword);