Changeset 281 for trunk/UGame.pas

Timestamp:

Feb 21, 2019, 10:45:41 PM (6 years ago)

Author:

chronos

Message:

• Added: New map type hexagonal horizontal.
• Added: Limit allowed map type according selected game system.

File:

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

trunk/UGame.pas

@@ -30 +30 @@
   TGrowAmount = (gaByOne, gaBySquareRoot);
   TGrowCells = (gcNone, gcPlayerCities, gcPlayerAll);
-  TMapType = (mtNone, mtHexagon, mtSquare, mtTriangle, mtRandom, mtIsometric);
   TWinObjective = (woNone, woDefeatAllOponents, woDefeatAllOponentsCities,
     woSpecialCaptureCell, woStayAliveForDefinedTurns, woCaptureEntireMap);
@@ -268 +267 @@
   case AValue of
     mtNone: Map := TMap.Create;
-    mtHexagon: Map := THexMap.Create;
+    mtHexagonVertical: Map := THexMapVertical.Create;
     mtSquare: Map := TSquareMap.Create;
     mtTriangle: Map := TTriangleMap.Create;
     mtRandom: Map := TVoronoiMap.Create;
     mtIsometric: Map := TIsometricMap.Create;
+    mtHexagonHorizontal: Map := THexMapHorizontal.Create;
     else raise Exception.Create(SUnsupportedMapType);
   end;
@@ -537 +537 @@
   with Config do begin
     StoredRandSeed := GetValue(DOMString(Path + '/RandSeed'), 0);
-    MapType := TMapType(GetValue(DOMString(Path + '/GridType'), Integer(mtHexagon)));
+    MapType := TMapType(GetValue(DOMString(Path + '/GridType'), Integer(mtHexagonVertical)));
     Map.Size := TPoint.Create(GetValue(DOMString(Path + '/MapSizeX'), 10),
       GetValue(DOMString(Path + '/MapSizeY'), 10));