X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=mp2df.pas;h=11d46e0358cc773fbfc1fd94d714bb9aac063b86;hb=8ebc68c375cd5c6e3d777a1ea7b38b7fef00c32e;hp=f25ee8889fd5f4f315b4a1a97ec8b5896d410251;hpb=6b276723bb8d528fc765792c3957c1de333617c1;p=mp2df.git

diff --git a/mp2df.pas b/mp2df.pas
index f25ee88..11d46e0 100644
--- a/mp2df.pas
+++ b/mp2df.pas
@@ -929,7 +929,7 @@ program mp2df;
 
   procedure Help;
   begin
-    WriteLn('Usage: mp2df [OPTION] FILE.dvl [OUTPUT]');
+    WriteLn('Usage: mp2df [OPTION] FILE.dlv [OUTPUT]');
     WriteLn('Options:');
     WriteLn('    -l  list textures used on map and exit');
     WriteLn('    -h  show this help');
@@ -943,7 +943,7 @@ program mp2df;
     while (i <= ParamCount) and (not done) do
     begin
       str := ParamStr(i);
-      done := str[1] <> '-';
+      done := (Length(str) = 0) or (str[1] <> '-');
       if not done then
       begin
         case str of