1837 if (CurAmmoType = amNapalm) or (CurAmmoType = amMineStrike) then |
1837 if (CurAmmoType = amNapalm) or (CurAmmoType = amMineStrike) then |
1838 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); |
1838 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); |
1839 i:= GetCurAmmoEntry(CurrentHedgehog^)^.Pos; |
1839 i:= GetCurAmmoEntry(CurrentHedgehog^)^.Pos; |
1840 with Ammoz[CurAmmoType] do |
1840 with Ammoz[CurAmmoType] do |
1841 if PosCount > 1 then |
1841 if PosCount > 1 then |
|
1842 begin |
|
1843 if (CurAmmoType = amGirder) or (CurAmmoType = amRubber) then |
|
1844 Tint($FF, $FF, $FF, $A0); |
1842 DrawSprite(PosSprite, TargetCursorPoint.X - (SpritesData[PosSprite].Width shr 1), cScreenHeight - TargetCursorPoint.Y - (SpritesData[PosSprite].Height shr 1),i); |
1845 DrawSprite(PosSprite, TargetCursorPoint.X - (SpritesData[PosSprite].Width shr 1), cScreenHeight - TargetCursorPoint.Y - (SpritesData[PosSprite].Height shr 1),i); |
|
1846 if (CurAmmoType = amGirder) or (CurAmmoType = amRubber) then |
|
1847 Untint(); |
|
1848 end; |
1843 end; |
1849 end; |
1844 DrawSprite(sprArrow, TargetCursorPoint.X, cScreenHeight - TargetCursorPoint.Y, (RealTicks shr 6) mod 8) |
1850 DrawSprite(sprArrow, TargetCursorPoint.X, cScreenHeight - TargetCursorPoint.Y, (RealTicks shr 6) mod 8) |
1845 end |
1851 end |
1846 end; |
1852 end; |
1847 |
1853 |