Mercurial Mercurial > hedgewars / comparison
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
hedgewars/ArgParsers.inc
changeset 6580 6155187bf599
parent 6426 2d44f6561e72
child 6700 e04da46ee43c
equal deleted inserted replaced
6579:fc52f7c22c9b 6580:6155187bf599 
    54     if (tmp > 9) and (tmp < 16) then 
    54     if (tmp > 9) and (tmp < 16) then 
    55         begin
 
    55         begin
 
    56         cGrayScale:= true;
 
    56         cGrayScale:= true;
 
    57         cStereoMode:= TStereoMode(max(0, min(ord(high(TStereoMode)), tmp-9)))
 
    57         cStereoMode:= TStereoMode(max(0, min(ord(high(TStereoMode)), tmp-9)))
 
    58         end
 
    58         end
 
    59     else if tmp <= 9 then cStereoMode:= TStereoMode(max(0, min(ord(high(TStereoMode)), tmp)))
 
    59     else if tmp <= 9 then 
    60     else cStereoMode:= TStereoMode(max(0, min(ord(high(TStereoMode)), tmp-6)));
 
    60         cStereoMode:= TStereoMode(max(0, min(ord(high(TStereoMode)), tmp)))
 
       
    61     else 
       
    62         cStereoMode:= TStereoMode(max(0, min(ord(high(TStereoMode)), tmp-6)));
 
    61     cLocaleFName:= ParamStr(17);
 
    63     cLocaleFName:= ParamStr(17);
 
    62 end;
 
    64 end;
 
    63 
    65 
    64 procedure setVideo(screenWidth: LongInt; screenHeight: LongInt; bitsStr: LongInt);
 
    66 procedure setVideo(screenWidth: LongInt; screenHeight: LongInt; bitsStr: LongInt);
 
    65 begin
 
    67 begin
hedgewars