Changeset 77 for trunk/UGame.pas

Timestamp:

Oct 5, 2014, 7:13:38 PM (10 years ago)

Author:

chronos

Message:

• Added: Auto save game to file option in settings.

File:

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

trunk/UGame.pas

@@ -25 +25 @@
   TUnitMoves = class;
   TCells = class;
+  TMap = class;
 
   TFloatPoint = record
@@ -38 +39 @@
   TCell = class
   private
+    FMap: TMap;
     FPower: Integer;
     procedure SetPower(AValue: Integer);
@@ -45 +47 @@
     Polygon: TPointArray;
     Terrain: TTerrainType;
+    PlayerId: Integer;
     Player: TPlayer;
     MovesFrom: TUnitMoves;
     MovesTo: TUnitMoves;
+    NeighborsId: array of Integer;
     Neighbors: TCells;
     Mark: Boolean;
+    procedure FixRefId;
     procedure LoadFromNode(Node: TDOMNode);
     procedure SaveToNode(Node: TDOMNode);
@@ -60 +65 @@
     destructor Destroy; override;
     property Power: Integer read FPower write SetPower;
+    property Map: TMap read FMap write FMap;
   end;
 
@@ -67 +73 @@
 
   TCells = class(TObjectList)
+    Map: TMap;
+    procedure FixRefId;
     function FindById(Id: Integer): TCell;
     procedure LoadFromNode(Node: TDOMNode);
@@ -235 +243 @@
     Game: TGame;
     NewPlayerId: Integer;
+    function FindById(Id: Integer): TPlayer;
     procedure New(Name: string; Color: TColor; Mode: TPlayerMode);
     function GetNewPlayerId: Integer;
@@ -285 +294 @@
     FMapType: TMapType;
     FOnMove: TMoveEvent;
+    FOnNewTurn: TNotifyEvent;
     FOnWin: TWinEvent;
     FRunning: Boolean;
@@ -334 +344 @@
     property OnMove: TMoveEvent read FOnMove write FOnMove;
     property OnWin: TWinEvent read FOnWin write FOnWin;
+    property OnNewTurn: TNotifyEvent read FOnNewTurn write FOnNewTurn;
   end;
 
@@ -427 +438 @@
 { TCells }
 
+procedure TCells.FixRefId;
+var
+  I: Integer;
+begin
+  for I := 0 to Count - 1 do
+  TCell(Items[I]).FixRefId;
+end;
+
 function TCells.FindById(Id: Integer): TCell;
 var
@@ -432 +451 @@
 begin
   I := 0;
-  while (I < 0) and (TCell(Items[I]).Id <> Id) do Inc(I);
+  while (I < Count) and (TCell(Items[I]).Id <> Id) do Inc(I);
   if I < Count then Result := TCell(Items[I])
     else Result := nil;
@@ -446 +465 @@
   while Assigned(Node2) and (Node2.NodeName = 'Cell') do begin
     NewCell := TCell.Create;
+    NewCell.Map := Map;
     NewCell.LoadFromNode(Node2);
     Add(NewCell);
@@ -466 +486 @@
 
 { TPlayers }
+
+function TPlayers.FindById(Id: Integer): TPlayer;
+var
+  I: Integer;
+begin
+  I := 0;
+  while (I < Count) and (TPlayer(Items[I]).Id <> Id) do Inc(I);
+  if I < Count then Result := TPlayer(Items[I])
+    else Result := nil;
+end;
 
 procedure TPlayers.New(Name: string; Color: TColor; Mode: TPlayerMode);
@@ -574 +604 @@
   for X := 0 to FSize.X - 1 do begin
     NewCell := TCell.Create;
+    NewCell.Map := Self;
     NewCell.PosPx := Point(Trunc(Random * FSize.X * DefaultCellSize.X), Trunc(Random * FSize.Y * DefaultCellSize.Y));
     SetLength(NewCell.Polygon, 1);
@@ -618 +649 @@
   for X := 0 to FSize.X - 1 do begin
     NewCell := TCell.Create;
+    NewCell.Map := Self;
     Reverse := Boolean(X mod 2) xor Boolean(Y mod 2);
     if Reverse then Rev := -1
@@ -658 +690 @@
   for X := 0 to FSize.X - 1 do begin
     NewCell := TCell.Create;
+    NewCell.Map := Self;
     NewCell.PosPx := Point(Trunc(X * DefaultCellSize.X * SquareCellMulX),
       Trunc(Y * DefaultCellSize.Y * SquareCellMulY));
@@ -960 +993 @@
   for X := 0 to FSize.X - 1 do begin
     NewCell := TCell.Create;
+    NewCell.Map := Self;
     NewCell.PosPx := Point(X, Y);
     NewCell.Id := GetNewCellId;
@@ -971 +1005 @@
   DefaultCellSize := Point(220, 220);
   Cells := TCells.create;
+  Cells.Map := Self;
   Size := Point(0, 0);
   Image := TImage.Create(nil);
@@ -1145 +1180 @@
 end;
 
+procedure TCell.FixRefId;
+var
+  I: Integer;
+begin
+  Player := Map.Game.Players.FindById(PlayerId);
+
+  Neighbors.Count := Length(NeighborsId);
+  for I := 0 to Length(NeighborsId) - 1 do begin
+     Neighbors[I] := Map.Cells.FindById(NeighborsId[I]);
+  end;
+end;
+
 procedure TCell.LoadFromNode(Node: TDOMNode);
 var
@@ -1156 +1203 @@
   PosPx.X := ReadInteger(Node, 'PosX', 0);
   PosPx.Y := ReadInteger(Node, 'PosY', 0);
-  //Player := Map.Game.Players.FindById(ReadInteger(Node, 'Player', 0));
+  PlayerId := ReadInteger(Node, 'Player', 0);
+
+  Node3 := Node.FindNode('Neighbours');
+  if Assigned(Node3) then begin
+    SetLength(NeighborsId, 0);
+    Node2 := Node3.FirstChild;
+    while Assigned(Node2) and (Node2.NodeName = 'Neighbour') do begin
+      SetLength(NeighborsId, Length(NeighborsId) + 1);
+      NeighborsId[High(NeighborsId)] := ReadInteger(Node2, 'Id', 0);
+      Node2 := Node2.NextSibling;
+    end;
+  end;
 
   Node3 := Node.FindNode('Polygon');
@@ -1977 +2035 @@
       if Assigned(NewNode) then
         Moves.LoadFromNode(NewNode);
+
+      Map.Cells.FixRefId;
     end;
   finally
@@ -2078 +2138 @@
     CurrentPlayer := TPlayer(Players[(Players.IndexOf(CurrentPlayer) + 1) mod Players.Count]);
   until CurrentPlayer.TotalCells > 0;
-  if Players.IndexOf(CurrentPlayer) < Players.IndexOf(PrevPlayer) then Inc(TurnCounter);
+  if Players.IndexOf(CurrentPlayer) < Players.IndexOf(PrevPlayer) then begin
+    Inc(TurnCounter);
+    if Assigned(FOnNewTurn) then
+      FOnNewTurn(Self);
+  end;
   CheckWinObjective;
   // For computers take view from previous human
@@ -2364 +2428 @@
   for X := 0 to FSize.X - 1 do begin
     NewCell := TCell.Create;
+    NewCell.Map := Self;
     PX := X;
     PY := Y;