| changeset 5675 | cd10d6cba644 |
| parent 5523 | 9ac5acc4f3e5 |
| child 5682 | 06d5f561f772 |
| 5674:244cbc1448bd | 5675:cd10d6cba644 |
|---|---|
1157 if not bShowAmmoMenu then |
1157 if not bShowAmmoMenu then |
1158 begin |
1158 begin |
1159 with CurrentHedgehog^ do |
1159 with CurrentHedgehog^ do |
1160 if (Gear <> nil) and ((Gear^.State and gstHHChooseTarget) <> 0) then |
1160 if (Gear <> nil) and ((Gear^.State and gstHHChooseTarget) <> 0) then |
1161 begin |
1161 begin |
1162 if CurAmmoType = amNapalm then |
1162 if (CurAmmoType = amNapalm) or (CurAmmoType = amMineStrike) then |
1163 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); |
1163 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); |
1164 i:= GetAmmoEntry(CurrentHedgehog^)^.Pos; |
1164 i:= GetAmmoEntry(CurrentHedgehog^)^.Pos; |
1165 with Ammoz[CurAmmoType] do |
1165 with Ammoz[CurAmmoType] do |
1166 if PosCount > 1 then |
1166 if PosCount > 1 then |
1167 DrawSprite(PosSprite, CursorPoint.X - (SpritesData[PosSprite].Width shr 1), cScreenHeight - CursorPoint.Y - (SpritesData[PosSprite].Height shr 1),i); |
1167 DrawSprite(PosSprite, CursorPoint.X - (SpritesData[PosSprite].Width shr 1), cScreenHeight - CursorPoint.Y - (SpritesData[PosSprite].Height shr 1),i); |