hedgewars/uVisualGears.pas
changeset 7615 b39beffcf05e
parent 7597 1ef520fea21c
parent 7565 00568d3054d0
child 7822 61ff669d610f
equal deleted inserted replaced
7614:3ae60c8a15f2 7615:b39beffcf05e
   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