hedgewars/ArgParsers.inc
changeset 8207 5f08609613fe
parent 8204 9a6030d96273
child 8209 780e156f19ea
child 8220 67105120662c
--- a/hedgewars/ArgParsers.inc	Mon Dec 03 23:54:12 2012 +0400
+++ b/hedgewars/ArgParsers.inc	Mon Dec 03 17:38:31 2012 -0500
@@ -68,7 +68,7 @@
 begin
     WriteLn(stdout, 'Usage:');
     WriteLn(stdout, '');
-    WriteLn(stdout, '  hwengine <path to user hedgewars folder> <path to global data folder> <path to replay file> [options]');
+    WriteLn(stdout, '  hwengine [path to user hedgewars folder] <path to global data folder> <path to replay file> [options]');
     WriteLn(stdout, '');
     WriteLn(stdout, 'where [options] are any of the following:');
     WriteLn(stdout, ' --locale [path to language file]');
@@ -206,14 +206,10 @@
         end;
 end;
 
-procedure playReplayFileWithParameters();
-var paramIndex, tmpInt: LongInt;
+procedure playReplayFileWithParameters(paramIndex: LongInt);
+var tmpInt: LongInt;
     wrongParameter: boolean;
 begin
-    UserPathPrefix:= ParamStr(1);
-    PathPrefix:= ParamStr(2);
-    recordFileName:= ParamStr(3);
-    paramIndex:= 4;
     wrongParameter:= false;
     while (paramIndex <= ParamCount) do
         begin