hedgewars/uWorld.pas
changeset 14569 0149d5ed5dc5
parent 14544 3105881d5840
child 14736 8563cc40fc1e
equal deleted inserted replaced
14568:e26fa5ea2bf6 14569:0149d5ed5dc5
  1360         DrawWaves( -1, 25 + WorldDx div 3, - offsetY div 10, 59, 0);
  1360         DrawWaves( -1, 25 + WorldDx div 3, - offsetY div 10, 59, 0);
  1361         end
  1361         end
  1362     else
  1362     else
  1363         DrawWaves(-1, 50, cWaveHeight div 2, cWaveHeight div 2, 0);
  1363         DrawWaves(-1, 50, cWaveHeight div 2, cWaveHeight div 2, 0);
  1364 
  1364 
       
  1365 // line at airplane height for certain airstrike types (when spawning height is important)
       
  1366 with CurrentHedgehog^ do
       
  1367     if (isCursorVisible) and ((CurAmmoType = amNapalm) or (CurAmmoType = amMineStrike) or (((GameFlags and gfMoreWind) <> 0) and ((CurAmmoType = amDrillStrike) or (CurAmmoType = amAirAttack)))) then
       
  1368         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);
       
  1369 
       
  1370 // gear HUD extras (fuel indicator, secondary ammo, etc.)
  1365 if replicateToLeft then
  1371 if replicateToLeft then
  1366     begin
  1372     begin
  1367     ShiftWorld(-1);
  1373     ShiftWorld(-1);
  1368     DrawGearsGui();
  1374     DrawGearsGui();
  1369     UnshiftWorld();
  1375     UnshiftWorld();
  1813     begin
  1819     begin
  1814     if not CurrentTeam^.ExtDriven then TargetCursorPoint:= CursorPoint;
  1820     if not CurrentTeam^.ExtDriven then TargetCursorPoint:= CursorPoint;
  1815     with CurrentHedgehog^ do
  1821     with CurrentHedgehog^ do
  1816         if (Gear <> nil) and ((Gear^.State and gstChooseTarget) <> 0) then
  1822         if (Gear <> nil) and ((Gear^.State and gstChooseTarget) <> 0) then
  1817             begin
  1823             begin
  1818         if (CurAmmoType = amNapalm) or (CurAmmoType = amMineStrike) or (((GameFlags and gfMoreWind) <> 0) and ((CurAmmoType = amDrillStrike) or (CurAmmoType = amAirAttack))) then
       
  1819             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);
       
  1820         i:= GetCurAmmoEntry(CurrentHedgehog^)^.Pos;
  1824         i:= GetCurAmmoEntry(CurrentHedgehog^)^.Pos;
  1821         with Ammoz[CurAmmoType] do
  1825         with Ammoz[CurAmmoType] do
  1822             if PosCount > 1 then
  1826             if PosCount > 1 then
  1823                 begin
  1827                 begin
  1824                 if (CurAmmoType = amGirder) or (CurAmmoType = amTeleport) then
  1828                 if (CurAmmoType = amGirder) or (CurAmmoType = amTeleport) then