Changeset 198 for trunk/UGame.pas

Timestamp:

May 16, 2018, 1:38:11 PM (6 years ago)

Author:

chronos

Message:

• Added: Capture all special cells objective is now functional. Number of such cells can be specified. They are randomly spread across map and such cells are marked with "!" symbol after its number of units.

File:

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

trunk/UGame.pas

@@ -30 +30 @@
 
   TTerrainType = (ttVoid, ttNormal, ttCity);
+  TExtraType = (etNone, etObjectiveTarget, etAttack, etDefense, etLookout,
+    etGrowLow, etGrowMedium, etGrowHigh);
 
   { TCell }
@@ -55 +57 @@
     Angle: Double; // Temporary value
     Links: TCellLinks;
+    Extra: TExtraType;
     procedure ConnectTo(Cell: TCell);
     procedure DisconnectFrom(Cell: TCell);
@@ -85 +88 @@
     function FindById(Id: Integer): TCell;
     procedure GetCellsWithWeight(List: TCells; Low, High: Integer);
+    procedure GetCellsWithExtra(List: TCells; Extra: TExtraType);
     procedure LoadFromNode(Node: TDOMNode);
     procedure SaveToNode(Node: TDOMNode);
@@ -439 +443 @@
     procedure PropagatePlayerDistance(List: TCells);
     procedure InitDefaultPlayersSetting;
+    procedure WinObjectiveMapPrepare;
   public
     DevelMode: Boolean;
@@ -455 +460 @@
     TurnCounter: Integer;
     WinObjective: TWinObjective;
-    SpecialCaptureCell: TCell;
+    SpecialCaptureCellCount: Integer;
     StayAliveForDefinedTurns: Integer;
     MaxNeutralUnits: Integer;
@@ -1020 +1025 @@
     if (Cell.Terrain <> ttVoid) and (Cell.Weight >= Low) and
       (Cell.Weight <= High) then List.Add(Cell);
+end;
+
+procedure TCells.GetCellsWithExtra(List: TCells; Extra: TExtraType);
+var
+  Cell: TCell;
+begin
+  List.Clear;
+  for Cell in Self do
+    if Cell.Extra = Extra then List.Add(Cell);
 end;
 
@@ -1496 +1510 @@
   TextSize: TSize;
 begin
+  if Cell.Extra = etObjectiveTarget then begin
+    Text := Text + '!';
+  end;
   with Canvas do begin
     if Assigned(View.FocusedCell) and (View.FocusedCell = Cell) then begin
@@ -1526 +1543 @@
 
     // Show cell text
-    if Text <> '0' then begin
+    if Cell.GetAvialPower <> 0 then begin
       Pen.Style := psSolid;
       Font.Color := clWhite;
@@ -1890 +1907 @@
   Power := ReadInteger(Node, 'Power', 0);
   Terrain := TTerrainType(ReadInteger(Node, 'Terrain', Integer(ttVoid)));
+  Extra := TExtraType(ReadInteger(Node, 'Extra', Integer(etNone)));
   PosPx.X := ReadInteger(Node, 'PosX', 0);
   PosPx.Y := ReadInteger(Node, 'PosY', 0);
@@ -1925 +1943 @@
   WriteInteger(Node, 'Power', Power);
   WriteInteger(Node, 'Terrain', Integer(Terrain));
+  WriteInteger(Node, 'Extra', Integer(Extra));
   WriteInteger(Node, 'PosX', PosPx.X);
   WriteInteger(Node, 'PosY', PosPx.Y);
@@ -2966 +2985 @@
         PaintCell(Canvas, Cell.PosPx, IntToStr(Cell.GetAvialPower), View, Cell);
       end;
-
     end;
 
@@ -3188 +3206 @@
 end;
 
+procedure TGame.WinObjectiveMapPrepare;
+var
+  Cell: TCell;
+  Cells: TCells;
+  I: Integer;
+begin
+  if WinObjective = woSpecialCaptureCell then begin
+    Cells := TCells.Create(False);
+    for I := 0 to Map.Cells.Count - 1 do
+    if (Map.Cells[I].Terrain <> ttVoid) and (Map.Cells[I].Extra <> etObjectiveTarget) then
+      Cells.Add(Map.Cells[I]);
+
+    for I := 0 to SpecialCaptureCellCount - 1 do begin
+      if Cells.Count = 0 then Break;
+      Cell := Cells[Random(Cells.Count)];
+      Cell.Extra := etObjectiveTarget;
+      Cells.Remove(Cell);
+    end;
+    Cells.Free;
+  end;
+end;
+
 procedure TGame.SaveConfig(Config: TXmlConfig; Path: string);
 begin
@@ -3207 +3247 @@
     SetValue(DOMString(Path + '/WinObjective'), Integer(WinObjective));
     SetValue(DOMString(Path + '/StayAliveForDefinedTurns'), StayAliveForDefinedTurns);
+    SetValue(DOMString(Path + '/SpecialCaptureCellCount'), SpecialCaptureCellCount);
     PlayersSetting.SaveConfig(Config, Path + '/Players');
   end;
@@ -3240 +3281 @@
       WinObjective := TWinObjective(Value) else WinObjective := Low(TWinObjective);
     StayAliveForDefinedTurns := GetValue(DOMString(Path + '/StayAliveForDefinedTurns'), 20);
+    SpecialCaptureCellCount := GetValue(DOMString(Path + '/SpecialCaptureCellCount'), 1);
     PlayersSetting.LoadConfig(Config, Path + '/Players');
   end;
@@ -3412 +3454 @@
   AlivePlayers: TPlayerArray;
   Winner: TPlayer;
+  Cells: TCells;
+  Player: TPlayer;
+  R: Boolean;
+  I: Integer;
 begin
   Winner := nil;
@@ -3429 +3475 @@
   end else
   if WinObjective = woSpecialCaptureCell then begin
-    if Assigned(SpecialCaptureCell) and Assigned(SpecialCaptureCell.Player) then
-      EndGame(SpecialCaptureCell.Player);
+    Cells := TCells.Create(False);
+    Map.Cells.GetCellsWithExtra(Cells, etObjectiveTarget);
+    R := True;
+    for I := 0 to Cells.Count - 1 do begin
+      if I = 0 then Player := Cells[I].Player;
+      if not Assigned(Cells[I].Player) or (Cells[I].Player <> Player) then begin
+        R := False;
+        Break;
+      end;
+    end;
+    if R then EndGame(Player);
+    Cells.Free;
   end else
   if WinObjective = woStayAliveForDefinedTurns then begin
@@ -3485 +3541 @@
   Map.MaxPower := MaxPower;
   BuildTerrain;
+  WinObjectiveMapPrepare;
 
   // Build bridges