28 procedure ProcessBot;

    28 procedure ProcessBot;

    29 procedure FreeActionsList;

    29 procedure FreeActionsList;

    30 

    30 

    31 implementation

    31 implementation

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

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

    34 

    35 

    35 var BestActions: TActions;

    36 var BestActions: TActions;

    36     CanUseAmmo: array [TAmmoType] of boolean;

    37     CanUseAmmo: array [TAmmoType] of boolean;

    37     StopThinking: boolean;

    38     StopThinking: boolean;

    38     ThinkThread: TThreadID;

    39     ThinkThread: TThreadID;