Changeset 202 for trunk/UGameServer.pas

Timestamp:

May 17, 2018, 5:41:47 PM (6 years ago)

Author:

chronos

Message:

• Modified: AI player related code moved to UClientAI unit. It is now extension of TClient class to simulate regular human client.
• Modified: More work on client-server architecture.

File:

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

trunk/UGameServer.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, UGame, DOM, XMLConf, fgl,
-  UGameProtocol;
+  Classes, SysUtils, UGame, DOM, XMLConf, fgl, UGameProtocol;
 
 type
@@ -18 +17 @@
     FOnReceiveCmd: TCommandEvent;
     procedure ReceiveCmd(Command: TCommand; DataOut, DataIn: TStream);
+    procedure DoTurnEnd(Sender: TObject);
   public
     Game: TGame;
     Protocol: TGameProtocolServer;
+    Player: TPlayer;
     procedure DoChange;
     procedure SendCmd(Command: TCommand; DataOut, DataIn: TStream);
+    procedure TurnStart;
     property OnReceiveCmd: TCommandEvent read FOnReceiveCmd write
       FOnReceiveCmd;
@@ -29 +31 @@
   end;
 
+  { TServerClients }
+
   TServerClients = class(TFPGObjectList<TServerClient>)
     Game: TGame;
+    function SearchByPlayer(Player: TPlayer): TServerClient;
   end;
 
@@ -51 +56 @@
     RemoteNetworkAddress: string;
     RemoteNetworkPort: Word;
+    function GetNewServerClient: TServerClient;
     procedure LoadConfig(Config: TXmlConfig; Path: string);
     procedure SaveConfig(Config: TXmlConfig; Path: string);
@@ -67 +73 @@
 implementation
 
+{ TServerClients }
+
+function TServerClients.SearchByPlayer(Player: TPlayer): TServerClient;
+var
+  I: Integer;
+begin
+  I := 0;
+  while (I < Count) and (Items[I].Player <> Player) do Inc(I);
+  if I < Count then Result := Items[I]
+    else Result := nil;
+end;
+
 { TServerClient }
 
@@ -79 +97 @@
 end;
 
+procedure TServerClient.TurnStart;
+begin
+  Protocol.TurnStart;
+end;
+
 constructor TServerClient.Create;
 begin
   Protocol := TGameProtocolServer.Create;
+  Protocol.OnTurnEnd := DoTurnEnd;
 end;
 
@@ -94 +118 @@
   if Assigned(FOnReceiveCmd) then
     FOnReceiveCmd(Command, DataOut, DataIn);
+end;
+
+procedure TServerClient.DoTurnEnd(Sender: TObject);
+begin
+  if Game.Running then Game.NextPlayer;
 end;
 
@@ -153 +182 @@
 end;
 
-procedure TServer.DoChange;
+procedure TServer.DoChange(Sender: TObject);
 var
   Client: TServerClient;
@@ -169 +198 @@
     //TODO View.Clear;
   end;
+end;
+
+function TServer.GetNewServerClient: TServerClient;
+begin
+  Result := TServerClient.Create;
+  Clients.Add(Result);
 end;