Changeset 239 for trunk/UGame.pas

Timestamp:

Sep 21, 2018, 1:08:17 PM (6 years ago)

Author:

chronos

Message:

• Fixed: Store map type in saved game files.

File:

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

trunk/UGame.pas

@@ -127 +127 @@
   SWrongFileFormat = 'Wrong file format';
   SNewGameFile = 'New game.xtg';
+  SUnsupportedMapType = 'Unsupported map type';
 
 procedure InitStrings;
@@ -249 +250 @@
     mtVoronoi: Map := TVoronoiMap.Create;
     mtIsometric: Map := TIsometricMap.Create;
-    else Map := TMap.Create;
+    else raise Exception.Create(SUnsupportedMapType);
   end;
   Map.Game := Self;
@@ -503 +504 @@
     RootNode := Doc.DocumentElement;
     with RootNode do begin
+      MapType := TMapType(ReadInteger(RootNode, 'MapType', Integer(mtNone)));
       SymetricMap := ReadBoolean(RootNode, 'SymetricMap', False);
       CyclicMap := ReadBoolean(RootNode, 'CyclicMap', False);
@@ -555 +557 @@
     AppendChild(RootNode);
     with RootNode do begin
+      WriteInteger(RootNode, 'MapType', Integer(MapType));
       WriteBoolean(RootNode, 'SymetricMap', SymetricMap);
       WriteBoolean(RootNode, 'CyclicMap', CyclicMap);