241 isMusicEnabled:= ParamStr(15) = '1'; |
241 isMusicEnabled:= ParamStr(15) = '1'; |
242 cReducedQuality:= ParamStr(16) = '1'; |
242 cReducedQuality:= ParamStr(16) = '1'; |
243 for p:= Succ(Low(TPathType)) to High(TPathType) do |
243 for p:= Succ(Low(TPathType)) to High(TPathType) do |
244 if p <> ptMapCurrent then Pathz[p]:= PathPrefix + '/' + Pathz[p] |
244 if p <> ptMapCurrent then Pathz[p]:= PathPrefix + '/' + Pathz[p] |
245 end; |
245 end; |
|
246 {$IFDEF IPHONEOS} |
|
247 0: begin |
|
248 PathPrefix:= 'hedgewars/Data'; |
|
249 recordFileName:= 'hedgewars/save.hws'; |
|
250 val('320', cScreenWidth); |
|
251 val('480', cScreenHeight); |
|
252 cInitWidth:= cScreenWidth; |
|
253 cInitHeight:= cScreenHeight; |
|
254 cBitsStr:= '32'; |
|
255 val(cBitsStr, cBits); |
|
256 val('100', cInitVolume); |
|
257 isMusicEnabled:= false; |
|
258 isSoundEnabled:= false; |
|
259 cLocaleFName:= 'en.txt'; |
|
260 cFullScreen:= false; |
|
261 cAltDamage:= false; |
|
262 cShowFPS:= false; |
|
263 val('8', cTimerInterval); |
|
264 cReducedQuality:= false; |
|
265 |
|
266 for p:= Succ(Low(TPathType)) to High(TPathType) do |
|
267 if p <> ptMapCurrent then Pathz[p]:= PathPrefix + '/' + Pathz[p] |
|
268 end; |
|
269 {$ENDIF} |
246 3: begin |
270 3: begin |
247 val(ParamStr(2), ipcPort); |
271 val(ParamStr(2), ipcPort); |
248 GameType:= gmtLandPreview; |
272 GameType:= gmtLandPreview; |
249 if ParamStr(3) <> 'landpreview' then OutError(errmsgShouldntRun, true); |
273 if ParamStr(3) <> 'landpreview' then OutError(errmsgShouldntRun, true); |
250 end; |
274 end; |