SRL Archive - Outdated / Broken

kk well heres my second script. I based it off a stringer made by philodespotos, i've used his script for as long as i can remember. I made a few changes to it myself before i even tried to learn scripting, so i carried those ideas over. Any problems please dont hesitate to ask/post, i greatly appreciate all criticism or suggestions

upgraded to version 1.1 with the SRL 2 update, fixed some stuff, make it work with new mouseSpeed and benland features.

ok im a going to try it so ill reply back in 1 hours or so and lets see how it goes hehe

the main thing i'm concerned about are reapeated error and or timing issues, any feedback would be sweet

nope it worked will no errors so far and ehh (rep for you(some for me for reporting back =p)hehe)

ok you script is now f&cked after the first laod it jsut keeps on erroring it withdraws 15 nd stuff and i dont see why lol

yes i just noticed that myself, why did you say it worked before….

well ti did the first load ok lol and that ll i looked for so have u fixed it?

Well, for me it works very well for the first withdrawl and stringing, then it banks all the strung bows and when it goes to get new bow strings and unstrungs bows it clicks it clicks on each one in my bank (so it takes out a bow string and a unstrung) then it takes out "x" and types in 15 for both bow strings and unstrungs. afterwards it starts to string them, but when the it runs out of bow strings, it just keeps trying to string forever. If it were to put in 13 instead of 15 it would work :P.

Btw, when it goes to bank (deposit bows and get new stuff), it opens the bank window, closes it, reopens it, then deposits and wotnot. Not really much of a problem but might as well let you know.

EDIT: I'm using the regular RS client.
I played with it and changed:

Withdraw(1,1,amount-1)
Withdraw(2,1,amount-1)
to
Withdraw(1,1,amount+1)
Withdraw(2,1,amount+1)

and it pulled out 13 instead of 15, so it was able to string a full inventory for the second time, but it didn't stop to bank… it just kept clicking in slot 27 and 28, instead of banking.

PS: I know very little of scar scipting.

yea there was a big problem, basically after the first run it thought it had -14 to do lol. i fixed it, but i've been having a banking withdraw problem. i havnt figured it out yet and no one knows what to do. i can upload it if you want, but i would advise using another for better results. thank you for replying though =)

{   Weaselforce's ubtastic BowStringer            |
|                                                 |
| Only my second script, i'm not teh 1337 yet     |
|                                                 |
| Big thanks to SRL community for getting me      |
|excited in scar scripting and for all their help |
{_________________________________________________}

// Based Heavily on "pdStringer" by philodespotos. much <3

//   DIRECTIONS:
// Fill in the amount to do, sit back, and relax
// Only my second script, i'd greatly appreciate any
// suggestions or revisions.

//changelog : Version Beta
//made the script, tested it, made it work

// Current Version: Beta

program WeaselStringer;

{.include SRL/SRL.scar}

const
  AmountToDo = 2; //amount of bows to make

var
  Amount, AmountLeft, AmountDone : Integer;


procedure BankingWithdraw;
begin
  if(not(BankScreen))then
  begin
    OpenBank;
    DepositAll;
    Fixbank;
    if(AmountLeft >=14)then
    begin
      Amount:= 14
      Withdraw(1, 1, 14);
      Withdraw(2, 1, 0);
      CloseWindow;
      Wait(Random(350)+ 150);
      DragItem(1, 28);
   end
   else
   begin
     Amount := AmountLeft
     Withdraw(2, 1, 1);
     Withdraw(1, 1, 1);
     Withdraw(1, 1, Amount-1);
     Withdraw(2, 1, Amount-1);
     CloseWindow;
     Wait(Random(350)+ 100);
     DragItem(1, 28);
     DragItem(2, 27);
   end;
end;

procedure StringIn;
var
  Strung : Integer;
begin
  Strung:= 0
  repeat
    UseItem(27);
    UseItem(28);
    Strung:=Strung + 1
    UseItem(28);
    UseItem(27);
    Strung:=Strung + 1
  until(Strung = Amount)
  AmountLeft:= -14
  AmountDone:= +14
end;

procedure BankingDeposit;
begin
  OpenBank;
  Wait(200+random(50));
  Deposit(1, 2, 0);
  CloseWindow;
end;

procedure RandomEvents;
begin
  FindMiscRandoms;
  FindNormalRandoms;
end;

begin
  SetupSRL;
  BenMouse:= False
  Amountleft:= AmountToDo
  RandomEvents;
  repeat
    Amount := 0
    BankingWithdraw;
    ChatsOff;
    StringIn;
    RandomEvents;
    BankingDeposit;
  until(AmountDone >=AmountToDo)
  BankingDeposit;
  SetChat('on',1);
  TypeSend('Im Teh awesome! done stringin!'+chr(13));
  Writeln('finished Stringin all the bows');
  Writeln('Loggin out');
  Logout;
end.

Ah, that looks much better.

One question what is this for:

Withdraw(2, 1, 0);

somebody explain to me what conditions u need to start the script

flax in inventory or in bank slot and what about the unfinished bows?

withdraw bank row 2 column 1"all"

here it is almost complete cept for that bank error. it will work, but slower

{-------------------------------------------------]
|     Weaselforce's ubtastic BowStringer          |
|                                                 |
| Only my second script, i'm not teh 1337 yet     |
|                                                 |
| Big thanks to SRL community for getting me      |
|excited in scar scripting and for all their help |
[_________________________________________________]
|                                                 |
| Based Heavily on "pdStringer" by philodespotos. |
|                    MUCH <3                      |
|                                                 |
|                  DIRECTIONS:                    |
|Fill in the amount to do, sit back, and relax    |
|Only my second script, i'd greatly appreciate any|
|suggestions or revisions. strings and bows (u)   |
|in slots 1 and 2.                                |
|                                                 |
|             changelog : Version Beta            |
|     made the script, tested it, made it work    |
|                                                 |
|                         Veresion 1:             |
|     fixed stupid mistake, standards fixed       |
| somewhat, made lots of improvements                |
|                                                 |
|               Current Version: 1                |
[_________________________________________________}



program WeaselStringer;

{.include SRL/SRL.scar}

//-----------------------------------------------------//

Const
AmountToDo = 100; // Amount of bows to make.

//-----------------------------------------------------//



var
amount,amountleft,amountdone:integer;


Procedure BankingWithdraw;
begin
     if(not (inventorycount=0))then
 begin
  OpenBank3;
  DepositAll;
  BankingWithdraw;
  end else
      begin
       repeat
       OpenBank3;
       until(BankScreen)
     begin
     Fixbank;
     if (amountleft > 14)then
     begin
     Amount := 14;
     Withdraw(1,1,14);
     Withdraw(2,1,0);
     CloseWindow;
     Wait(random(350)+150);
     DragItem(1,28);
  end  else
    begin
    Amount := AmountLeft
    Withdraw(2,1,1);
    Withdraw(1,1,1);
    Withdraw(1,1,(amount-1));
    Withdraw(2,1,(amount-1));
    Closewindow;
    Wait(random(350)+100);
    DragItem(1,28)
    DragItem(2,27)
    end;
  end;
  end;
  end;


Procedure Stringin;
var Strung : integer;
begin
 Strung := 0
 repeat
 begin
   UseItem(27);
   UseItem(28);
   UseItem(28);
   UseItem(27);
   Strung := Strung + 2
   end;
 until(Strung = Amount);
 amountleft := amountleft -(Amount)
 amountdone := amountdone +(Amount)
end;

procedure BankingDeposit;
begin
  if (ExistsItem(14)) then
  begin
  OpenBank3;
  fixbank;
  Wait(200+random(50));
  Deposit2(1,14);
  end else
     OpenBank3;
     fixbank;
     Wait(200+random(50));
     DepositAll;
end;

procedure RandomEvents;
Begin
  FindMiscRandoms;
  FindNormalRandoms;
  Findnewbox;
end;

begin
  SetupSRL;
  CloseWindow;
  ChatsOff;
 BenMouse := False
 amountleft := amounttodo
 AmountDone := 0
  RandomEvents;
 repeat
   Amount := 0
   ChatsOff;
   BankingWithdraw;
   Stringin;
   RandomEvents;
   BankingDeposit;
 until(AmountDone=AmountToDo);
  BankingDeposit;
  SetChat('on',1)
  TypeSend('Im Teh awesome! done stringin!'+chr(13));
  writeln('finished Stringin all the bows')
  writeln('Loggin out')
  logout;
end.

Ok, i'm uploading version 1.1 It should run faster, no withdrawing error, and upgraded for SRL version 2. sorry it took so long, i'm lazy.

koolo about time this got updated lol

Banking is pretty flawless now, but now it instead miss clicks pretty much while strining , and i think its the new mouseSpeed and benlands feature who messes. Or maybe its just me? :$

It misses 3-4 or more bows per time it strings.

 {-------------------------------------------------]
|     Weaselforce's ubtastic BowStringer          |
|                                                 |
| Only my second script, i'm not teh 1337 yet     |
|                                                 |
| Big thanks to SRL community for getting me      |
|excited in scar scripting and for all their help |
[_________________________________________________]
|                                                 |
| Based Heavily on "pdStringer" by philodespotos. |
|                    MUCH <3                      |
|                                                 |
|                  DIRECTIONS:                    |
|Fill in the amount to do, sit back, and relax    |
|Only my second script, i'd greatly appreciate any|
|suggestions or revisions. strings and bows (u)   |
|in slots 1 and 2.                                |
|                                                 |
|             changelog : Version Beta            |
|     made the script, tested it, made it work    |
|                                                 |
|                         Veresion 1:             |
|     Fixed stupid mistake, standards fixed       |
| somewhat, made lots of improvements             |
|                                                 |
|                          Version 1.1            |
|     Fixed bank withdraw errors and such,        |
| Upgraded for SRL 2.0                            |
|                                                 |
|               Current Version: 1.1              |
[_________________________________________________}



program WeaselStringer;

{.include SRL/SRL.scar}

//-----------------------------------------------------//

Const
AmountToDo = 4800; // Amount of bows to make.

//-----------------------------------------------------//



var
amount,amountleft,amountdone:integer;


Procedure BankingWithdraw;
begin
     if(not (inventorycount=0))then
 begin
  OpenBank3;
  DepositAll;
  BankingWithdraw;
  end else
     begin
     if (not (Bankscreen))
     then
     begin
     OpenBank3;
     Fixbank;
       end else
      Fixbank;
      if (amountleft > 14)then
      begin
      Amount := 14;
      Withdraw(1,1,14);
      Withdraw(2,1,0);
      CloseWindow;
      Wait(random(350)+150);
      DragItem(1,28);
        end  else
         begin
          Amount := AmountLeft
          Withdraw(2,1,1);
          Withdraw(1,1,1);
          wait(100+random(100));
          Withdraw(2,1,(amount-1));
          Withdraw(1,1,(amount-1));
          Closewindow;
          Wait(random(350)+100);
          wait(100 + random(50));
          DragItem(1,28)
          wait(500+random(100));
          DragItem(2,27)
    end;
   end;
 end;


Procedure Stringin;
var Strung : integer;
begin
 MouseSpeed := 14
 Strung := 0
 repeat
 begin
   UseItem(27);
   Wait(300+random(150));
   UseItem(28);
   Wait(300+random(150));
   Strung := Strung + 1
   UseItem(28);
   Wait(300+random(150));
   UseItem(27);
   Strung := Strung + 1
   Wait(300+random(150));
   end;
 until(Strung = Amount);
 amountleft := amountleft -(Amount)
 amountdone := amountdone +(Amount)
 MouseSpeed := 14
 wait(400+random(100));
end;

procedure BankingDeposit;
begin
  if (ExistsItem(14)) then
  begin
  OpenBank3;
  fixbank;
  Wait(200+random(50));
  Deposit2(1,0);
  end else
     OpenBank3;
     fixbank;
     Wait(200+random(50));
     DepositAll;
     wait(375 + random(30));
end;

procedure RandomEvents;
Begin
FindSandwich;
FindTalk;
FindLamp('fletching');
GambleNewBox;
FindNormalRandoms;
end;

begin
  SetupSRL;
  MouseSpeed := 12
  BenMouse := False
  CloseWindow;
  ChatsOff;
 amountleft := amounttodo
 AmountDone := 0
  RandomEvents;
 repeat
   Amount := 0
   BenMouse := True
   BankingWithdraw;
   Closewindow;
   RandomEvents;
   BenMouse := False
   Stringin;
   BenMouse := True
   RandomEvents;
   BankingDeposit;
 until(AmountDone=AmountToDo);
  BankingDeposit;
  SetChat('on',1)
  writeln('finished Stringin all the bows')
  writeln('Loggin out')
  logout;
end.

This fixed it for me. What i did was… take benmouse out at the string part…. and put it back at the banking part.

I found the banking procedure a bit detectable, so i used another one:

{-------------------------------------------------]
|     Weaselforce's ubtastic BowStringer          |
|                                                 |
| Only my second script, i'm not teh 1337 yet     |
|                                                 |
| Big thanks to SRL community for getting me      |
|excited in scar scripting and for all their help |
[_________________________________________________]
|                                                 |
| Based Heavily on "pdStringer" by philodespotos. |
|                    MUCH <3                      |
|                                                 |
|                  DIRECTIONS:                    |
|Fill in the amount to do, sit back, and relax    |
|Only my second script, i'd greatly appreciate any|
|suggestions or revisions. strings and bows (u)   |
|in slots 1 and 2.                                |
|                                                 |
|             changelog : Version Beta            |
|     made the script, tested it, made it work    |
|                                                 |
|                         Veresion 1:             |
|     Fixed stupid mistake, standards fixed       |
| somewhat, made lots of improvements             |
|                                                 |
|                          Version 1.1            |
|     Fixed bank withdraw errors and such,        |
| Upgraded for SRL 2.0                            |
|                                                 |
|               Current Version: 1.1              |
[_________________________________________________}



program WeaselStringer;

{.include SRL/SRL.scar}

//-----------------------------------------------------//

Const
AmountToDo = 4464; // Amount of bows to make.

//-----------------------------------------------------//



var
amount,amountleft,amountdone:integer;


Procedure OpenBank4;
Var
  x, y, fs, fs2 : Integer;
Begin
  If not BankScreen then
    Repeat
      If (FindObj3(x, y, 'Use Bank', 608609, 10)) then
        Mouse(x, y, 4, 4, False)
      Else
      If (FindObj3(x, y, 'Use Bank', 3239562, 10)) then
        Mouse(x, y, 4, 4, False)
      Else
      If (FindObj3(x, y, 'Use Bank', 4803151, 10)) then
        Mouse(x, y, 4, 4, False);
      Wait(250+random(150));
      If (ClickOption('quickly', 1)) then
      Begin
        Flag;
        Repeat
          Wait(100+random(100));
          fs := fs + 1;
        Until (BankScreen) or (fs >= 50);
      End;
      fs2 := fs2 + 1;
    Until (BankScreen) or (fs2 > 5);
End;

Procedure BankingWithdraw;
begin
     if(not (inventorycount=0))then
 begin
  OpenBank4;
  DepositAll;
  BankingWithdraw;
  end else
     begin
     if (not (Bankscreen))
     then
     begin
     OpenBank4;
     Fixbank;
       end else
      Fixbank;
      if (amountleft > 14)then
      begin
      Amount := 14;
      Withdraw(1,1,14);
      Withdraw(2,1,0);
      CloseWindow;
      Wait(random(350)+150);
      DragItem(1,28);
        end  else
         begin
          Amount := AmountLeft
          Withdraw(2,1,1);
          Withdraw(1,1,1);
          wait(100+random(100));
          Withdraw(2,1,(amount-1));
          Withdraw(1,1,(amount-1));
          Closewindow;
          Wait(random(350)+100);
          wait(100 + random(50));
          DragItem(1,28)
          wait(500+random(100));
          DragItem(2,27)
    end;
   end;
 end;


Procedure Stringin;
var Strung : integer;
begin
 MouseSpeed := 14
 Strung := 0
 repeat
 begin
   UseItem(27);
   Wait(300+random(150));
   UseItem(28);
   Wait(300+random(150));
   Strung := Strung + 1
   UseItem(28);
   Wait(300+random(150));
   UseItem(27);
   Strung := Strung + 1
   Wait(300+random(150));
   end;
 until(Strung = Amount);
 amountleft := amountleft -(Amount)
 amountdone := amountdone +(Amount)
 MouseSpeed := 14
 wait(400+random(100));
end;

procedure BankingDeposit;
begin
  if (ExistsItem(14)) then
  begin
  OpenBank4;
  fixbank;
  Wait(200+random(50));
  Deposit2(1,0);
  end else
     OpenBank4;
     fixbank;
     Wait(200+random(50));
     DepositAll;
     wait(375 + random(30));
end;

procedure RandomEvents;
Begin
FindSandwich;
FindTalk;
FindLamp('fletching');
GambleNewBox;
FindNormalRandoms;
end;

begin
  SetupSRL;
  MouseSpeed := 12
  BenMouse := False
  CloseWindow;
 amountleft := amounttodo
 AmountDone := 0
  RandomEvents;
 repeat
   Amount := 0
   BenMouse := True
   BankingWithdraw;
   Closewindow;
   RandomEvents;
   BenMouse := False
   Stringin;
   BenMouse := True
   RandomEvents;
   BankingDeposit;
 until(AmountDone=AmountToDo);
  BankingDeposit;
  SetChat('on',1)
  writeln('finished Stringin all the bows')
  writeln('Loggin out')
  logout;
end.

Also removed the Chatsoff; …. cause its not needed, and is very strange in jagex eyes methinks.
perfect.

Line 154: [Error] (15009:1): Unknown identifier 'Deposit2' in script C:\Program Files\SCAR 2.03\Scripts\stringer1.scar

yo i found this script just now.
needed an update i tried to fix it and works fine changed the way it opend the bank found much easier using openbankcolor and removed snadwichlady from randoms;) bye

{-------------------------------------------------]
|     Weaselforce's ubtastic BowStringer          |
|                                                 |
| Only my second script, i'm not teh 1337 yet     |
|                                                 |
| Big thanks to SRL community for getting me      |
|excited in scar scripting and for all their help |
[_________________________________________________]
|                                                 |
| Based Heavily on "pdStringer" by philodespotos. |
|                    MUCH <3                      |
|                                                 |
|                  DIRECTIONS:                    |
|Fill in the amount to do, sit back, and relax    |
|Only my second script, i'd greatly appreciate any|
|suggestions or revisions. strings and bows (u)   |
|in slots 1 and 2.                                |
|                                                 |
|             changelog : Version Beta            |
|     made the script, tested it, made it work    |
|                                                 |
|                         Veresion 1:             |
|     Fixed stupid mistake, standards fixed       |
| somewhat, made lots of improvements             |
|                                                 |
|                          Version 1.1            |
|     Fixed bank withdraw errors and such,        |
| Upgraded for SRL 2.0                            |
|                                                 |
|               Current Version: 1.1              |
[_________________________________________________}



program WeaselStringer;

{.include SRL/SRL.scar}
{.include SRL/SRL/extended/xbank.scar}
//-----------------------------------------------------//

Const
AmountToDo = 2000; // Amount of bows to make.
bancolor = 6260115;
//-----------------------------------------------------//



var
amount,amountleft,amountdone:integer;


Procedure BankingWithdraw;
begin
     if(not (inventorycount=0))then
 begin
  OpenBankColor(bancolor);
  DepositAll;
  BankingWithdraw;
  end else
     begin
     if (not (Bankscreen))
     then
     begin
     OpenBankColor(bancolor);
     Fixbank;
       end else
      Fixbank;
      if (amountleft > 14)then
      begin
      Amount := 14;
      Withdraw(1,1,14);
      Withdraw(2,1,0);
      Closebank;
      Wait(random(350)+150);
      DragItem(1,28);
        end  else
         begin
          Amount := AmountLeft
          Withdraw(2,1,1);
          Withdraw(1,1,1);
          wait(100+random(100));
          Withdraw(2,1,(amount-1));
          Withdraw(1,1,(amount-1));
          Closebank;
          Wait(random(350)+100);
          wait(100 + random(50));
          DragItem(1,28)
          wait(500+random(100));
          DragItem(2,27)
    end;
   end;
 end;


Procedure Stringin;
var Strung : integer;
begin
 MouseSpeed := 12
 Strung := 0
 repeat
 begin
   UseItem(27);
   Wait(300+random(150));
   UseItem(28);
   Wait(300+random(150));
   Strung := Strung + 1
   UseItem(28);
   Wait(300+random(150));
   UseItem(27);
   Strung := Strung + 1
   Wait(300+random(150));
   end;
 until(Strung = Amount);
 amountleft := amountleft -(Amount)
 amountdone := amountdone +(Amount)
 MouseSpeed := 12
 wait(400+random(100));
end;

procedure BankingDeposit;
begin
  if (ExistsItem(14)) then
  begin
  OpenBankColor(bancolor);
  fixbank;
  Wait(200+random(50));
  Deposit2(1,0);
  end else
     OpenBankColor(bancolor);
     fixbank;
     Wait(200+random(50));
     DepositAll;
     wait(375 + random(30));
end;

procedure RandomEvents;
Begin
FindTalk;
FindLamp('fletching');
GambleNewBox;
FindNormalRandoms;
end;

begin
  SetupSRL;
  MouseSpeed := 12
  BenMouse := True
  CloseWindow;
 amountleft := amounttodo
 AmountDone := 0
  RandomEvents;
 repeat
   Amount := 0
   BankingWithdraw;
   Closewindow;
   RandomEvents;
   Stringin;
   RandomEvents;
   BankingDeposit;
 until(AmountDone=AmountToDo);
  BankingDeposit;
  SetChat('on',1)
  TypeSend('Im Teh awesome! done stringin!'+chr(13));
  writeln('finished Stringin all the bows')
  writeln('Loggin out')
  logout;
end.