{$I AeroLib/AeroLib.simba}

var
  ragList := ['Bunny Ears','Bargk','Lenny','EII5H','BonI Avoidme','Vippp'];

function prayOff(): boolean;
begin
  result := GetColor(551, 95) = 7551053
end;

Function inSafeZone() : boolean;
Begin
  result :=  GetColor(479, 280) <> 65344;
end;

Function RunIsOff() : boolean;
Begin
  result :=  GetColor(582, 149) = 4014658;
end;

procedure TurnRunOn();
var
  x, y: integer;
begin
  MoveMouse(582, 149);

  ClickMouse(582, 149, mouse_left);
end

procedure quickPray();
var
  x, y: integer;
begin
  MoveMouse(553, 108);
  wait(50);
  ClickMouse(553, 108, mouse_left);
  wait(1200);
end

procedure walkOut

var x, y: integer;
begin
MoveMouse( 639,76);

ClickMouse(639,72, mouse_left);
end;

function isLuredEast(): boolean;
var
  x, y: integer;
begin
  result := FindColoredArea(x, y, 6059055, 662, 14, 663, 67, 0);
end;

function isLuredWest(): boolean;
var
  x, y: integer;
begin
  result := FindColoredArea(x, y, 4210238, 635, 34, 643, 79, 0);
end;

procedure runEast();
var
  x, y: integer;
begin
  x := 700 + Random( - 5, 5);
  y := 95 + Random( - 5, 5);
  MoveMouse(x, y);
  wait(50);
  ClickMouse(700 + Random( - 5, 5), 95 + Random( - 5, 5), mouse_left);
end

procedure runWest();
var
  x, y: integer;
begin
  x := 605 + Random( - 5, 5);
  y := 86 + Random( - 5, 5);
  MoveMouse(x, y);
  wait(50);
  ClickMouse(605 + Random( - 5, 5), 86 + Random( - 5, 5), mouse_left);
end

function isLuredNorth(): boolean;
var
  x, y: integer;
begin
  result := FindColoredArea(x, y, 5000789, 598, 17, 707, 75, 30);
end;



procedure NaaNiggaIrunBack();
begin
  MoveMouse(634, 67);
  wait(10);
  ClickMouse(634, 67, mouse_left);
  wait(300);
end
function isLuredWest2(): boolean;
var
  x, y: integer;
begin
  result := FindColoredArea(x, y, 4475466 , 88, 45, 157, 164, 30);
end;

function isInCombat2(): boolean;

begin
(CountColor(65280, 253, 114, 279, 114) + CountColor(255,253, 114 , 279, 114)) >28
end


function isInCombat(): boolean;

begin
(CountColor(65280, 240, 114, 265, 115) + CountColor(255, 240, 114, 265, 115)) > 28
end;
function isLuredSafe(): boolean;
begin
  result := GetColor(488, 257) = 2763311
end;
procedure runSouth();
var
  x, y: integer;
begin
  x := 639 + Random( - 5, 5);
  y := 96 + Random( - 5, 5);
  MoveMouse(x, y);
  wait(50);
  ClickMouse(639 + Random( - 5, 5), 76 + Random( - 5, 5), mouse_left);
end
procedure hoverPlayers();
var
  Ground: TColEx;
  TPA, TPAA: TPointArray;
  ATPA: T2DPointArray;
  I, J: Integer;
begin
  Ground.Create(2434856, 7, 1.59, 0.38);
  if (Ground.findAllIn(IntToBox(4, 15, 515, 336), TPAA)) then
  begin
    TPA := ReturnPointsNotInTPA(TPAA, IntToBox(7, 35, 515, 336));
    ATPA := floodfilltpa(TPA);
    FilterTPAsBetween(ATPA, 0, 200);
    //debugATPA(ATPA, '');
    SortATPAFromMidPoint(ATPA, Point(MSCX, MSCY));
    for I := 0 to high(ATPA) do
    begin
    if (isLuredEast() or RunIsOff() or isInCombat2()  or isLuredNorth() or isLuredWest() or   isInCombat()  or inSafeZone()) then
        break;
      AccurateMMouse(ATPA[I].midPnt(), 0, 0);
      fastclick(mouse_right);

      if (WaitOptionMulti(ragList, 250)) then
      begin
        wait(2000);
        exit;
      end;
    end;
  end;
end;

var
  I: integer;
begin
  initAL();
  for i := 0 to high(ragList) do
  begin
    ragList[i] := 'AIIack ' + ragList[i];
  end;

 // while (true) do
 //   writeln(getOptions());
  while (true) do
  begin
    if (inSafeZone()) then
    begin
    walkout();
    end else if (prayOff()) then
    begin
      quickPray();
      sleep(100);
    end else if (RunIsOff()) then
    begin
    TurnRunOn();
    end else if (isLuredWest()) then
    begin
      runEast();
      sleep(250);
    end else if (isLuredNorth()) then
    begin
      runSouth();
      sleep(250);
    end else if (isLuredEast()) then
    begin
      runWest();
      sleep(250);
    end else if (isLuredWest2()) then
    begin
    runEast();
    end else
      hoverPlayers();
  end;
end.