hedgewars/uVisualGears.pas
changeset 6453 11c578d30bd3
parent 6380 1ff5ad1d771b
child 6553 91365db8b82c
equal deleted inserted replaced
6452:7c6f9b6672dc 6453:11c578d30bd3
   118     t: Longword;
   118     t: Longword;
   119     sp: real;
   119     sp: real;
   120 begin
   120 begin
   121 AddVisualGear:= nil;
   121 AddVisualGear:= nil;
   122 if ((GameType = gmtSave) or (fastUntilLag and (GameType = gmtNet))) and // we are scrolling now
   122 if ((GameType = gmtSave) or (fastUntilLag and (GameType = gmtNet))) and // we are scrolling now
   123    ((Kind <> vgtCloud) and not Critical) then exit;
   123    ((Kind <> vgtCloud) and (not Critical)) then exit;
   124 
   124 
   125 if ((cReducedQuality and rqAntiBoom) <> 0) and
   125 if ((cReducedQuality and rqAntiBoom) <> 0) and
   126    not Critical and
   126    (not Critical) and
   127    not (Kind in
   127    (not (Kind in
   128    [vgtTeamHealthSorter,
   128    [vgtTeamHealthSorter,
   129     vgtSmallDamageTag,
   129     vgtSmallDamageTag,
   130     vgtSpeechBubble,
   130     vgtSpeechBubble,
   131     vgtHealthTag,
   131     vgtHealthTag,
   132     vgtExplosion,
   132     vgtExplosion,
   133     vgtSmokeTrace,
   133     vgtSmokeTrace,
   134     vgtEvilTrace,
   134     vgtEvilTrace,
   135     vgtNote,
   135     vgtNote,
   136     vgtSmoothWindBar]) then exit;
   136     vgtSmoothWindBar])) then exit;
   137 
   137 
   138 inc(VGCounter);
   138 inc(VGCounter);
   139 New(gear);
   139 New(gear);
   140 FillChar(gear^, sizeof(TVisualGear), 0);
   140 FillChar(gear^, sizeof(TVisualGear), 0);
   141 gear^.X:= real(X);
   141 gear^.X:= real(X);