hedgewars/uGearsRender.pas
changeset 15508 d668fcb9307e
parent 15490 a18f7e4681b8
child 15643 969f67193d0b
--- a/hedgewars/uGearsRender.pas	Sat Oct 26 22:44:15 2019 +0200
+++ b/hedgewars/uGearsRender.pas	Sat Oct 26 23:48:57 2019 +0200
@@ -1656,8 +1656,8 @@
      gtPoisonCloud: begin
                     if Gear^.Timer < 1020 then
                         Tint(Gear^.Tint and $FFFFFF00 or Gear^.Timer div 8)
-                    else if Gear^.Timer > 3980 then
-                        Tint(Gear^.Tint and $FFFFFF00 or (5000 - Gear^.Timer) div 8)
+                    else if (Gear^.Timer > Gear^.WDTimer - 1020) and (Gear^.WDTimer > 2040) then
+                        Tint(Gear^.Tint and $FFFFFF00 or (Gear^.WDTimer - Gear^.Timer) div 8)
                     else
                         Tint(Gear^.Tint);
                     DrawTextureRotatedF(SpritesData[sprSmokeWhite].texture, 3, 0, 0, x, y, 0, 1, 22, 22, (RealTicks shr 4 + Gear^.UID * 100) mod 360);