(*

 * Hedgewars, a free turn based strategy game

 * Copyright (c) 2004-2015 Andrey Korotaev <unC0Rr@gmail.com>

 *

 * This program is free software; you can redistribute it and/or modify

 * it under the terms of the GNU General Public License as published by

 * the Free Software Foundation; version 2 of the License

 *

 * This program is distributed in the hope that it will be useful,

 * but WITHOUT ANY WARRANTY; without even the implied warranty of

 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

 * GNU General Public License for more details.

 *

 * You should have received a copy of the GNU General Public License

 * along with this program; if not, write to the Free Software

 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA

 *)

{$INCLUDE "options.inc"}

unit uAI;

interface

uses uFloat;

procedure initModule;

procedure freeModule;

procedure ProcessBot;

procedure FreeActionsList;

implementation

uses uConsts, SDLh, uAIMisc, uAIAmmoTests, uAIActions,

    uAmmos, uTypes,

    uVariables, uCommands, uUtils, uDebug, uAILandMarks,

    uGearsUtils;

var BestActions: TActions;

    CanUseAmmo: array [TAmmoType] of boolean;

    StopThinking: boolean;

    StartTicks: Longword;

    ThreadSem: PSDL_Sem;

procedure FreeActionsList;

begin

    AddFileLog('FreeActionsList called');

    StopThinking:= true;

    SDL_SemWait(ThreadSem);

    SDL_SemPost(ThreadSem);

    if CurrentHedgehog <> nil then

        with CurrentHedgehog^ do

            if Gear <> nil then

                if BotLevel <> 0 then

                    StopMessages(Gear^.Message);

    BestActions.Count:= 0;

    BestActions.Pos:= 0

end;

const cBranchStackSize = 12;

type TStackEntry = record

                   MadeActions: TActions;

                   Hedgehog: TGear;

                   end;

var Stack: record

           Count: Longword;

           States: array[0..Pred(cBranchStackSize)] of TStackEntry;

           end;

function Push(const Actions: TActions; const Me: TGear; Dir: integer): boolean;

var bRes: boolean;

begin

    bRes:= (Stack.Count < cBranchStackSize) and (Actions.Count < MAXACTIONS - 5);

    if bRes then

        with Stack.States[Stack.Count] do

            begin

            MadeActions:= Actions;

            Hedgehog:= Me;

            Hedgehog.Message:= Dir;

            inc(Stack.Count)

            end;

    Push:= bRes

end;

procedure Pop(var Actions: TActions; var Me: TGear);

begin

    dec(Stack.Count);

    with Stack.States[Stack.Count] do

        begin

        Actions:= MadeActions;

        Me:= Hedgehog

        end

end;

procedure TestAmmos(var Actions: TActions; Me: PGear; rareChecks: boolean);

var BotLevel: Byte;

    ap: TAttackParams;

    Score, i, l, t, n, dAngle: LongInt;

    a, aa: TAmmoType;

    useThisActions, hasLowGrav: boolean;

begin

BotLevel:= Me^.Hedgehog^.BotLevel;

aiWindSpeed:= hwFloat2Float(cWindSpeed);

aiLaserSighting:= (cLaserSighting) or (HHHasAmmo(Me^.Hedgehog^, amLaserSight) > 0);

aiGravity:= cGravity;

aiGravityf:= cGravityf;

hasLowGrav:= HHHasAmmo(Me^.Hedgehog^, amLowGravity) > 0;

useThisActions:= false;

Me^.AIHints:= Me^.AIHints and (not aihAmmosChanged);

for l:= 0 to 1 do // 0 = test with normal gravity. 1 = test with low gravity

if (l = 0) or ((hasLowGrav) and (not cLowGravity)) then

begin

// simulate normal or low gravity

if (l = 0) then

    begin

    aiGravity:= cGravity;

    aiGravityf:= cGravityf;

    end

else if (l = 1) then

    begin

    // We calculate the values to better support scripts like Gravity.

    // This might have a slight inaccuracy, but none have been spotted in testing.

    aiGravity:= cGravity / _2;

    aiGravityf:= cGravityf / 2;

    end;

for i:= 0 to Pred(Targets.Count) do

    if (Targets.ar[i].Score >= 0) and (not StopThinking) then

        begin

        with Me^.Hedgehog^ do

            a:= CurAmmoType;

        aa:= a;

        SDL_delay(0); // hint to let the context switch run

        repeat

        if (CanUseAmmo[a])

            and ((not rareChecks) or ((AmmoTests[a].flags and amtest_Rare) = 0))

            and ((i = 0) or ((AmmoTests[a].flags and amtest_NoTarget) = 0))

            and ((l = 0) or ((AmmoTests[a].flags and amtest_NoLowGravity) = 0))

            then

            begin

{$HINTS OFF}

            Score:= AmmoTests[a].proc(Me, Targets.ar[i], BotLevel, ap, AmmoTests[a].flags);

{$HINTS ON}

            if (Score > BadTurn) and (Actions.Score + Score > BestActions.Score) then

                if (BestActions.Score < 0) or (Actions.Score + Score > BestActions.Score + Byte(BotLevel - 1) * 2048) then

                    begin

                    if useThisActions then

                        begin

                        BestActions.Count:= Actions.Count

                        end

                    else

                        begin

                        BestActions:= Actions;

                        BestActions.isWalkingToABetterPlace:= false;

                        useThisActions:= true

                        end;

                    BestActions.Score:= Actions.Score + Score;

                    // if not between shots, activate invulnerability/vampirism/etc. if available

                    if CurrentHedgehog^.MultiShootAttacks = 0 then

                        begin

                        if (not cLaserSighting) and (HHHasAmmo(Me^.Hedgehog^, amLaserSight) > 0) and ((AmmoTests[a].flags and amtest_LaserSight) <> 0) then

                            begin

                            AddAction(BestActions, aia_Weapon, Longword(amLaserSight), 80, 0, 0);

                            AddAction(BestActions, aia_attack, aim_push, 10, 0, 0);

                            AddAction(BestActions, aia_attack, aim_release, 10, 0, 0);

                            end;

                        if ((AmmoTests[a].flags and amtest_NoInvulnerable) = 0) and

                            (HHHasAmmo(Me^.Hedgehog^, amInvulnerable) > 0) and (Me^.Hedgehog^.Effects[heInvulnerable] = 0) then

                            begin

                            AddAction(BestActions, aia_Weapon, Longword(amInvulnerable), 80, 0, 0);

                            AddAction(BestActions, aia_attack, aim_push, 10, 0, 0);

                            AddAction(BestActions, aia_attack, aim_release, 10, 0, 0);

                            end;

                        if (l = 1) and (hasLowGrav) then

                            begin

                            AddAction(BestActions, aia_Weapon, Longword(amLowGravity), 80, 0, 0);

                            AddAction(BestActions, aia_attack, aim_push, 10, 0, 0);

                            AddAction(BestActions, aia_attack, aim_release, 10, 0, 0);

                            end;

                        if (HHHasAmmo(Me^.Hedgehog^, amExtraDamage) > 0) and (cDamageModifier <> _1_5) then

                            begin

                            AddAction(BestActions, aia_Weapon, Longword(amExtraDamage), 80, 0, 0);

                            AddAction(BestActions, aia_attack, aim_push, 10, 0, 0);

                            AddAction(BestActions, aia_attack, aim_release, 10, 0, 0);

                            end;

                        if (not cVampiric) and ((AmmoTests[a].flags and amtest_NoVampiric) = 0) and

                            (HHHasAmmo(Me^.Hedgehog^, amVampiric) > 0) then

                            begin

                            AddAction(BestActions, aia_Weapon, Longword(amVampiric), 80, 0, 0);

                            AddAction(BestActions, aia_attack, aim_push, 10, 0, 0);

                            AddAction(BestActions, aia_attack, aim_release, 10, 0, 0);

                            end;

                        end;

                    AddAction(BestActions, aia_Weapon, Longword(a), 300 + random(400), 0, 0);

                    if (ap.Angle > 0) then

                        AddAction(BestActions, aia_LookRight, 0, 200, 0, 0)

                    else if (ap.Angle < 0) then

                        AddAction(BestActions, aia_LookLeft, 0, 200, 0, 0);

                    if (Ammoz[a].Ammo.Propz and ammoprop_Timerable) <> 0 then

                        AddAction(BestActions, aia_Timer, ap.Time div 1000, 400, 0, 0);

                    if ((Ammoz[a].Ammo.Propz and ammoprop_SetBounce) > 0) and (ap.Bounce > 0) then

                        begin

                        AddAction(BestActions, aia_Precise, aim_push, 10, 0, 0);

                        AddAction(BestActions, aia_Timer, ap.Bounce, 200, 0, 0);

                        AddAction(BestActions, aia_Precise, aim_release, 10, 0, 0);

                        end;

                    if (Ammoz[a].Ammo.Propz and ammoprop_NeedTarget) <> 0 then

                        begin

                        AddAction(BestActions, aia_Put, 0, 8, ap.AttackPutX, ap.AttackPutY)

                        end;

                    if (Ammoz[a].Ammo.Propz and ammoprop_NoCrosshair) = 0 then

                        begin

                        dAngle:= LongInt(Me^.Angle) - Abs(ap.Angle);

                        if dAngle > 0 then

                            begin

                            AddAction(BestActions, aia_Up, aim_push, 300 + random(250), 0, 0);

                            AddAction(BestActions, aia_Up, aim_release, dAngle, 0, 0)

                            end

                        else if dAngle < 0 then

                            begin

                            AddAction(BestActions, aia_Down, aim_push, 300 + random(250), 0, 0);

                            AddAction(BestActions, aia_Down, aim_release, -dAngle, 0, 0)

                            end

                        end;

                    if (Ammoz[a].Ammo.Propz and ammoprop_OscAim) <> 0 then

                        begin

                        AddAction(BestActions, aia_attack, aim_push, 350 + random(200), 0, 0);

                        AddAction(BestActions, aia_attack, aim_release, 1, 0, 0);

                        if abs(ap.Angle) > 32 then

                           begin

                           AddAction(BestActions, aia_Down, aim_push, 100 + random(150), 0, 0);

                           AddAction(BestActions, aia_Down, aim_release, 32, 0, 0);

                           end;

                        AddAction(BestActions, aia_waitAngle, ap.Angle, 250, 0, 0);

                        AddAction(BestActions, aia_attack, aim_push, 1, 0, 0);

                        AddAction(BestActions, aia_attack, aim_release, 1, 0, 0);

                        end else

                        if (Ammoz[a].Ammo.Propz and ammoprop_AttackingPut) = 0 then

                            begin

                            if (AmmoTests[a].flags and amtest_MultipleAttacks) = 0 then

                                n:= 1 else n:= ap.AttacksNum;

                            AddAction(BestActions, aia_attack, aim_push, 650 + random(300), 0, 0);

                            if (a = amResurrector) and (BotLevel < 4) then

                                AddAction(BestActions, aia_Up, aim_push, 1, 0, 0);

                            for t:= 2 to n do

                                begin

                                AddAction(BestActions, aia_attack, aim_push, 150, 0, 0);

                                AddAction(BestActions, aia_attack, aim_release, ap.Power, 0, 0);

                                end;

                            if (a = amResurrector) and (BotLevel < 4) then

                                AddAction(BestActions, aia_Up, aim_release, ap.Power, 0, 0);

                            AddAction(BestActions, aia_attack, aim_release, ap.Power, 0, 0);

                            // Just for fun: 0.01% chance for kamikaze with "wishes" ;-)

                            if (a = amKamikaze) and (random(10000) = 0) then

                                begin

                                AddAction(BestActions, aia_Switch, 0, 1, 0, 0);

                                AddAction(BestActions, aia_Precise, aim_push, 1, 0, 0);

                                AddAction(BestActions, aia_Precise, aim_release, 5000, 0, 0);

                                end;

                            end;

                    if (Ammoz[a].Ammo.Propz and ammoprop_Track) <> 0 then

                        begin

                        AddAction(BestActions, aia_waitAmmoXY, 0, 12, ap.ExplX, ap.ExplY);

                        AddAction(BestActions, aia_attack, aim_push, 1, 0, 0);

                        AddAction(BestActions, aia_attack, aim_release, 7, 0, 0);

                        end;

                    if ap.ExplR > 0 then

                        AddAction(BestActions, aia_AwareExpl, ap.ExplR, 10, ap.ExplX, ap.ExplY);

                    end

            end;

        if a = High(TAmmoType) then

            a:= Low(TAmmoType)

        else inc(a)

        until (a = aa) or (CurrentHedgehog^.MultiShootAttacks > 0) {shooting same weapon}

            or StopThinking

        end

end;

aiGravity:= cGravity;

aiGravityf:= cGravityf;

end;

procedure Walk(Me: PGear; var Actions: TActions);

const FallPixForBranching = cHHRadius;

var

    maxticks, oldticks, steps, tmp: Longword;

    BaseRate, BestRate, Rate, i: LongInt;

    GoInfo: TGoInfo;

    CanGo: boolean;

    AltMe: TGear;

    BotLevel: Byte;

    a: TAmmoType;

    isAfterAttack: boolean;

begin

Actions.ticks:= 0;

oldticks:= 0; // avoid compiler hint

Stack.Count:= 0;

clearAllMarks;

for a:= Low(TAmmoType) to High(TAmmoType) do

    CanUseAmmo[a]:= Assigned(AmmoTests[a].proc) and (HHHasAmmo(Me^.Hedgehog^, a) > 0);

BotLevel:= Me^.Hedgehog^.BotLevel;

isAfterAttack:= ((Me^.State and gstAttacked) <> 0) and ((GameFlags and gfInfAttack) = 0);

if isAfterAttack then

    maxticks:= Max(0, TurnTimeLeft - 500)

else

    maxticks:= Max(0, TurnTimeLeft - 5000 - LongWord(4000 * BotLevel));

if not isAfterAttack then

    TestAmmos(Actions, Me, false);

BestRate:= RatePlace(Me);

BaseRate:= Max(BestRate, 0);

// unselect weapon if we cannot move because of mouse cursor being shown

if (Ammoz[Me^.Hedgehog^.CurAmmoType].Ammo.Propz and ammoprop_NeedTarget) <> 0 then

    AddAction(Actions, aia_Weapon, Longword(amNothing), 100 + random(200), 0, 0);

if ((CurrentHedgehog^.MultiShootAttacks = 0) or ((Ammoz[Me^.Hedgehog^.CurAmmoType].Ammo.Propz and ammoprop_NoMoveAfter) = 0))

    and (CurrentHedgehog^.Effects[heArtillery] = 0) and (aiGravityf <> 0) then

    begin

    tmp:= random(2) + 1;

    Push(Actions, Me^, tmp);

    Push(Actions, Me^, tmp xor 3);

    while (Stack.Count > 0) and (not StopThinking) do

        begin

        Pop(Actions, Me^);

        AddAction(Actions, Me^.Message, aim_push, 250, 0, 0);

        if (Me^.Message and gmLeft) <> 0 then

            AddAction(Actions, aia_WaitXL, hwRound(Me^.X), 0, 0, 0)

        else

            AddAction(Actions, aia_WaitXR, hwRound(Me^.X), 0, 0, 0);

        steps:= 0;

        while (not StopThinking) do

            begin

    {$HINTS OFF}

            CanGo:= HHGo(Me, @AltMe, GoInfo);

    {$HINTS ON}

            oldticks:= Actions.ticks;

            inc(Actions.ticks, GoInfo.Ticks);

            if (Actions.ticks > maxticks) or (TurnTimeLeft < BestActions.ticks + 5000) then

            begin

                if (BotLevel < 5)

                        and (not isAfterAttack)

                        and (BestActions.Score > 0) // we have a good move

                        and (TurnTimeLeft < BestActions.ticks + 5000) // we won't have a lot of time after attack

                        and (HHHasAmmo(Me^.Hedgehog^, amExtraTime) > 0) // but can use extra time

                then

                begin

                    BestActions.Count:= 0;

                    AddAction(BestActions, aia_Weapon, Longword(amExtraTime), 80, 0, 0);

                    AddAction(BestActions, aia_attack, aim_push, 10, 0, 0);

                    AddAction(BestActions, aia_attack, aim_release, 10, 0, 0);

                    // Better bot levels know they can spam extra time if infinite

                    if (BotLevel < 3) and (HHHasAmmo(Me^.Hedgehog^, amExtraTime) = AMMO_INFINITE) then

                        for i:= 1 to 3 do

                            begin

                            AddAction(BestActions, aia_attack, aim_push, 100, 0, 0);

                            AddAction(BestActions, aia_attack, aim_release, 100, 0, 0);

                            end;

                end;

                break;

            end;

            if (BotLevel < 5)

                and (GoInfo.JumpType = jmpHJump)

                and (not checkMark(hwRound(Me^.X), hwRound(Me^.Y), markHJumped))

                then // hjump support

                begin

                // check if we could go backwards and maybe ljump over a gap after this hjump

                addMark(hwRound(Me^.X), hwRound(Me^.Y), markHJumped);

                if Push(Actions, AltMe, Me^.Message xor 3) then

                    begin

                    with Stack.States[Pred(Stack.Count)] do

                        begin

                        if (Me^.Message and gmLeft) <> 0 then

                            AddAction(MadeActions, aia_LookRight, 0, 200, 0, 0)

                        else

                            AddAction(MadeActions, aia_LookLeft, 0, 200, 0, 0);

                        AddAction(MadeActions, aia_HJump, 0, 305 + random(50), 0, 0);

                        AddAction(MadeActions, aia_HJump, 0, 350, 0, 0);

                        end;

                    // but first check walking forward

                    Push(Stack.States[Pred(Stack.Count)].MadeActions, AltMe, Me^.Message)

                    end;

                end;

            if (BotLevel < 3)

                and (GoInfo.JumpType = jmpLJump)

                and (not checkMark(hwRound(Me^.X), hwRound(Me^.Y), markLJumped))

                then // ljump support

                begin

                addMark(hwRound(Me^.X), hwRound(Me^.Y), markLJumped);

                // at final check where we go after jump walking backward

                if Push(Actions, AltMe, Me^.Message xor 3) then

                    with Stack.States[Pred(Stack.Count)] do

                        begin

                        if (Me^.Message and gmLeft) <> 0 then

                            AddAction(MadeActions, aia_LookLeft, 0, 200, 0, 0)

                        else

                            AddAction(MadeActions, aia_LookRight, 0, 200, 0, 0);

                        AddAction(MadeActions, aia_LJump, 0, 305 + random(50), 0, 0);

                        end;

                // push current position so we proceed from it after checking jump+forward walk opportunities

                if CanGo then Push(Actions, Me^, Me^.Message);

                // first check where we go after jump walking forward

                if Push(Actions, AltMe, Me^.Message) then

                    with Stack.States[Pred(Stack.Count)] do

                        AddAction(MadeActions, aia_LJump, 0, 305 + random(50), 0, 0);

                break

                end;

            // 'not CanGO' means we cannot go straight, possible jumps are checked above

            if not CanGo then

                break;

             inc(steps);

             Actions.actions[Pred(Actions.Count)].Param:= hwRound(Me^.X);

             Rate:= RatePlace(Me);

             if Rate > BestRate then

                begin

                BestActions:= Actions;

                BestActions.isWalkingToABetterPlace:= true;

                BestRate:= Rate;

                isAfterAttack:= true // we have better place, go there and do not use ammo

                end

            else if Rate < BestRate then

                break;

            if (not isAfterAttack) and ((steps mod 4) = 0) then

                begin

                if (steps > 4) and checkMark(hwRound(Me^.X), hwRound(Me^.Y), markWalkedHere) then

                    break;

                addMark(hwRound(Me^.X), hwRound(Me^.Y), markWalkedHere);

                TestAmmos(Actions, Me, Actions.ticks shr 12 = oldticks shr 12);

                end;

            if GoInfo.FallPix >= FallPixForBranching then

                Push(Actions, Me^, Me^.Message xor 3); // aia_Left xor 3 = aia_Right

            end {while};

        if BestRate > BaseRate then

            exit

        end {while}

    end {if}

end;