equal
deleted
inserted
replaced
62 |
62 |
63 procedure AddAction(var Actions: TActions; Action: Longword; Param: LongInt; TimeDelta: Longword; X, Y: LongInt); |
63 procedure AddAction(var Actions: TActions; Action: Longword; Param: LongInt; TimeDelta: Longword; X, Y: LongInt); |
64 procedure ProcessAction(var Actions: TActions; Me: PGear); |
64 procedure ProcessAction(var Actions: TActions; Me: PGear); |
65 |
65 |
66 implementation |
66 implementation |
67 uses uAIMisc, uAI, uAmmos, uVariables, uCommands, uUtils, uDebug, uIO; |
67 uses uAIMisc, uAI, uAmmos, uVariables, uCommands, uUtils, uDebug, uIO{$IFDEF TRACEAIACTIONS}, uConsole{$ENDIF}; |
68 |
68 |
69 const ActionIdToStr: array[0..7] of string[16] = ( |
69 const ActionIdToStr: array[0..7] of string[16] = ( |
70 {aia_none} '', |
70 {aia_none} '', |
71 {aia_Left} 'left', |
71 {aia_Left} 'left', |
72 {aia_Right} 'right', |
72 {aia_Right} 'right', |