SCAR Code:
program Yewchop0r;
{.include srl/srl.scar} {
**************************************************************
***********\\****//************\\**********************//*****
************\\**//*** _____*****\\********************//******
*************\\//****/ ____|*****\\******************//*******
**************||*****||____*******\\******//\\******//********
**************||*****| ____|*******\\****//**\\****//*********
**************||*****||____*********\\**//****\\**//**********
**************||*****\_____|*********\\//******\\//***********
**************************************************************
************CREDITS Goes To:****************
IronTeapot: For Using HIS banker... -Villu-reborn.com
Home: for giving me alot of help in my scripting career -Villu-reborn.com
}
//Start Script inside bank //Setup lines at 9-35
var Cutted,street,redlol,gretre,C,i,WA,WC:Integer;
var cst,srt,tih,tim,tis,awt,banked,gained,sst,wet,wst:integer;//for progress report
//********SETUP BELOW********** 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 := '';//Your Username
Players[0].Pass := '';//Your Password
Players[0].Nick := '';//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 := '';//Your Username
Players[1].Pass := '';//Your Password
Players[1].Nick := '';//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; //********Dont Touch Below********* procedure declarebmps;
begin
Street := BitmapFromString(10, 1, 'z78DA33B33433343332238B0' +
'4007BD30C6D');
redlol := BitmapFromString(8, 1, 'z78DA3330200D0000DCB00901' +
'');
Gretre := BitmapFromString(7, 7, 'z78DA7DCE410AC0300804C02F' +
'ED5283F46834FDFF930AB1D0401B2F8BE8A0C25AC785A14A609CA' +
'4EE33CDBF643321E88E775B2967A2BCBE97E5B729679A7458080E' +
'6164BD4A97803FFDAF5CA737564D3FF8');
end;
procedure progressreport;
begin
cst := getsystemTime;
srt := (cst - sst) / 1000;
tih := srt / 3600;
tim := (srt / 60) - tih * 60;
tis := srt - tim * 60 - tih * 3600;
awt := wet - wst
writeln('')
writeln('')
writeln('')
writeln('*=======================================*')
writeln('*=Cutted about: ' +inttostr(cutted) + ' Yew''s ================*')
writeln('*=Banked about: ' +inttostr(banked) + ' Load''s ===============*')
writeln('*=Exp gained about: ' +inttostr(gained) + ' ==================*')
writeln('*=Worked : ' + inttostr(tih) + ' Hour''s ' + inttostr(tim) + ' Min''s ' + inttostr(tis) + ' Sec''s =*');
writeln('*=======================================*') end;
procedure BankToTree;
begin
status('Walking to Tree')
Setrun(true)
wait(2000+random(1000))
FindMMColor(x,y,MMMudcolor)
mouse(x,y,15,15,true)
wait(2000+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) end;
Procedure TreeToBank;
begin
Status('Walking to Bank...')
Setrun(false)
FindMMColor(x,y,MMBankColor)
mouse(x,y,3,3,true)
wait(10000+random(3000)) end;
Procedure Cutyew;
begin
Status('Cutting Yew...')
setrun(false) 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;
FindNormalRandoms;
end;
procedure OpenMyBank;
begin
WC:=1
WA:=1 repeat if(FindObj(x,y,'ank',5066840,5))then begin
mouse(x,y,1,1,false);
if (ChooseOption(x, y, 'quickly')) then begin
Flag;
repeat
Wait(100);
i := i + 1 until (BankScreen) or (i >= 50);
end; end; if (not(BankScreen))then begin case WC of 1:MakeCompass('W');
2:MakeCompass('E');
3:MakeCompass('S');
4:MakeCompass('N');
else Writeln('Can not find the bank at Highest Angle.');
end; end;
WC:=WC+1;
if (WC=5) and (WA=1)then begin
WC:=1
WA:=2 end; until(BankScreen)or (WC=5)and (WA=2);
if (not(BankScreen))then
Writeln('Can not find the bank at all.');
end;
Begin
Setupsrl;
ClearDebug;
getsystemTime;
declareplayers;
activateclient;
NextPlayer(True);
Repeat
SetRun(True);
banktotree;
Repeat
Cutyew;;
Until(Invfull);
SetRun(False);
treetobank;
MakeCompass('N');
HighestAngle;
status('Opening Bank...')
OpenMyBank;
status('Depositting all...')
Deposit(2,28,2)
banked:= banked + 1;
gained:= gained + 4900;
c:= c + 1;
progressreport;
status('Closing Bank...')
CloseBank;
MakeCompass('N') If (LoggedIn) and (c=Loads)then Begin
status('Changing Player...')
NextPlayer(True);
End; If(not(LoggedIn))then NextPlayer(False);
Until(False);
End.