hedgewars/uWorld.pas
changeset 2921 b7a636503298
parent 2908 bd1909984a09
child 2931 97f75507e1cb
--- a/hedgewars/uWorld.pas	Wed Mar 03 11:22:23 2010 +0000
+++ b/hedgewars/uWorld.pas	Wed Mar 03 11:38:02 2010 +0000
@@ -496,7 +496,8 @@
 
 {$WARNINGS OFF}
 // Target
-if TargetPoint.X <> NoPointX then DrawSprite(sprTargetP, TargetPoint.X + WorldDx - 16, TargetPoint.Y + WorldDy - 16, 0);
+if TargetPoint.X <> NoPointX then
+	DrawRotatedF(sprTargetP, TargetPoint.X + WorldDx, TargetPoint.Y + WorldDy, 0, 0, (RealTicks shr 3) mod 360);
 {$WARNINGS ON}
 
 {$IFDEF IPHONEOS}
@@ -775,9 +776,13 @@
          i:= Ammo^[CurSlot, CurAmmo].Pos;
          with Ammoz[Ammo^[CurSlot, CurAmmo].AmmoType] do
            if PosCount > 1 then
+              begin
+              glColor4f(1, 1, 1, abs(1 - (RealTicks mod 1500) / 750));
               DrawSprite(PosSprite, CursorPoint.X - SpritesData[PosSprite].Width div 2,
                                     cScreenHeight - CursorPoint.Y - SpritesData[PosSprite].Height div 2,
                                     i);
+              glColor4f(1, 1, 1, 1)
+              end;
          end;
    DrawSprite(sprArrow, CursorPoint.X, cScreenHeight - CursorPoint.Y, (RealTicks shr 6) mod 8)
    end;