1835 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); |
1835 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); |
1836 i:= GetCurAmmoEntry(CurrentHedgehog^)^.Pos; |
1836 i:= GetCurAmmoEntry(CurrentHedgehog^)^.Pos; |
1837 with Ammoz[CurAmmoType] do |
1837 with Ammoz[CurAmmoType] do |
1838 if PosCount > 1 then |
1838 if PosCount > 1 then |
1839 begin |
1839 begin |
1840 if (CurAmmoType = amGirder) or (CurAmmoType = amRubber) then |
1840 // pulsating transparency |
1841 Tint($FF, $FF, $FF, $A0); |
1841 if ((GameTicks div 16) mod $80) >= $40 then |
|
1842 Tint($FF, $FF, $FF, $C0 - (GameTicks div 16) mod $40) |
|
1843 else |
|
1844 Tint($FF, $FF, $FF, $80 + (GameTicks div 16) mod $40); |
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); |
1843 if (CurAmmoType = amGirder) or (CurAmmoType = amRubber) then |
1846 Untint(); |
1844 Untint(); |
|
1845 end; |
1847 end; |
1846 end; |
1848 end; |
1847 DrawSprite(sprArrow, TargetCursorPoint.X, cScreenHeight - TargetCursorPoint.Y, (RealTicks shr 6) mod 8) |
1849 DrawSprite(sprArrow, TargetCursorPoint.X, cScreenHeight - TargetCursorPoint.Y, (RealTicks shr 6) mod 8) |
1848 end |
1850 end |
1849 end; |
1851 end; |