Changeset 220 for trunk/UGameProtocol.pas

Timestamp:

Jun 10, 2018, 12:18:28 PM (6 years ago)

Author:

chronos

Message:

• Added: Allow to toggle Fog of war in debug mode from Debug menu.

File:

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

trunk/UGameProtocol.pas

@@ -10 +10 @@
 type
   TCommand = (cmdTextMessage, cmdTurnStart, cmdTurnEnd, cmdGameStart, cmdGameEnd,
-    cmdSurrender, cmdNextPlayer);
+    cmdSurrender, cmdNextPlayer, cmdParametersChanged);
   TCommandEvent = procedure (Command: TCommand; DataIn, DataOut: TStream);
 
@@ -24 +24 @@
     FOnGameStart: TNotifyEvent;
     FOnNextPlayer: TNotifyEvent;
+    FOnParametersChanged: TNotifyEvent;
     FOnTurnStart: TNotifyEvent;
     procedure Receive(Sender: TCommPin; Stream: TListByte);
@@ -38 +39 @@
     property OnTurnStart: TNotifyEvent read FOnTurnStart write FOnTurnStart;
     property OnNextPlayer: TNotifyEvent read FOnNextPlayer write FOnNextPlayer;
+    property OnParametersChanged: TNotifyEvent read FOnParametersChanged
+      write FOnParametersChanged;
   end;
 
@@ -58 +61 @@
     procedure GameEnd;
     procedure TurnStart;
+    procedure ParametersChanged;
     procedure NextPlayer;
     property OnSendMessage: TSendMessageEvent read FOnSendMessage
@@ -139 +143 @@
 end;
 
+procedure TGameProtocolServer.ParametersChanged;
+begin
+  SendCmd(cmdParametersChanged);
+end;
+
 procedure TGameProtocolServer.NextPlayer;
 begin
@@ -167 +176 @@
     if Command = Integer(cmdNextPlayer) then begin
       if Assigned(FOnNextPlayer) then FOnNextPlayer(Self);
+    end else
+    if Command = Integer(cmdParametersChanged) then begin
+      if Assigned(FOnParametersChanged) then FOnParametersChanged(Self);
     end;
   finally