# HG changeset patch # User unc0rr # Date 1351680663 -14400 # Node ID a86ccf3da9ca5ea8d24fb1d16fa391c9e01cafb8 # Parent e5e7678e4b2f40a97ffc24421bb1c3843be1fc3d Update ai actions tracing subsystem diff -r e5e7678e4b2f -r a86ccf3da9ca 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