Changeset 11 for trunk/UGame.pas

Timestamp:

Feb 18, 2014, 8:15:50 PM (11 years ago)

Author:

chronos

Message:

• Added: List of moves between cells. Moves are processed after turn end.

File:

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

trunk/UGame.pas

@@ -65 +65 @@
   end;
 
+  TMove = class
+    CellFrom: TCell;
+    CellTo: TCell;
+    CountOnce: Integer;
+    CountRepeat: Integer;
+  end;
+
   { TGame }
 
   TGame = class
-    Players: TObjectList;
+  private
+    procedure MoveAll(Player: TPlayer);
+    procedure SetMove(CellFrom, CellTo: TCell; Count: Integer);
+  public
+    Players: TObjectList; // TList<TPlayer>
     Map: TMap;
     VoidEnabled: Boolean;
     CurrentPlayer: TPlayer;
+    Moves: TObjectList; // TList<TMove>
     procedure NextTurn;
     constructor Create;
@@ -149 +161 @@
     (NewSelectedCell.Y >= 0) and (NewSelectedCell.Y < Length(Game.Map.Cells)) then begin
     if IsCellsNeighbor(NewSelectedCell, SelectedCell) then begin
-      // Attack
-      TCell(Game.Map.Cells[NewSelectedCell.Y, NewSelectedCell.X]).Player := Self;
-      TCell(Game.Map.Cells[NewSelectedCell.Y, NewSelectedCell.X]).Power :=
-        TCell(Game.Map.Cells[NewSelectedCell.Y, NewSelectedCell.X]).Power +
-        TCell(Game.Map.Cells[SelectedCell.Y, SelectedCell.X]).Power;
-      TCell(Game.Map.Cells[SelectedCell.Y, SelectedCell.X]).Power := 0;
+      Game.SetMove(TCell(Game.Map.Cells[SelectedCell.Y, SelectedCell.X]),
+        TCell(Game.Map.Cells[NewSelectedCell.Y, NewSelectedCell.X]),
+        TCell(Game.Map.Cells[SelectedCell.Y, SelectedCell.X]).Power);
       SelectedCell := Point(-1, -1);
     end else
@@ -180 +189 @@
 { TGame }
 
+procedure TGame.MoveAll(Player: TPlayer);
+var
+  I: Integer;
+begin
+  for I := 0 to Moves.Count - 1 do
+  with TMove(Moves[I]) do begin
+    if CellFrom.Player = Player then begin
+      if CellTo.Player = Player then begin
+        // Inner move
+        CellTo.Power := CellTo.Power + CountOnce;
+      end else begin
+        // Fight
+        if CellTo.Power > CountOnce then begin
+          // Defender wins
+          CellTo.Power := CellTo.Power - CountOnce;
+        end else begin
+          // Attacker wins
+          CellTo.Power := CountOnce - CellTo.Power;
+          CellTo.Player := Player;
+        end;
+      end;
+      CellFrom.Power := CellFrom.Power - CountOnce;
+      CountOnce := 0;
+    end;
+  end;
+  // Remove empty moves
+  for I := Moves.Count - 1 downto 0 do
+  if (TMove(Moves[I]).CellFrom.Player = Player) and
+    (TMove(Moves[I]).CountOnce = 0) and (TMove(Moves[I]).CountRepeat = 0) then
+    Moves.Delete(I);
+end;
+
+procedure TGame.SetMove(CellFrom, CellTo: TCell; Count: Integer);
+var
+  NewMove: TMove;
+  I: Integer;
+begin
+  I := 0;
+  while (I < Moves.Count) and (TMove(Moves[I]).CellFrom <> CellFrom) and
+    (TMove(Moves[I]).CellTo <> CellTo) do Inc(I);
+  if I < Moves.Count then begin
+    // Already have such move
+    if Count = 0 then Moves.Delete(I)
+      else TMove(Moves[I]).CountOnce := Count;
+  end else begin
+    // Add new move
+    if Count > 0 then begin
+      NewMove := TMove(Moves[Moves.Add(TMove.Create)]);
+      NewMove.CellFrom := CellFrom;
+      NewMove.CellTo := CellTo;
+      NewMove.CountOnce := Count;
+    end;
+  end;
+end;
+
 procedure TGame.NextTurn;
 begin
+  MoveAll(CurrentPlayer);
   Map.Grow(CurrentPlayer);
   CurrentPlayer := TPlayer(Players[(Players.IndexOf(CurrentPlayer) + 1) mod Players.Count]);
@@ -205 +270 @@
 
   Map := TMap.Create;
+  Moves := TObjectList.Create;
 end;
 
 destructor TGame.Destroy;
 begin
+  FreeAndNil(Moves);
   FreeAndNil(Players);
   FreeAndNil(Map);