SCAR Code:
program Lumbridge;
{.include SRL\SRL.scar}
{.include SRL\SRL\Skill\Woodcutting.SCAR}
{.include SRL\SRL\Skill\RuneCrafting.SCAR}
var
Tele:integer;
TheTreee:integer;
Dirt:integer;
Dirt2:integer;
Dirt3:integer;
DirtColor, DirtBitmap;
procedure DeclareBMPS;
begin
Tele := BitmapFromString(21, 21, 'z78DACD96510E83201044AF54' +
'60557E6994FB1FA9A9FA413399CD20B5A9241B83C29B5D94C156B' +
'39427B3929E679C6DB578C6A6FFF1BE821F3FC6C20C6DB49D6B2D' +
'5DE0E62DAF3561A41A908E4FA147217628410AD1C6B8610A31563' +
'F520D983BE851B84B594ACD18250D983B541BB98CE82B410DEC0B' +
'C4AC59BE694A366F18FD3AB00AF472EBDEDA5147CF350D4AB58F9' +
'95B16D28F7BA681AD824F6FB90A1D3550BA903BA363BB837E63E5' +
'FFE0ABBBA661E48F3B9D05F69C1FED369D5EF6B59D96798DE06E4' +
'32EC3DC0D9DCE759C5E8765ABAC9C40864E176C4E5F89500D7AB2' +
'1A61296FEAA726617D5F65A640EE');
Dirt := BitmapFromString(9, 1, 'z78DA33733635333237C34B9A1B' +
'9BB91859424888080042F10BBA');
Dirt2 := BitmapFromString(9, 6, 'z78DA337336353332371B25292' +
'0019EF2463F');
Dirt3 := BitmapFromString(11, 5, 'z78DA337336353332371B2529' +
'20CD8DCD5C8C2C014914478E');
end;
Procedure Setup;
begin
SetUpSRL;
ActivateClient;
ClearDebug;
PerfectNorth;
SetRun(true);
end;
Procedure GetToLumb;
begin
Gametab(7);
if(FindBitmap(Tele, x, y))then
begin
MMouse(x, y, 1, 1);
Mouse(x, y, 1, 1, True);
end;
FreeBitmap(Tele);
end;
Procedure GoDraynor;
begin
RadialRoadWalk(FindRoadColor, 70, 40, 70, -1, 0);
Wait(2000+random(2000));
Flag;
RadialRoadWalk(FindRoadColor, 304, 323, 63, -1, 0);
Wait(2000+random(2000));
Flag;
RadialRoadWalk(FindRoadColor, 318, 342, 57, -1, 0);
Wait(2000+random(2000));
Flag;
Mouse(601, 123, 1, 1, True);
Wait(2000+random(2000));
Flag;
if findsymbol(x,y,'Farming Spot')
then
begin
MMouse(x, y, 0, 0);
Mouse(x,y,0,0,true)
Flag;
end;
begin
Dirt := AutoColorThis(DirtBitmap,50,MMX1,MMY1,MMX2,MMY2)
RadialWalk( Dirt , 329, 350, 59, 0, 0);
end;
begin
Setup;
DeclareBMPS;
GetToLumb;
Wait(17000+random(2000));
GoDraynor;
end.