Changeset 75 for trunk/UGame.pas

Timestamp:

Oct 4, 2014, 11:33:16 PM (10 years ago)

Author:

chronos

Message:

• Added: New game option "Map shape" which can use image in file as base for map generation. Black color is used as void.
• Modified: New game dialog restructured to separate player, map and rules settings.

File:

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

trunk/UGame.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, ExtCtrls, Graphics, Contnrs, XMLConf, XMLRead, XMLWrite,
-  DOM, Math, FileUtil, UXMLUtils;
+  DOM, Math, FileUtil, UXMLUtils, Dialogs;
 
 const
@@ -91 +91 @@
   end;
 
+  TMapShape = (msRectangle, msImage);
+
   { TMap }
 
@@ -107 +109 @@
     DefaultCellSize: TPoint;
     Cells: TObjectList; // TList<TCell>
+    Shape: TMapShape;
+    Image: TImage;
+    function IsOutsideShape(Coord: TPoint): Boolean; virtual;
     function IsCellsNeighbor(Cell1, Cell2: TCell): Boolean; virtual;
     function IsValidIndex(Index: TPoint): Boolean; virtual;
@@ -266 +271 @@
     FOnWin: TWinEvent;
     FRunning: Boolean;
+    LoadedImageFileName: string;
     procedure Attack(var AttackPower, DefendPower: Integer);
     procedure MoveAll(Player: TPlayer);
@@ -277 +283 @@
     Players: TPlayers;
     Map: TMap;
+    MapImageFileName: string;
     VoidEnabled: Boolean;
     VoidPercentage: Integer;
@@ -596 +603 @@
 end;
 
+function TMap.IsOutsideShape(Coord: TPoint): Boolean;
+var
+  Rect: TRect;
+  Color: TColor;
+  Pos: TPoint;
+begin
+  case Shape of
+    msRectangle: Result := False;
+    msImage: begin
+      Rect := GetPixelRect;
+      with Image.Picture.Bitmap do begin
+        Pos := Point(Trunc(Coord.X / (Rect.Right - Rect.Left) * Width),
+          Trunc(Coord.Y / (Rect.Bottom - Rect.Top) * Height));
+        Color := Canvas.Pixels[Pos.X, Pos.Y];
+      end;
+      Result := Color <> clWhite;
+    end;
+    else Result := False;
+  end;
+end;
+
 procedure TMap.DrawArrow(Canvas: TCanvas; View: TView; Pos: TPoint;
   Angle: Double; Text: string);
@@ -655 +683 @@
   Size := Source.Size;
   DefaultCellSize := Source.DefaultCellSize;
+  Shape := Source.Shape;
   //FSize := Source.Size;
 
@@ -683 +712 @@
   DefaultCellSize.Y := ReadInteger(Node, 'DefaultCellSizeY', 1);
   MaxPower := ReadInteger(Node, 'MaxPower', 99);
+  Shape := TMapShape(ReadInteger(Node, 'Shape', Integer(msRectangle)));
 end;
 
@@ -694 +724 @@
   WriteInteger(Node, 'DefaultCellSizeY', DefaultCellSize.Y);
   WriteInteger(Node, 'MaxPower', MaxPower);
+  WriteInteger(Node, 'Shape', Integer(Shape));
   NewNode := Node.OwnerDocument.CreateElement('Cells');
   Node.AppendChild(NewNode);
@@ -828 +859 @@
   Cells := TObjectList.create;
   Size := Point(0, 0);
+  Image := TImage.Create(nil);
 end;
 
 destructor TMap.Destroy;
 begin
+  Image.Free;
   Size := Point(0, 0);
   FreeAndNil(Cells);
@@ -1691 +1724 @@
   with Config do begin
     SetValue(Path + '/GridType', Integer(MapType));
+    SetValue(Path + '/MapImage', MapImageFileName);
     SetValue(Path + '/SymetricMap', SymetricMap);
     SetValue(Path + '/VoidEnabled', VoidEnabled);
@@ -1696 +1730 @@
     SetValue(Path + '/MapSizeX', Map.Size.X);
     SetValue(Path + '/MapSizeY', Map.Size.Y);
+    SetValue(Path + '/MapShape', Integer(Map.Shape));
     SetValue(Path + '/CityEnabled', CityEnabled);
     SetValue(Path + '/CityPercentage', CityPercentage);
@@ -1710 +1745 @@
   with Config do begin
     MapType := TMapType(GetValue(Path + '/GridType', Integer(mtHexagon)));
+    MapImageFileName := GetValue(Path + '/MapImage', MapImageFileName);
     SymetricMap := GetValue(Path + '/SymetricMap', False);
     VoidEnabled := GetValue(Path + '/VoidEnabled', True);
@@ -1715 +1751 @@
     Map.Size := Point(GetValue(Path + '/MapSizeX', 10),
       GetValue(Path + '/MapSizeY', 10));
+    Map.Shape := TMapShape(GetValue(Path + '/MapShape', 0));
     CityEnabled := GetValue(Path + '/CityEnabled', False);
     CityPercentage := GetValue(Path + '/CityPercentage', 10);
@@ -1911 +1948 @@
   Players := TPlayers.Create;
 
+  MapImageFileName := 'Images/Maps/WorldMap.png';
+
   Randomize;
 
@@ -1952 +1991 @@
   TurnCounter := 1;
   Moves.Clear;
+  if (Map.Shape = msImage) and FileExists(MapImageFileName) and
+  (LoadedImageFileName <> MapImageFileName) then begin
+    LoadedImageFileName := MapImageFileName;
+    Map.Image.Picture.LoadFromFile(MapImageFileName);
+  end;
   AllCells := Map.GetAllCells;
   for C := 0 to Length(AllCells) - 1 do
   with AllCells[C] do begin
-    if VoidEnabled and (Random < VoidPercentage / 100) then Terrain := ttVoid
+    if (VoidEnabled and (Random < VoidPercentage / 100)) or
+    (Map.IsOutsideShape(PosPx)) then Terrain := ttVoid
       else begin
         if CityEnabled and (Random < CityPercentage / 100) then Terrain := ttCity
@@ -1980 +2025 @@
       StartCell := nil;
       Counter := 0;
-      while not Assigned(StartCell) or Assigned(StartCell.Player) do begin
+      while not Assigned(StartCell) or Assigned(StartCell.Player) or
+     (StartCell.Terrain = ttVoid) do begin
         StartCell := AllCells[Random(Length(AllCells))];
         Inc(Counter);