Changeset 202 for trunk/UGameClient.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/UGameClient.pas (modified) (7 diffs)

trunk/UGameClient.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, UGame, Forms, fgl, UGameProtocol;
+  Classes, SysUtils, UGame, Forms, fgl, UGameProtocol, UGameServer;
 
 type
+  TClientConnectType = (ctLocal, ctNetwork);
+
   { TClient }
 
   TClient = class
   private
+    FActive: Boolean;
     FForm: TForm;
     FGame: TGame;
@@ -19 +22 @@
     FOnReceive: TCommandEvent;
     FOnMove: TMoveEvent;
+    procedure SetActive(AValue: Boolean);
     procedure SetControlPlayer(AValue: TPlayer);
     procedure SetForm(AValue: TForm);
@@ -24 +28 @@
     procedure PlayerMove(CellFrom, CellTo: TCell; var CountOnce, CountRepeat: Integer;
       Update: Boolean; var Confirm: Boolean);
-    procedure ReceiveCmd(Command: TCommand; DataOut, DataIn: TStream);
+  protected
+    procedure ReceiveCmd(Command: TCommand; DataOut, DataIn: TStream); virtual;
+    procedure DoTurnStart(Sender: TObject); virtual;
   public
     Name: string;
     View: TView;
+    LocalServer: TServer;
+    RemoteAddress: string;
+    RemotePort: Word;
+    ConnectType: TClientConnectType;
     Protocol: TGameProtocolClient;
     procedure DoChange;
@@ -38 +48 @@
     property OnReceive: TCommandEvent read FOnReceive write FOnReceive;
     property OnChange: TNotifyEvent read FOnChange write FOnChange;
+    property Active: Boolean read FActive write SetActive;
   end;
 
@@ -107 +118 @@
 end;
 
+procedure TClient.DoTurnStart(Sender: TObject);
+begin
+
+end;
+
 procedure TClient.SetControlPlayer(AValue: TPlayer);
 begin
@@ -115 +131 @@
   if Assigned(FControlPlayer) then begin
      FControlPlayer.OnMove := PlayerMove;
+  end;
+end;
+
+procedure TClient.SetActive(AValue: Boolean);
+var
+  ServerClient: TServerClient;
+begin
+  if FActive = AValue then Exit;
+  FActive := AValue;
+  if FActive then begin
+    case ConnectType of
+      ctLocal: if LocalServer.Active then begin
+        ServerClient := LocalServer.GetNewServerClient;
+        ServerClient.Player := ControlPlayer;
+        ServerClient.Protocol.Pin.Connect(Protocol.Pin);
+      end else raise Exception.Create('Local server is not active');
+      //ctNetwork: ;
+    end;
+  end else begin
+    Protocol.Pin.Disconnect;
   end;
 end;
@@ -129 +165 @@
   View := TView.Create;
   Protocol := TGameProtocolClient.Create;
+  Protocol.OnTurnStart := DoTurnStart;
 end;