SCAR Code:
program New;
{.include SRL/SRL.scar}
var
Tele,Tree4,Tree5,Tree6,Tree7,TreeColor: integer;
procedure DeclareBMPS;
begin
Tele := BitmapFromString(21, 21, 'z78DACD96510E83201044AF54' +
'60557E6994FB1FA9A9FA413399CD20B5A9241B83C29B5D94C156B' +
'39427B3929E679C6DB578C6A6FFF1BE821F3FC6C20C6DB49D6B2D' +
'5DE0E62DAF3561A41A908E4FA147217628410AD1C6B8610A31563' +
'F520D983BE851B84B594ACD18250D983B541BB98CE82B410DEC0B' +
'C4AC59BE694A366F18FD3AB00AF472EBDEDA5147CF350D4AB58F9' +
'95B16D28F7BA681AD824F6FB90A1D3550BA903BA363BB837E63E5' +
'FFE0ABBBA661E48F3B9D05F69C1FED369D5EF6B59D96798DE06E4' +
'32EC3DC0D9DCE759C5E8765ABAC9C40864E176C4E5F89500D7AB2' +
'1A61296FEAA726617D5F65A640EE');
Tree4 := BitmapFromString(3, 2, '3F6A29487DFF487DFF3F6A293F' +
'6A29487D2F');
Tree5 := BitmapFromString(2, 7, '2B59162B59FF2B59FF2B59FF22' +
'46FF2B59162246102246105322034A2E154A2E154A2E154A2E154' +
'A2E15');
Tree6 := BitmapFromString(2, 4, '224610FF5916FF46102B591622' +
'4610224610224610224610');
Tree7 := BitmapFromString(2, 3, '2B59162B59FF2B59FF2B59162B' +
'59162B5916');
end;
Procedure Setup;
begin
SetupSRL;
DeclareBMPS;
ActivateClient;
ClearDebug;
MakeCompass('N');
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);
Wait(17000+random(2000));
end;
FreeBitmap(Tele);
end;
procedure GetToTree;
begin
if
TreeColor := AutoColorThis(Tree4,75,MMX1,MMY1,MMX2,MMY2)or
TreeColor := AutoColorThis(Tree5,75,MMX1,MMY1,MMX2,MMY2)or
TreeColor := AutoColorThis(Tree6,75,MMX1,MMY1,MMX2,MMY2)or
TreeColor := AutoColorThis(Tree7,75,MMX1,MMY1,MMX2,MMY2)then
RadialWalk(TreeColor,160,212,65,0,0);
Flag;
FreeBitmap(Tree4);
FreeBitmap(Tree5);
FreeBitmap(Tree6);
FreeBitmap(Tree7);
end;
begin
Setup;
GetToLumb;
GetToTree;
end.