Changeset 364 for trunk/LocalPlayer

Timestamp:

Apr 12, 2021, 11:55:20 PM (4 years ago)

Author:

chronos

Message:

• Added: Partial network game play implementation.
• Modified: Code cleanup.

Location:

trunk/LocalPlayer

Files:

• LocalPlayer.pas (modified) (1 diff)
• Term.pas (modified) (10 diffs)

trunk/LocalPlayer/LocalPlayer.pas

@@ -16 +16 @@
   FormsCreated: boolean;
 
-procedure Client;
+procedure Client(Command, Player: integer; var Data);
 begin
   if not FormsCreated then

trunk/LocalPlayer/Term.pas

@@ -2910 +2910 @@
         FormResize(nil); // calculate geometrics and paint all
         SetTroopLoc(-1);
-        idle := true
+        idle := true;
       end;
 
@@ -2943 +2943 @@
               DipMem[me].DeliveredPrices := [];
               DipMem[me].ReceivedPrices := [];
-              DipCall(scDipStart)
+              DipCall(scDipStart);
             end
             else
             begin
               DipCall(scReject);
-              EndNego
+              EndNego;
             end;
           end;
@@ -2987 +2987 @@
         end;
         NegoDlg.Start;
-        idle := true
+        idle := true;
       end;
 
@@ -3039 +3039 @@
             CurrentMoveInfo.DoShow := not mAlNoMoves.Checked
           else
-            CurrentMoveInfo.DoShow := not mEnNoMoves.Checked
+            CurrentMoveInfo.DoShow := not mEnNoMoves.Checked;
         end
         else if Command = cShowUnitChanged then
@@ -3051 +3051 @@
           else
             CurrentMoveInfo.DoShow :=
-              not(mEnNoMoves.Checked or mEnAttacks.Checked)
+              not(mEnNoMoves.Checked or mEnAttacks.Checked);
         end;
         // else keep DoShow from cShowMove/cShowAttack
@@ -3145 +3145 @@
                 ShowMoveDomain := Domain;
                 IsAlpine := Cap[mcAlpine] > 0;
-              end
-            end
+              end;
+            end;
           end
           else
@@ -3198 +3198 @@
                     CurrentMoveInfo.AfterMovePaintRadius := 2
                   else
-                    CurrentMoveInfo.AfterMovePaintRadius := 1
+                    CurrentMoveInfo.AfterMovePaintRadius := 1;
               end
               else
@@ -3265 +3265 @@
           else
             MapValid := false;
-        end
+        end;
       end;
 
@@ -3350 +3350 @@
           else
             MapValid := false;
-        end
+        end;
       end;
 
@@ -3362 +3362 @@
           if 3 shl (p1 * 2) and Cardinal(Data) <> 0 then
             s := s + '\' + Tribe[p1].TPhrase('SHORTNAME');
-        SoundMessageEx(s, '')
+        SoundMessageEx(s, '');
       end;