Changeset 185 for trunk/UGameServer.pas

Timestamp:

Feb 12, 2018, 3:08:27 PM (7 years ago)

Author:

chronos

Message:

• Added: Package CoolStreaming.
• Added: GameProtocol unit for implementation of client/server game protocol methods.

File:

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

trunk/UGameServer.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, UGame, UGameClient, DOM, XMLConf;
+  Classes, SysUtils, UGame, UGameClient, DOM, XMLConf, fgl, SpecializedList,
+  UGameProtocol;
 
 type
   TServerMode = (smLocal, smNetworkServer, smNetworkClient);
+
+  { TServerClient }
+
+  TServerClient = class
+  private
+    FOnReceiveCmd: TCommandEvent;
+    procedure ReceiveCmd(Command: TCommand; DataOut, DataIn: TStream);
+  public
+    Game: TGame;
+    Protocol: TGameProtocolServer;
+    procedure DoChange;
+    procedure SendCmd(Command: TCommand; DataOut, DataIn: TStream);
+    property OnReceiveCmd: TCommandEvent read FOnReceiveCmd write
+      FOnReceiveCmd;
+    constructor Create;
+    destructor Destroy; override;
+  end;
+
+  TServerClients = class(TFPGObjectList<TServerClient>)
+    Game: TGame;
+  end;
 
   { TServer }
@@ -24 +46 @@
     procedure GameStarted(Sender: TObject);
   public
-    Clients: TClients;
+    Clients: TServerClients;
     LocalNetworkAddress: string;
     LocalNetworkPort: Word;
@@ -42 +64 @@
 
 implementation
+
+{ TServerClient }
+
+procedure TServerClient.DoChange;
+begin
+
+end;
+
+procedure TServerClient.SendCmd(Command: TCommand; DataOut, DataIn: TStream);
+begin
+
+end;
+
+constructor TServerClient.Create;
+begin
+  Protocol := TGameProtocolServer.Create;
+end;
+
+destructor TServerClient.Destroy;
+begin
+  Protocol.Free;
+  inherited Destroy;
+end;
+
+procedure TServerClient.ReceiveCmd(Command: TCommand; DataOut, DataIn: TStream);
+begin
+  if Assigned(FOnReceiveCmd) then
+    FOnReceiveCmd(Command, DataOut, DataIn);
+end;
 
 { TServer }
@@ -102 +153 @@
 procedure TServer.DoChange;
 var
-  Client: TClient;
+  Client: TServerClient;
 begin
   for Client in Clients do
@@ -113 +164 @@
 begin
   for I := 0 to Clients.Count - 1 do
-  with TClient(Clients[I]) do begin
-    View.Clear;
+  with TServerClient(Clients[I]) do begin
+    //TODO View.Clear;
   end;
 end;
@@ -142 +193 @@
 procedure TServer.InitClients;
 var
-  Client: TClient;
+  Client: TServerClient;
   Player: TPlayer;
 begin
   Clients.Clear;
-  Clients.New(SSpectator);
-
-  for Player in Game.Players do
-  with Player do
-  if Mode = pmHuman then begin
-    Clients.New(Player.Name).ControlPlayer := Player;
-  end;
-
-  for Client in Clients do
-  with Client do begin
-    View.Clear;
-    View.Zoom := 1;
-    if Assigned(ControlPlayer) and Assigned(ControlPlayer.StartCell) then
-      View.CenterPlayerCity(ControlPlayer)
-      else View.CenterMap;
-  end;
 end;
 
@@ -173 +208 @@
 begin
   FGame := nil;
-  Clients := TClients.Create;
+  Clients := TServerClients.Create;
 end;