Changeset 182 for trunk/LocalPlayer/IsoEngine.pas

Timestamp:

Dec 26, 2019, 12:09:50 AM (5 years ago)

Author:

chronos

Message:

• Added: Support for bigger map tile size.

File:

• trunk/LocalPlayer/IsoEngine.pas (modified) (9 diffs)

trunk/LocalPlayer/IsoEngine.pas

@@ -89 +89 @@
 
   // sprites indexes
-  spDeadLands = 2 * TerrainIconCols + 6;
+  spRow2 = 2 * TerrainIconCols + 6;
   spBlink1 = 1 * TerrainIconCols + 8;
   spBlink2 = 2 * TerrainIconCols + 8;
@@ -107 +107 @@
   spPollution = 12 * TerrainIconCols + 6;
   spFortBack = 12 * TerrainIconCols + 7;
+  spMinerals = 12 * TerrainIconCols + 8;
   spRiver = 13 * TerrainIconCols;
+  spRiverMouths = 15 * TerrainIconCols;
+  spGrid = 15 * TerrainIconCols + 6;
   spJungle = 18 * TerrainIconCols;
+  spCanalMouths = 20 * TerrainIconCols;
 
 var
@@ -137 +141 @@
   i, x, y, xSrc, ySrc, HGrTerrainNew, HGrCitiesNew, age, size: integer;
   LandMore, OceanMore, DitherMask, Mask24: TBitmap;
-  MaskLine: array [0 .. 32 * 3 - 1] of TPixelPointer; // 32 = assumed maximum for yyt
+  MaskLine: array [0 .. 50 * 3 - 1] of TPixelPointer; // 32 = assumed maximum for yyt
   Border: boolean;
 begin
@@ -422 +426 @@
   Borders := TBitmap.Create;
   Borders.PixelFormat := pf24bit;
-  Borders.SetSize(xxt * 2,(yyt * 2) * nPl);
+  Borders.SetSize(xxt * 2, (yyt * 2) * nPl);
   Borders.Canvas.FillRect(0, 0, Borders.Width, Borders.Height);
   BordersOK := 0;
@@ -876 +880 @@
   end
   else if Tile and fDeadLands <> 0 then
-    TSprite(x, y, spDeadLands);
+    TSprite(x, y, spRow2);
 
   if ShowObjects then
@@ -898 +902 @@
     for Dir := 0 to 3 do
       if Conn and (1 shl Dir) <> 0 then { river mouths }
-        TSprite(x, y, 15 * TerrainIconCols + Dir);
+        TSprite(x, y, spRiverMouths + Dir);
     if ShowObjects then
     begin
@@ -904 +908 @@
       for Dir := 0 to 7 do
         if Conn and (1 shl Dir) <> 0 then { canal mouths }
-          TSprite(x, y, 20 * TerrainIconCols + 1 + Dir);
+          TSprite(x, y, spCanalMouths + 1 + Dir);
     end
   end;
@@ -1112 +1116 @@
     end;
   end;
-  if Tile and fDeadLands <> 0 then
-    TSprite(x, y, (12 + Tile shr 25 and 3) * TerrainIconCols + 8);
+  if (Tile and fDeadLands) <> 0 then
+    TSprite(x, y, spMinerals + (Tile shr 25 and 3) * TerrainIconCols);
 
   if Options and (1 shl moEditMode) <> 0 then
@@ -1131 +1135 @@
         1 + yyt + 15 * (yyt * 3 + 1))
     else
-      TSprite(x, y, 6 + TerrainIconCols * 15, xxt <> 33);
+      TSprite(x, y, spGrid, xxt <> 33);
 
   if FoW and (Tile and fObserved = 0) then