changeset 7671 | 43f38923bc6e |
parent 7433 | c7fff3e61d49 |
child 7721 | 2b1ad418ba39 |
7670:9485b88f6a44 | 7671:43f38923bc6e |
---|---|
65 |
65 |
66 procedure AddAction(var Actions: TActions; Action: Longword; Param: LongInt; TimeDelta: Longword; X, Y: LongInt); |
66 procedure AddAction(var Actions: TActions; Action: Longword; Param: LongInt; TimeDelta: Longword; X, Y: LongInt); |
67 procedure ProcessAction(var Actions: TActions; Me: PGear); |
67 procedure ProcessAction(var Actions: TActions; Me: PGear); |
68 |
68 |
69 implementation |
69 implementation |
70 uses uAIMisc, uAI, uAmmos, uVariables, uCommands, uUtils, uDebug, uIO{$IFDEF TRACEAIACTIONS}, uConsole{$ENDIF}; |
70 uses uAIMisc, uAI, uAmmos, uVariables, uCommands, uUtils, uIO{$IFDEF TRACEAIACTIONS}, uConsole{$ENDIF}; |
71 |
71 |
72 var PrevX: LongInt = 0; |
72 var PrevX: LongInt = 0; |
73 timedelta: Longword = 0; |
73 timedelta: Longword = 0; |
74 |
74 |
75 const ActionIdToStr: array[0..8] of string[16] = ( |
75 const ActionIdToStr: array[0..8] of string[16] = ( |