--- a/hedgewars/uWorld.pas	Fri Jun 13 14:55:06 2014 +0200
+++ b/hedgewars/uWorld.pas	Fri Jun 13 17:51:55 2014 +0200
@@ -1837,11 +1837,13 @@
             with Ammoz[CurAmmoType] do
                 if PosCount > 1 then
                     begin
-                    if (CurAmmoType = amGirder) or (CurAmmoType = amRubber) then
-                        Tint($FF, $FF, $FF, $A0);
+                    // pulsating transparency
+                    if ((GameTicks div 16) mod $80) >= $40 then
+                        Tint($FF, $FF, $FF, $C0 - (GameTicks div 16) mod $40)
+                    else
+                        Tint($FF, $FF, $FF, $80 + (GameTicks div 16) mod $40);
                     DrawSprite(PosSprite, TargetCursorPoint.X - (SpritesData[PosSprite].Width shr 1), cScreenHeight - TargetCursorPoint.Y - (SpritesData[PosSprite].Height shr 1),i);
-                    if (CurAmmoType = amGirder) or (CurAmmoType = amRubber) then
-                        Untint();
+                    Untint();
                     end;
                 end;
         DrawSprite(sprArrow, TargetCursorPoint.X, cScreenHeight - TargetCursorPoint.Y, (RealTicks shr 6) mod 8)