equal
deleted
inserted
replaced
228 val(gameArgs[6], cScreenHeight); |
228 val(gameArgs[6], cScreenHeight); |
229 val(gameArgs[7], cScreenWidth); |
229 val(gameArgs[7], cScreenWidth); |
230 recordFileName:= gameArgs[8]; |
230 recordFileName:= gameArgs[8]; |
231 |
231 |
232 val(gameArgs[9], cReducedQuality); |
232 val(gameArgs[9], cReducedQuality); |
|
233 isStereoEnabled:= false; // TODO: Enable anaglyph rendering on iPhone? |
233 {$ENDIF} |
234 {$ENDIF} |
234 |
235 |
235 initEverything(true); |
236 initEverything(true); |
|
237 |
236 WriteLnToConsole('Hedgewars ' + cVersionString + ' engine (network protocol: ' + inttostr(cNetProtoVersion) + ')'); |
238 WriteLnToConsole('Hedgewars ' + cVersionString + ' engine (network protocol: ' + inttostr(cNetProtoVersion) + ')'); |
237 {$IFDEF DEBUGFILE} |
239 {$IFDEF DEBUGFILE} |
238 AddFileLog('Prefix: "' + PathPrefix +'"'); |
240 AddFileLog('Prefix: "' + PathPrefix +'"'); |
239 for i:= 0 to ParamCount do |
241 for i:= 0 to ParamCount do |
240 AddFileLog(inttostr(i) + ': ' + ParamStr(i)); |
242 AddFileLog(inttostr(i) + ': ' + ParamStr(i)); |
435 |
437 |
436 //////////////////// |
438 //////////////////// |
437 procedure GetParams; |
439 procedure GetParams; |
438 begin |
440 begin |
439 case ParamCount of |
441 case ParamCount of |
440 18: begin |
442 19: begin |
441 val(ParamStr(2), cScreenWidth); |
443 val(ParamStr(2), cScreenWidth); |
442 val(ParamStr(3), cScreenHeight); |
444 val(ParamStr(3), cScreenHeight); |
443 cBitsStr:= ParamStr(4); |
445 cBitsStr:= ParamStr(4); |
444 val(cBitsStr, cBits); |
446 val(cBitsStr, cBits); |
445 val(ParamStr(5), ipcPort); |
447 val(ParamStr(5), ipcPort); |
453 PathPrefix:= ParamStr(13); |
455 PathPrefix:= ParamStr(13); |
454 cShowFPS:= ParamStr(14) = '1'; |
456 cShowFPS:= ParamStr(14) = '1'; |
455 cAltDamage:= ParamStr(15) = '1'; |
457 cAltDamage:= ParamStr(15) = '1'; |
456 UserNick:= DecodeBase64(ParamStr(16)); |
458 UserNick:= DecodeBase64(ParamStr(16)); |
457 isMusicEnabled:= ParamStr(17) = '1'; |
459 isMusicEnabled:= ParamStr(17) = '1'; |
|
460 isStereoEnabled:= ParamStr(19) = '1'; |
458 |
461 |
459 if (ParamStr(18) = '1') then //HACK - always disable rqLowRes as it's a game breaker |
462 if (ParamStr(18) = '1') then //HACK - always disable rqLowRes as it's a game breaker |
460 cReducedQuality:= $FFFFFFFF xor rqLowRes |
463 cReducedQuality:= $FFFFFFFF xor rqLowRes |
461 else |
464 else |
462 val(ParamStr(18), cReducedQuality); |
465 val(ParamStr(18), cReducedQuality); |