hedgewars/uVisualGears.pas
changeset 7687 c73fd8cfa7c0
parent 7615 b39beffcf05e
child 7822 61ff669d610f
equal deleted inserted replaced
7613:ce6ead3327b2 7687:c73fd8cfa7c0
   133 var gear: PVisualGear;
   133 var gear: PVisualGear;
   134     t: Longword;
   134     t: Longword;
   135     sp: real;
   135     sp: real;
   136 begin
   136 begin
   137 AddVisualGear:= nil;
   137 AddVisualGear:= nil;
   138 if ((GameType = gmtSave) or (fastUntilLag and (GameType = gmtNet))) and // we are scrolling now
   138 if ((GameType = gmtSave) or (fastUntilLag and (GameType = gmtNet)) or fastScrolling) and // we are scrolling now
   139    ((Kind <> vgtCloud) and (not Critical)) then
   139    ((Kind <> vgtCloud) and (not Critical)) then
   140        exit;
   140        exit;
   141 
   141 
   142 if ((cReducedQuality and rqAntiBoom) <> 0) and
   142 if ((cReducedQuality and rqAntiBoom) <> 0) and
   143    (not Critical) and
   143    (not Critical) and