1583 with CurrentHedgehog^ do |
1583 with CurrentHedgehog^ do |
1584 if (Gear <> nil) and ((Gear^.State and gstHHChooseTarget) <> 0) then |
1584 if (Gear <> nil) and ((Gear^.State and gstHHChooseTarget) <> 0) then |
1585 begin |
1585 begin |
1586 if (CurAmmoType = amNapalm) or (CurAmmoType = amMineStrike) then |
1586 if (CurAmmoType = amNapalm) or (CurAmmoType = amMineStrike) then |
1587 DrawLine(-3000, topY-300, 7000, topY-300, 3.0, (Team^.Clan^.Color shr 16), (Team^.Clan^.Color shr 8) and $FF, Team^.Clan^.Color and $FF, $FF); |
1587 DrawLine(-3000, topY-300, 7000, topY-300, 3.0, (Team^.Clan^.Color shr 16), (Team^.Clan^.Color shr 8) and $FF, Team^.Clan^.Color and $FF, $FF); |
1588 i:= GetAmmoEntry(CurrentHedgehog^)^.Pos; |
1588 i:= GetCurAmmoEntry(CurrentHedgehog^)^.Pos; |
1589 with Ammoz[CurAmmoType] do |
1589 with Ammoz[CurAmmoType] do |
1590 if PosCount > 1 then |
1590 if PosCount > 1 then |
1591 DrawSprite(PosSprite, CursorPoint.X - (SpritesData[PosSprite].Width shr 1), cScreenHeight - CursorPoint.Y - (SpritesData[PosSprite].Height shr 1),i); |
1591 DrawSprite(PosSprite, CursorPoint.X - (SpritesData[PosSprite].Width shr 1), cScreenHeight - CursorPoint.Y - (SpritesData[PosSprite].Height shr 1),i); |
1592 end; |
1592 end; |
1593 DrawSprite(sprArrow, CursorPoint.X, cScreenHeight - CursorPoint.Y, (RealTicks shr 6) mod 8) |
1593 DrawSprite(sprArrow, CursorPoint.X, cScreenHeight - CursorPoint.Y, (RealTicks shr 6) mod 8) |