Changeset 42 for trunk/UGame.pas

Timestamp:

Mar 18, 2014, 12:16:04 AM (11 years ago)

Author:

chronos

Message:

• Added: Min and Max buttons on unit move form for easy usual actions.
• Added: Win objective can be selected on New game form.
• Added: Max number of netureal starting units per cell cen be adjusted.
• Added: Unit count is shown in move arrows.

File:

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

trunk/UGame.pas

@@ -39 +39 @@
     Terrain: TTerrainType;
     Player: TPlayer;
-    MovesFrom: TObjectList;
-    MovesTo: TObjectList;
+    MovesFrom: TObjectList; // TList<TMove>
+    MovesTo: TObjectList; // TList<TMove>
     function GetColor: TColor;
     function GetAvialPower: Integer;
@@ -87 +87 @@
     MaxPower: Integer;
     DefaultCellSize: TPoint;
-    procedure DrawArrow(Canvas: TCanvas; View: TView; Pos: TPoint; Angle: Double; Size: TPoint);
+    procedure DrawArrow(Canvas: TCanvas; View: TView; Pos: TPoint; Angle: Double;
+      Size: TPoint; Text: string);
     function IsCellsNeighbor(Cell1, Cell2: TCell): Boolean; virtual;
     function IsValidIndex(Index: TPoint): Boolean; virtual;
@@ -169 +170 @@
     TotalUnits: Integer;
     TotalCells: Integer;
+    TotalCities: Integer;
     StartUnits: Integer;
     procedure ComputerTurn;
@@ -184 +186 @@
   end;
 
-  { TMove }
-
-  TMove = class
+  { TUnitMove }
+
+  TUnitMove = class
   private
     FCellFrom: TCell;
@@ -194 +196 @@
     procedure SetCellTo(AValue: TCell);
   public
-    List: TObjectList; // TList<TMove>
+    List: TObjectList; // TList<TUnitMove>
     CountOnce: Integer;
     CountRepeat: Integer;
@@ -211 +213 @@
   TGrowCells = (gcNone, gcPlayerCities, gcPlayerAll);
   TMapType = (mtNone, mtHexagon, mtSquare);
+  TWinObjective = (woDefeatAllOponents, woDefeatAllOponentsCities,
+    woSpecialCaptureCell, woStayAliveForDefinedTurns);
 
   TGame = class
@@ -235 +239 @@
     CityPercentage: Integer;
     CurrentPlayer: TPlayer;
-    Moves: TObjectList; // TList<TMove>
+    Moves: TObjectList; // TList<TUnitMove>
     TurnCounter: Integer;
+    WinObjective: TWinObjective;
+    SpecialCaptureCell: TCell;
+    StayAliveForDefinedTurns: Integer;
+    MaxNeutralUnits: Integer;
     procedure SaveConfig(Config: TXmlConfig; Path: string);
     procedure LoadConfig(Config: TXmlConfig; Path: string);
     procedure ComputePlayerStats;
     function GetAlivePlayers: TPlayerArray;
+    function GetAlivePlayersWithCities: TPlayerArray;
     procedure NextTurn;
+    procedure CheckWinObjective;
     constructor Create;
     destructor Destroy; override;
     procedure New;
+    procedure EndGame(Winner: TPlayer = nil);
     property Running: Boolean read FRunning write SetRunning;
     property MapType: TMapType read FMapType write SetMapType;
@@ -517 +528 @@
           for I := 0 to Cell.MovesFrom.Count - 1 do begin
             PosFrom := CellToPos(Cell);
-            PosTo := CellToPos(TMove(Cell.MovesFrom[I]).CellTo);
-            if TMove(Cell.MovesFrom[I]).CountRepeat > 0 then Pen.Width := 2
+            PosTo := CellToPos(TUnitMove(Cell.MovesFrom[I]).CellTo);
+            if TUnitMove(Cell.MovesFrom[I]).CountRepeat > 0 then Pen.Width := 2
               else Pen.Width := 1;
             Angle := ArcTan((PosTo.Y - PosFrom.Y) / (PosTo.X - PosFrom.X));
@@ -524 +535 @@
             DrawArrow(Canvas, View, View.CellToCanvasPos(Point(Trunc(PosFrom.X + (PosTo.X - PosFrom.X) / 3),
               Trunc(PosFrom.Y + (PosTo.Y - PosFrom.Y) / 3))),
-              Angle, Point(Trunc(HexSize.X / 4), Trunc(HexSize.Y / 4)));
+              Angle, Point(Trunc(HexSize.X / 4), Trunc(HexSize.Y / 4)),
+              IntToStr(TUnitMove(Cell.MovesFrom[I]).CountOnce));
             Pen.Width := 1;
           end;
@@ -557 +569 @@
 end;
 
-procedure TMap.DrawArrow(Canvas: TCanvas; View: TView; Pos: TPoint; Angle: Double; Size: TPoint);
+procedure TMap.DrawArrow(Canvas: TCanvas; View: TView; Pos: TPoint;
+  Angle: Double; Size: TPoint; Text: string);
 var
   Points: array of TPoint;
@@ -582 +595 @@
   for I := 0 to Length(Points) - 1 do
     Points[I] := Point(Trunc(FPoints[I].X + Pos.X), Trunc(FPoints[I].Y + Pos.Y));
-  Canvas.Polygon(Points);
+  with Canvas do begin
+    Polygon(Points);
+    Brush.Style := bsClear;
+    Font.Color := clBlack;
+    Font.Size := Trunc(4 * View.Zoom);
+    TextOut(Pos.X - TextWidth(Text) div 2,
+      Pos.Y - TextHeight(Text) div 2, Text);
+    Pen.Width := 1;
+  end;
 end;
 
@@ -656 +677 @@
       Player.TotalCells := Player.TotalCells + 1;
       Player.TotalUnits := Player.TotalUnits + Power;
+      if Terrain = ttCity then
+        Player.TotalCities := Player.TotalCities + 1;
     end;
   end;
@@ -714 +737 @@
 end;
 
-{ TMove }
-
-procedure TMove.SetCellFrom(AValue: TCell);
+{ TUnitMove }
+
+procedure TUnitMove.SetCellFrom(AValue: TCell);
 begin
   if FCellFrom = AValue then Exit;
@@ -728 +751 @@
 end;
 
-procedure TMove.SetCellTo(AValue: TCell);
+procedure TUnitMove.SetCellTo(AValue: TCell);
 begin
   if FCellTo = AValue then Exit;
@@ -740 +763 @@
 end;
 
-constructor TMove.Create;
+constructor TUnitMove.Create;
 begin
   FCellFrom := nil;
@@ -746 +769 @@
 end;
 
-destructor TMove.Destroy;
+destructor TUnitMove.Destroy;
 var
   LastState: Boolean;
@@ -831 +854 @@
   Result := Power;
   for I := 0 to MovesFrom.Count - 1 do
-    Result := Result - TMove(MovesFrom[I]).CountOnce;
+    Result := Result - TUnitMove(MovesFrom[I]).CountOnce;
   if Result < 0 then Result := 0;
 end;
@@ -849 +872 @@
 begin
   for I := MovesFrom.Count - 1 downto 0 do
-    TMove(MovesFrom[I]).Free;
+    TUnitMove(MovesFrom[I]).Free;
   FreeAndNil(MovesFrom);
   for I := MovesTo.Count - 1 downto 0 do
-    TMove(MovesTo[I]).Free;
+    TUnitMove(MovesTo[I]).Free;
   FreeAndNil(MovesTo);
   inherited Destroy;
@@ -1048 +1071 @@
   I := 0;
   while I < Moves.Count do
-  with TMove(Moves[I]) do begin
+  with TUnitMove(Moves[I]) do begin
   if CountOnce > 0 then begin
     if CellFrom.Player = Player then begin
@@ -1078 +1101 @@
   // 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
+  if (TUnitMove(Moves[I]).CellFrom.Player = Player) and
+    (TUnitMove(Moves[I]).CountOnce = 0) and (TUnitMove(Moves[I]).CountRepeat = 0) then
     Moves.Delete(I);
 end;
@@ -1088 +1111 @@
 begin
   for I := Moves.Count - 1 downto 0 do
-  if TMove(Moves[I]).CellFrom = Cell then
+  if TUnitMove(Moves[I]).CellFrom = Cell then
     Moves.Delete(I);
 end;
@@ -1110 +1133 @@
 procedure TGame.SetMove(CellFrom, CellTo: TCell; Power: Integer);
 var
-  NewMove: TMove;
-  OldMove: TMove;
+  NewMove: TUnitMove;
+  OldMove: TUnitMove;
   I: Integer;
   CountOnce: Integer;
@@ -1118 +1141 @@
 begin
   I := 0;
-  while (I < Moves.Count) and ((TMove(Moves[I]).CellFrom <> CellFrom) or
-    (TMove(Moves[I]).CellTo <> CellTo)) do Inc(I);
-  if I < Moves.Count then OldMove := TMove(Moves[I])
+  while (I < Moves.Count) and ((TUnitMove(Moves[I]).CellFrom <> CellFrom) or
+    (TUnitMove(Moves[I]).CellTo <> CellTo)) do Inc(I);
+  if I < Moves.Count then OldMove := TUnitMove(Moves[I])
     else OldMove := nil;
   if Assigned(OldMove) then begin
@@ -1138 +1161 @@
     if (CountOnce = 0) and (CountRepeat = 0) then Moves.Delete(I)
       else begin
-        TMove(Moves[I]).CountOnce := CountOnce;
-        TMove(Moves[I]).CountRepeat := CountRepeat;
+        TUnitMove(Moves[I]).CountOnce := CountOnce;
+        TUnitMove(Moves[I]).CountRepeat := CountRepeat;
       end;
   end else begin
     // Add new move
     if (CountOnce > 0) or (CountRepeat > 0) then begin
-      NewMove := TMove(Moves[Moves.Add(TMove.Create)]);
+      NewMove := TUnitMove(Moves[Moves.Add(TUnitMove.Create)]);
       NewMove.List := Moves;
       NewMove.CellFrom := CellFrom;
@@ -1177 +1200 @@
 begin
   for I := 0 to Moves.Count - 1 do
-  with TMove(Moves[I]) do begin
+  with TUnitMove(Moves[I]) do begin
     if CellFrom.Player = Player then
       if CountRepeat <= CellFrom.GetAvialPower then
@@ -1197 +1220 @@
     SetValue(Path + '/GrowAmount', Integer(GrowAmount));
     SetValue(Path + '/GrowCells', Integer(GrowCells));
+    SetValue(Path + '/WinObjective', Integer(WinObjective));
   end;
 end;
@@ -1212 +1236 @@
     GrowAmount := TGrowAmount(GetValue(Path + '/GrowAmount', Integer(gaBySquareRoot)));
     GrowCells := TGrowCells(GetValue(Path + '/GrowCells', Integer(gcPlayerAll)));
+    WinObjective := TWinObjective(GetValue(Path + '/WinObjective', Integer(woDefeatAllOponents)));
   end;
 end;
@@ -1223 +1248 @@
     TotalUnits := 0;
     TotalCells := 0;
+    TotalCities := 0;
   end;
   Map.ComputePlayerStats;
@@ -1239 +1265 @@
 end;
 
+function TGame.GetAlivePlayersWithCities: TPlayerArray;
+var
+  I: Integer;
+begin
+  SetLength(Result, 0);
+  for I := 0 to Players.Count - 1 do
+    if TPlayer(Players[I]).TotalCities > 0 then begin
+      SetLength(Result, Length(Result) + 1);
+      Result[Length(Result) - 1] := TPlayer(Players[I]);
+    end;
+end;
+
 procedure TGame.NextTurn;
 var
   PrevPlayer: TPlayer;
-  AlivePlayers: TPlayerArray;
 begin
   MoveAll(CurrentPlayer);
@@ -1253 +1290 @@
   until CurrentPlayer.TotalCells > 0;
   if Players.IndexOf(CurrentPlayer) < Players.IndexOf(PrevPlayer) then Inc(TurnCounter);
-  AlivePlayers := GetAlivePlayers;
-  if (Length(AlivePlayers) <= 1) then begin
-    Running := False;
-    if Assigned(OnWin) and (Length(AlivePlayers) > 0) then OnWin(TPlayer(AlivePlayers[0]));
-  end;
+  CheckWinObjective;
   UpdateRepeatMoves(CurrentPlayer);
   // For computers take view from previous human
   if CurrentPlayer.Mode = pmComputer then CurrentPlayer.View.Assign(PrevPlayer.View);
+end;
+
+procedure TGame.CheckWinObjective;
+var
+  AlivePlayers: TPlayerArray;
+  Winner: TPlayer;
+begin
+  Winner := nil;
+  if WinObjective = woDefeatAllOponents then begin
+    AlivePlayers := GetAlivePlayers;
+    if (Length(AlivePlayers) <= 1) then begin
+      if Length(AlivePlayers) > 0 then Winner := TPlayer(AlivePlayers[0]);
+      EndGame(Winner);
+    end;
+  end else
+  if WinObjective = woDefeatAllOponentsCities then begin
+    AlivePlayers := GetAlivePlayersWithCities;
+    if (Length(AlivePlayers) <= 1) then begin
+      if Length(AlivePlayers) > 0 then Winner := TPlayer(AlivePlayers[0]);
+      EndGame(Winner);
+    end;
+  end else
+  if WinObjective = woSpecialCaptureCell then begin
+    if Assigned(SpecialCaptureCell) and Assigned(SpecialCaptureCell.Player) then
+      EndGame(SpecialCaptureCell.Player);
+  end else
+  if WinObjective = woStayAliveForDefinedTurns then begin
+    // TODO: Not only one can win but multiple human players can survive.
+    if TurnCounter > StayAliveForDefinedTurns then
+      EndGame(nil);
+  end;
 end;
 
@@ -1287 +1351 @@
   VoidEnabled := True;
   VoidPercentage := 20;
+  MaxNeutralUnits := 4;
 
   Map.Game := Self;
@@ -1320 +1385 @@
           else Terrain := ttNormal;
       end;
-    Power := Random(4);
+    Power := Random(MaxNeutralUnits + 1);
     Player := nil;
   end;
@@ -1336 +1401 @@
           raise Exception.Create(SCannotSetPlayerStartCells);
       end;
-      if CityEnabled then StartCell.Terrain := ttCity
-        else StartCell.Terrain := ttNormal;
+      StartCell.Terrain := ttCity;
       StartCell.Player := TPlayer(Players[I]);
       StartCell.Power := TPlayer(Players[I]).StartUnits;
@@ -1345 +1409 @@
   end;
   CurrentPlayer := TPlayer(Players[0]);
+end;
+
+procedure TGame.EndGame(Winner: TPlayer = nil);
+begin
+  Running := False;
+  if Assigned(OnWin) and Assigned(Winner) then OnWin(Winner);
 end;
 
@@ -1533 +1603 @@
   PosFrom, PosTo: TPoint;
   Angle: Double;
+  ArrowCenter: TPoint;
 
 procedure PaintHexagon(Pos: TPoint; Text: string);
@@ -1596 +1667 @@
           for I := 0 to Cell.MovesFrom.Count - 1 do begin
             PosFrom := CellToPos(Cell);
-            PosTo := CellToPos(TMove(Cell.MovesFrom[I]).CellTo);
-            if TMove(Cell.MovesFrom[I]).CountRepeat > 0 then Pen.Width := 2
+            PosTo := CellToPos(TUnitMove(Cell.MovesFrom[I]).CellTo);
+            if TUnitMove(Cell.MovesFrom[I]).CountRepeat > 0 then Pen.Width := 2
               else Pen.Width := 1;
             Angle := ArcTan((PosTo.Y - PosFrom.Y) / (PosTo.X - PosFrom.X));
             if Sign(PosTo.X - PosFrom.X) = -1 then Angle := Angle + Pi;
-            DrawArrow(Canvas, View, View.CellToCanvasPos(Point(Trunc(PosFrom.X + (PosTo.X - PosFrom.X) / 3),
-              Trunc(PosFrom.Y + (PosTo.Y - PosFrom.Y) / 3))),
-              Angle, Point(Trunc(HexSize.X / 4), Trunc(HexSize.Y / 4)));
-            Pen.Width := 1;
+            ArrowCenter := View.CellToCanvasPos(Point(Trunc(PosFrom.X + (PosTo.X - PosFrom.X) / 3),
+              Trunc(PosFrom.Y + (PosTo.Y - PosFrom.Y) / 3)));
+            DrawArrow(Canvas, View, ArrowCenter,
+              Angle, Point(Trunc(HexSize.X / 4), Trunc(HexSize.Y / 4)),
+              IntToStr(TUnitMove(Cell.MovesFrom[I]).CountOnce));
           end;
         end;