29 procedure FreeActionsList;

    29 procedure FreeActionsList;

    30 

    30 

    31 implementation

    31 implementation

    32 uses uConsts, SDLh, uAIMisc, uAIAmmoTests, uAIActions,

    32 uses uConsts, SDLh, uAIMisc, uAIAmmoTests, uAIActions,

    33      uAmmos, SysUtils{$IFDEF UNIX}{$IFNDEF ANDROID}, cthreads{$ENDIF}{$ENDIF}, uTypes,

    33      uAmmos, SysUtils{$IFDEF UNIX}{$IFNDEF ANDROID}, cthreads{$ENDIF}{$ENDIF}, uTypes,

    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: PSDL_Thread = nil;

    39     ThinkThread: PSDL_Thread = nil;

   351 end;

   351 end;

   352 

   352 

   353 procedure initModule;

   353 procedure initModule;

   354 begin

   354 begin

   355     hasThread:= 0;

   355     hasThread:= 0;

   356 end;

   357 end;

   357 

   358 

   358 procedure freeModule;

   359 procedure freeModule;

   359 begin

   360 begin

   360 

   361