| changeset 10818 | f642a28cab0c |
| parent 10672 | c2004c3e9c7d |
| child 10869 | f23763bbac1b |
| 10816:37410518628e | 10818:f642a28cab0c |
|---|---|
1806 begin |
1806 begin |
1807 if (not bShowAmmoMenu) then |
1807 if (not bShowAmmoMenu) then |
1808 begin |
1808 begin |
1809 if not CurrentTeam^.ExtDriven then TargetCursorPoint:= CursorPoint; |
1809 if not CurrentTeam^.ExtDriven then TargetCursorPoint:= CursorPoint; |
1810 with CurrentHedgehog^ do |
1810 with CurrentHedgehog^ do |
1811 if (Gear <> nil) and ((Gear^.State and gstHHChooseTarget) <> 0) then |
1811 if (Gear <> nil) and ((Gear^.State and gstChooseTarget) <> 0) then |
1812 begin |
1812 begin |
1813 if (CurAmmoType = amNapalm) or (CurAmmoType = amMineStrike) or (((GameFlags and gfMoreWind) <> 0) and ((CurAmmoType = amDrillStrike) or (CurAmmoType = amAirAttack))) then |
1813 if (CurAmmoType = amNapalm) or (CurAmmoType = amMineStrike) or (((GameFlags and gfMoreWind) <> 0) and ((CurAmmoType = amDrillStrike) or (CurAmmoType = amAirAttack))) then |
1814 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); |
1814 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); |
1815 i:= GetCurAmmoEntry(CurrentHedgehog^)^.Pos; |
1815 i:= GetCurAmmoEntry(CurrentHedgehog^)^.Pos; |
1816 with Ammoz[CurAmmoType] do |
1816 with Ammoz[CurAmmoType] do |