Changeset 327 for trunk/UMiniMap.pas

Timestamp:

Mar 25, 2021, 2:09:42 PM (4 years ago)

Author:

chronos

Message:

• Modified: Use enumeration type for MapOptions and game options.

File:

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

trunk/UMiniMap.pas

@@ -5 +5 @@
 
 uses
-  Classes, SysUtils, Graphics, Protocol;
+  Classes, SysUtils, Graphics, Protocol, ClientTools;
 
 type
@@ -22 +22 @@
     Colors: array [0 .. 11, 0 .. 1] of TColor;
     Mode: TMiniMode;
-    Options: Integer;
+    MapOptions: TMapOptions;
     procedure LoadFromLogFile(FileName: string; var LastTurn: Integer; DefaultSize: TPoint);
     procedure LoadFromMapFile(FileName: string; var nMapLandTiles, nMapStartPositions: Integer);
@@ -37 +37 @@
 
 uses
-  ScreenTools, UPixelPointer, Global, GameServer, IsoEngine, Tribes, ClientTools;
+  ScreenTools, UPixelPointer, Global, GameServer, IsoEngine, Tribes;
 
 const
@@ -310 +310 @@
             cm := $808080 or cm shr 1; { increase brightness }
           end
-          else if Options and (1 shl moPolitical) <> 0 then begin
+          else if moPolitical in MapOptions then begin
             // Political
             if MyMap[Loc] and fTerrain < fGrass then