hedgewars/uVisualGears.pas
changeset 4809 9c7d5f802618
parent 4806 48c1a395f0a7
child 4818 202eef454354
equal deleted inserted replaced
4808:7c3e5b52344a 4809:9c7d5f802618
   111         begin
   111         begin
   112         AddVisualGear:= nil;
   112         AddVisualGear:= nil;
   113         exit
   113         exit
   114         end;
   114         end;
   115 
   115 
   116 if ((cReducedQuality and rqFancyBoom) <> 0) and
   116 if ((cReducedQuality and rqAntiBoom) <> 0) and
   117    not Critical and
   117    not Critical and
   118    not (Kind in
   118    not (Kind in
   119    [vgtTeamHealthSorter,
   119    [vgtTeamHealthSorter,
   120     vgtSmallDamageTag,
   120     vgtSmallDamageTag,
   121     vgtSpeechBubble,
   121     vgtSpeechBubble,
   427                     tinted:= true;
   427                     tinted:= true;
   428                     Tint($FF, $FF, $FF,  $66);
   428                     Tint($FF, $FF, $FF,  $66);
   429                     DrawCentered(round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Tex)
   429                     DrawCentered(round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Tex)
   430                     end
   430                     end
   431         end;
   431         end;
   432             if (cReducedQuality and rqFancyBoom) = 0 then
   432             if (cReducedQuality and rqAntiBoom) = 0 then
   433                 case Gear^.Kind of
   433                 case Gear^.Kind of
   434                     vgtSmoke: DrawSprite(sprSmoke, round(Gear^.X) + WorldDx - 11, round(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame);
   434                     vgtSmoke: DrawSprite(sprSmoke, round(Gear^.X) + WorldDx - 11, round(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame);
   435                     vgtSmokeWhite: DrawSprite(sprSmokeWhite, round(Gear^.X) + WorldDx - 11, round(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame);
   435                     vgtSmokeWhite: DrawSprite(sprSmokeWhite, round(Gear^.X) + WorldDx - 11, round(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame);
   436                     vgtDust: DrawSprite(sprDust, round(Gear^.X) + WorldDx - 11, round(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame);
   436                     vgtDust: DrawSprite(sprDust, round(Gear^.X) + WorldDx - 11, round(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame);
   437                     vgtFeather: begin
   437                     vgtFeather: begin
   456                              tinted:= true;
   456                              tinted:= true;
   457                              Tint($FF, $FF, $FF, round($FF * (1 - power(Gear^.Timer / 250, 4))));
   457                              Tint($FF, $FF, $FF, round($FF * (1 - power(Gear^.Timer / 250, 4))));
   458                              DrawRotatedTextureF(SpritesData[sprBigExplosion].Texture, 0.85 * (-power(2, -10 * Int(Gear^.Timer)/250) + 1) + 0.4, 0, 0, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, 0, 1, 385, 385, Gear^.Angle);
   458                              DrawRotatedTextureF(SpritesData[sprBigExplosion].Texture, 0.85 * (-power(2, -10 * Int(Gear^.Timer)/250) + 1) + 0.4, 0, 0, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, 0, 1, 385, 385, Gear^.Angle);
   459                              end;
   459                              end;
   460             end;
   460             end;
   461         if (cReducedQuality and rqFancyBoom) = 0 then
   461         if (cReducedQuality and rqAntiBoom) = 0 then
   462             case Gear^.Kind of
   462             case Gear^.Kind of
   463                 vgtExplPart: DrawSprite(sprExplPart, round(Gear^.X) + WorldDx - 16, round(Gear^.Y) + WorldDy - 16, 7 - Gear^.Frame);
   463                 vgtExplPart: DrawSprite(sprExplPart, round(Gear^.X) + WorldDx - 16, round(Gear^.Y) + WorldDy - 16, 7 - Gear^.Frame);
   464                 vgtExplPart2: DrawSprite(sprExplPart2, round(Gear^.X) + WorldDx - 16, round(Gear^.Y) + WorldDy - 16, 7 - Gear^.Frame);
   464                 vgtExplPart2: DrawSprite(sprExplPart2, round(Gear^.X) + WorldDx - 16, round(Gear^.Y) + WorldDy - 16, 7 - Gear^.Frame);
   465                 vgtFire: if (Gear^.State and gstTmpFlag) = 0 then
   465                 vgtFire: if (Gear^.State and gstTmpFlag) = 0 then
   466                              DrawSprite(sprFlame, round(Gear^.X) + WorldDx - 8, round(Gear^.Y) + WorldDy, (RealTicks shr 6 + Gear^.Frame) mod 8)
   466                              DrawSprite(sprFlame, round(Gear^.X) + WorldDx - 8, round(Gear^.Y) + WorldDy, (RealTicks shr 6 + Gear^.Frame) mod 8)