SRL Archive - RS Scripts

Hi everybody!
Is anybody has this script? Please, upload it. It's really useful script and most of people need it. It would pe apreciate.
Thanks.

im currently making one i just have to fix some procedures and colour finding then i release it.. but if ur a scripter u can fix it ur self

program Yewchop0r;
{.include srl/srl.scar}

//Start Script inside bank
//Setup lines at 8-

var Cutted,street,redlol,gretre,C:integer;
const
tree1 = 3297352; //tree colour
tree2 = 870456; //tree colour different
tree3 = 4223370; //Tree colour different more :O
Loads = 2; //how many loads do u want to do?
MMbankcolor = 6087405; //MM yellow colour of bank
MMstreetcolor = 4671311;
MMTreecolor = 293378;
MMRedWeird = 131478;
MMMudcolor = 928314;

Procedure Declareplayers;
begin
NumberOfPlayers(2)
  //--------------------Player 1---------------------------------------------------
  Players[0].Name  := 'xxx';   //Your Username
  Players[0].Pass  := 'xxx';              //Your Password
  Players[0].Nick  := 'xxx';          //3 or 4 letters from your Username
  Players[0].Loc  := 'Goldshire';               //DONT TOUCH
  Players[0].Skill  := 'prayer';  //The skill for when you get a lamp
  Players[0].Active  := true;          //Will You Be Using This Player?
  //--------------------Player 2---------------------------------------------------
  Players[1].Name  := 'xxx';   //Your Username
  Players[1].Pass  := 'xxx';              //Your Password
  Players[1].Nick  := 'xxx';          //3 or 4 letters from your Username
  Players[1].Loc  := 'Elwyn forest';               //DONT TOUCH
  Players[1].Skill  := 'prayer';  //The skill for when you get a lamp
  Players[1].Active  := true;          //Will You Be Using This Player?
end;

procedure declarebmps;
begin
Street := BitmapFromString(10, 1, 'z78DA33B33433343332238B0' +
       '4007BD30C6D');
redlol := BitmapFromString(8, 1, 'z78DA3330200D0000DCB00901' +
       '');
Gretre := BitmapFromString(7, 7, 'z78DA7DCE410AC0300804C02F' +
       'ED5283F46834FDFF930AB1D0401B2F8BE8A0C25AC785A14A609CA' +
       '4EE33CDBF643321E88E775B2967A2BCBE97E5B729679A7458080E' +
       '6164BD4A97803FFDAF5CA737564D3FF8');
end;

procedure BankToTree;
begin
Setrun(true)
FindMMColor(x,y,MMstreetcolor)
mouse(x,y,10,10,true)
wait(1000+random(1000))
FindMMColor(x,y,MMMudcolor)
mouse(x,y,15,15,true)
wait(1000+random(1000))
FindMMColor(x,y,MMRedWeird)
mouse(x,y,4,4,true)
wait(2000+random(1000))
FindMMColor(x,y,MMtreecolor)
mouse(x,y,3,3,true)
AntiBan;
MakeCompass('N')
end;

Procedure TreeToBank;
begin
Setrun(false)
FindMMColor(x,y,MMBankColor)
mouse(x,y,3,3,true)
wait(10000+random(3000))
AntiBan;
MakeCompass('N')
end;

procedure findrandoms;
begin
  FindLamp(LampSkill);
  FindFight;
  FindMime;
  FindMaze;
end;

Procedure Cutyew;
begin
setrun(false)
Findrandoms;
If(FindColorSpiralTolerance(x, y, tree1, MSX1, MSY1, MSX2, MSY2, 5))or
   (FindColorSpiralTolerance(x, y, tree2, MSX1, MSY1, MSX2, MSY2, 7))or
    (FindColorSpiralTolerance(x, y, tree3, MSX1, MSY1, MSX2, MSY2, 10))then
Begin
MMouse(x, y, 0, 0);
Wait(100+Random(50));
If IsUpText('Chop') or IsUpText('down') and IsUpText('Yew') then
Mouse(x, y, 0, 0, False); Wait(100+Random(50)); ChooseOption(x, y, 'Chop down'); Flag; end;
Cutted:=Cutted + 1;
end;


Begin
 Setupsrl;
 MakeCompass('N')
 declareplayers;
 activateclient;
  Repeat
   SetRun(True);
   banktotree;
    Repeat
     Cutyew;;
    Until(Invfull);
    SetRun(False);
    treetobank;
    Openbank;
    Depositall;
    c:= c + 1;
    CloseBank;
    If (LoggedIn) and (c=Loads)) then
     Begin
      NextPlayer(True);
     End;
    If(not(LoggedIn))then NextPlayer(False);
  Until(False);
End.

Or you can check out juniors in the SRL script section.

From: jukka
im currently making one i just have to fix some procedures and colour finding then i release it.. but if ur a scripter u can fix it ur self

It would be great, if you upload this scipt with fixed bugs later. I'm not scripter yet, but I'm learning pascal to write scripts.
Thanks for half-working script.

nice sctipt

not really…it's crap me and wyn10 intend to make one already got the walk there and the walk back we gotta tweak it and perfect it and no! its not free! 750-1m depending on reliabillity(spelling?)

Umm i would love a working edge yew + nbanker! Im paying =)

From: Wiz4life2
Umm i would love a working edge yew + nbanker! Im paying =)

700-1000k it will be no less any leaking and your auth will be disabled! no refunds no buts you gave your auth to a friend and you was asking to be banned from using the script