first script be nice.
Its a simple "farmer"? but my situation is a little different, so i need a litte of help. lol.
In the game im trying to auto, the "crop"? has 3 different bitmaps, which i have taken from screenshots.
After it finds any of these 3 different bmp it needs to click it hold down the click, drag the mouse down a few inches, wile still holding down left click. how do i do this?
I kinda got a general idea as you can see at the bottom. i don't know where to go from here, kinda stuck. how do i var multiple bitmap? and search for all 3? and i don't think i got the repeat right?
Code:program yay;
{.include SRL/SRL.scar}
var
rounder,weird,red,round2, x, y : Integer;
procedure LoadBmps;
begin
rounder := BitmapFromString(12, 6, 'beNpTluxMcV0YYVwbou+hLGmg' +
'LuujpQFEQLaluBCQhCCgAoiyVivZRD1FIAKqB5JANTriYkASiCrtd' +
'DzMVIBqJnpqAJUBFQARUNBWWRFogoK8LJAEiiytLpnoawwUByIgd2' +
'+XD0gj2DoFfn4ggtg4NTs1wsz46tKCqeXhQPVAYy31QG4DWgdSw8M' +
'C1FUY4wGU3djVVOgKcs/HleVAQaCrQAoAoLQ6sg==');
weird := BitmapFromString(13, 8, 'beNo9jz0LglAUhofGoAhChEvX' +
'DITCS0JCDhKEkWUQlFBN1RCNDg0OQWNjg0v/t0cOBC8v557znI+bm' +
'NjVvtW9GL0ZelNfLfv2YTI++/q2rj2yOojqPQs+WZCGgzgKj2Hg9F' +
'Tq2mU8wnnilMCeO5MnhgzutFvV9wVDEqBItPA4VWBZWj32KE1m9XC' +
'33igMXQB0va9zMpDFaYE4ACbwFCfJBGBELL3wEqTNhtwvXxAxkBIB' +
'/q8imRMZRcz9cgAriKWx3K4kg/IfnkZF7Q==');
red := BitmapFromString(11, 8, 'beNrTkjUVFXBXV3ZWEAeiAgv1TH' +
'tZd2tZCNfUUNfZUAEk7ukcpQVSGWSoCyRLfLWAXKBKuN7qEF+IAiC' +
'CSAHVABGQAURAESCCmGmhAJUCikAYbW4gMyGyEDQ1QBcuBURALlwK' +
'YgXQnRBZIAmUBSK47XJ8vM7czEBXAWWRlcH1wk0A+gXiKqDiKAA+j' +
'TlO');
round2 := BitmapFromString(12, 8, 'beNozMzZQl/VQlrQUF4owMy5' +
'0VfQwUwlx1c/0NQZyE/UUfbQ0gFIQBFEGlOpMcQWi2hB9oAIIAooD' +
'SYgCCAJyISZUaokBxYEMW2WEAiADiDId7XTEobIQEQV+fqAs0FKQR' +
'jsdINqY7wrRAmRDlAHVAE0GciEagYzWmHCIOyd6agDV+zgqAtVAHA' +
'YxFsiY6GsM4Z6cGbW3yweoEuRsM2O4syFGQdhA04DeBIZDBADtREB' +
't');
If (FindBitmapTolerance(weird, x, y, 50)) Then
begin
MoveMouseSmoothEx(X, Y, 20, 40, 45, 25, 20);
Wait(1000+random(100));
HoldMouse(X, Y, True);
wait(1000);
MoveMouseSmooth(100,170);
wait(100);
ReleaseMouse(x,y,true);
MoveMouseSmooth(309,193);
ClickMouse(x,y,true);
end;
If (FindBitmapTolerance(rounder, x, y, 50)) Then
begin
MoveMouseSmoothEx(X, Y, 20, 40, 45, 25, 20);
Wait(1000+random(100));
HoldMouse(X, Y, True);
wait(1000);
MoveMouseSmooth(100,170);
wait(50);
ReleaseMouse(x,y,true);
MoveMouseSmooth(309,193);
ClickMouse(x,y,true);
end;
If (FindBitmapTolerance(red, x, y, 50)) Then
begin
MoveMouseSmoothEx(X, Y, 20, 40, 45, 25, 20);
Wait(1000+random(100));
HoldMouse(X, Y, True);
wait(100);
MoveMouseSmooth(100,170);
wait(100);
ReleaseMouse(x,y,true);
MoveMouseSmooth(309,193);
ClickMouse(x,y,true);
end;
If (FindBitmapTolerance(round2, x, y, 50)) Then
begin
MoveMouseSmoothEx(X, Y, 20, 40, 45, 25, 20);
Wait(1000+random(100));
HoldMouse(X, Y, true);
wait(100);
MoveMouseSmooth(100,170);
wait(100);
ReleaseMouse(x, y, true);
MoveMouseSmooth(309,193);
ClickMouse(x,y,true);
end;
end;
procedure FreeBmps;
begin
FreeBitmap(weird);
FreeBitmap(red);
FreeBitmap(round2);
FreeBitmap(rounder);
end;
begin
repeat
LoadBmps;
until(false);
SetupSRL;
end.
