# HG changeset patch
# User alfadur
# Date 1593533344 -10800
# Node ID 72173f800dc485ad27d9ebdc66d46af955676f68
# Parent  c34cad72cd855213f72adcd50b3d771e16713adb
add some target tracking to sentries

diff -r c34cad72cd85 -r 72173f800dc4 hedgewars/uGearsHandlersMess.pas
--- a/hedgewars/uGearsHandlersMess.pas	Tue Jun 30 02:18:54 2020 +0300
+++ b/hedgewars/uGearsHandlersMess.pas	Tue Jun 30 19:09:04 2020 +0300
@@ -7328,6 +7328,16 @@
             Gear^.Timer := 0
     end;
 
+    if ((GameTicks and $1F) = 0)
+        and (Gear^.Tag = sentry_Aiming)
+        and (CurrentHedgehog <> nil)
+        and (CurrentHedgehog^.Gear <> nil) then
+    begin
+        HHGear := CurrentHedgehog^.Gear;
+        Gear^.Target.X := Gear^.Target.X + hwSign(HHGear^.X - int2hwFloat(Gear^.Target.X));
+        Gear^.Target.Y := Gear^.Target.Y + hwSign(HHGear^.Y - int2hwFloat(Gear^.Target.Y));
+    end;
+
     if ((GameTicks and $FF) = 0)
         and (Gear^.Tag in [sentry_Idle, sentry_Walking])
         and (CurrentHedgehog <> nil)