59 else if tmp <= 9 then |
59 else if tmp <= 9 then |
60 cStereoMode:= TStereoMode(max(0, min(ord(high(TStereoMode)), tmp))) |
60 cStereoMode:= TStereoMode(max(0, min(ord(high(TStereoMode)), tmp))) |
61 else |
61 else |
62 cStereoMode:= TStereoMode(max(0, min(ord(high(TStereoMode)), tmp-6))); |
62 cStereoMode:= TStereoMode(max(0, min(ord(high(TStereoMode)), tmp-6))); |
63 cLocaleFName:= ParamStr(17); |
63 cLocaleFName:= ParamStr(17); |
|
64 end; |
|
65 |
64 {$IFDEF USE_VIDEO_RECORDING} |
66 {$IFDEF USE_VIDEO_RECORDING} |
|
67 procedure internalStartVideoRecordingWithParameters(); |
|
68 begin |
|
69 internalStartGameWithParameters(); |
|
70 GameType:= gmtRecord; |
65 cVideoFramerateNum:= StrToInt(ParamStr(18)); |
71 cVideoFramerateNum:= StrToInt(ParamStr(18)); |
66 cVideoFramerateDen:= StrToInt(ParamStr(19)); |
72 cVideoFramerateDen:= StrToInt(ParamStr(19)); |
67 {$ENDIF} |
|
68 end; |
|
69 |
|
70 {$IFDEF USE_VIDEO_RECORDING} |
|
71 procedure internalStartVideoRecordingWithParameters(); |
|
72 begin |
|
73 internalStartGameWithParameters(); |
|
74 GameType:= gmtRecord; |
|
75 RecPrefix:= ParamStr(20); |
73 RecPrefix:= ParamStr(20); |
76 cAVFormat:= ParamStr(21); |
74 cAVFormat:= ParamStr(21); |
77 cVideoCodec:= ParamStr(22); |
75 cVideoCodec:= ParamStr(22); |
78 cVideoQuality:= StrToInt(ParamStr(23)); |
76 cVideoQuality:= StrToInt(ParamStr(23)); |
79 cVideoPreset:= ParamStr(24); |
77 cAudioCodec:= ParamStr(24); |
80 cAudioCodec:= ParamStr(25); |
|
81 cAudioQuality:= StrToInt(ParamStr(26)); |
|
82 end; |
78 end; |
83 {$ENDIF} |
79 {$ENDIF} |
84 |
80 |
85 procedure setVideo(screenWidth: LongInt; screenHeight: LongInt; bitsStr: LongInt); |
81 procedure setVideo(screenWidth: LongInt; screenHeight: LongInt; bitsStr: LongInt); |
86 begin |
82 begin |