equal
deleted
inserted
replaced
28 uAmmos, uConsole, uCollisions, SysUtils{$IFDEF UNIX}, cthreads{$ENDIF}; |
28 uAmmos, uConsole, uCollisions, SysUtils{$IFDEF UNIX}, cthreads{$ENDIF}; |
29 |
29 |
30 var BestActions: TActions; |
30 var BestActions: TActions; |
31 CanUseAmmo: array [TAmmoType] of boolean; |
31 CanUseAmmo: array [TAmmoType] of boolean; |
32 StopThinking: boolean; |
32 StopThinking: boolean; |
33 ThinkThread: THandle; |
33 ThinkThread: TThreadID; |
34 hasThread: LongInt = 0; |
34 hasThread: LongInt = 0; |
35 |
35 |
36 procedure FreeActionsList; |
36 procedure FreeActionsList; |
37 begin |
37 begin |
38 {$IFDEF DEBUGFILE}AddFileLog('FreeActionsList called');{$ENDIF} |
38 {$IFDEF DEBUGFILE}AddFileLog('FreeActionsList called');{$ENDIF} |
39 if hasThread <> 0 then |
39 if hasThread <> 0 then |
40 begin |
40 begin |