hedgewars/uVisualGearsList.pas
changeset 15875 d7b53d08ad9c
parent 15773 da1bb21e6fbf
child 15900 128ace913837
equal deleted inserted replaced
15872:c09063ea0267 15875:d7b53d08ad9c
    62 var gear: PVisualGear;
    62 var gear: PVisualGear;
    63     t: Longword;
    63     t: Longword;
    64     sp: real;
    64     sp: real;
    65 begin
    65 begin
    66 AddVisualGear:= nil;
    66 AddVisualGear:= nil;
       
    67 if fastUntilLag and (not Critical) then
       
    68    exit;
    67 if (GameType <> gmtRecord) and
    69 if (GameType <> gmtRecord) and
    68    (((GameType = gmtSave) or (fastUntilLag and (GameType = gmtNet)) or fastScrolling) and // we are scrolling now
    70    (((GameType = gmtSave) or (fastUntilLag and (GameType = gmtNet)) or fastScrolling) and // we are scrolling now
    69    (not Critical)) then
    71    (not Critical)) then
    70        exit;
    72        exit;
    71 
    73