Changeset 239

Timestamp:

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

Author:

chronos

Message:

• Fixed: Store map type in saved game files.

Location:

trunk

Files:

• Languages/xtactics.cs.po (modified) (2 diffs)
• Languages/xtactics.po (modified) (1 diff)
• UGame.pas (modified) (4 diffs)

trunk/Languages/xtactics.cs.po

@@ -1004 +1004 @@
 msgstr "Divák"
 
+#: ugame.sunsupportedmaptype
+msgid "Unsupported map type"
+msgstr "Nepodporovaný typ mapy"
+
 #: ugame.swrongfileformat
 msgid "Wrong file format"
@@ -1048 +1052 @@
 msgid "64-bit UInt read overflow."
 msgstr "Přetečení při čtení 64-bit UInt"
-

trunk/Languages/xtactics.po

@@ -983 +983 @@
 msgstr ""
 
+#: ugame.sunsupportedmaptype
+msgid "Unsupported map type"
+msgstr ""
+
 #: ugame.swrongfileformat
 msgid "Wrong file format"

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);