| changeset 7028 | 0f60591f3a16 |
| parent 6982 | 8d41d22a291d |
| child 7132 | baf3351646f4 |
| 7027:f264ad9d8965 | 7028:0f60591f3a16 |
|---|---|
64 procedure AddAction(var Actions: TActions; Action: Longword; Param: LongInt; TimeDelta: Longword; X, Y: LongInt); |
64 procedure AddAction(var Actions: TActions; Action: Longword; Param: LongInt; TimeDelta: Longword; X, Y: LongInt); |
65 procedure ProcessAction(var Actions: TActions; Me: PGear); |
65 procedure ProcessAction(var Actions: TActions; Me: PGear); |
66 |
66 |
67 implementation |
67 implementation |
68 uses uAIMisc, uAI, uAmmos, uVariables, uCommands, uUtils, uDebug, uIO{$IFDEF TRACEAIACTIONS}, uConsole{$ENDIF}; |
68 uses uAIMisc, uAI, uAmmos, uVariables, uCommands, uUtils, uDebug, uIO{$IFDEF TRACEAIACTIONS}, uConsole{$ENDIF}; |
69 |
|
70 var PrevX: LongInt = 0; |
|
71 timedelta: Longword = 0; |
|
69 |
72 |
70 const ActionIdToStr: array[0..7] of string[16] = ( |
73 const ActionIdToStr: array[0..7] of string[16] = ( |
71 {aia_none} '', |
74 {aia_none} '', |
72 {aia_Left} 'left', |
75 {aia_Left} 'left', |
73 {aia_Right} 'right', |
76 {aia_Right} 'right', |