35 cAltDamage:= ParamStr(13) = '1'; |
35 cAltDamage:= ParamStr(13) = '1'; |
36 UserNick:= DecodeBase64(ParamStr(14)); |
36 UserNick:= DecodeBase64(ParamStr(14)); |
37 cReducedQuality:= StrToInt(ParamStr(15)); |
37 cReducedQuality:= StrToInt(ParamStr(15)); |
38 tmp:= StrToInt(ParamStr(16)); |
38 tmp:= StrToInt(ParamStr(16)); |
39 GrayScale:= false; |
39 GrayScale:= false; |
40 if (tmp > 9) and (tmp < 16) then |
40 {$IFDEF USE_S3D_RENDERING} |
41 begin |
41 if (tmp > 9) and (tmp < 16) then |
|
42 begin |
|
43 // set the gray anaglyph rendering |
42 GrayScale:= true; |
44 GrayScale:= true; |
43 cStereoMode:= TStereoMode(max(0, min(ord(high(TStereoMode)), tmp-9))) |
45 cStereoMode:= TStereoMode(max(0, min(ord(high(TStereoMode)), tmp-9))) |
44 end |
46 end |
45 else if tmp <= 9 then |
47 else if tmp <= 9 then |
|
48 // set the fullcolor anaglyph |
46 cStereoMode:= TStereoMode(max(0, min(ord(high(TStereoMode)), tmp))) |
49 cStereoMode:= TStereoMode(max(0, min(ord(high(TStereoMode)), tmp))) |
47 else |
50 else |
|
51 // any other mode |
48 cStereoMode:= TStereoMode(max(0, min(ord(high(TStereoMode)), tmp-6))); |
52 cStereoMode:= TStereoMode(max(0, min(ord(high(TStereoMode)), tmp-6))); |
|
53 {$ELSE} |
|
54 cStereoMode:= smNone; |
|
55 {$ENDIF} |
49 cLocaleFName:= ParamStr(17); |
56 cLocaleFName:= ParamStr(17); |
50 end; |
57 end; |
51 |
58 |
52 {$IFDEF USE_VIDEO_RECORDING} |
59 {$IFDEF USE_VIDEO_RECORDING} |
53 procedure internalStartVideoRecordingWithParameters(); |
60 procedure internalStartVideoRecordingWithParameters(); |