changeset 10530 | 5a65f09455c4 |
parent 10523 | 00ac079fa51f |
child 10532 | 28651db3f90e |
10529:5e837065977c | 10530:5a65f09455c4 |
---|---|
1803 begin |
1803 begin |
1804 if not CurrentTeam^.ExtDriven then TargetCursorPoint:= CursorPoint; |
1804 if not CurrentTeam^.ExtDriven then TargetCursorPoint:= CursorPoint; |
1805 with CurrentHedgehog^ do |
1805 with CurrentHedgehog^ do |
1806 if (Gear <> nil) and ((Gear^.State and gstHHChooseTarget) <> 0) then |
1806 if (Gear <> nil) and ((Gear^.State and gstHHChooseTarget) <> 0) then |
1807 begin |
1807 begin |
1808 if (CurAmmoType = amNapalm) or (CurAmmoType = amMineStrike) then |
1808 if (CurAmmoType = amNapalm) or (CurAmmoType = amMineStrike) or (((GameFlags and gfMoreWind) <> 0) and ((CurAmmoType = amDrillStrike) or (CurAmmoType = amAirAttack))) then |
1809 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); |
1809 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); |
1810 i:= GetCurAmmoEntry(CurrentHedgehog^)^.Pos; |
1810 i:= GetCurAmmoEntry(CurrentHedgehog^)^.Pos; |
1811 with Ammoz[CurAmmoType] do |
1811 with Ammoz[CurAmmoType] do |
1812 if PosCount > 1 then |
1812 if PosCount > 1 then |
1813 begin |
1813 begin |