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);