Changeset 558 for trunk/LocalPlayer/Nego.pas

Timestamp:

Apr 25, 2024, 6:31:34 PM (7 months ago)

Author:

chronos

Message:

• Modified: Code cleanup.

File:

• trunk/LocalPlayer/Nego.pas (modified) (4 diffs)

trunk/LocalPlayer/Nego.pas

@@ -373 +373 @@
   begin // check techs
     for I := 0 to nAdv - 1 do
-      if not(I in FutureTech) then
+      if not (I in FutureTech) then
         if (MyRO.Tech[I] < tsSeen) and
           (MyRO.EnemyReport[DipMem[Me].pContact].Tech[I] >= tsApplicable) then
@@ -732 +732 @@
     end;
     Price := ButtonPrice[TButtonN(Sender).Tag and $FF];
-    if not(Price shr 24 in OppoAllowed) then
+    if not (Price shr 24 in OppoAllowed) then
       Exit;
     case Price of
@@ -845 +845 @@
     end;
     Price := ButtonPrice[TButtonN(Sender).Tag and $FF];
-    if not(Price shr 24 in MyAllowed) then
+    if not (Price shr 24 in MyAllowed) then
       Exit;
     case Price of
@@ -936 +936 @@
     Exit;
   NewCommand := TButtonN(Sender).Tag and $FF + scDipStart;
-  if not(NewCommand - scDipStart in CommandAllowed) then
+  if not (NewCommand - scDipStart in CommandAllowed) then
     Exit;
   if (NewCommand = scDipCancelTreaty) and