hedgewars/uWorld.pas
changeset 2921 b7a636503298
parent 2908 bd1909984a09
child 2931 97f75507e1cb
equal deleted inserted replaced
2920:5cf48744a700 2921:b7a636503298
   494 DrawWaves( 1, 75, 0);
   494 DrawWaves( 1, 75, 0);
   495 
   495 
   496 
   496 
   497 {$WARNINGS OFF}
   497 {$WARNINGS OFF}
   498 // Target
   498 // Target
   499 if TargetPoint.X <> NoPointX then DrawSprite(sprTargetP, TargetPoint.X + WorldDx - 16, TargetPoint.Y + WorldDy - 16, 0);
   499 if TargetPoint.X <> NoPointX then
       
   500 	DrawRotatedF(sprTargetP, TargetPoint.X + WorldDx, TargetPoint.Y + WorldDy, 0, 0, (RealTicks shr 3) mod 360);
   500 {$WARNINGS ON}
   501 {$WARNINGS ON}
   501 
   502 
   502 {$IFDEF IPHONEOS}
   503 {$IFDEF IPHONEOS}
   503 scale:= 1.5;
   504 scale:= 1.5;
   504 {$ELSE}
   505 {$ELSE}
   773        if (Gear^.State and gstHHChooseTarget) <> 0 then
   774        if (Gear^.State and gstHHChooseTarget) <> 0 then
   774          begin
   775          begin
   775          i:= Ammo^[CurSlot, CurAmmo].Pos;
   776          i:= Ammo^[CurSlot, CurAmmo].Pos;
   776          with Ammoz[Ammo^[CurSlot, CurAmmo].AmmoType] do
   777          with Ammoz[Ammo^[CurSlot, CurAmmo].AmmoType] do
   777            if PosCount > 1 then
   778            if PosCount > 1 then
       
   779               begin
       
   780               glColor4f(1, 1, 1, abs(1 - (RealTicks mod 1500) / 750));
   778               DrawSprite(PosSprite, CursorPoint.X - SpritesData[PosSprite].Width div 2,
   781               DrawSprite(PosSprite, CursorPoint.X - SpritesData[PosSprite].Width div 2,
   779                                     cScreenHeight - CursorPoint.Y - SpritesData[PosSprite].Height div 2,
   782                                     cScreenHeight - CursorPoint.Y - SpritesData[PosSprite].Height div 2,
   780                                     i);
   783                                     i);
       
   784               glColor4f(1, 1, 1, 1)
       
   785               end;
   781          end;
   786          end;
   782    DrawSprite(sprArrow, CursorPoint.X, cScreenHeight - CursorPoint.Y, (RealTicks shr 6) mod 8)
   787    DrawSprite(sprArrow, CursorPoint.X, cScreenHeight - CursorPoint.Y, (RealTicks shr 6) mod 8)
   783    end;
   788    end;
   784 
   789 
   785 
   790