equal
deleted
inserted
replaced
18 |
18 |
19 {$INCLUDE "options.inc"} |
19 {$INCLUDE "options.inc"} |
20 |
20 |
21 unit uAIActions; |
21 unit uAIActions; |
22 interface |
22 interface |
23 uses uGears, uFloat; |
23 uses uFloat, uTypes; |
24 |
24 |
25 const MAXACTIONS = 96; |
25 const MAXACTIONS = 96; |
26 aia_none = 0; |
26 aia_none = 0; |
27 aia_Left = 1; |
27 aia_Left = 1; |
28 aia_Right = 2; |
28 aia_Right = 2; |
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 uMisc, uConsts, uConsole, uAIMisc, uAI, uAmmos; |
65 uses uMisc, uConsole, uAIMisc, uAI, uAmmos; |
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', |