hedgewars/ArgParsers.inc
changeset 7180 53ffc8853008
parent 7151 ec15d9e1a7e3
child 7198 5debd5fe526e
equal deleted inserted replaced
7176:fb4b0c6dfdbd 7180:53ffc8853008
    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
       
    65         begin
       
    66         cRecPrefix:= ParamStr(18);
       
    67         GameType:= gmtRecord;
       
    68         end;
    64 end;
    69 end;
    65 
    70 
    66 procedure setVideo(screenWidth: LongInt; screenHeight: LongInt; bitsStr: LongInt);
    71 procedure setVideo(screenWidth: LongInt; screenHeight: LongInt; bitsStr: LongInt);
    67 begin
    72 begin
    68     cScreenWidth:= screenWidth;
    73     cScreenWidth:= screenWidth;