unit uAI2;

interface

procedure ProcessBot;

procedure initModule;

implementation

uses uLandUtils, uFloat, uVariables, uTypes;

{$linklib hwengine_future}

function create_ai(game_field: pointer): pointer; cdecl; external;

procedure ai_clear_team(ai: pointer); cdecl; external;

procedure ai_add_team_hedgehog(ai: pointer; x, y: real); cdecl; external;

procedure ai_think(ai: pointer); cdecl; external;

function ai_have_plan(): boolean; cdecl; external;

procedure dispose_ai(ai: pointer); cdecl; external;

var ai: pointer;

procedure ProcessBot;

var currHedgehogIndex, itHedgehog: Longword;

begin

    if ai = nil then

    begin

        ai:= create_ai(gameField)

    end;

    ai_clear_team(ai);

    currHedgehogIndex:= CurrentTeam^.CurrHedgehog;

    itHedgehog:= currHedgehogIndex;

    repeat

        with CurrentTeam^.Hedgehogs[itHedgehog] do

            if (Gear <> nil) and (Effects[heFrozen] = 0) then

            begin

                ai_add_team_hedgehog(ai, hwFloat2float(Gear^.X), hwFloat2float(Gear^.Y))

            end;

        itHedgehog:= Succ(itHedgehog) mod CurrentTeam^.HedgehogsNumber;

    until (itHedgehog = currHedgehogIndex);

end;

procedure initModule;

begin

    ai:= nil

end;

end.