SRL Archive - RS3 Outdated / Broken Scripts

VERSION : 1.0
HOW TO USE IT :
1. START @ SOUL WARS BANK. (IGNORE FLETCHING GOT FROM INTERNET :p)
2. PUT BARS 4TH BANK SLOT!
3. HAVE MORTAR IN TOOLBELT.
4. ENJOY! ADDING SRL STATS, PROGGY, AND F2P SOON!

Looks like cool. I will try it. Thanks.

Working on Proggy.

he is sometimes to fast clicking and don't finds the bank

Testing out with 1800 chocolate bars, immediately the only problem I've noticed it has trouble finding the bank (tries clicking on the barrel or right above the chest). It does get it though after a few seconds. Other than that, works very well. :)

i wanna try but how good does it work?

It's very fast, Been running for about 10 minutes, havn't had any errors/bugs just yet.

Will post proggy later but atm this script works well.

I've done over 25000 bars with it ;P, will add f2p + proggy soon:)

From: Malharbest
Testing out with 1800 chocolate bars, immediately the only problem I've noticed it has trouble finding the bank (tries clicking on the barrel or right above the chest). It does get it though after a few seconds. Other than that, works very well. :)

Malharbest, make sure your compass thing is north click it once it is flawless if u make it face north :).

this still make money?

I made your picture not so fletchy/reflectiony. http://puu.sh/ipVv

Feel free to use it :)

dont do that for F2P prices going crash if u do that o.o

it doesnt log in by itself..

how i add a script ? im new

From: rayane
how i add a script ? im new

Open up Simba and go to file > open > find the script you downloaded and edit your rs user & pass and time breaks ect. Tell me if you need anymore help. :)

To the OP, very good script. Runs really fast and got me some cash. But, it leaves a chocolate bar, just one, in the inventory and doesn't get to crush it, everything else works fine :) On a side note, How can I post a proggy? I've been wondering how to do this. O_o

looks good, im away to try it now:)

When F2p?

From: pupicucek
When F2p?

when you learn to code it in yourself

Great Script Works Perfectly Good job :)

From: jota332
dont do that for F2P prices going crash if u do that o.o

like people are going to listen to you…lol
prices are crashing and going up all the time with chocolate bar/dust anyway
will test this out tonight
thanks

This is great! Ty so much..

Wanted to thankkk you for making this, and that I really appreciate it :)

Script worked well once I changed the wait times a little bit (laggy connection).
One concern I have is that the script is pretty repetitive with mouse clicks.
Should I be worried about it?

From: Bennigan
Script worked well once I changed the wait times a little bit (laggy connection).
One concern I have is that the script is pretty repetitive with mouse clicks.
Should I be worried about it?

I wouldn't be too worried about that… When I am using the script it occasionally clicks on Normad and after that wanders around searching for the bank chest. I changed the place to Castle Wars bank chest, turned the camera angle 45 degrees to east and boom it works flawlessly since there is no NPC on the way or anything. If anyone else has that problem you should try this :)

I like the script, I use one my my bots to make my main money with it. However, it sometimes is too quick to click 'Make all' and it would not make the bars, and just bank the bars after its allotted time, but fixes itself after taking out more bars. Another one was that it normally banked a little early, not completing 28 bars, but more like 23-26. So, I took the liberty to modify the wait times a little, and now it is absolutely flawless. If anyone wants to use the code, here it is:

//Fear's Choco_CRUSHER//
{/////////////////////////Set_Up////////////////////////////                                                       //
Use At SoulWars                                           //                                          //                             //
Place Your herbs 4'th slot in bank                        //
///////////////////////////////////////////////////////////}
                                                          //
program New;                                              //
{$DEFINE SMART}                                           //
{$i srl/srl.simba}                                        //
var x,y,m,n,t,step :integer;
pest:string;                           //
  //  txt :string;                                        //
    found,Found_Bank,try_again :Boolean;                  //
const                                                     //
                                                          //
How_many_to_crush = 1000; // How many to crush         //
Check_Text_Type = 0; // 0 = off; 1 = text; 2 = name       //
Login_44        = 1; // 0 = off; 1 = on;                  //
                                                          //
////////////////////////////////////////////////////////////

/////////////////////Player Info///////////////////////
procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
  Players[0].Name := ''; //Your Rs username
  Players[0].Pass := ''; //Your RS password
  Players[0].Nick := ''; //3-4 letters from name
  Players[0].Active:= True;
  Players[0].Pin := '';
  pest:='pestle';//pestle or knife
end;

procedure Check_for_text;
var
  time :longword;
begin
if(found=false)then
begin
//Checks for text
if(Check_Text_Type = 1)then
  begin
  if(FindColorSpiral (x, y, 16711680, 22, 446, 134, 454))then
    begin
    playsound('C:\botclient\config\sounds\alarm.wav');
    time := GetSystemTime;
    writeln('Text found at ' + inttostr(time));
    found := true;
    end;
  end;

//Checks for nick
if(Check_Text_Type = 2)then
  begin
  if(FindChatBoxText(Players[0].Nick, 8, clBlue))then
    begin
    playsound('C:\botclient\config\sounds\alarm.wav');
    time := GetSystemTime;
    writeln('You name found at ' + inttostr(time));
    found := true;
    end;
  end;
end;
end;

procedure AntiBan;
var j, WTime, SleepT1, SleepT2 :integer;
begin
j := random(201)
WTime := 7000 + random(500);
SleepT1 := 500 + random(2000);
SleepT2 := WTime - SleepT1 + random(1000);
  case j of
  0: begin
     sleep(SleepT1);
     Check_for_text;
     HoverSkill ('Herblore', False);
     sleep(SleepT2 + random(5000));
     GameTab(tab_Inv);
         end;
  1..5:
     begin
     sleep(SleepT1);
     Check_for_text;
     PickUpMouse;
     sleep(SleepT2);
     end;
  6..10:
     begin
     sleep(SleepT1);
     Check_for_text;
     RandomRClick;
     sleep(SleepT2);
     end;
  11:
     begin
     sleep(SleepT1);
     Check_for_text;
     sleep(SleepT2);
     GameTab(tab_Inv);
     end;
  12:
     begin
     sleep(SleepT1);
     Check_for_text;
     ExamineInv;
     sleep(SleepT2);
     end;
  13..200:
     begin
     sleep(7000 + random(500));
     end;
  end;
end;

procedure Check_Login;
begin
if((getcolor(361, 135)=12378347)and
   (getcolor(274, 165)=12378347))or
   (LobbyScreen)then
   begin
   if(Login_44 = 1)then
     begin
     if(LobbyScreen)then
       begin
       OpenWorldScreen;
       while (not Worldscreen) do sleep(100+random(100));
       wait(1000+random(1000));
       Mouse(123,125, 3, 3, true);//click world order arrow
       wait(500+random(1000));
       Mouse(686,157, 4, 0, true);//click scroll bar top
       wait(1000+random(1000));
       Mouse(687, 257, 3, 0, true);//click scroll bar to see world 44
       wait(1000+random(1000));
       Mouse(144, 281, 100, 8, true);//click world 44
       wait(2000+random(1000));
       Mouse(308, 452, 160, 19, true);//click login
       wait(2000+random(1000));
       while (not RSReady) do sleep(100+random(100));
       end else
       LoginPLayerToLob;
       while (not LobbyScreen) do sleep(100+random(100));
       OpenWorldScreen;
       while (not Worldscreen) do sleep(100+random(100));
       wait(1000+random(1000));
       Mouse(123,125, 3, 3, true);//click world order arrow
       wait(500+random(1000));
       Mouse(686,157, 4, 0, true);//click scroll bar top
       wait(1000+random(1000));
       Mouse(687, 257, 3, 0, true);//click scroll bar to see world 44
       wait(1000+random(1000));
       Mouse(144, 281, 100, 8, true);//click world 44
       wait(2000+random(1000));
       Mouse(308, 452, 160, 19, true);//click login
       wait(2000+random(1000));
       while (not RSReady) do sleep(100+random(100));
     end;
   end else LoginPLayer;
end;

procedure Find_Chest2;
var ax, ay, count1, count2 :integer;
    Found_Box :Boolean;
begin
ax := 259;
ay := 170;
count2 := 1;
Found_Box := false;
Check_Login;
  repeat
  //Move right
  if(Found_box = false)and(count2<30)or not(BankScreen)then
    begin
    count1 := 0;
      repeat
      MMouse(ax, ay, 0, 0);
      sleep(50+random(10));
      if(IsUpTextMultiCustom(['Use', 'Bank', 'chest', 'che', 'nk ch']))then Found_box := true;
      ax := ax + 10;
      count1 := count1 + 1;
      until(count1 >= count2)or(Found_box = true)or(count2>30)or(BankScreen)
    end;

  //Move down
  if(Found_box = false)and(count2<30)or not(BankScreen)then
    begin
    count1 := 0;
      repeat
      ay:=ay+10;
      MMouse(ax, ay, 0, 0);
      sleep(50+random(10));
      if(IsUpTextMultiCustom(['Use', 'Bank', 'chest', 'che', 'nk ch']))then Found_box := true;
      count1 := count1 + 1;
      until(count1 >= count2)or(Found_box = true)or(count2>30)or(BankScreen)
    count2 := count2 + 1;
    end;

  //Move left
  if (Found_box = false)and(count2<30)or not(BankScreen)then
    begin
    count1 := 0;
      repeat
      MMouse(ax, ay, 0, 0);
      sleep(50+random(10));
      if(IsUpTextMultiCustom(['Use', 'Bank', 'chest', 'che', 'nk ch']))then Found_box := true;
      ax := ax - 10;
      count1 := count1 + 1;
      until(count1 >= count2)or(Found_box = true)or(count2>30)or(BankScreen)
    end;

  //Move up
  if(Found_box = false)and(count2<30)or not(BankScreen)then
    begin
  count1 := 0;
      repeat
      ay := ay - 10;
      MMouse(ax, ay, 0, 0);
      sleep(50+random(10));
      if(IsUpTextMultiCustom(['Use', 'Bank', 'chest', 'che', 'nk ch']))then Found_box := true;
      count1 := count1 + 1;
      until(count1 >= count2)or(Found_box = true)or(count2>30)or(BankScreen)
      count2 := count2 + 1;
    end;
  until(Found_box = true)or(count2>30)or(BankScreen)
  if(BankScreen)then
    begin
    Found_Bank := true;
    Exit;
    end;
if(Found_box = true)then
   begin
  t:=0;
  GetMousePos(x,y);
    repeat
    MMouse(x-10, y-10, 20, 20);
    sleep(200 + random(100));
    t := t + 1;
    until(IsUpTextMultiCustom(['Use', 'Bank', 'chest', 'che', 'nk ch']))or
         (t > 20)or(BankScreen);
  if(BankScreen)then Found_Bank := true;
  if(IsUpTextMultiCustom(['Use', 'Bank', 'chest', 'che', 'nk ch']))then
    begin
    GetMousePos(x,y);
    Mouse(x,y,0,0,true)
    sleep(3000 + random(2000))
    end;
  end;
  if(try_again =false)and not(BankScreen)then
    begin
    try_again := true;
    writeln('Could not find bank using first and second method, trying one more time');
    Find_Chest2;

    end;
if not(BankScreen)then
    begin
    playsound('C:\botclient\config\sounds\alarm.wav');
    sleep(30000 + random(10000))
    Logout;
    writeln('Logged out, cound not find bank');
    TerminateScript;
    end;
end;

procedure Find_Chest;
var ax, ay, count1, count2 :integer;
    Found_Bank_box :Boolean;
begin
ax := 200;
ay := 130;
count2 := 250;
//Move right
count1 := 0;
Check_Login;
repeat
MMouse(ax, ay, 0, 0);
if(IsUpTextMultiCustom(['Use', 'Bank', 'chest', 'che', 'nk ch']))then Found_Bank_box := true;
ax := ax + 1;
count1 := count1 + 1;
until(count1 >= count2)or(Found_Bank_box = true)or(BankScreen)

if(BankScreen)then
  begin
  Found_Bank:=true;
  Exit;
  end;

if(IsUpTextMultiCustom(['Use', 'Bank', 'chest', 'che', 'nk ch']))then
  begin
  GetMousePos(x,y)
  Mouse(x,y,0,0,true)
  sleep(5000 + random(2000))
  if(BankScreen)then
    begin
    Found_Bank:=true;
    end else Find_Chest2;
  end else Find_Chest2;
end;

Procedure Open_Bank;
var  xy_point, Zx, Zy, RanX, RanY :integer;
begin
if(BankScreen)then Exit;
 t := 0;
 Found_Bank := false;
 xy_point := random(2);
  case xy_point of
  0: begin
     Zx := 266;
     Zy := 118;
     RanX := 10;
     RanY := 10;
     end;
  1: begin
     Zx := 251;
     Zy := 118;
     RanX := 8;
     RanY := 10;;
     end;
  end;
repeat
  MMouse(Zx, Zy, RanX, RanY);
  sleep(1000 + random(100));
  t := t + 1;
until(IsUpTextMultiCustom(['Use', 'Bank', 'chest', 'che', 'nk ch']))or
     (t > 20)or(BankScreen);
if(BankScreen)then Exit;
if(t > 20)then
   begin
   writeln('Could not Find Bank 1');
   Find_Chest;
   if(BankScreen)then writeln('Bank Found 1');
   end;
if(IsUpTextMultiCustom(['Use', 'Bank', 'chest', 'che', 'nk ch']))and
  (Found_Bank = false)then
  begin
  GetMousePos(x,y)
  Mouse(x,y,0,0,true);
  t := 0;
    repeat
    sleep(100 + random(100));
    t := t + 1;
    until(BankScreen)or(t > 20);
          if(t > 20)then
            begin
            if(PinScreen)then
              begin
              writeln('Found Pin Screen');
              InPin(Players[CurrentPlayer].Pin);
              writeln('Pin successfully entered');
              end else
              begin
              writeln('Could not Find Bank 2');
              Find_Chest;
               if(BankScreen)then writeln('Bank Found 2');
              end;
            end;
  end;
end;

procedure Deposit_Stuff;
begin
if(BankScreen)then
  begin
  Mouse(380, 303, 6, 6,true);
  sleep(200 + random(200));
  end;
end;

procedure Withdraw_Stuff;
begin
if(BankScreen)then
  begin
  //get Herbs, row 1 slot 4
  Mouse(181, 100, 10, 10, false);
  sleep(200 + random(100));
  GetMousePos(x, y);
  Mouse(x-5, y+103, 10, 4, true);
  sleep(300 + random(200));
  //Close Bank
  Mouse(482, 29, 6, 6, true);
  sleep(500 + random(200));
  end;
end;

procedure Make;
var h,k,cx,cy,mad,prof :integer;
begin
movemouse(565,225);
ClickMouse2(false);
wait(1300);
movemouse(566,280);
ClickMouse2(true);
wait(1300);
movemouse(250,437);
ClickMouse2(true);
if (pest='knife')
then
begin
wait(34000);
end;
if (pest='knife')
then
begin
wait(35000);
end;
if (pest='pestle')
then
begin
wait(17000);
end;
end;

begin

Smart_Server := 44;
SetupSRL();
DeclarePlayers;
while (not RSReady) do
  SleepAndMoveMouse(100 + Random(500));
Check_Login;
n := How_many_to_crush / 28;
m := 0;
t := 0;
step := 0;
found := false;
try_again := false;
sleep(2000 + Random(1000));
KeyDown(38);
sleep(3000 + Random(1000));
repeat
Open_Bank;
Check_for_text;
Deposit_Stuff;
Check_for_text;
Withdraw_Stuff;
Check_for_text;
Make;
Check_for_text;
m := m+1
if(found = true)then
  begin
  step := step+1;
  if(step > 20)then
    begin
    found := false;
    end;
  end;
until(m >= n);
sleep(3000 + random(20000))
Logout;
writeln('Logged out, task completed');
end.

I like it a lot, and you should come back to officially updating it. :)

Ok.