hedgewars/uCommandHandlers.pas
changeset 10672 c2004c3e9c7d
parent 10633 2f062fac5791
child 10818 f642a28cab0c
--- a/hedgewars/uCommandHandlers.pas	Sun Dec 14 20:11:36 2014 +0100
+++ b/hedgewars/uCommandHandlers.pas	Sun Dec 14 21:54:54 2014 +0100
@@ -323,6 +323,7 @@
 end;
 
 procedure chAttack_p(var s: shortstring);
+var inbtwnTrgtAttks: Boolean;
 begin
 s:= s; // avoid compiler hint
 if CheckNoTeamOrHH then
@@ -333,7 +334,9 @@
     AddFileLog('/+attack: hedgehog''s Gear^.State = '+inttostr(State));
     if ((State and gstHHDriven) <> 0) then
         begin
-        FollowGear:= CurrentHedgehog^.Gear;
+        inbtwnTrgtAttks:= ((GameFlags and gfInfAttack) <> 0) and ((Ammoz[CurrentHedgehog^.CurAmmoType].Ammo.Propz and ammoprop_NeedTarget) <> 0);
+        if (not inbtwnTrgtAttks) then
+            FollowGear:= CurrentHedgehog^.Gear;
         if not isExternalSource then
             SendIPC(_S'A');
         Message:= Message or (gmAttack and InputMask);