hedgewars/uVisualGears.pas
changeset 7180 53ffc8853008
parent 7151 ec15d9e1a7e3
child 7278 000e4543f204
equal deleted inserted replaced
7176:fb4b0c6dfdbd 7180:53ffc8853008
   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