Update ai actions tracing subsystem 0.9.18
authorunc0rr
Wed, 31 Oct 2012 14:51:03 +0400
branch0.9.18
changeset 7901 a86ccf3da9ca
parent 7900 e5e7678e4b2f
child 7902 a82b1bf2eca1
Update ai actions tracing subsystem
hedgewars/uAIActions.pas
--- a/hedgewars/uAIActions.pas	Wed Oct 31 14:50:45 2012 +0400
+++ b/hedgewars/uAIActions.pas	Wed Oct 31 14:51:03 2012 +0400
@@ -72,7 +72,7 @@
 var PrevX: LongInt = 0;
     timedelta: Longword = 0;
 
-const ActionIdToStr: array[0..8] of string[16] = (
+const ActionIdToStr: array[0..7] of string[16] = (
 {aia_none}           '',
 {aia_Left}           'left',
 {aia_Right}          'right',
@@ -80,12 +80,11 @@
 {aia_attack}         'attack',
 {aia_Up}             'up',
 {aia_Down}           'down',
-{aia_Switch}         'switch',
-{aia_waitAngle}      'waitAngle'
+{aia_Switch}         'switch'
                      );
 
 {$IFDEF TRACEAIACTIONS}
-const SpecActionIdToStr: array[$8000..$8009] of string[16] = (
+const SpecActionIdToStr: array[$8000..$800C] of string[16] = (
 {aia_Weapon}             'aia_Weapon',
 {aia_WaitX}              'aia_WaitX',
 {aia_WaitY}              'aia_WaitY',
@@ -95,7 +94,10 @@
 {aia_HJump}              'aia_HJump',
 {aia_LJump}              'aia_LJump',
 {aia_Skip}               'aia_Skip',
-{aia_Wait}               'aia_Wait'
+{aia_Wait}               'aia_Wait',
+{aia_Put}                'aia_Put',
+{aia_waitAngle}          'aia_waitAngle',
+{aia_waitAmmoXY}         'aia_waitAmmoXY'
 );
 
 procedure DumpAction(Action: TAction; Me: PGear);
@@ -237,8 +239,8 @@
                 if LongInt(Me^.Angle) <> Abs(Param) then exit;
 
             aia_waitAmmoXY:
-                if (CurAmmoGear <> nil) and ((hwRound(CurAmmoGear^.X) <> X) or (hwRound(CurAmmoGear^.Y) <> Y)) then exit;
-
+                if (CurAmmoGear <> nil) and ((hwRound(CurAmmoGear^.X) <> X) or (hwRound(CurAmmoGear^.Y) <> Y)) then 
+                    exit;
             end
         else
             begin