Changeset 531 for trunk/GameServer.pas

Timestamp:

Mar 27, 2024, 12:31:14 PM (8 months ago)

Author:

chronos

Message:

• Modified: Code cleanup.

File:

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

trunk/GameServer.pas

@@ -2697 +2697 @@
   ShowShipChange: TShowShipChange;
   ShowNegoData: TShowNegoData;
-  logged, ok, HasShipChanged, AllHumansDead, OfferFullySupported: Boolean;
+  Logged, Ok, HasShipChanged, AllHumansDead, OfferFullySupported: Boolean;
 begin
   if Command = sTurn then
@@ -2779 +2779 @@
     FormerCLState := CL.State;
     CL.Put(Command, Player, Subject, @Data);
-    logged := True;
+    Logged := True;
   end
   else
-    logged := False;
+    Logged := False;
 
   case Command of
@@ -3222 +3222 @@
         if Command = sReload then
         begin
-          ok := (Difficulty[0] = 0) and (bix[0].Kind <> btNoTerm) and
+          Ok := (Difficulty[0] = 0) and (bix[0].Kind <> btNoTerm) and
             (Integer(Data) >= 0) and (Integer(Data) < GTurn);
           for p1 := 1 to nPl - 1 do
             if bix[p1].Kind = btTerm then
-              ok := False;
+              Ok := False;
           // allow reload in AI-only games only
         end
         else
-          ok := Player = 0;
-        if ok then
+          Ok := Player = 0;
+        if Ok then
         begin
           if (Command = sBreak) or (Command = sResign) then
@@ -3351 +3351 @@
           p1 := pTurn;
         if (Command and not sExecute = scDipBreak and not sExecute) and
-          (LastEndClientCommand <> scDipBreak) then // ok
+          (LastEndClientCommand <> scDipBreak) then // Ok
         else if (Command and not sExecute = scDipNotice and not sExecute) and
           ((LastEndClientCommand = scDipCancelTreaty) or
-          (LastEndClientCommand = scDipBreak)) then // ok
+          (LastEndClientCommand = scDipBreak)) then // Ok
         else if (Command and not sExecute = scDipAccept and not sExecute) and
           (LastEndClientCommand = scDipOffer) then
@@ -3691 +3691 @@
             if (Mode = moPlaying) and (Subject = adMilitary) then
               IntServer(sIntSetDevModel, Player, 0, DevModel.Kind);
-            // save DevModel, because sctModel commands are not logged
+            // save DevModel, because sctModel commands are not Logged
             ResearchTech := Subject;
           end;
@@ -4478 +4478 @@
     else
     begin
-      if logged then
+      if Logged then
         CL.State := FormerCLState;
       if (Result < rExecuted) and (Command >= sExecute) then