Changeset 339 for trunk/Direct.pas

Timestamp:

Apr 1, 2021, 6:12:35 PM (4 years ago)

Author:

chronos

Message:

• Fixed: Cevo map extension ".cevo map" was not valid Windows file extension and it was not possible to associate an application with such extension. Changed to ".cevomap" without space character.
• Added: .cevomap files associated with C-evo executable. Open map editor directly for the files.

File:

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

trunk/Direct.pas

@@ -43 +43 @@
 
 uses
-  ScreenTools, Protocol, Start, LocalPlayer, NoTerm, Back;
+  ScreenTools, Protocol, Start, LocalPlayer, NoTerm, Back, Global;
 
 {$R *.lfm}
@@ -204 +204 @@
   i: integer;
   s: string;
+  FileName: string;
 begin
   Hide;
@@ -229 +230 @@
       end;
     end
-    else if (FileExists(ParamStr(1))) then
-    begin
-      Quick := True;
-      if not LoadGame(ExtractFilePath(ParamStr(1)), ExtractFileName(ParamStr(1)
-        ), -1, false) then
-      begin
+    else if (FileExists(ParamStr(1))) then begin
+      FileName := ParamStr(1);
+      if ExtractFileExt(FileName) = CevoExt then begin
+        Quick := True;
+        if not LoadGame(ExtractFilePath(ParamStr(1)), ExtractFileName(ParamStr(1)
+        ), -1, false) then begin
+          SimpleMessage(Phrases.Lookup('LOADERR'));
+          Close;
+        end;
+      end else
+      if ExtractFileExt(FileName) = CevoMapExt then begin
+        Quick := True;
+        EditMap(FileName, lxmax, lymax, 30);
+      end else begin
         SimpleMessage(Phrases.Lookup('LOADERR'));
         Close;