equal
deleted
inserted
replaced
27 |
27 |
28 procedure ProcessBot; |
28 procedure ProcessBot; |
29 procedure FreeActionsList; |
29 procedure FreeActionsList; |
30 |
30 |
31 implementation |
31 implementation |
32 uses uTeams, uConsts, SDLh, uAIMisc, uGears, uAIAmmoTests, uAIActions, uMisc, |
32 uses uTeams, uConsts, SDLh, uAIMisc, uAIAmmoTests, uAIActions, uMisc, |
33 uAmmos, uConsole, SysUtils{$IFDEF UNIX}, cthreads{$ENDIF}; |
33 uAmmos, uConsole, SysUtils{$IFDEF UNIX}, cthreads{$ENDIF}, uTypes; |
34 |
34 |
35 var BestActions: TActions; |
35 var BestActions: TActions; |
36 CanUseAmmo: array [TAmmoType] of boolean; |
36 CanUseAmmo: array [TAmmoType] of boolean; |
37 StopThinking: boolean; |
37 StopThinking: boolean; |
38 ThinkThread: TThreadID; |
38 ThinkThread: TThreadID; |