hedgewars/uAIActions.pas
changeset 7416 2f2f78fc65a3
parent 7197 5a9775b97c7e
child 7433 c7fff3e61d49
--- a/hedgewars/uAIActions.pas	Fri Jul 20 21:30:53 2012 -0400
+++ b/hedgewars/uAIActions.pas	Sun Jul 22 00:48:48 2012 +0400
@@ -44,6 +44,7 @@
     aia_Wait       = $8009;
     aia_Put        = $800A;
     aia_waitAngle  = $800B;
+    aia_waitAmmoXY = $800C;
     
     aim_push       = $8000;
     aim_release    = $8001;
@@ -234,6 +235,10 @@
                 
             aia_waitAngle:
                 if Me^.Angle <> Abs(Param) then exit;
+
+            aia_waitAmmoXY:
+                if (CurAmmoGear <> nil) and ((hwRound(CurAmmoGear^.X) <> X) or (hwRound(CurAmmoGear^.Y) <> Y)) then exit;
+
             end
         else
             begin