22 procedure ProcessBot(FrameNo: Longword);

    22 procedure ProcessBot(FrameNo: Longword);

    23 procedure FreeActionsList;

    23 procedure FreeActionsList;

    24 

    24 

    25 implementation

    25 implementation

    26 uses uTeams, uConsts, SDLh, uAIMisc, uGears, uAIAmmoTests, uAIActions, uMisc,

    26 uses uTeams, uConsts, SDLh, uAIMisc, uGears, uAIAmmoTests, uAIActions, uMisc,

    28 

    28 

    29 var BestActions: TActions;

    29 var BestActions: TActions;

    30     CanUseAmmo: array [TAmmoType] of boolean;

    30     CanUseAmmo: array [TAmmoType] of boolean;

    31     AIThinkStart: Longword;

    31     AIThinkStart: Longword;

    32     isThinking: boolean = false;

    32     isThinking: boolean = false;