diff -r 9ed07a96349d -r a51a69094c24 hedgewars/uWorld.pas --- a/hedgewars/uWorld.pas Fri Sep 27 21:52:21 2013 -0400 +++ b/hedgewars/uWorld.pas Sun Sep 29 16:10:32 2013 -0400 @@ -1235,6 +1235,13 @@ end; {$WARNINGS ON} +if WorldEdge <> weNone then + begin +(* I think for a bounded world, will fill the left and right areas with black or something. Also will probably want various border effects/animations based on border type. Prob also, say, trigger a border animation timer on an impact. *) + DrawLine(leftX, -3000, leftX, cWaterLine+cVisibleWater, 3.0, $FF, $00, $FF, $FF); + DrawLine(rightX, -3000, rightX, cWaterLine+cVisibleWater, 3.0, $FF, $00, $FF, $FF) + end; + // this scale is used to keep the various widgets at the same dimension at all zoom levels SetScale(cDefaultZoomLevel); @@ -1631,7 +1638,7 @@ DrawSprite(sprArrow, TargetCursorPoint.X, cScreenHeight - TargetCursorPoint.Y, (RealTicks shr 6) mod 8) end end; -isFirstFrame:= false +isFirstFrame:= false; end; var PrevSentPointTime: LongWord = 0;