[log molestor] Version 1.02

////////////////////////////////////////////////////////////////////////////////
//////////////////////////Soulsplit Log molestor Version 1.02///////////////////
/////////////////////////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!!!!!!//////////
{
-Recent updates,Version 1.02-
added new feature, waits for logs to be fletched instead of waiting
-32000 miliseconds fixed bank bitmap, looks for usebank is a wider area
-searches for bank in a slightly wider area to combat camera shifting
-ADDED ANTIBAN, YOU CAN EDIT MESSAGE IT SENDS AT LINE 39,EDIT ANTIBANRATE=50 TO
WHAT EVER YOU WANT, THE HIGHER THE NUMBER, THE LESS LIKELY A BREAK WILL BE TAKEN
-added random breaktimes
}
////////////////////////////////////////////////////////////////////////////////
program Molestor;
{$i srl/srl.simba}
const
fletchlogcolor=10201131;
storebowcolor=5330965;
bank=1857394;
bankx=210;
banky=124;
bankxtwo=278;
bankytwo=164;
antibanrate=50;
minbreaktime=4; //min break time in minutes
maxbreaktime=9; // max break time in minutes

var
  usebank,withall,outcome,resulte,bitch: Integer;
procedure antibanme;
  begin
  outcome := Random(antibanrate);
  bitch := (maxbreaktime*60000)-(minbreaktime*60000);
  resulte := Random(bitch)
  if outcome = 1 then
  begin
  Writeln('Doing random antiban wait!')
  TypeSend('This is boring lol');
  wait(minbreaktime+resulte)
  end;
end;
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));
  FindBitmapToleranceIn(withall, X, Y,554, 210, 730, 322, 145)
  mmouse(x, y,1,1);
  Writeln('Storing bows . . .')
  Wait(550 + Random(150));
  ClickMouse(X, Y, mouse_Left)
  Wait(850 + Random(150));
  ClearDebug;
  antibanme;
  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,31, 93, 455, 304, 165)
  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 fletchinglogs;
var
  X, Y: Integer;
  begin
  if FindColorTolerance(X,Y,fletchlogcolor,558,215,728,455,15) then
  begin
  Wait(500 + Random(150));
  fletchinglogs;
  end;
  bankit;
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;
  fletchinglogs;
  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
    Writeln('LogMolestor detected bows in your inventory and is banking them!')
    bankit;
    end;
    Writeln('LogMolestor detected your bank open and bows in your inventory!')
    storeall;
    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
   Writeln('LogMolestor detected logs in your inventory and your bank open!')
   closefletch;
   end;
   Writeln('LogMolestor detected logs in your inventory and is starting to fletch!')
   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');
   withall := BitmapFromString(33, 14, 'meJyTUdeWGV5o6o5jEIQpiMlGRg' +
        '4T/gMRfhG4dgYGBjRz4OJobEwDkcUxReB6kY0i1Qq4s+FcrFbgN5a' +
        'gFWgI0wo0RKoVQHFMBtaAgkcHGVYA2RATaBRQREb3qBX4rYBHE1Yu' +
        'LjYe7XhU0gIBAMyXctQ=');
      repeat
      withd;
      until False;
  FreeBitmap(usebank);
  FreeBitmap(withall);
end.