Changeset 367 for trunk/Start.pas

Timestamp:

Apr 14, 2021, 9:12:03 AM (3 years ago)

Author:

chronos

Message:

• Modified: Enable in development network game only if NetworkEnabled registry value is activated.

File:

• trunk/Start.pas (modified) (8 diffs)

trunk/Start.pas

@@ -360 +360 @@
   I: Integer;
   S: string;
+  {$IFDEF WINDOWS}
   ResolutionX, ResolutionY, ResolutionBPP, ResolutionFreq: Integer;
+  {$ENDIF}
   ScreenMode: Integer;
 begin
@@ -398 +400 @@
     if ValueExists('LastGame') then LastGame := Reg.ReadString('LastGame')
        else LastGame := '';
+    if ValueExists('NetworkEnabled') then NetworkEnabled := Reg.ReadBool('NetworkEnabled')
+       else NetworkEnabled := False;
 
     if ValueExists('ScreenMode') then
@@ -403 +407 @@
       else ScreenMode := 1;
     FullScreen := ScreenMode > 0;
+    if ValueExists('MultiControl') then
+      MultiControl := ReadInteger('MultiControl')
+      else MultiControl := 0;
+    {$IFDEF WINDOWS}
     if ValueExists('ResolutionX') then
       ResolutionX := ReadInteger('ResolutionX');
@@ -411 +419 @@
     if ValueExists('ResolutionFreq') then
       ResolutionFreq := ReadInteger('ResolutionFreq');
-    if ValueExists('MultiControl') then
-      MultiControl := ReadInteger('MultiControl')
-      else MultiControl := 0;
-    {$IFDEF WINDOWS}
     if ScreenMode = 2 then
       ChangeResolution(ResolutionX, ResolutionY, ResolutionBPP,
@@ -440 +444 @@
     WriteInteger('StartTab', Integer(ShowTab));
     WriteString('LastGame', LastGame);
+    WriteBool('NetworkEnabled', NetworkEnabled);
   finally
     Free;
@@ -924 +929 @@
     FormerGames.Delete(I);
     if ListIndex[tbNew] = I then
-      ListIndex[tbNew] := 0
+      ListIndex[tbNew] := 0;
   end;
 end;
@@ -1183 +1188 @@
   EmptyMenu(PopupMenu1.Items);
   if PlayerPopupIndex < 0 then begin // select default AI
-    OfferBrain(BrainNetworkClient, FixedLines);
-    Inc(FixedLines);
+    if NetworkEnabled then begin
+      OfferBrain(BrainNetworkClient, FixedLines);
+      Inc(FixedLines);
+    end;
 
     MenuItem := TMenuItem.Create(PopupMenu1);
@@ -1213 +1220 @@
       end;
     if PlayerPopupIndex > 0 then begin
-      OfferBrain(BrainNetworkServer, FixedLines);
-      Inc(FixedLines);
+      if NetworkEnabled then begin
+        OfferBrain(BrainNetworkServer, FixedLines);
+        Inc(FixedLines);
+      end;
 
       MenuItem := TMenuItem.Create(PopupMenu1);