36 {$INCLUDE options.inc}

    36 {$INCLUDE options.inc}

    37 procedure ProcessBot;

    37 procedure ProcessBot;

    38 

    38 

    39 implementation

    39 implementation

    40 uses uAIActions, uAIMisc, uMisc, uTeams, uConsts, uAIAmmoTests, uGears, SDLh;

    40 uses uAIActions, uAIMisc, uMisc, uTeams, uConsts, uAIAmmoTests, uGears, SDLh;

    46 

    41 

    47 procedure Think;

    42 procedure Think;

    48 var Targets: TTargets;

    43 var Targets: TTargets;

    49     Angle, Power: integer;

    44     Angle, Power: integer;

    50     Time: Longword;

    45     Time: Longword;