SRL Archive - Outdated / Broken

An auto stringer that has full ani radoms,every time it takes the bows/strings out of the bank it does it differantly(a.k.a 10 bows then 10 strings then 4 bows and 4 strings/all 14 at once then the other 14)and have a progress report build into it.I know its simple but i jsut cant seem to find one out there so if you could help thanx =]

lol even if u just have a stringer (no bells and whisles unlike the one above)can you post it =p thanx

edit your post instead of making a new one, but when i get members (less than a week) , ill work on one

kk thanx man

program BowStringer;

{.include SRL\SRL.scar}

Procedure UseItemWiz;
Begin
  GameTab(4);
  While not(InventoryCount<15) do
    Begin
    if (IsFKeyDown(7)) then
      Repeat
        Wait(100);
      Until not(IsFKeyDown(7));
      
      Mouse(668,441,8,8,True);
      Mouse(709,442,8,8,True);
    End;
End;

Procedure Use;
begin
  Repeat
    UseItemWiz;
 Until(InventoryCount<15)
end;

Procedure Use2;

Begin
  Repeat
    UseItem(27)
    UseItem(28)
    if (InventoryCount<15) then Break;
    if (IsFKeyDown(6)) then
      Repeat
      Wait(100);
      Until not(IsFKeyDown(6))
    Wait(100+Random(50));
    UseItem(27)
    UseItem(28)
    if (IsFKeyDown(6)) then
      Repeat
      wait(100);
      Until not(IsFKeyDown(6))
    Wait(100+Random(50));
  Until(InventoryCount<15)
End;

Procedure WithdrawStuff;

begin
  Openbank;
  If BankScreen then
    begin
      FixBank;
      Wait(200+Random(50));
      Deposit((5+Random(4)),28,2);
      Wait(100+Random(50));
      Withdraw(1,1,13);     // Set either strings or (u) bows here.
                            // 4 = Column(sp?)
                            // 1 = Row
      Wait(100+Random(50));
      Withdraw(1,2,14);     // If set strings above, put (u) bows, when (u) bows above, put strings here.
                            // 2 = Column(sp?)
                            // 2 = Row
      Wait(100+Random(50));
      Withdraw(1,1,1);      // Set same as line 59. But don't change the last 1.
      Wait(150+Random(50));
      CloseWindow;
    end;
end;

begin
SetupSRL;
BenMouse:=False;

 Repeat
  WithdrawStuff;
  Use;    // Either Use; or Use2;
 Until(false)
end.

It's isn't that use friendly, and has no anti-randoms, just sit next to it.
F6 to pauze (most of the times)

Strings in slot 1 and bows in 2, unless you know how to script. :)

Wizzup?

Thanx man ill use this is the mean while untill i get some one to help me get a good one made hehe thanx =]

If its so easy, make one. :P

Ive been editng one one trying to add progress reports and making it more radokm but now it does nto work as wlel lol it errors like start after the first load ill upload it when i find it if you can find whats wonrg can you fix it for me thanx =]

{Bow Stringer
Start at any bank with unstrung bows in first bank slot and bow
Strings in the second. Start with nothing in inventory. Fill out
setup and you're done!
}
program BowStringer;
{.include osi.txt}
{.include boxbreaker2.txt}
const
Username = ' ';
Password = ' ';
var TalkY,TalkW,iLamp,i:integer;
procedure Run;
begin
SetRun(true);
MouseFlag(645,148,1,1);
StandStill;
MouseFlag(648,20,1,1);
end;
function Fight:boolean;
begin
if(FindColorSpiral(x,y,65280,216,115,284,171))then
Result:=true;
end;
procedure FindMiscRandoms;
var ax,ay:integer;
begin
if(FindColor(ax,ay,786423,10,350,150,433))then
begin
GetScreenshot('Mod',1);
LogOut('UHOH, A MOD!!!');
end;
if(GetColor(30,418)=0)and(GetColor(72,429)=0)then
begin
GetScreenshot('Dead',1);
LogOut('You are dead!');
end;
if(FindColor(ax,ay,11503238,10,350,479,433))then
begin
GetScreenshot('Mime',1);
LogOut('Mime Found');
end;
end;
procedure LoginifNeeded(Username,Password:string);
begin
if(GetColor(328,294)=16777215)then
begin
Mouse(461,295,9,9,true);
wait(600);
Mouse(373,255,0,0,true);
wait(200);
Say(username);
wait(400);
Say(password);
wait(200);
Mouse(302,320,9,9,true);
repeat
wait(50);
until(not(GetColor(540,268)=3879730))
wait(500);
repeat
Mouse(461,95,8,8,true);
until(not(GetColor(463,93)=8421504))and(not(GetColor(463,93)=16777215))
end;
end;
procedure FindText;
var counter,c:integer; Talked2Rand:boolean;
begin
if(FindColor(x,y,65535,5,5,514,337))then wait(100)
if(FindColor(x,y,65535,5,5,514,337))and(LogedIn)then
begin
repeat
counter:=counter+2+random(1);
if((x+counter) < 515)and((y+18) < 338)then
MoveMouseSmoothEx(x+counter,y+15+random(3),1,6,15,20,20);
wait(5);
if(FindColorSpiral(x,y,65280,180,90,320,230))then
break;
if(IsTextAt2(9,9,'Ta',100))then
begin
GetMousePos(x,y);
Mouse(x,y,0,0,false);
Wait(200+random(100));
if(FindBitmap(TalkW,x,y))or(FindBitmap(TalkY,x,y))then
begin
Mouse(x,y,40,5,true);
MapFlag;
wait(1000+random(1000));
while((FindColor(x,y,16711680,5,345,510,465))or //Replaces TalkToRand
(FindColor(x,y,16777215,5,345,510,465)))and
(not(GetColor(20,434)=0))and(c<=10)do
begin
Mouse(x,y,50,2,true);
wait(2000+random(1000));
c:=c+1;
end;
Talked2Rand:=true;
end;
end;
until(counter>=250)or(Talked2Rand);
end;
end;
Procedure FindLamp;
begin
while(FindBitmapSpiralTolerance(iLamp,x,y,550,200,745,470,100)) do
begin
Mouse(x+random(2),y+random(2),10,10,true);
wait(3000+random(1000));
Mouse(157+random(2),220+random(2),12,12,true)
wait(3000+random(1000));
Mouse(248+random(2),255+random(2),10,2,true);
wait(3000+random(1000));
Mouse(226+random(2),442+random(2),10,3,true);
wait(3000+random(1000));
end;
end;
procedure Randoms;
begin
LogInIfneeded(username,password);
if(Fight)then
Run;
FindMiscRandoms;
FindText;
FindLamp;
//FindStrangeBox;
end;
function FindObj(objtext:string; objcolor,tol:integer):boolean;
var ax,ay:integer;
begin
repeat
wait(10);
ax:=random(514); ay:=random(336);
if(FindColorTolerance(x,y,objcolor,ax-10,ay-10,ax+10,ay+10,tol))then
begin
MMouse(x,y,1,1);
wait(350);
if(IsTextAt2(9,9,objtext,100))then
Result:=true;
end;
until(result=true)
end;
Function OpenBank2:boolean;
var c:integer;
begin
if(rcmQuickBank=0)then
LoadBankBmps;
if(FindObj('Use Bank',2710643,15))then
begin
Mouse(x,y,1,1,false);
wait(75+random(25));
if(FindBitmap(rcmQuickBank,x,y))or(FindBitmap(rcmQuickBankY,x,y))then
begin
Mouse(x,y,5,2,true);
MapFlag;
end else
MMouse(5,5,60,60);
while(not(IsTextAt2(185,36,'The Bank of RuneScape',100)))and(c<30)do
begin
wait(50+random(25));
c:=c+1;
end;
end;
if(IsTextAt2(185,36,'The Bank of RuneScape',100))and(not(GetColor(476,76)=5531254))then
Mouse(472,81,4,10,true);
wait(200+random(100));
if(IsTextAt2(185,36,'The Bank of RuneScape',100))then
result:=true;
end;
procedure Bank;
begin
Randoms;
OpenBank2;
Deposit(0,0,Random(985) + 14);
Withdraw(1,1,14);
Withdraw(2,1,14);
CloseBank;
Randoms;
end;
procedure StringBows;
var DGF:integer;
begin
MMouse(628,334,5,5);
GetMousePos(x,y);
HoldMouse(x,y,true);
MMouse(669,445,5,5);
GetMousePos(x,y);
ReleaseMouse(x,y,true);
wait(500);
repeat
DGF:=DGF+1;
Randoms;
UseItem(27);
UseItem(28);
until(not(GetColor(622,333)=4345174))or(DGF>=25)
end;
procedure LoadBmps;
begin
TalkW := BitmapFromString(17, 10,
'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000' +
'000000000000000000000000000000000000FFFFFFFFFFFF000000' +
'000000FFFFFFFFFFFF000000000000000000000000000000000000' +
'000000000000000000000000000000FFFFFFFFFFFF000000000000' +
'FFFFFFFFFFFF000000000000000000000000000000000000000000' +
'000000000000000000000000FFFFFFFFFFFF000000000000FFFFFF' +
'FFFFFF000000000000000000000000000000000000000000000000' +
'000000000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
'000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
'000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
'000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000000000' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000000000FFFFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
'000000000000FFFFFFFFFFFF000000000000000000000000FFFFFF' +
'FFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFF');
TalkY := BitmapFromString(17, 10,
'FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00000000000000000000' +
'000000000000000000000000000000000000FFFF00FFFF00000000' +
'000000FFFF00FFFF00000000000000000000000000000000000000' +
'000000000000000000000000000000FFFF00FFFF00000000000000' +
'FFFF00FFFF00000000000000000000000000000000000000000000' +
'000000000000000000000000FFFF00FFFF00000000000000FFFF00' +
'FFFF00000000000000000000000000000000000000000000000000' +
'000000000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
'000000000000000000000000FFFF00FFFF00FFFF00FFFF00000000' +
'000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
'000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
'000000FFFF00FFFF00000000000000FFFF00FFFF00000000000000' +
'000000000000FFFF00FFFF00FFFF00FFFF00FFFF00000000000000' +
'FFFF00FFFF00000000000000FFFF00FFFF00000000000000000000' +
'FFFF00FFFF00000000000000FFFF00FFFF00000000000000FFFF00' +
'FFFF00000000000000FFFF00FFFF00000000000000000000FFFF00' +
'FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
'000000000000FFFF00FFFF00000000000000000000000000FFFF00' +
'FFFF00FFFF00FFFF00FFFF00000000000000FFFF00FFFF00');
iLamp := BitmapFromString(17, 6,
'000001000001000001000001BAB815B2B015AEAD15ABAA159C9A12' +
'9291128C8A1275740E000001000001000001000001000001D0CE18' +
'CBC918C8C618C5C418C5C418C0BE18BAB815B5B315ABAA15A3A112' +
'99971292911284820E79780E6968095C5A09A6A415CECC18C5C418' +
'C2C118C0BE18BDBB18BAB815B8B615B5B315B2B015A8A715A3A112' +
'9C9A129594128E8D1281800E999712AEAD15CECC18CBC918C0BE18' +
'BDBB18BAB815B5B315B2B015AEAD15A8A715A3A1129F9E12999712' +
'88860E84820E8C8A129291129C9A12000001CBC918CBC918BAB815' +
'B8B615B5B315B2B015AEAD15A8A715A3A1129C9A1295941281800E' +
'79780E84820E000001000001000001CBC918CBC918C0BE18B8B615' +
'B2B015AEAD15ABAA15A6A4159F9E129997128C8A1279780E75740E' +
'000001000001C2C118');
end;
begin
Setuposi
BoxOpenerSetup;
LoadBmps;
ChatFixer;
repeat
i:=i+1;
bank;
StringBows;
writeln('Strung about' + inttostr(i * 14) + ' bows.');
until(false)
end.

Wow my god.. Standards man.

wow…too many randoms my friend. for one, while your stringing you only get box…and also there are a few commands that cover a wide range of randoms. so your script looks nicer and doesnt take up as much space

procedure RandomEvents;
begin
FindMiscRandoms;
FindNormalRandoms;
end;

From: weaselforce
wow…too many randoms my friend. for one, while your stringing you only get box…and also there are a few commands that cover a wide range of randoms. so your script looks nicer and doesnt take up as much space

procedure RandomEvents;
begin
FindMiscRandoms;
FindNormalRandoms;
end;

if im not mistaken doesnt FindNormalRandoms; contain FindMiscRandoms in its procedure?

lol iono, i just put in both to make sure. too lazy to look

so oyher fomr that no errors that you can spot lol>??