equal
deleted
inserted
replaced
66 |
66 |
67 procedure DisplayUsage; |
67 procedure DisplayUsage; |
68 begin |
68 begin |
69 WriteLn(stdout, 'Usage:'); |
69 WriteLn(stdout, 'Usage:'); |
70 WriteLn(stdout, ''); |
70 WriteLn(stdout, ''); |
71 WriteLn(stdout, ' hwengine <path to user hedgewars folder> <path to global data folder> <path to replay file> [options]'); |
71 WriteLn(stdout, ' hwengine [path to user hedgewars folder] <path to global data folder> <path to replay file> [options]'); |
72 WriteLn(stdout, ''); |
72 WriteLn(stdout, ''); |
73 WriteLn(stdout, 'where [options] are any of the following:'); |
73 WriteLn(stdout, 'where [options] are any of the following:'); |
74 WriteLn(stdout, ' --locale [path to language file]'); |
74 WriteLn(stdout, ' --locale [path to language file]'); |
75 WriteLn(stdout, ' --width [screen width in pixels]'); |
75 WriteLn(stdout, ' --width [screen width in pixels]'); |
76 WriteLn(stdout, ' --height [screen height in pixels]'); |
76 WriteLn(stdout, ' --height [screen height in pixels]'); |
193 // paramIndex:= paramIndex+1; |
193 // paramIndex:= paramIndex+1; |
194 index:= index+1; |
194 index:= index+1; |
195 end; |
195 end; |
196 end; |
196 end; |
197 |
197 |
198 procedure playReplayFileWithParameters(); |
198 procedure playReplayFileWithParameters(paramIndex: LongInt); |
199 var paramIndex, tmpInt: LongInt; |
199 var wrongParameter: boolean; |
200 wrongParameter: boolean; |
200 begin |
201 begin |
|
202 UserPathPrefix:= ParamStr(1); |
|
203 PathPrefix:= ParamStr(2); |
|
204 recordFileName:= ParamStr(3); |
|
205 paramIndex:= 4; |
201 paramIndex:= 4; |
206 wrongParameter:= false; |
202 wrongParameter:= false; |
207 while (paramIndex <= ParamCount) do |
203 while (paramIndex <= ParamCount) do |
208 begin |
204 begin |
209 if parseParameter( ParamStr(paramIndex), ParamStr(paramIndex+1), paramIndex) then |
205 if parseParameter( ParamStr(paramIndex), ParamStr(paramIndex+1), paramIndex) then |