diff -r 88b0cf9d6de5 -r 55a1edd97911 hedgewars/uVisualGears.pas --- a/hedgewars/uVisualGears.pas Mon Jan 26 14:57:05 2009 +0000 +++ b/hedgewars/uVisualGears.pas Mon Jan 26 15:53:43 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 + 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) +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 + 200) end; procedure doStepCloud(Gear: PVisualGear; Steps: Longword);