hedgewars/uWorld.pas
changeset 3204 65222383bf7d
parent 3165 3ec07a7d8456
child 3236 4ab3917d7d44
equal deleted inserted replaced
3203:e98ac205ba29 3204:65222383bf7d
   844 
   844 
   845 // Cursor
   845 // Cursor
   846 if isCursorVisible then
   846 if isCursorVisible then
   847    begin
   847    begin
   848    if not bShowAmmoMenu then
   848    if not bShowAmmoMenu then
       
   849      begin
   849      with CurrentHedgehog^ do
   850      with CurrentHedgehog^ do
   850        if (Gear^.State and gstHHChooseTarget) <> 0 then
   851        if (Gear^.State and gstHHChooseTarget) <> 0 then
   851          begin
   852          begin
   852          i:= Ammo^[CurSlot, CurAmmo].Pos;
   853          i:= Ammo^[CurSlot, CurAmmo].Pos;
   853          with Ammoz[Ammo^[CurSlot, CurAmmo].AmmoType] do
   854          with Ammoz[Ammo^[CurSlot, CurAmmo].AmmoType] do
   854            if PosCount > 1 then
   855            if PosCount > 1 then
   855               DrawSprite(PosSprite, CursorPoint.X - (SpritesData[PosSprite].Width shr 1),
   856              DrawSprite(PosSprite, CursorPoint.X - (SpritesData[PosSprite].Width shr 1), cScreenHeight - CursorPoint.Y - (SpritesData[PosSprite].Height shr 1),i);
   856                                     cScreenHeight - CursorPoint.Y - (SpritesData[PosSprite].Height shr 1),
       
   857                                     i);
       
   858          end;
   857          end;
   859    DrawSprite(sprArrow, CursorPoint.X, cScreenHeight - CursorPoint.Y, (RealTicks shr 6) mod 8)
   858      DrawSprite(sprArrow, CursorPoint.X, cScreenHeight - CursorPoint.Y, (RealTicks shr 6) mod 8)
       
   859      end
   860    end;
   860    end;
   861 
   861 
   862 glDisable(GL_TEXTURE_2D);
   862 glDisable(GL_TEXTURE_2D);
   863 glDisable(GL_BLEND);
   863 glDisable(GL_BLEND);
   864 isFirstFrame:= false
   864 isFirstFrame:= false