hedgewars/uWorld.pas
changeset 2931 97f75507e1cb
parent 2921 b7a636503298
child 2948 3f21a9dc93d0
equal deleted inserted replaced
2930:2106bfe3127d 2931:97f75507e1cb
   774        if (Gear^.State and gstHHChooseTarget) <> 0 then
   774        if (Gear^.State and gstHHChooseTarget) <> 0 then
   775          begin
   775          begin
   776          i:= Ammo^[CurSlot, CurAmmo].Pos;
   776          i:= Ammo^[CurSlot, CurAmmo].Pos;
   777          with Ammoz[Ammo^[CurSlot, CurAmmo].AmmoType] do
   777          with Ammoz[Ammo^[CurSlot, CurAmmo].AmmoType] do
   778            if PosCount > 1 then
   778            if PosCount > 1 then
   779               begin
       
   780               glColor4f(1, 1, 1, abs(1 - (RealTicks mod 1500) / 750));
       
   781               DrawSprite(PosSprite, CursorPoint.X - SpritesData[PosSprite].Width div 2,
   779               DrawSprite(PosSprite, CursorPoint.X - SpritesData[PosSprite].Width div 2,
   782                                     cScreenHeight - CursorPoint.Y - SpritesData[PosSprite].Height div 2,
   780                                     cScreenHeight - CursorPoint.Y - SpritesData[PosSprite].Height div 2,
   783                                     i);
   781                                     i);
   784               glColor4f(1, 1, 1, 1)
       
   785               end;
       
   786          end;
   782          end;
   787    DrawSprite(sprArrow, CursorPoint.X, cScreenHeight - CursorPoint.Y, (RealTicks shr 6) mod 8)
   783    DrawSprite(sprArrow, CursorPoint.X, cScreenHeight - CursorPoint.Y, (RealTicks shr 6) mod 8)
   788    end;
   784    end;
   789 
   785 
   790 
   786