SCAR Code:
program FallyOakcutter;
{.include SRL/SRL.scar}
{.include SRL/SRL/skill/WoodCutting.scar}
var
trees, Tree, Banker, treee, I: Integer;
walk: boolean;
Robin: Boolean;
const
TreeColor = 2254936;
TreeColor2 = 4821128;
procedure Walker;
begin
HighestAngle;
writeLn('Trying to find bank on minimap');
Banker := BitmapFromString(14, 9, 'z78DA737276B2B03477' +
'1A2547C9114302003B7FB4A3');
Banker := AutoColorThis(banker, 80, MMx1, MMy1, MMx2, MMy2)
WriteLn('Found bank on mini map!');
RadialWalk(banker, 396, 334, 42, 0, 0);
wait(300 + random(500));
Flag;
wait(100 + random(100));
end;
procedure findmaceshop;
var
xc, xy: Integer;
begin
MakeCompass('N');
wait(100 + Random(300));
if (FindSymbol(xc, xy, 'Mace Shop')) then
begin
Writeln('Found MaceShop Symbol');
Mouse(xc, xy, 3, 2, true);
flag;
wait(200 + random(500));
end else
FindSymbol(x, y, 'water source');
WriteLn(' trying to Find water source');
Mouse(x, y, 3, 2, true);
WriteLn('Found Water Source');
wait(500 + random(300));
Flag;
wait(500 + random(300));
FindSymbol(x, y, 'Mace Shop');
Mouse(x, y, 2, 1, True);
WriteLn('FoundMaceShop');
flag;
Wait(200 + random(400));
end;
procedure Checker;
var
ex, ey: Integer;
begin
wait(500 + random(500));
if (FindSymbol(ex, ey, 'Hair Dresser')) then
begin
Writeln('Hair Dresser Is Found Player is not lost');
exit;
end else
WriteLn('Player Is Lost');
NextPlayer(True);
end;
procedure walktotree;
var
TheColor: Integer;
begin
WriteLn('Attempting To Walk To trees');
wait(400 + random(300));
trees := BitmapFromString(20, 15, 'z78DA33333037347432' +
'1B2547495A936638C8A162AFA1B98191390A3950F6E277C340D98' +
'BCB25F4B7173F696C6E62E88A851CB51797BDA4A6225C3652622F' +
'31A4B19933D0042C24617B01C16177FA');
wait(200 + random(500));
TheColor := AutoColorThis(Trees, 250, MMx1, MMy1, MMx2, MMy2)
WriteLn('Found Trees');
RadialWalk(TheColor, 331, 389, 60, 2, 3);
wait(8000 + random(500));
Flag;
wait(500 + random(400));
end;
procedure Walktomini;
begin
MakeCompass('N');
WriteLn('trying to find Trees on mini Map');
wait(100 + random(500));
Treee := BitmapFromString(20, 24, 'z78DAB596590EC2300' +
'C44AFE4A60DC92FB4E5FE4702EA4A4C706D262C7C8CA214F9D993' +
'C529529734CA7958458671CA9254F7993957A9A8A7B95ED260B5E' +
'43ED5F896AB9AD63CCA95E1F6D22DEB40BFE05AC73C6ECA29B7B5' +
'6BD57BEDDB0CC3B539A38AFEC06DE57ACAD4EB79D5F8561EFB0A1' +
'533F188E3252D522C9759298FAB14E56A7CA4C4B5F3BB85E71679' +
'7EC51C62E755A7E97E72A471C9FABC1175ACAC98CBD0AD6F1E17D' +
'757FFAF63A5630EBFE25ACF5179627C6FC45CEB307F9A7AB9E824' +
'FA833BED07B7A5BCB2AC6A34EF64FD9BDBAB3C175793E7F67640E' +
'4DA1DDB68FE223EC1B5639E6E3B5DACF109FD8CCBD0E35B88E1C6' +
'FDCECBC1EBB30DB11E730F3A9D97C3366FDF57FB4EAE40B1FAD9E' +
'B08C61EF70D9D7E9BED7188F7E49B4A433A2AF6D9B26CF38EDE00' +
'0E10659A');
wait(500 + random(500));
treee := AutoColorThis(Trees, 150, MMx1, MMy1, MMx2, MMy2)
WriteLn('Found trees on mini map!');
RadialWalk(treee, 308, 249, 70, 3, 3);
wait(200 + random(500));
Flag;
wait(300 + random(1000));
end;
procedure FreeBmps;
begin
FreeBitmap(trees);
FreeBitMap(Treee);
FreeBitMap(Banker);
end;
begin
SetUpSRL;
ActivateClient;
wait(2000);
SetRun(true);
Walker;
wait(500 + random(800));
FindMaceShop;
Checker;
WalkToTree;
WalkToMini;
FreeBmps;
wait(500 + random(800));
Wait(300 + random(400));
end.