hedgewars/uWorld.pas
changeset 9473 a51a69094c24
parent 9377 48ab6dea8d2f
child 9479 167dea42d7d7
--- 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;