Changeset 326 for trunk/UMiniMap.pas

Timestamp:

Mar 24, 2021, 12:08:28 AM (3 years ago)

Author:

chronos

Message:

• Modified: Mini map paint method moved from TMainScreen class to TMiniMap class.

File:

• trunk/UMiniMap.pas (modified) (6 diffs)

trunk/UMiniMap.pas

@@ -22 +22 @@
     Colors: array [0 .. 11, 0 .. 1] of TColor;
     Mode: TMiniMode;
+    Options: Integer;
     procedure LoadFromLogFile(FileName: string; var LastTurn: Integer; DefaultSize: TPoint);
     procedure LoadFromMapFile(FileName: string; var nMapLandTiles, nMapStartPositions: Integer);
     procedure PaintRandom(Brightness, StartLandMass: Integer; WorldSize: TPoint);
     procedure PaintFile(SaveMap: TMapArray);
+    procedure Paint(MyMap: PTileList; MapWidth: Integer; ClientMode: Integer;
+      xxt, xwMini: Integer);
     constructor Create;
     destructor Destroy; override;
@@ -34 +37 @@
 
 uses
-  ScreenTools, UPixelPointer, Global, GameServer;
+  ScreenTools, UPixelPointer, Global, GameServer, IsoEngine, Tribes, ClientTools;
+
+const
+  // save map tile flags
+  smOwned = $20;
+  smUnit = $40;
+  smCity = $80;
 
 { TMiniMap }
@@ -169 +178 @@
         xm := (x * 2 + i + y and 1) mod (ScaleToNative(Size.X) * 2);
         MiniPixel.SetX(xm);
-        cm := Colors
-          [Map[ScaleFromNative(x) * lxmax div Size.X + lxmax *
+        cm := Colors[Map[ScaleFromNative(x) * lxmax div Size.X + lxmax *
           ((ScaleFromNative(y) * (lymax - 1) + Size.Y div 2) div (Size.Y - 1))] and
           fTerrain, i];
@@ -205 +213 @@
           if Tile and fTerrain = fUNKNOWN then
             cm := $000000
-          else if Tile and smCity <> 0 then
-          begin
-            if Tile and smOwned <> 0 then
-              cm := OwnColor
-            else
-              cm := EnemyColor;
+          else if Tile and smCity <> 0 then begin
+            if Tile and smOwned <> 0 then cm := OwnColor
+              else cm := EnemyColor;
             if y > 0 then begin
               // 2x2 city dot covers two lines
@@ -219 +224 @@
             end;
           end
-          else if (i = 0) and (Tile and smUnit <> 0) then
-            if Tile and smOwned <> 0 then
-              cm := OwnColor
-            else cm := EnemyColor
-          else
+          else if (i = 0) and (Tile and smUnit <> 0) then begin
+            if Tile and smOwned <> 0 then cm := OwnColor
+              else cm := EnemyColor;
+          end else
             cm := Colors[Tile and fTerrain, i];
           MiniPixel.Pixel^.B := (cm shr 16) and $ff;
@@ -237 +241 @@
 end;
 
+procedure TMiniMap.Paint(MyMap: PTileList; MapWidth: Integer; ClientMode: Integer;
+  xxt, xwMini: Integer);
+var
+  x, y, Loc, i, hw, xm, cm, cmPolOcean, cmPolNone: integer;
+  PrevMiniPixel: TPixelPointer;
+  MiniPixel: TPixelPointer;
+  TerrainTile: Cardinal;
+  MyCity: PCity;
+  EnemyCity: PCityInfo;
+  MyUnit: PUn;
+  EnemyUnit: PUnitInfo;
+begin
+  if not Assigned(MyMap) then Exit;
+  cmPolOcean := HGrSystem.Data.Canvas.Pixels[101, 67];
+  cmPolNone := HGrSystem.Data.Canvas.Pixels[102, 67];
+  hw := MapWidth div (xxt * 2);
+  with Bitmap.Canvas do begin
+    Brush.Color := $000000;
+    FillRect(Rect(0, 0, Bitmap.Width, Bitmap.Height));
+  end;
+  Bitmap.PixelFormat := pf24bit;
+  Bitmap.SetSize(Size.X * 2, Size.Y);
+  Bitmap.BeginUpdate;
+  MiniPixel := PixelPointer(Bitmap);
+  PrevMiniPixel := PixelPointer(Bitmap, 0, -1);
+  for y := 0 to ScaleToNative(Size.Y) - 1 do begin
+    for x := 0 to ScaleToNative(Size.X) - 1 do begin
+      Loc := ScaleFromNative(x) + Size.X * ScaleFromNative(y);
+      if (MyMap[Loc] and fTerrain) <> fUNKNOWN then begin
+        for i := 0 to 1 do begin
+          xm := ((x - ScaleToNative(xwMini)) * 2 + i + y and 1 - ScaleToNative(hw) +
+            ScaleToNative(Size.X) * 5) mod (ScaleToNative(Size.X) * 2);
+          MiniPixel.SetX(xm);
+          TerrainTile := MyMap[Loc] and fTerrain;
+          if TerrainTile > 11 then TerrainTile := 0;
+          cm := Colors[TerrainTile, i];
+          if ClientMode = cEditMap then begin
+            if MyMap[Loc] and (fPrefStartPos or fStartPos) <> 0 then
+              cm := $FFFFFF;
+          end
+          else if MyMap[Loc] and fCity <> 0 then begin
+            // City
+            MyCity := GetMyCityByLoc(Loc);
+            if Assigned(MyCity) then cm := Tribe[me].Color
+            else begin
+              EnemyCity := GetEnemyCityByLoc(Loc);
+              if Assigned(EnemyCity) then
+                cm := Tribe[EnemyCity^.Owner].Color;
+            end;
+            cm := $808080 or cm shr 1; { increase brightness }
+            if y > 0 then begin
+              // 2x2 city dot covers two lines
+              PrevMiniPixel.SetX(xm);
+              PrevMiniPixel.Pixel^.B := (cm shr 16) and $ff;
+              PrevMiniPixel.Pixel^.G := (cm shr 8) and $ff;
+              PrevMiniPixel.Pixel^.R := (cm shr 0) and $ff;
+            end;
+          end
+          else if (i = 0) and (MyMap[Loc] and fUnit <> 0) then begin
+            // Unit
+            MyUnit := GetMyUnitByLoc(Loc);
+            if Assigned(MyUnit) then cm := Tribe[me].Color
+            else begin
+              EnemyUnit := GetEnemyUnitByLoc(Loc);
+              if Assigned(EnemyUnit) then
+                cm := Tribe[EnemyUnit.Owner].Color;
+            end;
+            cm := $808080 or cm shr 1; { increase brightness }
+          end
+          else if Options and (1 shl moPolitical) <> 0 then begin
+            // Political
+            if MyMap[Loc] and fTerrain < fGrass then
+              cm := cmPolOcean
+            else if MyRO.Territory[Loc] < 0 then
+              cm := cmPolNone
+            else
+              cm := Tribe[MyRO.Territory[Loc]].Color;
+          end;
+          MiniPixel.Pixel^.B := (cm shr 16) and $ff;
+          MiniPixel.Pixel^.G := (cm shr 8) and $ff;
+          MiniPixel.Pixel^.R := (cm shr 0) and $ff;
+        end;
+      end;
+    end;
+    MiniPixel.NextLine;
+    PrevMiniPixel.NextLine;
+  end;
+  Bitmap.EndUpdate;
+end;
+
 
 end.