hedgewars/uVisualGearsList.pas
branchios-develop
changeset 13413 ba39a1d396c0
parent 13329 e8801220c13f
child 13550 d42237d16acf
equal deleted inserted replaced
13411:6e8b807bda4b 13413:ba39a1d396c0
    61 var gear: PVisualGear;
    61 var gear: PVisualGear;
    62     t: Longword;
    62     t: Longword;
    63     sp: real;
    63     sp: real;
    64 begin
    64 begin
    65 AddVisualGear:= nil;
    65 AddVisualGear:= nil;
    66 if ((GameType = gmtSave) or (fastUntilLag and (GameType = gmtNet)) or fastScrolling) and // we are scrolling now
    66 if (GameType <> gmtRecord) and
    67    ((Kind <> vgtCloud) and (not Critical)) then
    67    (((GameType = gmtSave) or (fastUntilLag and (GameType = gmtNet)) or fastScrolling) and // we are scrolling now
       
    68    (not Critical)) then
    68        exit;
    69        exit;
    69 
    70 
    70 if ((cReducedQuality and rqAntiBoom) <> 0) and
    71 if ((cReducedQuality and rqAntiBoom) <> 0) and
    71    (not Critical) and
    72    (not Critical) and
    72    (not (Kind in
    73    (not (Kind in