diff -r 2f7c25bf4201 -r deab88f1f6f7 hedgewars/uVisualGears.pas
--- a/hedgewars/uVisualGears.pas	Fri Mar 09 22:23:57 2018 +0100
+++ b/hedgewars/uVisualGears.pas	Fri Mar 09 23:34:46 2018 +0100
@@ -206,7 +206,7 @@
                   DrawSprite(sprSmokeTrace, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.State);
               vgtEvilTrace: if Gear^.State < 8 then
                   DrawSprite(sprEvilTrace, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.State);
-              vgtLineTrail: DrawLine(Gear^.X, Gear^.Y, Gear^.dX, Gear^.dY, 1.0, $FF, min(Gear^.Timer, $C0), min(Gear^.Timer, $80), min(Gear^.Timer, $FF));
+              vgtLineTrail: DrawLine(Gear^.X, Gear^.Y, Gear^.dX, Gear^.dY, 1.0, $FF, min(Gear^.Timer, $C0), min(Gear^.Timer, $80), min(Gear^.Timer, (Gear^.Tint and $FF)));
           end;
           if (cReducedQuality and rqAntiBoom) = 0 then
               case Gear^.Kind of