1236 {$WARNINGS ON} |
1236 {$WARNINGS ON} |
1237 |
1237 |
1238 if WorldEdge <> weNone then |
1238 if WorldEdge <> weNone then |
1239 begin |
1239 begin |
1240 (* 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. *) |
1240 (* 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. *) |
1241 DrawLine(leftX, -3000, leftX, cWaterLine+cVisibleWater, 3.0, $FF, $00, $FF, $FF); |
1241 DrawLine(leftX-100, -3000, leftX-100, cWaterLine+cVisibleWater, 3.0, $FF, $00, $FF, $FF); |
1242 DrawLine(rightX, -3000, rightX, cWaterLine+cVisibleWater, 3.0, $FF, $00, $FF, $FF) |
1242 DrawLine(rightX+100, -3000, rightX+100, cWaterLine+cVisibleWater, 3.0, $FF, $00, $FF, $FF) |
1243 end; |
1243 end; |
1244 |
1244 |
1245 // this scale is used to keep the various widgets at the same dimension at all zoom levels |
1245 // this scale is used to keep the various widgets at the same dimension at all zoom levels |
1246 SetScale(cDefaultZoomLevel); |
1246 SetScale(cDefaultZoomLevel); |
1247 |
1247 |