hedgewars/uVisualGears.pas
changeset 1762 fe79315a0b66
parent 1760 55a1edd97911
child 1776 dd5648e250e4
--- 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);