| changeset 15391 | 7a3d70c364fd |
| parent 15390 | 56f2c70723c8 |
| child 15601 | 30ad3fd974f1 |
| 15390:56f2c70723c8 | 15391:7a3d70c364fd |
|---|---|
66 |
66 |
67 procedure AddAction(var Actions: TActions; Action: Longword; Param: LongInt; TimeDelta: Longword; X, Y: LongInt); |
67 procedure AddAction(var Actions: TActions; Action: Longword; Param: LongInt; TimeDelta: Longword; X, Y: LongInt); |
68 procedure ProcessAction(var Actions: TActions; Me: PGear); |
68 procedure ProcessAction(var Actions: TActions; Me: PGear); |
69 |
69 |
70 implementation |
70 implementation |
71 uses uAIMisc, uAI, uAmmos, uVariables, uCommands, uUtils, uIO{$IFDEF TRACEAIACTIONS}, uConsole{$ENDIF}; |
71 uses uAIMisc, uAI, uAmmos, uVariables, uCommands, uConsts, uUtils, uIO{$IFDEF TRACEAIACTIONS}, uConsole{$ENDIF}; |
72 |
72 |
73 var PrevX: LongInt = 0; |
73 var PrevX: LongInt = 0; |
74 timedelta: Longword = 0; |
74 timedelta: Longword = 0; |
75 |
75 |
76 const ActionIdToStr: array[0..7] of string[16] = ( |
76 const ActionIdToStr: array[0..7] of string[16] = ( |