SRL Archive - Non-RuneScape Scripts

Dont think it works anymore.

The script is still in work to be improved.

Curently working : Willow longbow u
Bank(s) : Alkharid Chest

Setup :
-Make sure you know how to setup simba + uptades and everything, really important !
-Start with a knife (anywhere in invent except last spot of invent) and full invent of willow logs.
-Have your willow in bank in top of your bank (the bot doesn't search for it, it wont scroll your bank…)
-Only bank atm is at Alkharid chest, make make sure your camera is like this :
-No anti random yet, dont wear anything valuable.

program fletcher;
{$i srl/srl.simba}

var
x,y,m,n,MakeXYellow,MakeXWhite,StoreAllYellow,StoreAllWhite,WindrawAllWhite:integer;

procedure TypeSendExx(Text: string; PressEnter: Boolean);
var
  I: Integer;
begin
  for i := 1 to Length(Text) do
  begin
    {$IFDEF SIMBAMAJOR980}
    SendKeys(Text[i], 1 + Random(1));
    {$ELSE}
    SendKeys(Text[i], 1 + Random(1), 1 + Random(1));
    {$ENDIF}
    Wait(1);
  end;

  if (PressEnter) then
    TypeByte(VK_ENTER);
end;

procedure CutWillow;
begin
  if FindColorTolerance(x,y,140092,557,204,738,459,5) and FindColorTolerance(m,n,798006,557,204,738,459,3)then
  begin
    MoveMouse(x,y);
    wait(200);
    ClickMouse(x,y,1);
    Wait(200);
    MoveMouse(m,n);
    Wait(200);
    ClickMouse(m,n,1);
    repeat
      wait(100);
    until(FindColorTolerance(x,y,732208,277,372,457,451,5));
    if FindColorTolerance(x,y,732208,277,372,457,451,5)then
    begin
      MoveMouse(x,y);
      Wait(200);
      ClickMouse(x,y,0);
      wait(300);
      MakeXYellow := BitmapFromString(43, 10, 'meJzNk0sKACAIRL3/pS1oE834C6' +
        'SkxSCTPM1EVebZAzMYGU94celPADDZBCDQ+IHxCoAK6j8AMmaf398' +
        'BX1tUtGw4AVpHKqvSAXAxAf8Jqt8w1MmurwGsvjKToTBgHkvXTMI=');
      MakeXWhite := BitmapFromString(43, 10, 'meJzFksEOACAIQv3/n6Z1c4FptY' +
        'pTU3IPC+gyJ1CFVfGkF+H0HYCLlwCMgiPQYwB5kP4BoGKe87M56sq' +
        'XklRybLoBOcdWvsoNgI0NSLbJ8BOAeuptgChXZTMShs0NaNLzGw==');
      if FindBitMapToleranceIn(MakeXYellow,x,y,4,4,763,499,10) or FindBitMapToleranceIn(MakeXWhite,x,y,4,4,763,499,10)then
      begin
        MoveMouse(x,y);
        Wait(200);
        ClickMouse(x,y,1);
        repeat
          Wait(100);
        until(FindColorTolerance(x,y,8388608,200,400,317,428,5));
        FreeBitMap(MakeXYellow);
        FreeBitMap(MakeXWhite);
      end;
    Wait(300);
    TypeSendExx(IntToStr(Random(50)+27), true)
    end;
    repeat
      Wait(200);
    until(FindColorTolerance(x,y,1728616,689,423,733,460,6));
  end;
end;

Procedure BankChest;
begin
  if FindColorTolerance(x,y,2965592,MSX1,MSY1,MSX2,MSY2,3)then
  begin
    MoveMouse(x,y);
    wait(300);
    ClickMouse(x,y,1);
    repeat
      Wait(200);
    until(FindColorTolerance(x,y,2070783,182,33,246,50,3));
    Wait(750);
    if FindColorTolerance(x,y,1728616,689,423,733,460,6)then
    begin
      MoveMouse(x,y)
      Wait(200);
      ClickMouse(x,y,0)
      wait(500);
      StoreAllWhite := BitmapFromString(55, 10, 'meJzNkEsOACEIQ7n/pcfMYoyhLf' +
        'id2BUSKY+avXo+2b+ie9tOrbFw9VFC3IUYCuY0ZArmaspzGyRFojk' +
        'vNpW/+xmAxc/0wJ5YlFtq3oOx1+cqSEx4GrJ2gqmVY5VGk1QnY5/m' +
        'E88q4CHIAk6wPd8=');
      StoreAllYellow := BitmapFromString(55, 10, 'meJzNk1sKACAIBLv/pQsiItT1QR' +
        'pJHya1joqtTet9nccm5j0j2+cO8UsJeS6OgWCqIU0w4os8v0GKSGK' +
        'fL4NIn7xUwPSrWaCnLUjNFPdg5Op8BekZt1McrU9WJ5FFO4lKDu0I' +
        '+psx7gEh/H6Q');
      if FindBitMapToleranceIn(StoreAllYellow,x,y,552,200,739,459,10) or FindBitMapToleranceIn(StoreAllWhite,x,y,552,200,739,459,10)then
      begin
        MoveMouse(x,y);
        Wait(200);
        ClickMouse(x,y,1);
        Wait(200);
      end;
    if FindColorTolerance(x,y,996155,MSX1,MSY1,MSX2,MSY2,3)then
    begin
      MoveMouse(x,y);
      Wait(200);
      ClickMouse(x,y,0);
      Wait(500);
      WindrawAllWhite := BitmapFromString(78, 10, 'meJzdklEKgDAMQ73/pSt+KKNLst' +
        'iCMPNVJCZ91YhLx6CYnjA5Tj+trLjFemOQs5vvfOvp6MlPRT8jXdK' +
        'Ns/Pd2c6bkrLfIOWwhPkV7Rc2jcAqYJdPyuaUIHaDjRBBdGlSM61P' +
        'Wpvnc0EnPOOOpM5u6QhlUhi7fPcz0jQ3SRPsMsqhgKeDC4sjw7lMe' +
        'gJdfIOn');
      if FindBitMapToleranceIn(WindrawAllWhite,x,y,MSX1,MSY1,MSX2,MSY2,10)then
      begin
        MoveMouse(x,y);
        Wait(200);
        ClickMouse(x,y,1);
        Wait(500);
      end;
    end else
      terminatescript;
    end;
    MoveMouse(451,41);
    Wait(200);
    ClickMouse(451,41,1);
    Wait(750);
  end;
  FreeBitMap(StoreAllYellow);
  FreeBitMap(StoreAllWhite);
  FreeBitMap(WindrawAllWhite)
end;

begin
  repeat
    CutWillow;
    BankChest;
  until(false);
end.

Nice work there. :)

You should free the DTM correctly at the end of the script instead of calling on it over and over again in your loop.

http://villavu.com/forum/showthread.php?t=78418

From: Runehack123
Nice work there. :)

You should free the DTM correctly at the end of the script instead of calling on it over and over again in your loop.

http://villavu.com/forum/showthread.php?t=78418

There is no DTM, are you talking about BitMaps ?