hedgewars/uWorld.pas
changeset 408 6c3da4907d00
parent 393 db01cc79f278
child 446 692c75d46a4b
equal deleted inserted replaced
407:c7890ba9ed6e 408:6c3da4907d00
   328 
   328 
   329 // AmmoMenu
   329 // AmmoMenu
   330 if (AMxCurr < cScreenWidth) or bShowAmmoMenu then ShowAmmoMenu(Surface);
   330 if (AMxCurr < cScreenWidth) or bShowAmmoMenu then ShowAmmoMenu(Surface);
   331 
   331 
   332 // Cursor
   332 // Cursor
   333 if isCursorVisible then DrawSprite(sprArrow, CursorPoint.X, CursorPoint.Y, (hwFloatTicks shr 6) mod 8, Surface);
   333 if isCursorVisible then
       
   334    begin
       
   335    if not bShowAmmoMenu then
       
   336      with CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog] do
       
   337        if (Gear^.State and gstHHChooseTarget) <> 0 then
       
   338          begin
       
   339          i:= Ammo^[CurSlot, CurAmmo].Pos;
       
   340          with Ammoz[Ammo^[CurSlot, CurAmmo].AmmoType] do
       
   341            if PosCount > 1 then
       
   342              DrawSprite(PosSprite, CursorPoint.X - SpritesData[PosSprite].Width div 2,
       
   343                                    CursorPoint.Y - SpritesData[PosSprite].Height div 2,
       
   344                                    i, Surface);
       
   345          end;
       
   346    DrawSprite(sprArrow, CursorPoint.X, CursorPoint.Y, (hwFloatTicks shr 6) mod 8, Surface)
       
   347    end;
   334 
   348 
   335 {$IFDEF COUNTTICKS}
   349 {$IFDEF COUNTTICKS}
   336 DXOutText(10, 10, fnt16, inttostr(cntTicks), Surface);
   350 DXOutText(10, 10, fnt16, inttostr(cntTicks), Surface);
   337 {$ENDIF}
   351 {$ENDIF}
   338 
   352