opts: add option --wads-dir

[d2df-editor.git] / src / editor / Editor.lpr

diff --git a/src/editor/Editor.lpr b/src/editor/Editor.lpr
index 171c8564c25c7313e70c80e65dc5cd8d0ee7aa10..18f997c7c142c491e02c5f14ab87c1796c0abeba 100644 (file)
--- a/src/editor/Editor.lpr
+++ b/src/editor/Editor.lpr
@@ -113,6 +113,14 @@ uses
           Inc(i);
           EditorWad := ParamStr(i);
         end;
+      end
+      else if p = '--wads-dir' then
+      begin
+        if i + 1 <= ParamCount then
+        begin
+          Inc(i);
+          WadsDir := ParamStr(i);
+        end;
       end;
       Inc(i);
     end;
@@ -152,6 +160,7 @@ begin
   CfgFileName := EditorDir + DirectorySeparator + 'Editor.cfg';
   GameWad := EditorDir + DirectorySeparator + 'data' + DirectorySeparator + 'game.wad';
   EditorWad := EditorDir + DirectorySeparator + 'data' + DirectorySeparator + 'editor.wad';
+  WadsDir := EditorDir + DirectorySeparator + 'wads';
 
   CheckParamOptions;
   InitLogs;