Changeset 179 for trunk/UGame.pas

Timestamp:

Feb 6, 2018, 3:47:23 PM (7 years ago)

Author:

chronos

Message:

• Added: A preparation for gameplay over network.

File:

• trunk/UGame.pas (modified) (8 diffs)

trunk/UGame.pas

@@ -8 +8 @@
   Classes, SysUtils, ExtCtrls, Graphics, XMLConf, XMLRead, XMLWrite,
   DOM, Math, LazFileUtils, UXMLUtils, Dialogs, Types, LCLType, LCLIntf, fgl,
-  UGeometry;
+  UGeometry, UGameSocket;
 
 const
@@ -409 +409 @@
   end;
 
+  TCommand = (cmdTextMessage);
+  TReceiveEvent = procedure (Command: TCommand; DataIn, DataOut: Pointer);
+  TCommandTextMessage = record
+    Text: string;
+  end;
+
   { TClient }
 
@@ -415 +421 @@
     FGame: TGame;
     FControlPlayer: TPlayer;
+    FOnReceive: TReceiveEvent;
     procedure SetControlPlayer(AValue: TPlayer);
     procedure SetGame(AValue: TGame);
@@ -420 +427 @@
     Name: string;
     View: TView;
+    GameSocket: TGameSocket;
+    procedure Send(Command: TCommand; DataOut, DataIn: Pointer);
     constructor Create;
     destructor Destroy; override;
     property ControlPlayer: TPlayer read FControlPlayer write SetControlPlayer;
     property Game: TGame read FGame write SetGame;
+    property OnReceive: TReceiveEvent read FOnReceive write FOnReceive;
   end;
 
@@ -512 +522 @@
   end;
 
+  TServerMode = (smLocal, smNetworkServer, smNetworkClient);
+
   { TServer }
 
   TServer = class
   private
+    FActive: Boolean;
     FGame: TGame;
+    FServerMode: TServerMode;
+    procedure SetActive(AValue: Boolean);
     procedure SetGame(AValue: TGame);
+    procedure SetServerMode(AValue: TServerMode);
   public
     Clients: TClients;
+    LocalNetworkAddress: string;
+    LocalNetworkPort: Word;
+    RemoteNetworkAddress: string;
+    RemoteNetworkPort: Word;
+    GameSocket: TGameSocket;
+    procedure LoadConfig(Config: TXmlConfig; Path: string);
+    procedure SaveConfig(Config: TXmlConfig; Path: string);
     procedure InitClients;
     procedure Clear;
@@ -525 +548 @@
     destructor Destroy; override;
     property Game: TGame read FGame write SetGame;
+    property Mode: TServerMode read FServerMode write SetServerMode;
+    property Active: Boolean read FActive write SetActive;
   end;
 
@@ -648 +673 @@
   FGame := AValue;
   View.Game := AValue;
+end;
+
+procedure TClient.Send(Command: TCommand; DataOut, DataIn: Pointer);
+begin
 end;
 
@@ -3131 +3160 @@
 end;
 
+procedure TServer.SetActive(AValue: Boolean);
+begin
+  if FActive = AValue then Exit;
+  FActive := AValue;
+end;
+
+procedure TServer.SetServerMode(AValue: TServerMode);
+var
+  LastActiveState: Boolean;
+begin
+  if FServerMode = AValue then Exit;
+  LastActiveState := Active;
+  Active := False;
+  FServerMode := AValue;
+  FreeAndNil(GameSocket);
+  case FServerMode of
+    smLocal: GameSocket := TGameSocketDirect.Create;
+    smNetworkServer: begin
+      GameSocket := TGameSocketNetworkServer.Create;
+      TGameSocketNetworkServer(GameSocket).TCPServer.Address := LocalNetworkAddress;
+      TGameSocketNetworkServer(GameSocket).TCPServer.Port := LocalNetworkPort;
+      //TODO TGameSocketNetworkServer(GameSocket).TCPServer.Active := True;
+    end;
+    smNetworkClient: begin
+      GameSocket := TGameSocketNetworkClient.Create;
+      if (LocalNetworkAddress = RemoteNetworkAddress) and
+        (LocalNetworkPort = RemoteNetworkPort) then begin
+          // User wants to play on its own server
+          GameSocket := TGameSocketNetworkServer.Create;
+          TGameSocketNetworkServer(GameSocket).TCPServer.Address := LocalNetworkAddress;
+          TGameSocketNetworkServer(GameSocket).TCPServer.Port := LocalNetworkPort;
+          //TODO TGameSocketNetworkServer(GameSocket).TCPServer.Active := True;
+        end else
+        begin
+          // Do not create socket. User wants to connect elsewhere
+        end;
+      end;
+  end;
+  Active := LastActiveState;
+end;
+
+procedure TServer.LoadConfig(Config: TXmlConfig; Path: string);
+begin
+  with Config do begin
+    LocalNetworkAddress := string(GetValue(DOMString(Path + '/LocalNetworkAddress'), 'localhost'));
+    LocalNetworkPort := GetValue(DOMString(Path + '/LocalNetworkPort'), 40009);
+    RemoteNetworkAddress := string(GetValue(DOMString(Path + '/RemoteNetworkAddress'), 'localhost'));
+    RemoteNetworkPort := GetValue(DOMString(Path + '/RemoteNetworkPort'), 40009);
+    Mode := TServerMode(GetValue(DOMString(Path + '/Mode'), Integer(smLocal)));
+  end;
+end;
+
+procedure TServer.SaveConfig(Config: TXmlConfig; Path: string);
+begin
+  with Config do begin
+    SetValue(DOMString(Path + '/LocalNetworkAddress'), DOMString(LocalNetworkAddress));
+    SetValue(DOMString(Path + '/LocalNetworkPort'), LocalNetworkPort);
+    SetValue(DOMString(Path + '/RemoteNetworkAddress'), DOMString(RemoteNetworkAddress));
+    SetValue(DOMString(Path + '/RemoteNetworkPort'), RemoteNetworkPort);
+    SetValue(DOMString(Path + '/Mode'), Integer(Mode));
+  end;
+end;
+
 procedure TServer.InitClients;
 var