Changeset 550 for trunk/Database.pas

Timestamp:

Apr 22, 2024, 10:17:01 PM (11 days ago)

Author:

chronos

Message:

• Modified: Code cleanup.

File:

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

trunk/Database.pas

@@ -1895 +1895 @@
   if NewTile and fRR <> 0 then
     NewTile := NewTile and not fRoad;
-  if not((NewTile and fTerrain) in TerrType_Canalable) then
+  if not ((NewTile and fTerrain) in TerrType_Canalable) then
     NewTile := NewTile and not fCanal;
   if Terrain[NewTile and fTerrain].IrrEff = 0 then
@@ -1961 +1961 @@
     begin // search exploiting player and city
       SearchCity(UsedByCity[Loc], P, cix);
-      if not((P = p0) or (ObserveLevel[UsedByCity[Loc]] shr (2 * p0) and
+      if not ((P = p0) or (ObserveLevel[UsedByCity[Loc]] shr (2 * p0) and
         3 = lObserveSuper)) then
         cix := -1
@@ -2767 +2767 @@
   Dec(TerritoryCount[RealMap[Loc] shr 27]);
   Inc(TerritoryCount[P]);
-  RealMap[Loc] := RealMap[Loc] and not($F shl 27) or Cardinal(P) shl 27;
+  RealMap[Loc] := RealMap[Loc] and not ($F shl 27) or Cardinal(P) shl 27;
   if P = $F then
     P := -1;
@@ -2921 +2921 @@
             if NewOwner <> OldOwner then
               if AtPeace[NewOwner, OldOwner] and
-                not((OldOwner = PlayerLosingCity) and
+                not ((OldOwner = PlayerLosingCity) and
                 (StolenDist[Loc] > CountryRadius)) then
                 NewOwner := OldOwner // peace fixes borders