equal
deleted
inserted
replaced
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 |