Mercurial Mercurial > hedgewars / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
hedgewars/uWorld.pas
changeset 10298 7d5d93f9a515
parent 10277 b325e36f8e54
child 10300 f70b2fb8acab 
--- 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)
hedgewars