Simba Code:
program new;
{$i srl/srl.scar}
procedure MM_WalkToTree;
var
x,y:integer;
begin
if
FindColorTolerance(x,y,999274,570,10,700,100,5)then
wait(500+random(200));
Mouse(x,y,15,15,true);
end;
procedure ChopWood;
var
x,y:integer;
begin
repeat
FindColorTolerance(x,y,1714513,1,1,520,340,5);
FindColorTolerance(x,y,1780821,1,1,520,340,5);
FindColorTolerance(x,y,1319748,1,1,520,340,5);
FindColorTolerance(x,y,1187643,1,1,520,340,5);
until(true);
wait(3000+random(1000));
Mouse(x,y,15,15,true);
end;
procedure IFFind;
var
Stump1,Stump2,x,y:integer;
begin
Stump1 := BitmapFromString(3, 2, 'meJzzTG7ySGwAIveEOggCAED+BvA=');
Stump2 := BitmapFromString(3, 2, 'meJyTd0+RdYqDIxn7SAApbARz');
if
FindBitmapSpiralTolerance(Stump1,x,y,180,60,380,260,5)
or
FindBitmapSpiralTolerance(Stump2,x,y,160,60,360,260,5)
then
ChopWood;
FreeBitmap(Stump1);
FreeBitmap(Stump2);
end;
Procedure Fletch;
begin
if
InvFull then
wait(500+random(100));
MouseItem(1,true);
wait(500+random(100));
Mouse(295,435,10,10,true);
wait(500+random(100));
Mouse(260,430,10,10,true);
end;
Procedure WalkBank;
var
BankSymbol,BowBmp,x,y:integer;
begin
BankSymbol := BitmapFromString(9, 6, 'meJw7cOCA28Ktk7995fVLg5AQtGDB' +
'ggNIUooX3kMEIQAiBRGEkEB0AAaAUhBZCEI2EFkW2VhkvWhSAACUWEo=');
BowBmp := BitmapFromString(4, 2, 'meJwLj0qpa57ExMBgYO0MJOMSczp6' +
'5wAZAFO0Bjk=');
repeat
if
FindBitmapSpiral(BowBmp,x,y,685,430,725,460) then
FindBitmap(BankSymbol,x,y);
until(true)
wait(500+random(100));
Mouse(x,y,15,15,true);
FreeBitmap(BankSymbol);
FreeBitmap(BowBmp);
end;
begin
ClearDebug();
SetupSRL();
ActivateClient;
sleep(1000);
playsound('chord');
MM_WalkToTree;
sleep(8500+random(1000));
ChopWood;
Repeat
IFFind;
until(InvFull);
Fletch;
WalkBank;
end.