equal
deleted
inserted
replaced
48 cShowFPS:= ParamStr(12) = '1'; |
48 cShowFPS:= ParamStr(12) = '1'; |
49 cAltDamage:= ParamStr(13) = '1'; |
49 cAltDamage:= ParamStr(13) = '1'; |
50 UserNick:= DecodeBase64(ParamStr(14)); |
50 UserNick:= DecodeBase64(ParamStr(14)); |
51 val(ParamStr(15), cReducedQuality); |
51 val(ParamStr(15), cReducedQuality); |
52 val(ParamStr(16), tmp); |
52 val(ParamStr(16), tmp); |
53 cStereoMode:= TStereoMode(max(0, min(ord(high(TStereoMode)), tmp))); |
53 cGrayScale:= false; |
|
54 if (tmp > 9) and (tmp < 16) then |
|
55 begin |
|
56 cGrayScale:= true; |
|
57 cStereoMode:= TStereoMode(max(0, min(ord(high(TStereoMode)), tmp-9))) |
|
58 end |
|
59 else if tmp <= 9 then cStereoMode:= TStereoMode(max(0, min(ord(high(TStereoMode)), tmp))) |
|
60 else cStereoMode:= TStereoMode(max(0, min(ord(high(TStereoMode)), tmp-6))); |
54 cLocaleFName:= ParamStr(17); |
61 cLocaleFName:= ParamStr(17); |
55 end; |
62 end; |
56 |
63 |
57 procedure setVideo(screenWidth: LongInt; screenHeight: LongInt; bitsStr: LongInt); |
64 procedure setVideo(screenWidth: LongInt; screenHeight: LongInt; bitsStr: LongInt); |
58 begin |
65 begin |