Changeset 113 for trunk

Timestamp:

Feb 3, 2018, 11:32:34 AM (7 years ago)

Author:

chronos

Message:

• Added: All map files downloadable for original game.
• Fixed: Copy map files from program files to application data.

Location:

trunk

Files:

• Components/Directories.pas (modified) (1 diff)
• LocalPlayer/Diagram.pas (modified) (1 diff)
• Maps (added)
• Maps/(TF) Barren.cevo map (added)
• Maps/(TF) Barren.png (added)
• Maps/(TF) Great Aviator.cevo map (added)
• Maps/(TF) Great Aviator.png (added)
• Maps/(TF) Great Explorer.cevo map (added)
• Maps/(TF) Great Explorer.png (added)
• Maps/(TF) Great Navigator.cevo map (added)
• Maps/(TF) Great Navigator.png (added)
• Maps/(TF) Ikarus.cevo map (added)
• Maps/(TF) Ikarus.png (added)
• Maps/(TF) Land Rush.cevo map (added)
• Maps/(TF) Land Rush.png (added)
• Maps/(TF) Local Skirmishes.cevo map (added)
• Maps/(TF) Local Skirmishes.png (added)
• Maps/(TF) Niemandsland.cevo map (added)
• Maps/(TF) Niemandsland.png (added)
• Maps/(TF) One World.cevo map (added)
• Maps/(TF) One World.png (added)
• Maps/(TF) The Grid.cevo map (added)
• Maps/(TF) The Grid.png (added)
• Maps/(TF) Treasure Island.cevo map (added)
• Maps/(TF) Treasure Island.png (added)
• Maps/020x044.cevo map (added)
• Maps/020x044.png (added)
• Maps/020x060.cevo map (added)
• Maps/020x060.png (added)
• Maps/030x062.cevo map (added)
• Maps/030x062.png (added)
• Maps/030x084.cevo map (added)
• Maps/030x084.png (added)
• Maps/040x070.cevo map (added)
• Maps/040x070.png (added)
• Maps/040x094.cevo map (added)
• Maps/040x094.png (added)
• Maps/050x096.cevo map (added)
• Maps/050x096.png (added)
• Maps/060x052.cevo map (added)
• Maps/060x052.png (added)
• Maps/080x068.cevo map (added)
• Maps/080x068.png (added)
• Maps/080x096.cevo map (added)
• Maps/080x096.png (added)
• Maps/100x058.cevo map (added)
• Maps/100x058.png (added)
• Maps/AI Pile-up.cevo map (added)
• Maps/Big Interior.cevo map (added)
• Maps/Concept-Equal.cevo map (added)
• Maps/Dêugi LÑd.cevo map (added)
• Maps/Earth.cevo map (added)
• Maps/Earth.png (added)
• Maps/Foodless Land.cevo map (added)
• Maps/Golden Planet.cevo map (added)
• Maps/Great Isle.cevo map (added)
• Maps/Isolated 1.cevo map (added)
• Maps/Isolated 2.cevo map (added)
• Maps/MIFUDD_2ContinentsNormalMap14.cevo map (added)
• Maps/MIFUDD_5ContinentNormalMap4.cevo map (added)
• Maps/MIFUDD_Continent1ExitBigMap14.cevo map (added)
• Maps/MIFUDD_Island1ExitBigMap14.cevo map (added)
• Maps/MIFUDD_Islands1ExitNormalMap14.cevo map (added)
• Maps/MIFUDD_IslandsTest2.cevo map (added)
• Maps/MIFUDD_TestMap3.cevo map (added)
• Maps/MyEarth.cevo map (added)
• Maps/MyEarth.txt (added)
• Maps/MyGameNewZealand.cevo (added)
• Maps/No Space for Living.cevo map (added)
• Maps/Peninsulas & Deserted Circle.cevo map (added)
• Maps/RIft Seas.cevo map (added)
• Maps/Rounded Island.cevo map (added)
• Maps/Sea of Nations.cevo map (added)
• Maps/Two Connected Islands.cevo map (added)
• Maps/Two Islands & a Crater Story.txt (added)
• Maps/Two Islands & a Crater.cevo map (added)
• Maps/Two Nations on each Peninsula.cevo map (added)
• Maps/World.cevo map (added)
• Maps/readme.txt (added)
• Maps/world.png (added)
• Saved (added)
• Saved/(Example).cevo (added)

trunk/Components/Directories.pas

@@ -79 +79 @@
 
   // Copy appdata if not done yet
-  if FindFirst(HomeDir + 'AppData' + DirectorySeparator + 'Saved' + DirectorySeparator + '*.cevo', $21, src) = 0 then
+  if FindFirst(HomeDir + 'Saved' + DirectorySeparator + '*.cevo', $21, src) = 0 then
     repeat
       if (FindFirst(DataDir + 'Saved' + DirectorySeparator + src.Name, $21, dst) <> 0) or
         (dst.Time < src.Time) then
-        CopyFile(PChar(HomeDir + 'AppData' + DirectorySeparator + 'Saved' + DirectorySeparator + src.Name),
+        CopyFile(PChar(HomeDir + 'Saved' + DirectorySeparator + src.Name),
           PChar(DataDir + 'Saved' + DirectorySeparator + src.Name), false);
+      FindClose(dst);
+    until FindNext(src) <> 0;
+  FindClose(src);
+
+  // Copy appdata if not done yet
+  if FindFirst(HomeDir + 'Maps' + DirectorySeparator + '*.*', $21, src) = 0 then
+    repeat
+      if (FindFirst(DataDir + 'Maps' + DirectorySeparator + src.Name, $21, dst) <> 0) or
+        (dst.Time < src.Time) then
+        CopyFile(PChar(HomeDir + 'Maps' + DirectorySeparator + src.Name),
+          PChar(DataDir + 'Maps' + DirectorySeparator + src.Name), false);
       FindClose(dst);
     until FindNext(src) <> 0;

trunk/LocalPlayer/Diagram.pas

@@ -129 +129 @@
   inherited;
   TitleHeight := WideFrame + 20;
-  InnerHeight := ClientHeight - TitleHeight - NarrowFrame;
+  InnerHeight := Height - TitleHeight - NarrowFrame;
   CaptionRight := CloseBtn.Left;
   CaptionLeft := ToggleBtn.Left + ToggleBtn.Width;