SRL Archive - First Scripts

Hey.
These are my First two Scripts, so try not to hate to much ;)
I am using Only Bitmaps to Identify the Items, as DTMs with the Graphical Glitches kept struggling to find the Items.
The Location is at Varrock West Bank Although you can change it to where ever, as it doesn't really matter.
I'm uses Smart so it has auto login ect.
Yea..
At the Moment they only Cut and String Yew's, as I haven't looked changing them with in the script yet :)
Here is the Stringer:

Program AligndudesYewLongStringer;
{$define SMART}
{.include SRL/SRL.scar}
var
x, y:integer;
procedure DeclarePlayers;
begin
  HowManyPlayers := 1; // Number of Players to use
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0; // Player to start with, first one is 0
  Players[0].Name := ''; // Username
  Players[0].Pass := ''; // Password
  Players[0].Active := True; // True if you are using this player
  Players[0].Pin := ''; // Bank Pin. Leave it if you don't have one.
  Players[0].Integers[1] := 10000; // Number of loads
end;
Procedure Bank;
  Begin
  OpenBank('vwb', True, True); ////Feel Free To Change Bank <3////
if (PinScreen) then
  InPin(Players[CurrentPlayer].Pin);
if (bankscreen) then
End;
procedure BankWithdrawer;
Var
  YewUnk:Integer;
begin
YewUnk := BitmapFromString(14, 16, 'meJx9kssLQUEYxWXJwn14bP0Jio' +
        '2bV8j12NnZSUlEoizEDYkUJQtlYeM/dW6nvibTVafpm5nfnM58M9m' +
        'yGw6FIqWmMVgkz2/UULbs5mstjBRrp97OVZo+XGgY/Xli/0xdP5hi' +
        'kQJAhqPA1myXPL5Qp9MZWOnOEOFYbxTf3kkKI5jAvm2lYy9PyMC0g' +
        'kGSByKMtPH1jbZclF1VAKKNrr26JLyHauur6OqwOVwB1tOqR6QPSP' +
        'tDqjlFYKypR/gPKRms+SEoQMapSltoS1hvvn41wLQVkyDSHK/Nyea' +
        '3XQEwPZlWfwL1bxDD9AvRIJEE');
 If FindBitmapToleranceIn(YewUnk, X, Y, MSX1, MSY1, MSX2, MSY2, 45) Then
 begin
  Writeln('Found the YewLong(u)');
  Mouse(X, Y, 7,7, False);
  ChooseOption('Withdraw-14');
  wait(randomrange(100, 200));
  FreeBitmap(YewUnk);
end
  Else
  FreeBitmap(YewUnk);
  Writeln('Could not find YewLong(u)');
End;
 Procedure BankWithdrawString;
 Var
 BowString:Integer;
 Begin
 BowString := BitmapFromString(23, 12, 'meJyNkcEKwjAQRIv3+g39AaGYi4' +
        'gSEaR3PXr15v/fXXwwDptQhKFs0szbzKbUZZrmzTBIp/sz6fF6h/z' +
        'MfLxKpS4qAoXWgTDh7A4XR0Hb1xt1F+hMXawLQewkIMxuRrygKBzS' +
        'MlNGUPxSOnn1TYpNRYMwjlu6SzI608m6jAjEcZcvPUIarxNiVvDbv' +
        'isPnQjtI3aNuFxOiI7tga4lyQnlnPP+qR/hO/APqzueGQ==');
 If FindBitmapToleranceIn(BowString, X, Y, MSX1, MSY1, MSX2, MSY2, 45) Then
 begin
  Writeln('Debug**Found the BowString bitmap**');
  Mouse(X, Y, 7,7, False);
  ChooseOption('Withdraw-14');
  FreeBitmap(BowString);
end
  Else
  FreeBitmap(BowString);
  Writeln('Could not find BowString');
End;
Procedure BankingYewLongDone;
Var
YewLongDone:Integer;
Begin
  YewLongDone := BitmapFromString(19, 16, 'meJwztHZmYmCIjIwNCY0AMgysnI' +
        'Akj1eYQEK+SHkXkA0RxESG1s4QxeHh0ch6uZ18+SPThXLrRRumYtU' +
        'L0WgIthdNL5eNG1CvcEkbkK2gYIBLI1Z7eXwiBDMr4RqN7d2xaoTr' +
        'BSKI7zitnPljs0UqezBdi6zR2NYdUy9vQKxQTi0u18JtxLSX08IRG' +
        'MKYQaRn6YipEU0vX0iicGEzmqVYdaHp5TSzE0gqxHStroUDVo3AMA' +
        'QqBgYyUC9faLJIVR+uxIDLXqBeoKXI8QJHOqb2BPUCE4No03Q8lmJ' +
        '1OUSvcFEr1ngh6GZgEIl3zgcyIDFOkl6IjaRaCkRwXQC2KbqZ');
 If FindBitmapToleranceIn(YewLongDone, X, Y, MIX1, MIY1, MIX2, MIY2, 45) Then
  begin
    WriteLn('Found YewLong Bow');
    Mouse(x,y,7,7,False);
    ChooseOption('Deposit-All');
    FreeBitmap(YewLongDone);
  end else
 WriteLn('Could not Find YewLong Bow');
End;
   Procedure ShutDown;
  begin
    ClearDebug;
    Writeln('Bot Shutting Down **!**Error**!**');
    Wait(RandomRange(1000,1300));
    CloseBank;
    Logout;
    TerminateScript;
  end;
Procedure Making;
Var
BowString, YewUnk, Button:Integer;
begin
YewUnk := BitmapFromString(14, 16, 'meJx9kssLQUEYxWXJwn14bP0Jio' +
        '2bV8j12NnZSUlEoizEDYkUJQtlYeM/dW6nvibTVafpm5nfnM58M9m' +
        'yGw6FIqWmMVgkz2/UULbs5mstjBRrp97OVZo+XGgY/Xli/0xdP5hi' +
        'kQJAhqPA1myXPL5Qp9MZWOnOEOFYbxTf3kkKI5jAvm2lYy9PyMC0g' +
        'kGSByKMtPH1jbZclF1VAKKNrr26JLyHauur6OqwOVwB1tOqR6QPSP' +
        'tDqjlFYKypR/gPKRms+SEoQMapSltoS1hvvn41wLQVkyDSHK/Nyea' +
        '3XQEwPZlWfwL1bxDD9AvRIJEE');
BowString := BitmapFromString(23, 12, 'meJyNkcEKwjAQRIv3+g39AaGYi4' +
        'gSEaR3PXr15v/fXXwwDptQhKFs0szbzKbUZZrmzTBIp/sz6fF6h/z' +
        'MfLxKpS4qAoXWgTDh7A4XR0Hb1xt1F+hMXawLQewkIMxuRrygKBzS' +
        'MlNGUPxSOnn1TYpNRYMwjlu6SzI608m6jAjEcZcvPUIarxNiVvDbv' +
        'isPnQjtI3aNuFxOiI7tga4lyQnlnPP+qR/hO/APqzueGQ==');
Button := BitmapFromString(18, 15, 'meJyz9QhgYmCIiooLDYsEMmzBXB' +
        '7vcP7EAuGKbiAbIoiGbNz9gQgoFR4RA9EI4XI7+/FFZQjlNYg2ToM' +
        'IIiNrNz8IQtYI4XLZugM1Cpe0A9kKCgZwlWgIUyOPb6RgZhWmLitX' +
        'X2QE0QhEEB9xWrvyx+aIVPYC2cjKLF180BCaRt7AOMGcOoh1cDUWz' +
        't6YCFkjp6UTMDwhYQJXYO7khRUha+QNSRIqbIZYB5E1c/TEheAaOc' +
        '0dBJKKILrwqEfWCAxSoEa+sBSR6j4gFyJu6uCBH0E0Aq2DRwFQ0MT' +
        'enSCCaATGuGjTdCAbKGJs50YMgmgUKm6FWGdk60okAqoHholY1wIg' +
        'w9DGhXgEiXegXQDF8rIH');
 If FindBitmapToleranceIn(YewUnk, X, Y, MIX1, MIY1, MIX2, MIY2, 45) Then
  begin
   WriteLn('Found YewLong(u) (Inventory)');
   Mouse(x,y,7,7,True);
  end else
 ShutDown;
    Wait(randomrange(50,150));
 If FindBitmapToleranceIn(BowString, x, y, MIX1, MIY1, MIX2, MIY2, 45) Then
   Begin
    WriteLn('Found BowString (Inventory)');
    Mouse(x,y,7,7,True);
  end else
    Writeln('Not Found BowString(Inventory)');
    wait(randomrange(700, 900));
 If FindBitMapTolerancein(Button,x,y,MCX1, MCY1, MCX2, MCY2, 45)then
  begin
    Writeln('Found Button');
    Mouse(x,y,12,12,true);
  end else
    ShutDown;
 End;
Begin
  WriteLn('Algndudes Yew Long Bow String');
  MouseSpeed := RandomRange(16,23);
  Smart_Server := 18;
  Smart_Members := True;
  Smart_Signed := True;
  Smart_SuperDetail := False;
  SetupSRL;
  DeclarePlayers;
  LoginPlayer;
  Wait(randomrange(2400, 2600));
  Bank;
Repeat
  Wait(randomrange(900,1000));
  BankWithdrawer;
  Wait(randomrange(1000,1200));
  BankWithdrawString;
  Wait(randomrange(1000,1200));
  CloseBank;
  Wait(randomrange(300,500));
  Making;
  wait(randomrange(15500,16000));
  Bank;
  Wait(randomrange(900,1000));
  BankingYewLongDone;
  Until(False);
End.

Here is the Cutter:

program AligndudesYewLongCutter;
{$define SMART}
{.include SRL/SRL.scar}
var
x, y:integer;

procedure DeclarePlayers;
begin
  HowManyPlayers := 1; // Number of Players to use
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0; // Player to start with, first one is 0
  Players[0].Name := ''; // Username
  Players[0].Pass := ''; // Password
  Players[0].Active := True; // True if you are using this player
  Players[0].Pin := ''; // Bank Pin. Leave it if you don't have one.
  Players[0].Integers[1] := 10000; // Number of loads
end;
Procedure Bank;
  Begin
  OpenBank('vwb', True, True);////Feel Free To Change Bank <3////
if (PinScreen) then
  InPin(Players[CurrentPlayer].Pin);
if (bankscreen) then
End;
Procedure ShutDown;
  begin
    Writeln('Bot Shutting Down');
    Wait(RandomRange(1000,1300));
    CloseBank;
    Logout;
    TerminateScript;
  end;
Procedure WithdrawYewLogs;
  var
    YewLogs:Integer;
Begin
  YewLogs := BitmapFromString(20, 14, 'meJx9kU0LgkAURaVFjv2Hwj6IsE' +
        'gtjBJEMEEkiFq2DKJ1/3/Vfb6aXjMlHFwM97x3Z1TL3B0kapKrYdp' +
        'Lam9dge4odCcrYpq4sy1QQaoWGbHMgRcWXlwGx6tqdM5IKC8UyjcK' +
        'zwfz041cf+v2VzzT4JUXCkBDwC53xoRXTCPy0pJufHkwapzxebtFb' +
        'A6L8/2nK3XbYuDipl8uzo2wZXEGLu5lurb+PqQmcUlPFKT88toFX8' +
        'NFHjEoHccxkHt1bVKaPP6vTvp+pNnta3y1/nlnFPujrPPKAAH+y7y' +
        'uXYnSwtbtRTKAkvZSHsX9W7oZPAG40JQb');
If FindBitMapTolerancein(YewLogs, x, y, MSX1, MSY1, MSX2, MSY2, 45)then
  begin
    writeln('Found Yew Log');
     MMouse(x,y, 7, 7);
     getmousepos(x,y);
     Mouse(x,y,0,0,false);
     ChooseOption('Withdraw-All');
     FreeBitMap(YewLogs);
  end else
      ShutDown;
End;
Procedure UsingKnife;
var
Knife, YewLogs:integer;
begin
  Knife := BitmapFromString(15, 13, 'meJwztnc3BiIHD2MIA4yYGBg4tZ' +
        '3giMc6GiiioGBgjKwYSDp4WLp4ISuGq8RUjFelB5piNAegqsSnGEM' +
        'lTn8hq7R09rJ09kRWiawYizuREFAjUEFgYEhyckZJSRUsoNBVQswH' +
        'ynp5+cXGJqamZqEHFEwNsgN8fANCQyOB6lHCHxsCKnB2cQeqDw+PJ' +
        'qgYoh6C0NxgYOUERGiKgSIQZWjGglTaQtkA3U1yiQ==');
  YewLogs := BitmapFromString(20, 14, 'meJx9kU0LgkAURaVFjv2Hwj6IsE' +
        'gtjBJEMEEkiFq2DKJ1/3/Vfb6aXjMlHFwM97x3Z1TL3B0kapKrYdp' +
        'Lam9dge4odCcrYpq4sy1QQaoWGbHMgRcWXlwGx6tqdM5IKC8UyjcK' +
        'zwfz041cf+v2VzzT4JUXCkBDwC53xoRXTCPy0pJufHkwapzxebtFb' +
        'A6L8/2nK3XbYuDipl8uzo2wZXEGLu5lurb+PqQmcUlPFKT88toFX8' +
        'NFHjEoHccxkHt1bVKaPP6vTvp+pNnta3y1/nlnFPujrPPKAAH+y7y' +
        'uXYnSwtbtRTKAkvZSHsX9W7oZPAG40JQb');
  If FindBitmapTolerancein(Knife, x, y, MIX1, MIY1, MIX2, MIY2, 45)then
   Begin
    Writeln('Found Knife');
    MMouse(x,y,7,7);
    getmousepos(x,y);
    Mouse(x,y,0,0, true);
    Wait(RandomRange(100, 200));
    FreeBitMap(Knife);
  end else
    ShutDown;
 If FindBitMapTolerancein(YewLogs, x, y, MIX1, MIY1, MIX2, MIY2, 65)then
  begin
    writeln('Found Logs');
    MMouse(x,y,7,7);
    getmousepos(x,y);
    Mouse(x,y,0,0, true);
    Wait(randomrange(800,900));
    FreeBitMap(YewLogs);
 end else
  ShutDown;
end;
Procedure Making;
 var
x,y,Button:integer;
begin
  Button := BitmapFromString(15, 17, 'meJyz8wxkYmDgtHblTywQ614EZN' +
        't5BuJCth4BQARVH58n2jITyAYiiDgasnH3hyCQeksn/tgckbpJYh3' +
        'zgFy4FBxZu/nBEUS9YHaNaOM0IFtBwQBZFhMB1fCFpYhU9mJVbOXq' +
        'i4yAarhs3YUKmoCOAbLRZC1dfNAQUA3Q5cJlnRDDkaUsnL3REFANt' +
        '7OfUHGrSHUfkI0sZe7khYmAagSSioDqIYbDxc0cPbEioDKgyyGKca' +
        'lBViyYWQVRDxc0dfDAhUDqc+oghkNETOzdcSGI4RD1EBFjOzc8CKI' +
        'eYjiQa2TrigeBgiWtTDC9AsgAcg1tXPAjSCIEmgxEBtbOBBFcJQDp' +
        'nasi');
  if FindBitMapTolerancein(Button, x,y, MCX1, MCY1, MCX2, MCY2, 45)then
    Begin
      Writeln('Found Button');
      Mouse(x,y,14,14,true);
    End else
      ShutDown;
end;
 procedure DepositYews;
Var
  YewUnk:Integer;
begin
  YewUnk := BitmapFromString(14, 16, 'meJx9kssLQUEYxWXJwn14bP0Jio' +
        '2bV8j12NnZSUlEoizEDYkUJQtlYeM/dW6nvibTVafpm5nfnM58M9m' +
        'yGw6FIqWmMVgkz2/UULbs5mstjBRrp97OVZo+XGgY/Xli/0xdP5hi' +
        'kQJAhqPA1myXPL5Qp9MZWOnOEOFYbxTf3kkKI5jAvm2lYy9PyMC0g' +
        'kGSByKMtPH1jbZclF1VAKKNrr26JLyHauur6OqwOVwB1tOqR6QPSP' +
        'tDqjlFYKypR/gPKRms+SEoQMapSltoS1hvvn41wLQVkyDSHK/Nyea' +
        '3XQEwPZlWfwL1bxDD9AvRIJEE');
  If FindBitmapToleranceIn(YewUnk, X, Y, MIX1, MIY1, MIX2, MIY2, 45) Then
   begin
    Writeln('Depositing Yew Long(u)');
    MMouse(X, Y, 7, 7);
    GetMousePos(X, Y);
    Mouse(X, Y, 0,0, False);
    ChooseOption('Deposit-All');
    FreeBitmap(YewUnk);
   end else
    ShutDown;
End;
begin
WriteLn('Algndudes Yew Long Bow Cutter');
MouseSpeed := RandomRange(16,23);
Smart_Server := 18;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
SetupSRL;
DeclarePlayers;
LoginPlayer;
Wait(randomrange(2400, 2600));
Bank;
Repeat
Wait(randomrange(900,1000));
WithdrawYewLogs;
CloseBank;
wait(randomrange(200, 300));
UsingKnife;
Making;
Bank;
DepositYews;
until(False);
end.

Thank Ali :)
P.S. Be Nice <3:p

Not bad for first scripts! Keep it up, you'll master it some day! :)

Nice Comment = <3 ^^ :)

been using the stringer for a while now and its looking good so far :)

Maybe combine the two. For instance, have an option to both string and but so it would withdraw 14 logs and 14 bow strings, cut the logs and then string them if that option was selected. If just cut or just string were selected well then just do what you have. If that makes sense :) might be a nice implemation

How can i get this script on my bot can please someone help

From: BuckWild
Maybe combine the two. For instance, have an option to both string and but so it would withdraw 14 logs and 14 bow strings, cut the logs and then string them if that option was selected. If just cut or just string were selected well then just do what you have. If that makes sense :) might be a nice implemation

Okay, I'll get on that tonight me and should get it done by Saturday :) I'm still learning tho so give me time:)
Ali

Yo, algindude can u help me get this script on my bot please

From: naox
Yo, algindude can u help me get this script on my bot please

What do you mean? You just copy and past it in to samba fill in your user and pass and it should work. The // means something you need to fill in. If you still struggling pm me:)
Ali

From: Aligndude
What do you mean? You just copy and past it in to samba fill in your user and pass and it should work. The // means something you need to fill in. If you still struggling pm me:)
Ali

And then click the green play button at the top :)

From: Aligndude
Okay, I'll get on that tonight me and should get it done by Saturday :) I'm still learning tho so give me time:)
Ali

It's not really needed but you seem very devoted to learning so I figures this would help with that process!

I Have just got it to check the Belt and if It hasn't got a Knife it get one and adds it to it or if it has it starts the script:) So time for the easier bit :P Btw thanks for the Idea :)
I can use it on my skiller :P

Now Running final test on my skiller :)
Working 100% Atmo was its used all the logs I will get it to Stop if it runs out of either Logs or String.
And Add Smart <3