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,

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

    34      uVariables, uCommands, uUtils, uDebug;

    34      uVariables, uCommands, uUtils, uDebug;

    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;