Changeset 365 for trunk/Protocol.pas

Timestamp:

Apr 13, 2021, 9:57:36 PM (4 years ago)

Author:

chronos

Message:

• Modified: Improved unfinished network client data handling.

File:

• trunk/Protocol.pas (modified) (2 diffs)

trunk/Protocol.pas

@@ -1722 +1722 @@
     Flags: Integer;
   end;
+  PInitModuleData = ^TInitModuleData;
 
   TNewGameData = record
@@ -1982 +1983 @@
     cmShowNego: Result := SizeOf(TShowNegoData);
     cmNewGame, cmLoadGame, cmMovie, cmNewMap: Result := SizeOf(TNewGameData);
+    cmShowShipChange: Result := SizeOf(TShowShipChange);
+    cmShowGreatLibTech: Result := SizeOf(Integer);
+    cmShowCityChanged: Result := SizeOf(Integer);
+    cmShowPeaceViolation: Result := SizeOf(Integer);
+    cmShowMoving: Result := SizeOf(TShowMove);
+    cmShowUnitChanged: Result := SizeOf(Integer);
+    cmShowMissionResult: Result := SizeOf(Cardinal);
+    cmShowAfterMove: Result := SizeOf(Integer);
+    cmShowAfterAttack: Result := SizeOf(Integer);
+    cmShowSupportAllianceAgainst: Result := SizeOf(Integer);
+    cmShowCancelTreatyByAlliance: Result := SizeOf(Integer);
+    cmShowEndContact: Result := 0;
+    //sIntCancelTreaty: Result := SizeOf(Integer);
     else begin
       Result := 0;