hedgewars/uVisualGears.pas
changeset 1792 c30c6944bd49
parent 1776 dd5648e250e4
child 1801 bc0c5c21376e
--- a/hedgewars/uVisualGears.pas	Sat Feb 14 16:25:58 2009 +0000
+++ b/hedgewars/uVisualGears.pas	Sat Feb 14 16:30:22 2009 +0000
@@ -91,7 +91,7 @@
 
 if hwRound(Gear^.X) < -cScreenWidth - 64 then Gear^.X:= int2hwFloat(cScreenWidth + LAND_WIDTH) else
 if hwRound(Gear^.X) > cScreenWidth + LAND_WIDTH then Gear^.X:= int2hwFloat(-cScreenWidth - 64);
-if hwRound(Gear^.Y) > (LAND_HEIGHT + 75) then Gear^.Y:= Gear^.Y - int2hwFloat(LAND_HEIGHT-1024) // TODO - configure in theme (jellies for example could use limited range)
+if hwRound(Gear^.Y) > (LAND_HEIGHT + 75) then Gear^.Y:= Gear^.Y - int2hwFloat(LAND_HEIGHT-1024+150) // TODO - configure in theme (jellies for example could use limited range)
 end;
 
 procedure doStepCloud(Gear: PVisualGear; Steps: Longword);