Changeset 213 for trunk/UGame.pas

Timestamp:

May 24, 2018, 9:25:17 PM (6 years ago)

Author:

chronos

Message:

• Added: Button with action to surrender the game.
• Fixed: Added framing comm component for correct separation of network messages.
• Added: New game protocol command NextPlayer. GUI client will redraw map on this event to see how other players/AI fight each other.

File:

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

trunk/UGame.pas

@@ -331 +331 @@
     function SetMove(CellFrom, CellTo: TCell; Power: Integer; Confirmation: Boolean = True): TUnitMove;
     procedure Reset;
+    procedure Surrender;
     function IsAlive: Boolean;
     procedure Clear;
@@ -2526 +2527 @@
 end;
 
+procedure TPlayer.Surrender;
+var
+  I: Integer;
+begin
+  Moves.Clear;
+  for I := 0 to PlayerMap.Cells.Count - 1 do
+    if PlayerMap.Cells[I].MapCell.Player = Self then
+      PlayerMap.Cells[I].MapCell.Player := nil;
+end;
+
 function TPlayer.IsAlive: Boolean;
 begin