program GuildSharks;
{.include_once includes/Lazar.General.scar}
{.include_once includes/Lazar.Sleeping.scar}
{.include_once includes/Lazar.Inventory.scar}
{.include_once includes/Lazar.Combat.scar}
{.include_once includes/Lazar.Banking.scar}

procedure WalkToBank;
var _a, _b:integer;
begin
  writeln('walking to bank');
  writeln('opening map');
  OpenTab(4);
  wait(100);
  writeln('looking for banker npc');
  if(FindColorSpiral(_a, _b, 65535,457,87,500,132)) then
  begin
    writeln('walking');
    clickmouse(_a+3, _b+3, true);
    wait(100);
    movemouse(0,0);
    wait(5000);
  end;
end;

procedure OpenBank;
var
_a, _b, _c, _d:integer;
found:boolean;
begin
  found := false;
  repeat
    if(IsBankOpen) then found := true;
    if(FindColorSpiralTolerance(_a,_b,65536,350,50,508,287,0)) then
    begin
      ClickMouse(_a+2,_b+2,false);
      wait(200);
      If(IsTextInArea(_a-100,_b-100,_a+100,_b+100,_c,_d,'Bank')) then
      begin
        ClickMouse(_c+3, _d+3, true);
        wait(5000+random(2000));
        if(IsBankOpen) then found := true;
      end else
      begin
        Movemouse(10,10);
        wait(100);
      end;
    end;
  until(found);
end;

procedure ClickFishingSpotNear;
var
_a, _b, _c, _d:integer;
begin
  if(FindColorSpiralTolerance(_a,_b,16025680,214,179,262,226,10)) then
  begin
    movemouse(_a,_b);
    wait(50);
    if(istextat(6,2,'fish: net')) then
    begin
      clickmouse(_a,_b,false);
      wait(100);
      if(istextinarea(_a-100,_b-100,_a+100,_b+100,_c,_d,'harpoon')) then
      begin
        clickmouse(_c+2,_d+2,true);
        wait(2000);
      end else
      begin
        movemouse(5,5);
      end;
    end;
  end;
end;

procedure ClickFishingSpotFar;
var _a, _b,_c,_d:integer;
found:boolean;
begin
  found:=false;
  repeat
  if(FindColorSpiralTolerance(_a,_b,16025680,4,140,88,319,10)) then
  begin
    movemouse(_a,_b);
    wait(50);
    if(istextat(6,2,'fish: net')) then
    begin
      clickmouse(_a,_b,false);
      wait(100);
      if(istextinarea(_a-100,_b-100,_a+100,_b+100,_c,_d,'harpoon')) then
      begin
        clickmouse(_c+2,_d+2,true);
        found:=true;
        wait(2000);
      end else
      begin
        movemouse(5,5);
      end;
    end;
  end;
  until(found);
end;

procedure DepositAllFish;
begin
  ClickMouse(429,273,true);
  wait(500);
end;

procedure DoBank;
begin
  //WalkToBank;
  wait(100);
  OpenBank;
  wait(100);
  DepositAllFish;
  wait(250+random(250));
  CloseBank;
  wait(500+random(500));
  ClickFishingSpotFar;
  wait(3000);
end;

begin
repeat
  if(NeedToSleep) then
  begin
    DoSleep(False, True);
  end;
  if(GetInventorySize > 29) then
  begin
    if(IsBatchOpen) then CancelBatch;
    DoBank;
    //wait(500);
    //WalkToSpot;
    wait(500);
  end;
  if(not(IsBatchOpen)) then ClickFishingSpotNear;
  wait(1000+random(1000));
until(IsLoggedOut);
end.