{$i AeroLib/AeroLib.Simba}

var
 aFound: Extended;
 item_overload: TItem;
 obj_prayericon : TItem;
 item_Absorb : TItem;
 item_cake : TItem;
 minimap : TBox;
 invbox1 : TBox;
 phealth : Integer;
 absorbtimer : Integer;

procedure flicpray;
var
  pnt : TPoint;
  x ,y : Integer;
begin
  writeln('Flicking Pray');
    if obj_prayericon.findIn(minimap,pnt) then
    begin
      humanMMouse(pnt,2,2);
      wait(50+random(20));
      ClickMouse(x,y,mouse_Left);
      wait(400+random(100));
      ClickMouse(x,y,mouse_Left);
     end
 end

procedure drinkoverload;
var
  pnt : TPoint;
  x ,y : Integer;
begin
  writeln('Drinking overload');
    if item_overload.findIn(invbox1,pnt) then
    begin
      humanMMouse(pnt,2,2);
      wait(50+random(20));
      ClickMouse(x,y,mouse_Left);
      wait(100+random(20));
      flicpray;
     end
 end


procedure drinkabsorb;
var
  pnt : TPoint;
  x ,y : Integer;
begin
  writeln('Drinking Absorb');
    if item_absorb.findIn(invbox1,pnt) then
    begin
      humanMMouse(pnt,2,2);
      wait(50+random(20));
      ClickMouse(x,y,mouse_Left);
      wait(100+random(20));
      absorbtimer := 0;
     end
 end


procedure createItems;
begin
  item_overload.Name := 'Overload';
  obj_prayericon.Name := 'prayer';
  item_cake.Name := 'Dwarven rock cake';
  item_absorb.Name := 'Absorb';
  item_overload.DTM:= DTMFromString('mggAAAHicY2NgYLjGwsBwF4jPA/FFIL4DpauYGBiKgLgEiAuAuA6KBfn4gLoYMTAXA3aAqRKCIQAAaUMIOQ==');
  obj_prayericon.DTM := DTMFromString('mbQAAAHicY2VgYMhnYWAoAeJUIE6Hsi8wMjCcAOKTQHwZitds3sCgKWfL4G6SxWCuEcggL6HPIALUj44ZsWAwAAAq6QtA');
  item_cake.DTM := DTMFromString('mbQAAAHicY2VgYHBiYmAwB2J3ILYFYm8gfgEUfwPEH4D4DhA/AuLSbH8gyYiCFRkwASMWDAYAMLoHMw==');
  item_absorb.DTM := DTMFromString('mbQAAAHicY2VgYHBiYmDwAmJLILYBYjcgFmVkYOAHYj4g5gBidiBev2s/UDUjClYEkuiYEQsGAwA64wRz');
end;


procedure startafk;
var
prayflictimer : Integer;
begin
  repeat
  begin
    prayflictimer := 0;
    repeat
    begin
      mouseSpeed := Random(16, 28);
      flicpray;
      wait(45000+random(5000));
      Inc(absorbtimer);
    end
    until (getCurrentHealth() >= 20);
    flicpray;
    drinkoverload;
    if (absorbtimer > 20) then
    begin
      drinkabsorb;
    end
    wait(8000+random(300));
  end
  until (false);
end;


procedure setupplayer;
var
  pnt : TPoint;
  x ,y : Integer;
  counter : Integer;
begin
    if item_overload.findIn(invbox1,pnt) then
    begin
      Writeln('Found Overload');
      humanMMouse(pnt,2,2);
      wait(500+random(300));
      ClickMouse(x,y,mouse_Left);
      wait(100+random(100));
     end
     wait(500+random(300));
     flicpray;
    repeat
    if item_absorb.findIn(invbox1,pnt) then
    begin
      Writeln('Found Absorb');
      humanMMouse(pnt,2,2);
      wait(500+random(300));
      ClickMouse(x,y,mouse_Left);
      wait(500+random(100));
      Inc(Counter);
     end
     until (counter = 20)
end

procedure eatcake;
var
  pnt : TPoint;
  x ,y : Integer;
  counter : Integer;
begin
  repeat
  if item_cake.findIn(invbox1,pnt) then
  begin
    Writeln('Found Cake');
    humanMMouse(pnt,2,2);
    wait(500+random(300));
    ClickMouse(x,y,mouse_Right);
    wait(100+random(100));
    chooseOption('Guzzle')
   end
   until (getCurrentHealth() <= 70)
   repeat
    if item_cake.findIn(invbox1,pnt) then
    begin
      humanMMouse(pnt,2,2);
      wait(500+random(300));
      ClickMouse(x,y,mouse_Left);
      wait(900+random(300));
    end
   until (getCurrentHealth() <= 51)
end


procedure mainLoop;
begin
  eatcake;
  setupplayer;
  flicpray;
  startafk;
end


begin
  initAL;
  minimap := ToBox(500, 91, 600, 130);
  invbox1 := ToBox(550, 208, 735, 465);
  createitems;
  mouseSpeed := Random(16, 28);
  mainLoop;
end;