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.
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
SCAR Code: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.
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 =)
DEE WIZ
There are currently 1 users browsing this thread. (0 members and 1 guests)