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