Changeset 239
- Timestamp:
- Sep 21, 2018, 1:08:17 PM (6 years ago)
- Location:
- trunk
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Languages/xtactics.cs.po
r238 r239 1004 1004 msgstr "Divák" 1005 1005 1006 #: ugame.sunsupportedmaptype 1007 msgid "Unsupported map type" 1008 msgstr "Nepodporovaný typ mapy" 1009 1006 1010 #: ugame.swrongfileformat 1007 1011 msgid "Wrong file format" … … 1048 1052 msgid "64-bit UInt read overflow." 1049 1053 msgstr "Přetečení při čtení 64-bit UInt" 1050 -
trunk/Languages/xtactics.po
r238 r239 983 983 msgstr "" 984 984 985 #: ugame.sunsupportedmaptype 986 msgid "Unsupported map type" 987 msgstr "" 988 985 989 #: ugame.swrongfileformat 986 990 msgid "Wrong file format" -
trunk/UGame.pas
r238 r239 127 127 SWrongFileFormat = 'Wrong file format'; 128 128 SNewGameFile = 'New game.xtg'; 129 SUnsupportedMapType = 'Unsupported map type'; 129 130 130 131 procedure InitStrings; … … 249 250 mtVoronoi: Map := TVoronoiMap.Create; 250 251 mtIsometric: Map := TIsometricMap.Create; 251 else Map := TMap.Create;252 else raise Exception.Create(SUnsupportedMapType); 252 253 end; 253 254 Map.Game := Self; … … 503 504 RootNode := Doc.DocumentElement; 504 505 with RootNode do begin 506 MapType := TMapType(ReadInteger(RootNode, 'MapType', Integer(mtNone))); 505 507 SymetricMap := ReadBoolean(RootNode, 'SymetricMap', False); 506 508 CyclicMap := ReadBoolean(RootNode, 'CyclicMap', False); … … 555 557 AppendChild(RootNode); 556 558 with RootNode do begin 559 WriteInteger(RootNode, 'MapType', Integer(MapType)); 557 560 WriteBoolean(RootNode, 'SymetricMap', SymetricMap); 558 561 WriteBoolean(RootNode, 'CyclicMap', CyclicMap);
Note:
See TracChangeset
for help on using the changeset viewer.