9 |
9 |
10 procedure internalStartGameWithParameters(); |
10 procedure internalStartGameWithParameters(); |
11 begin |
11 begin |
12 val(ParamStr(2), cScreenWidth); |
12 val(ParamStr(2), cScreenWidth); |
13 val(ParamStr(3), cScreenHeight); |
13 val(ParamStr(3), cScreenHeight); |
14 cBitsStr:= ParamStr(4); |
14 val(ParamStr(4), cBits); |
15 val(cBitsStr, cBits); |
|
16 val(ParamStr(5), ipcPort); |
15 val(ParamStr(5), ipcPort); |
17 cFullScreen:= ParamStr(6) = '1'; |
16 cFullScreen:= ParamStr(6) = '1'; |
18 isSoundEnabled:= ParamStr(7) = '1'; |
17 isSoundEnabled:= ParamStr(7) = '1'; |
19 //cVSyncInUse:= ParamStr(8) = '1'; //merged with rqFlags |
18 isMusicEnabled:= ParamStr(8) = '1'; |
20 //cWeaponTooltips:= ParamStr(9) = '1'; //merged with rqFlags |
19 val(ParamStr(9), cInitVolume); |
21 cLocaleFName:= ParamStr(10); |
20 val(ParamStr(10), cTimerInterval); |
22 val(ParamStr(11), cInitVolume); |
21 PathPrefix:= ParamStr(11); |
23 val(ParamStr(12), cTimerInterval); |
22 cShowFPS:= ParamStr(12) = '1'; |
24 PathPrefix:= ParamStr(13); |
23 cAltDamage:= ParamStr(13) = '1'; |
25 cShowFPS:= ParamStr(14) = '1'; |
24 UserNick:= DecodeBase64(ParamStr(14)); |
26 cAltDamage:= ParamStr(15) = '1'; |
25 val(ParamStr(15), cReducedQuality); |
27 UserNick:= DecodeBase64(ParamStr(16)); |
26 cLocaleFName:= ParamStr(16); |
28 isMusicEnabled:= ParamStr(17) = '1'; |
|
29 val(ParamStr(18), cReducedQuality); |
|
30 |
27 |
31 end; |
28 end; |
32 |
29 |
33 procedure setVideo(screenWidth: LongInt; screenHeight: LongInt; bitsStr: LongInt); |
30 procedure setVideo(screenWidth: LongInt; screenHeight: LongInt; bitsStr: LongInt); |
34 begin |
31 begin |
40 procedure setVideoWithParameters(screenWidthParam: string; screenHeightParam: string; bitsParam: string); |
37 procedure setVideoWithParameters(screenWidthParam: string; screenHeightParam: string; bitsParam: string); |
41 var screenWidthAsInt, screenHeightAsInt, bitsStrAsInt: LongInt; |
38 var screenWidthAsInt, screenHeightAsInt, bitsStrAsInt: LongInt; |
42 begin |
39 begin |
43 val(screenWidthParam, screenWidthAsInt); |
40 val(screenWidthParam, screenWidthAsInt); |
44 val(screenHeightParam, screenHeightAsInt); |
41 val(screenHeightParam, screenHeightAsInt); |
45 cBitsStr:= bitsParam; |
42 val(bitsParam, bitsStrAsInt); |
46 val(cBitsStr, bitsStrAsInt); |
|
47 setVideo(screenWidthAsInt,screenHeightAsInt,bitsStrAsInt); |
43 setVideo(screenWidthAsInt,screenHeightAsInt,bitsStrAsInt); |
48 end; |
44 end; |
49 |
45 |
50 procedure setOtherOptions(languageFile: string; fullScreen: boolean); |
46 procedure setOtherOptions(languageFile: string; fullScreen: boolean); |
51 begin |
47 begin |