SCAR Code:
//This Script Made By Marneus901
//First Script Made By Me, And Tanks To Communities
//Such As Sythe.org And SRL-forums.com For Tutorials
//And Inspiration
//NOTE:: Does Not Do Randoms Yet
//(FOR PROGRAMMING PURPOSES) Then Make -Y CORD Directly Abouve Shope Inside Castle Garden
//Then More Up But To The Left (-X)
//Then Directly Abouve Again (-Y)
//If Cannot Find Tree, Then Head East (X)
//If Already Moved East, And Cannot Find Tree, Move West (-X)
//If West, Full Load, Head To Bank
//If East, Full Load, Head West, Then Move To Bank
//Use Shotcut Symbol
//Then Directly South
//Repeat
//Repeat (Should Be Out Of Varrock Gardens After This)
//Click On BankSymbol
program AutoYewCutter;
{.include SRL/SRL.scar}
var
myx,myy:Integer;
InfoManSymbol:Integer;
AbleToFindBmps:Integer;
const
Username='username';
Password='password';
BankIconColor= 4048866; //Get The Yellow Part Of Symbol In Mini-Map
//InfoGuySymbol= 7755818; //The Blue Color Of Information Guide Below Bank (On Mini-Map)
StaffShopIcon= 1200010; //Brown Color Of Staff Shop Symbol In MiniMap
ShortcutSymbol= 2395905; //On MiniMap
YewTreeSymbol= 95746;//WellGee?
YewTreeColor= 3168336;
procedure WalkToTrees;
begin
HighestAngle;
Wait(2000);
MakeCompass('S');
MakeCompass('N');
Wait(1500);
//Well, Your Character Is Always At The Cordinate 268, 170
//North Square Is 270, 150 = y cord - 20
//West 230, 185
//South 265, 225 = y cord + 40
//East 305, 185
if(FindBitmap(InfoManSymbol,myx, myy)) then
begin
AbleToFindBmps = 1;
end; else
AbleToFindBmps = 0;
end;
if(FindBitmap(SmithSymbol, myx, myy)) then
begin
AbleToFindBmps = 1;
end; else
AbleToFindBmps = 0;
end;
Mouse(myx, myy+5,0,0,true);
end;
procedure LetsLogin;
begin
Mouse(457, 290, 0, 0, true);
Wait(2000);
SendKeys(Username+chr(13));
SendKeys(Password);
Wait(2000);
Mouse(304,325,0,0,true);
Wait(6000);
Mouse(392, 338, 0, 0, true);
Wait(3000);
end;
procedure LetsLogout;
begin
Wait(1000);
Mouse(645, 485, 0, 0, true);
Wait(3000);
Mouse(629, 377, 0 ,0 ,true);
end;
procedure GetAllBmps;
begin
InfoManSymbol := BitmapFromString(7, 10, 'z78DA333040006347' +
'33370B3364D2000310238E4B8D010EBB885149891AEADA45AA4AE' +
'2012E330185155263');
SmithSymbol := BitmapFromString(9, 7, 'z78DA33300001130B132' +
'76337032436B548030C80DF2E03A201A9EAC9D345AA0B890F0D00' +
'16CA4D55');
end;
begin
GetAllBmps;
LetsLogin;
Wait(4000);
WalkToTrees;
Wait(1000);
LetsLogout;
FreeBitmap(InfoManSymbol);
end.