21 var tmp: LongInt; |
21 var tmp: LongInt; |
22 begin |
22 begin |
23 UserPathPrefix:= ParamStr(1); |
23 UserPathPrefix:= ParamStr(1); |
24 cScreenWidth:= StrToInt(ParamStr(2)); |
24 cScreenWidth:= StrToInt(ParamStr(2)); |
25 cScreenHeight:= StrToInt(ParamStr(3)); |
25 cScreenHeight:= StrToInt(ParamStr(3)); |
26 cBits:= StrToInt(ParamStr(4)); |
26 //cBits:= StrToInt(ParamStr(4)); |
27 ipcPort:= StrToInt(ParamStr(5)); |
27 ipcPort:= StrToInt(ParamStr(5)); |
28 cFullScreen:= ParamStr(6) = '1'; |
28 cFullScreen:= ParamStr(6) = '1'; |
29 SetSound(ParamStr(7) = '1'); |
29 SetSound(ParamStr(7) = '1'); |
30 SetMusic(ParamStr(8) = '1'); |
30 SetMusic(ParamStr(8) = '1'); |
31 SetVolume(StrToInt(ParamStr(9))); |
31 SetVolume(StrToInt(ParamStr(9))); |
154 {--showfps} 10 : cShowFPS := true; |
154 {--showfps} 10 : cShowFPS := true; |
155 {--altdmg} 11 : cAltDamage := true; |
155 {--altdmg} 11 : cAltDamage := true; |
156 {--low-quality} 12 : cReducedQuality:= $FFFFFFFF xor rqLowRes; |
156 {--low-quality} 12 : cReducedQuality:= $FFFFFFFF xor rqLowRes; |
157 {--raw-quality} 13 : cReducedQuality:= getLongIntParameter(arg, paramIndex, parseParameter); |
157 {--raw-quality} 13 : cReducedQuality:= getLongIntParameter(arg, paramIndex, parseParameter); |
158 {deprecated options} |
158 {deprecated options} |
159 {--depth} 14 : cBits := getLongIntParameter(arg, paramIndex, parseParameter); |
159 {--depth} 14 : {do nothing}; |
160 {--set-video} 15 : parseClassicParameter(videoArray,3,paramIndex); |
160 {--set-video} 15 : parseClassicParameter(videoArray,3,paramIndex); |
161 {--set-audio} 16 : parseClassicParameter(audioArray,3,paramIndex); |
161 {--set-audio} 16 : parseClassicParameter(audioArray,3,paramIndex); |
162 {--set-other} 17 : parseClassicParameter(otherArray,3,paramIndex); |
162 {--set-other} 17 : parseClassicParameter(otherArray,3,paramIndex); |
163 {--set-multimedia} 18 : parseClassicParameter(mediaArray,8,paramIndex); |
163 {--set-multimedia} 18 : parseClassicParameter(mediaArray,8,paramIndex); |
164 {--set-everything} 19 : parseClassicParameter(allArray,12,paramIndex); |
164 {--set-everything} 19 : parseClassicParameter(allArray,12,paramIndex); |