Changeset 211 for trunk/UGameServer.pas

Timestamp:

May 23, 2018, 8:53:58 PM (6 years ago)

Author:

chronos

Message:

• Modified: Each client form is redrawn by itself, not by Core.

File:

• trunk/UGameServer.pas (modified) (4 diffs)

trunk/UGameServer.pas

@@ -25 +25 @@
     procedure SendCmd(Command: TCommand; DataOut, DataIn: TStream);
     procedure TurnStart;
+    procedure GameEnd;
     property OnReceiveCmd: TCommandEvent read FOnReceiveCmd write
       FOnReceiveCmd;
@@ -60 +61 @@
     procedure SaveConfig(Config: TXmlConfig; Path: string);
     procedure InitClients;
+    procedure GameEnd;
     procedure Clear;
     constructor Create;
@@ -100 +102 @@
 begin
   Protocol.TurnStart;
+end;
+
+procedure TServerClient.GameEnd;
+begin
+  Protocol.GameEnd;
 end;
 
@@ -234 +241 @@
 end;
 
+procedure TServer.GameEnd;
+var
+  I: Integer;
+begin
+  for I := 0 to Clients.Count - 1 do
+    Clients[I].GameEnd;
+end;
+
 procedure TServer.Clear;
 begin