# HG changeset patch
# User alfadur
# Date 1593213751 -10800
# Node ID 8e93ce81e850495a45f243d5ddc286c2f5dca0c1
# Parent  8416b08ffdbb7119dd0145397d424c2a0b96ed6a
add current 🦔 targeting to sentry

diff -r 8416b08ffdbb -r 8e93ce81e850 hedgewars/uGearsHandlersMess.pas
--- a/hedgewars/uGearsHandlersMess.pas	Fri Jun 26 19:35:16 2020 +0300
+++ b/hedgewars/uGearsHandlersMess.pas	Sat Jun 27 02:22:31 2020 +0300
@@ -1607,10 +1607,11 @@
 
 procedure doStepDEagleShot(Gear: PGear);
 begin
-    Gear^.Data:= nil;
-    // remember who fired this
-    if (Gear^.Hedgehog <> nil) and (Gear^.Hedgehog^.Gear <> nil) then
-        Gear^.Data:= Pointer(Gear^.Hedgehog^.Gear);
+
+    if Gear^.Data = nil then
+        // remember who fired this
+        if (Gear^.Hedgehog <> nil) and (Gear^.Hedgehog^.Gear <> nil) then
+            Gear^.Data:= Pointer(Gear^.Hedgehog^.Gear);
 
     PlaySound(sndGun);
     ClearHitOrder();
@@ -7172,8 +7173,13 @@
 end;
 
 ////////////////////////////////////////////////////////////////////////////////
+
 procedure doStepSentry(Gear: PGear);
+var HHGear, bullet: PGear;
+    distX, distY, invDistance: HwFloat;
 begin
+    HHGear:= nil;
+
     if CheckGearDrowning(Gear) then
         exit;
 
@@ -7212,6 +7218,41 @@
         if TestCollisionX(Gear, 1) <> 0 then
             Gear^.Timer := 0
     end;
+
+    if ((GameTicks and $FF) = 0)
+        and (CurrentHedgehog <> nil)
+        and (CurrentHedgehog^.Gear <> nil)
+        and ((CurrentHedgehog^.Gear^.State and (gstMoving or gstHHDriven)) = (gstMoving or gstHHDriven)) then
+    begin
+        HHGear := CurrentHedgehog^.Gear;
+        distX := HHGear^.X - Gear^.X;
+        distY := HHGear^.Y - Gear^.Y;
+        if (distX.isNegative = Gear^.dX.isNegative)
+            and (distX.Round > 32)
+            and (distX.Round < 1000)
+            and (hwAbs(distY) < hwAbs(distX)) then
+        begin
+            invDistance := _1 / Distance(distX, distY);
+
+            distX := distX * invDistance;
+            distY := distY * invDistance;
+
+            bullet := AddGear(
+                 hwRound(Gear^.X), hwRound(Gear^.Y),
+                 gtDEagleShot, 0,
+                 distX,
+                 distY,
+                 0);
+            
+            bullet^.PortalCounter := 1;
+            bullet^.Elasticity := Gear^.X;
+            bullet^.Friction := Gear^.Y;
+            bullet^.Data := Pointer(Gear);
+            inc(Gear^.WDTimer);
+
+            CreateShellForGear(Gear, Gear^.WDTimer and 1);
+        end
+    end
 end;
 
-end.
+end.
\ No newline at end of file
diff -r 8416b08ffdbb -r 8e93ce81e850 hedgewars/uGearsList.pas
--- a/hedgewars/uGearsList.pas	Fri Jun 26 19:35:16 2020 +0300
+++ b/hedgewars/uGearsList.pas	Sat Jun 27 02:22:31 2020 +0300
@@ -563,7 +563,8 @@
                 end;
   gtDEagleShot: begin
                 gear^.Radius:= 1;
-                gear^.Health:= 50
+                gear^.Health:= 50;
+                gear^.Data:= nil;
                 end;
   gtSniperRifleShot: begin
                 gear^.Radius:= 1;
@@ -839,6 +840,7 @@
                 gear^.Elasticity:= _0_5;
                 gear^.Tag:= 0;
                 gear^.Timer:= 500;
+                gear^.WDTimer:= 0;
                 end;
 gtGenericFaller:begin
                 gear^.AdvBounce:= 1;