hedgewars/uVisualGears.pas
changeset 1753 2ccba26f1aa4
parent 1729 a9f2d8564128
child 1760 55a1edd97911
--- a/hedgewars/uVisualGears.pas	Sun Jan 25 18:07:52 2009 +0000
+++ b/hedgewars/uVisualGears.pas	Sun Jan 25 18:10:23 2009 +0000
@@ -89,9 +89,9 @@
 Gear^.Y:= Gear^.Y + (Gear^.dY + cGravity * vobFallSpeed) * Steps;
 Gear^.Angle:= Gear^.Angle + Gear^.dAngle * Steps;
 
-if hwRound(Gear^.X) < -cScreenWidth - 64 then Gear^.X:= int2hwFloat(cScreenWidth + 2048) else
-if hwRound(Gear^.X) > cScreenWidth + 2048 then Gear^.X:= int2hwFloat(-cScreenWidth - 64);
-if hwRound(Gear^.Y) > 1100 then Gear^.Y:= Gear^.Y - int2hwFloat(1228)
+if hwRound(Gear^.X) < -cScreenWidth - 64 then Gear^.X:= int2hwFloat(cScreenWidth + LAND_WIDTH + 1) else
+if hwRound(Gear^.X) > cScreenWidth + LAND_WIDTH + 1 then Gear^.X:= int2hwFloat(-cScreenWidth - 64);
+if hwRound(Gear^.Y) > (LAND_HEIGHT+75) then Gear^.Y:= Gear^.Y - int2hwFloat(LAND_HEIGHT+200)
 end;
 
 procedure doStepCloud(Gear: PVisualGear; Steps: Longword);