LogMolestor Fletcher Version 1.0[soulsplit]

////////////////////////////////////////////////////////////////////////////////
//////////////////////////Soulsplit Log molestor Version 1.0////////////////////////
/////////////////////////Made by RJJ95, Use at any bank/////////////////////////
///////////////Programed to be used at south neit, change bank color////////////
///////////if you want it to fletch somewere else. HAPPY BOTTING!!!!!!//////////
////////////////////////////////////////////////////////////////////////////////
program Molestor;
{$i srl/srl.simba}
const
fletchlogcolor=10201131;
storebowcolor=5330965;
bank=1857394;
bankx=210;
banky=124;
bankxtwo=278;
bankytwo=164;

var
  usebank: Integer;
procedure storeall;
var
  X, Y: Integer;
  begin
  Writeln('Looking for bow . . .')
  if FindColorTolerance(X,Y,storebowcolor,557,213,722,247,19) then
  begin
  MouseSpeed:=15;
  mmouse(x, y,1,1);
  Writeln('Found bow to store.')
  Wait(550 + Random(150));
  ClickMouse(x, y, mouse_Right);
  Wait(550 + Random(150));
  mmouse(x, y+75,1,1);
  Writeln('Storing bows . . .')
  Wait(550 + Random(150));
  ClickMouse(X, Y, mouse_Left)
  Wait(850 + Random(150));
  ClearDebug;
  end;
end;
procedure bankit;
var
  X, Y: Integer;
  begin
  Writeln('FLooking for bank . . .')
  if FindColorTolerance(X,Y,bank,bankx,banky,bankxtwo,bankytwo,17) then
  begin
  MouseSpeed:=15;
  mmouse(x, y,1,1);
  Writeln('Found bank.')
  Wait(250 + Random(150));
  ClickMouse(x, y, mouse_Right);
  Wait(900 + Random(250));
  FindBitmapToleranceIn(usebank, X, Y,153, 62, 338, 199, 145)
  MouseSpeed:=40;
  mmouse(x, y,1,1);
  WriteLn('Opened Bank!');
  Wait(500 + Random(120));
  ClickMouse(X, Y, mouse_Left);
  Wait(1500 + Random(250));
  storeall;
  end;
end;
procedure fletchit;
var
  X, Y: Integer;
  begin
  Writeln('Finding knife . . .')
  if FindColorTolerance(X,Y,7434874,683,420,727,457,15) then
  begin
  Writeln('Found knife.')
  MouseSpeed:=15;
  mmouse(x, y,1,1);
  Wait(250 + Random(150));
  ClickMouse(x, y, mouse_Left);
  Writeln('Finding log . . .')
  Wait(850 + Random(150));
  FindColorTolerance(X,Y,fletchlogcolor,557,214,719,458,15)
  mmouse(x, y,1,1);
  Writeln('Using knife on log . . . ')
  Wait(250 + Random(150));
  ClickMouse(x, y, mouse_Left);
  Writeln('Waiting for fletch interface . . . ')
  Wait(1400 + Random(150));
  Writeln('Found fletching interface')
  FindColorTolerance(X,Y,10799322,242,380,253,387,15)
  mmouse(x, y,1,1);
  Wait(250 + Random(150));
  ClickMouse(x, y, mouse_Right);
  Wait(550 + Random(150));
  mmouse(x, y+65,1,1);
  Wait(550 + Random(150));
  ClickMouse(x, y, mouse_Left);
  Writeln('Fletching logs . . . ')
  Wait(32000 + Random(2200));
  bankit;
  end;
 end;


procedure closefletch;
var
  X, Y: Integer;
  begin
  if FindColorTolerance(X,Y,8421504,423,29,491,45,15) then
  begin
  Writeln('Closing bank . . .')
  MouseSpeed:=20;
  mmouse(x, y,1,1);
  Wait(250 + Random(150));
  ClickMouse(x, y, mouse_Left);
  Wait(700 + Random(150));
  fletchit;
  end;
end;
procedure withd;
var
  X, Y: Integer;
  begin
    if FindColorTolerance(X,Y,storebowcolor,560,213,720,457,6) then
    begin
    if FindColorTolerance(X,Y,3358280,18,25,499,325,6) then
    begin
    bankit;
    end;
    storeall;
    end;
   //if FindColorTolerance(X,Y,fletchlogcolor,560,213,720,457,6) then
   // begin

   // closefletch;
 //  end;
   if FindColorTolerance(X,Y,fletchlogcolor,560,213,720,457,6) then
   begin
   if FindColorTolerance(X,Y,3358280,18,25,499,325,6) then
   begin
   closefletch;
   end;
   fletchit
  end;
  if FindColorTolerance(X,Y,fletchlogcolor,16,25,502,327,6) then
  begin
  Writeln('Withdrawing logs . . .')
  MouseSpeed:=18;
  mmouse(x, y,1,1);
  Wait(250 + Random(150));
  ClickMouse(x, y, mouse_Right);
  Wait(250 + Random(150));
  mmouse(x, y+72,1,1);
  Wait(250 + Random(150));
  ClickMouse(x, y, mouse_Left);
  Wait(950 + Random(150));
  closefletch;
  end;
end;
begin
   usebank := BitmapFromString(38, 13, 'meJyTUdeWoTuauuMYEOHiko3+/2' +
        'dARpg2MjAwYOVSaCMEoFlKaxvR2IPQRggXjtBCBk+ko8UjBBC0Ec5' +
        'GBmjiuCwlOx7xeBDNdirGI6Zf0IIaOcSIsVEGKQ8iG4JmAv7QJinl' +
        '4HI2fr/gSlHEpBy00ENzNlZBglJEKqAPAgANRYUm');
      repeat
      withd;
      until False;
  FreeBitmap(usebank);
end.