hedgewars/uWorld.pas
changeset 10251 a3b42e81803c
parent 10160 4608f10ae65f
child 10263 6ef900411158
--- a/hedgewars/uWorld.pas	Sat May 31 15:04:26 2014 -0400
+++ b/hedgewars/uWorld.pas	Sun Jun 01 04:17:27 2014 +0200
@@ -1839,7 +1839,13 @@
             i:= GetCurAmmoEntry(CurrentHedgehog^)^.Pos;
             with Ammoz[CurAmmoType] do
                 if PosCount > 1 then
+                    begin
+                    if (CurAmmoType = amGirder) or (CurAmmoType = amRubber) then
+                        Tint($FF, $FF, $FF, $A0);
                     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();
+                    end;
                 end;
         DrawSprite(sprArrow, TargetCursorPoint.X, cScreenHeight - TargetCursorPoint.Y, (RealTicks shr 6) mod 8)
         end