160 for i:= 0 to ParamCount do |
160 for i:= 0 to ParamCount do |
161 AddFileLog(inttostr(i) + ': ' + ParamStr(i)); |
161 AddFileLog(inttostr(i) + ': ' + ParamStr(i)); |
162 {$ENDIF} |
162 {$ENDIF} |
163 |
163 |
164 case ParamCount of |
164 case ParamCount of |
165 9: begin |
165 11: begin |
166 val(ParamStr(1), cScreenWidth, c); |
166 val(ParamStr(1), cScreenWidth, c); |
167 val(ParamStr(2), cScreenHeight, c); |
167 val(ParamStr(2), cScreenHeight, c); |
168 cBitsStr:= ParamStr(3); |
168 cBitsStr:= ParamStr(3); |
169 val(cBitsStr, cBits, c); |
169 val(cBitsStr, cBits, c); |
170 val(ParamStr(4), ipcPort, c); |
170 val(ParamStr(4), ipcPort, c); |
171 cFullScreen:= ParamStr(5) = '1'; |
171 cFullScreen:= ParamStr(5) = '1'; |
172 isSoundEnabled:= ParamStr(6) = '1'; |
172 isSoundEnabled:= ParamStr(6) = '1'; |
173 cLocaleFName:= ParamStr(7); |
173 cLocaleFName:= ParamStr(7); |
174 val(ParamStr(8), cInitVolume, c); |
174 val(ParamStr(8), cInitVolume, c); |
175 PathPrefix:= ParamStr(9); |
175 val(ParamStr(9), cTimerInterval, c); |
|
176 cTimerInterval:= 1024 div cTimerInterval; |
|
177 PathPrefix:= ParamStr(10); |
|
178 cShowFPS:= ParamStr(11) = '1'; |
176 for p:= Succ(Low(TPathType)) to High(TPathType) do |
179 for p:= Succ(Low(TPathType)) to High(TPathType) do |
177 if p <> ptMapCurrent then Pathz[p]:= PathPrefix + '/' + Pathz[p]; |
180 if p <> ptMapCurrent then Pathz[p]:= PathPrefix + '/' + Pathz[p]; |
178 AddClouds |
181 AddClouds |
179 end; |
182 end; |
180 2: begin |
183 2: begin |