SRL Archive - RS3 Outdated / Broken Scripts

This is my second script i made.
What script does?Strings bows duh.;)
Known bugs - None yet.
Special thanks to - SantaClause.

program PieStringer;
{.include SRL/SRL.Scar}
//Instructions
//Have bs in first bank spot bows in second.
//Find a world with not lot of people.
 
////////////////////////////////////////////
var
  xwhite, xyellow, allwhite, allyellow, bowstringed, MakeFullBows2
  : Integer;
 
const
RunAwayDir = 'S';
BowsToDo = 1017; //How many bows you need to do add +17, example:1000 Bows = 1017 BowsToDo
Player0 = 0;
 
Procedure DeclarePlayers;
begin
  HowManyPlayers  := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
 
{///////////////////Set up your player//////////////////////}
  Players[0].Name   := '';// your user name
  Players[0].Pass   := '';//your password
  Players[0].Nick   := '';// your nick name
  Players[0].Active := True;
end;
 
////////////////////////////dont touch please/////////////////////////////
Procedure Loadingbitmap;
begin
  xwhite := BitmapFromString(9, 8, 'z78DA333040003724604084382' +
       'E35C4A8A74417F1AEA2BF0BC90B43E275010051AB6079');
 
  xyellow := BitmapFromString(8, 7, 'z78DA333000013720809' +
       '1C8009738A62C7E95E4A927C60DF4710FF1E10300667947F1');
 
  allwhite := BitmapFromString(17, 9, 'z78DA333040003724804BC' +
       '400AF7AF2C4A96B1AFD6DC10F46436CD41652C501022DD2CD');
 
  allyellow := BitmapFromString(17, 9, 'z78DA3330400037208091' +
       'B8440CF0AA274F9CBAA6D1DF16FCE468888DDA42AA3800C8E7C5E' +
       '9');
end;
 
Procedure RunAway;
begin
  RunAwayDirection(RunAwayDir);
  Wait(12000+random(2000));
  RunBack;
end;
 
Procedure Randoms;
begin
  FindTalk;
  wait(10+Random(15));
  FindNormalRandoms;
  if(FindFight)then
  RunAway;
end;
 
Procedure Bank;
var
  x, y, fs, fs2 : Integer;
begin
  repeat
    randoms;
    Flag;
    if (FindObj(x, y, 'booth', 607324, 10)) then
    Mouse(x, y, 4, 4, False)
    else
    if (FindObj3(x, y, 'booth', 7243412, 10)) then
    Mouse(x, y, 4, 4, False)
    else
    if (FindObj3(x, y, 'booth', 6324369, 10)) then
    Mouse(x, y, 4, 4, False);
    Wait(250+random(20));
    if (ClickOption('quickly', 1)) then
    begin
    Flag;
    repeat
    Wait(100+random(20));
    fs := fs + 1;
    until (BankScreen) or (fs >= 50);
    end;
    fs2 := fs2 + 1;
    until (BankScreen) or (fs2 > 5);
end;
 
 
 
Procedure TakeBowsAndStrings;
begin
  FixBank;
  Wait(2000+random(250));
  Mouse(92,75,3,3,false);
  Wait(1000+random(250));
  ChooseOption(x,y,'x');
  Wait(3000+random(250));
  SendKeys('13'+chr(13));
  Wait(2000+random(250));
  Mouse(142,75,3,3,false);
  Wait(1000+random(250));
  ChooseOption(x,y,'x');
  Wait(1000+random(250));
  SendKeys('14'+chr(13));
  Mouse(92,75,3,3,true);
  Wait(1000+random(250));
  Mouse(486,40,2,2,true);
end;
 
Procedure SetInvInPos;
begin
  Wait(3000+random(250));
  Mouse(647,187,3,3,true);
end;
 
Procedure MakeFullBows;
begin
  MakeFullBows2 := 0;
  Mouse(709,444,3,3,true);
  Wait(2000+random(250));
  Mouse(666,441,3,3,true);
  Wait(1000+random(250));
  Mouse(709,444,3,3,true);
  Wait(2000+random(250));
  Mouse(666,441,3,3,true);
  MakeFullBows2 := MakeFullBows2 + 1;
end;
 
Procedure DepositItAll;
begin
  Bank;
  Mouse(581,224,3,3,false);
  Wait(2000+random(250));
  ChooseOption(x,y,'all');
end;
 
Procedure LetsDebug;
begin
  WriteLn('  Running Time: ' + (TimeRunning) + '')
end;
 
begin
  setupSRL;
  Loadingbitmap;
  declareplayers;
  activateclient;
  loginplayer;
  repeat
    Bank;
    takebowsandstrings;
    setinvinpos;
    wait(500);
      Repeat
      makefullbows;
      Until(MakeFullBows2=9);
    wait(1500+random(20));
    bank;
    wait(1000+random(20)) ;
    deposititall;
    wait(1000+random(20));
   until (bowstringed >= bowstodo);
     if (bowstringed >= bowstodo) then
       begin
       Logout;
       terminateScript;
  end;
end.
 

uhhhh add some randoms, anti ban, DTMs instead of coords, and maybe make it withdraw 14 of each…

uhhhh add some randoms, anti ban, DTMs instead of coords, and maybe make it withdraw 14 of each…

I got screwed up with DTMs, and why should i make it withraw 14 of each if it withraws 13 bs then 14 bows then 1 bs…And also i will add Anti-Randoms in next version(0.2).Sorry for double-post.

From: Ilikepie1995
I got screwed up with DTMs, and why should i make it withraw 14 of each if it withraws 13 bs then 14 bows then 1 bs…And also i will add Anti-Randoms in next version(0.2).Sorry for double-post.

Dtms are less detectable than cordinates…….Also, You could use….

DragItem(14,28)

which would drag 1 item from the 14th postion to the last and it would be more human like…..

~RAM

  makefullbows;
  makefullbows;
  makefullbows;
  makefullbows;
  makefullbows;
  makefullbows;
  makefullbows;
  makefullbows;

Add MakeFullBows as an integer…At the beginning of the MakeFullBows put MakeFullBows := 0, then at the end of the MakeFullBows procedure, add MakeFullBows := MakeFullBows+1.

Instead of putting MakeFullBows 5 times, do:

Repeat 
  MakeFullBows
Until(MakeFullBows=9)

There are a few wait times that need randomisation…I'll add that…and you don't need:

CurrentPlayer:= Player0;

As for standards….well…you need to fix them up…I'll do them for you…give me a few minutes

Here's the script:

program PieStringer;
{.include SRL/SRL.Scar}
//Instructions
//Have bs in first bank spot bows in second.
//Find a world with not lot of people.

////////////////////////////////////////////
var
  xwhite, xyellow, allwhite, allyellow, bowstringed, MakeFullBows2
  : Integer;

const
RunAwayDir = 'S';
BowsToDo = 1017; //How many bows you need to do add +17, example:1000 Bows = 1017 BowsToDo
Player0 = 0;

Procedure DeclarePlayers;
begin
  HowManyPlayers  := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

{///////////////////Set up your player//////////////////////}
  Players[0].Name   := '';// your user name
  Players[0].Pass   := '';//your password
  Players[0].Nick   := '';// your nick name
  Players[0].Active := True;
end;

////////////////////////////dont touch please/////////////////////////////
Procedure Loadingbitmap;
begin
  xwhite := BitmapFromString(9, 8, 'z78DA333040003724604084382' +
       'E35C4A8A74417F1AEA2BF0BC90B43E275010051AB6079');

  xyellow := BitmapFromString(8, 7, 'z78DA333000013720809' +
       '1C8009738A62C7E95E4A927C60DF4710FF1E10300667947F1');

  allwhite := BitmapFromString(17, 9, 'z78DA333040003724804BC' +
       '400AF7AF2C4A96B1AFD6DC10F46436CD41652C501022DD2CD');

  allyellow := BitmapFromString(17, 9, 'z78DA3330400037208091' +
       'B8440CF0AA274F9CBAA6D1DF16FCE468888DDA42AA3800C8E7C5E' +
       '9');
end;

Procedure RunAway;
begin
  RunAwayDirection(RunAwayDir);
  Wait(12000+random(2000));
  RunBack;
end;

Procedure Randoms;
begin
  FindTalk;
  wait(10+Random(15));
  FindNormalRandoms;
  if(FindFight)then
  RunAway;
end;

Procedure Bank;
var
  x, y, fs, fs2 : Integer;
begin
  repeat
    randoms;
    Flag;
    if (FindObj(x, y, 'booth', 607324, 10)) then
    Mouse(x, y, 4, 4, False)
    else
    if (FindObj3(x, y, 'booth', 7243412, 10)) then
    Mouse(x, y, 4, 4, False)
    else
    if (FindObj3(x, y, 'booth', 6324369, 10)) then
    Mouse(x, y, 4, 4, False);
    Wait(250+random(20));
    if (ClickOption('quickly', 1)) then
    begin
    Flag;
    repeat
    Wait(100+random(20));
    fs := fs + 1;
    until (BankScreen) or (fs >= 50);
    end;
    fs2 := fs2 + 1;
    until (BankScreen) or (fs2 > 5);
end;



Procedure TakeBowsAndStrings;
begin
  FixBank;
  Wait(2000+random(250));
  Mouse(92,75,3,3,false);
  Wait(1000+random(250));
  ChooseOption(x,y,'x');
  Wait(3000+random(250));
  SendKeys('13'+chr(13));
  Wait(2000+random(250));
  Mouse(142,75,3,3,false);
  Wait(1000+random(250));
  ChooseOption(x,y,'x');
  Wait(1000+random(250));
  SendKeys('14'+chr(13));
  Mouse(92,75,3,3,true);
  Wait(1000+random(250));
  Mouse(486,40,2,2,true);
end;

Procedure SetInvInPos;
begin
  Wait(3000+random(250));
  Mouse(647,187,3,3,true);
end;

Procedure MakeFullBows;
begin
  MakeFullBows2 := 0;
  Mouse(709,444,3,3,true);
  Wait(2000+random(250));
  Mouse(666,441,3,3,true);
  Wait(1000+random(250));
  Mouse(709,444,3,3,true);
  Wait(2000+random(250));
  Mouse(666,441,3,3,true);
  MakeFullBows2 := MakeFullBows2 + 1;
end;

Procedure DepositItAll;
begin
  Bank;
  Mouse(581,224,3,3,false);
  Wait(2000+random(250));
  ChooseOption(x,y,'all');
end;

Procedure LetsDebug;
begin
  WriteLn('  Running Time: ' + (TimeRunning) + '')
end;

begin
  setupSRL;
  Loadingbitmap;
  declareplayers;
  activateclient;
  loginplayer;
  repeat
    Bank;
    takebowsandstrings;
    setinvinpos;
    wait(500);
      Repeat
      makefullbows;
      Until(MakeFullBows2=9);
    wait(1500+random(20));
    bank;
    wait(1000+random(20)) ;
    deposititall;
    wait(1000+random(20));
   until (bowstringed >= bowstodo);
     if (bowstringed >= bowstodo) then
       begin
       Logout;
       terminateScript;
  end;
end.

Wow, tnx man , i will add the make full bows thing in my next version ty.

on the new script it goes into bank but it clicks EXAMINE instead of "x"

O, well, iam not gonna update the script, cause iam not member, well where in script it sais chooseoption(x,y,'X') change the x to ( x).
that should work.