1657 end |
1657 end |
1658 end; |
1658 end; |
1659 |
1659 |
1660 |
1660 |
1661 // Cursor |
1661 // Cursor |
1662 if isCursorVisible then |
1662 if isCursorVisible and (not bShowAmmoMenu) then |
1663 begin |
1663 begin |
1664 if (not bShowAmmoMenu) then |
1664 if not CurrentTeam^.ExtDriven then TargetCursorPoint:= CursorPoint; |
1665 begin |
1665 with CurrentHedgehog^ do |
1666 if not CurrentTeam^.ExtDriven then TargetCursorPoint:= CursorPoint; |
1666 if (Gear <> nil) and ((Gear^.State and gstChooseTarget) <> 0) then |
1667 with CurrentHedgehog^ do |
1667 begin |
1668 if (Gear <> nil) and ((Gear^.State and gstChooseTarget) <> 0) then |
1668 if (CurAmmoType = amNapalm) or (CurAmmoType = amMineStrike) or (((GameFlags and gfMoreWind) <> 0) and ((CurAmmoType = amDrillStrike) or (CurAmmoType = amAirAttack))) then |
|
1669 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); |
|
1670 i:= GetCurAmmoEntry(CurrentHedgehog^)^.Pos; |
|
1671 with Ammoz[CurAmmoType] do |
|
1672 if PosCount > 1 then |
1669 begin |
1673 begin |
1670 if (CurAmmoType = amNapalm) or (CurAmmoType = amMineStrike) or (((GameFlags and gfMoreWind) <> 0) and ((CurAmmoType = amDrillStrike) or (CurAmmoType = amAirAttack))) then |
1674 if (CurAmmoType = amGirder) or (CurAmmoType = amTeleport) then |
1671 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); |
|
1672 i:= GetCurAmmoEntry(CurrentHedgehog^)^.Pos; |
|
1673 with Ammoz[CurAmmoType] do |
|
1674 if PosCount > 1 then |
|
1675 begin |
1675 begin |
1676 if (CurAmmoType = amGirder) or (CurAmmoType = amTeleport) then |
1676 // pulsating transparency |
1677 begin |
1677 if ((GameTicks div 16) mod $80) >= $40 then |
1678 // pulsating transparency |
1678 Tint($FF, $FF, $FF, $C0 - (GameTicks div 16) mod $40) |
1679 if ((GameTicks div 16) mod $80) >= $40 then |
1679 else |
1680 Tint($FF, $FF, $FF, $C0 - (GameTicks div 16) mod $40) |
1680 Tint($FF, $FF, $FF, $80 + (GameTicks div 16) mod $40); |
1681 else |
|
1682 Tint($FF, $FF, $FF, $80 + (GameTicks div 16) mod $40); |
|
1683 end; |
|
1684 DrawSprite(PosSprite, TargetCursorPoint.X - (SpritesData[PosSprite].Width shr 1), cScreenHeight - TargetCursorPoint.Y - (SpritesData[PosSprite].Height shr 1),i); |
|
1685 Untint(); |
|
1686 end; |
1681 end; |
|
1682 DrawSprite(PosSprite, TargetCursorPoint.X - (SpritesData[PosSprite].Width shr 1), cScreenHeight - TargetCursorPoint.Y - (SpritesData[PosSprite].Height shr 1),i); |
|
1683 Untint(); |
1687 end; |
1684 end; |
1688 //DrawSprite(sprArrow, TargetCursorPoint.X, cScreenHeight - TargetCursorPoint.Y, (RealTicks shr 6) mod 8) |
1685 end; |
1689 DrawTextureF(SpritesData[sprArrow].Texture, cDefaultZoomLevel / cScaleFactor, TargetCursorPoint.X + round(SpritesData[sprArrow].Width / cScaleFactor), cScreenHeight + round(SpritesData[sprArrow].Height / cScaleFactor) - TargetCursorPoint.Y, (RealTicks shr 6) mod 8, 1, SpritesData[sprArrow].Width, SpritesData[sprArrow].Height); |
1686 //DrawSprite(sprArrow, TargetCursorPoint.X, cScreenHeight - TargetCursorPoint.Y, (RealTicks shr 6) mod 8) |
1690 end |
1687 DrawTextureF(SpritesData[sprArrow].Texture, cDefaultZoomLevel / cScaleFactor, TargetCursorPoint.X + round(SpritesData[sprArrow].Width / cScaleFactor), cScreenHeight + round(SpritesData[sprArrow].Height / cScaleFactor) - TargetCursorPoint.Y, (RealTicks shr 6) mod 8, 1, SpritesData[sprArrow].Width, SpritesData[sprArrow].Height); |
1691 end; |
1688 end; |
1692 |
1689 |
1693 // debug stuff |
1690 // debug stuff |
1694 if cViewLimitsDebug then |
1691 if cViewLimitsDebug then |
1695 begin |
1692 begin |