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