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 uConsts, SDLh, uAIMisc, uAIAmmoTests, uAIActions, uMisc, |
32 uses uConsts, SDLh, uAIMisc, uAIAmmoTests, uAIActions, |
33 uAmmos, SysUtils{$IFDEF UNIX}, cthreads{$ENDIF}, uTypes, |
33 uAmmos, SysUtils{$IFDEF UNIX}, cthreads{$ENDIF}, uTypes, |
34 uVariables, uCommands, uUtils; |
34 uVariables, uCommands, uUtils, uIO; |
35 |
35 |
36 var BestActions: TActions; |
36 var BestActions: TActions; |
37 CanUseAmmo: array [TAmmoType] of boolean; |
37 CanUseAmmo: array [TAmmoType] of boolean; |
38 StopThinking: boolean; |
38 StopThinking: boolean; |
39 ThinkThread: TThreadID; |
39 ThinkThread: TThreadID; |