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 if ParamCount > 17 then |
64 {$IFDEF USE_VIDEO_RECORDING} |
65 begin |
65 cVideoFramerateNum:= StrToInt(ParamStr(18)); |
66 cRecPrefix:= ParamStr(18); |
66 cVideoFramerateDen:= StrToInt(ParamStr(19)); |
67 GameType:= gmtRecord; |
67 {$ENDIF} |
68 end; |
68 end; |
69 end; |
69 |
|
70 {$IFDEF USE_VIDEO_RECORDING} |
|
71 procedure internalStartVideoRecordingWithParameters(); |
|
72 begin |
|
73 internalStartGameWithParameters(); |
|
74 GameType:= gmtRecord; |
|
75 cRecPrefix:= ParamStr(20); |
|
76 cAVFormat:= ParamStr(21); |
|
77 cVideoCodec:= ParamStr(22); |
|
78 cVideoQuality:= StrToInt(ParamStr(23)); |
|
79 cVideoPreset:= ParamStr(24); |
|
80 cAudioCodec:= ParamStr(25); |
|
81 // cRecordAudio:= cAudioCodec <> 'no'; |
|
82 cAudioQuality:= StrToInt(ParamStr(26)); |
|
83 end; |
|
84 {$ENDIF} |
70 |
85 |
71 procedure setVideo(screenWidth: LongInt; screenHeight: LongInt; bitsStr: LongInt); |
86 procedure setVideo(screenWidth: LongInt; screenHeight: LongInt; bitsStr: LongInt); |
72 begin |
87 begin |
73 cScreenWidth:= screenWidth; |
88 cScreenWidth:= screenWidth; |
74 cScreenHeight:= screenHeight; |
89 cScreenHeight:= screenHeight; |