Code:
program Herbs;
{$i srl/srl.simba}
Procedure Fernahei;
var
tmpCTS, l, r:Integer;
ObjectTPA:TPointArray;
begin
MouseSpeed:=15;
tmpCTS := GetToleranceSpeed;
SetColorToleranceSpeed(2);
SetToleranceSpeed2Modifiers(0.13, 0.50);
if FindColorsTolerance(ObjectTPA, 209744, 8, 25, 518, 359, 2) then
begin
SetColorToleranceSpeed(tmpCTS);
SetToleranceSpeed2Modifiers(0.02, 0.02);
L := High(ObjectTPA);
mmouse((ObjectTPA[r].x), (ObjectTPA[r].y), 2, 2);
wait(randomrange(100, 150));
clickmouse2(mouse_left);
Writeln('Attempted to click Fernahei');
wait(randomrange(3000, 5500));
end;
end;
procedure BuyHerb1;
begin
mousespeed := 30;
begin
movemouse(287, 138);
wait(100);
clickmouse(287, 138, mouse_Right);
wait(100);
movemouse(261, 224);
wait(100);
clickmouse(261, 224, mouse_Left);
wait(1500);
Typesend('69');
wait(100);
end;
end;
procedure BuyHerb2;
begin
movemouse(237, 138);
wait(100);
clickmouse(237, 138, mouse_Right);
wait(100);
movemouse(187, 224);
wait(100);
clickmouse(187, 224, mouse_Left);
wait(1000);
Typesend('69');
wait(100);
end;
procedure Close;
begin
movemouse(461, 92);
wait(100);
clickmouse(461, 92, mouse_Left);
wait(1000);
end;
procedure Clean;
begin
movemouse(624, 283);
wait(50);
clickmouse(624, 283, mouse_Left);
wait(50);
movemouse(664, 283);
wait(50);
clickmouse(664, 283, mouse_Left);
wait(50);
movemouse(704, 283);
wait(50);
clickmouse(704, 283, mouse_Left);
wait(50);
movemouse(574, 323);
wait(50);
clickmouse(574, 323, mouse_Left);
wait(50);
movemouse(624, 323);
wait(50);
clickmouse(624, 323, mouse_Left);
wait(50);
movemouse(664, 323);
wait(50);
clickmouse(664, 323, mouse_Left);
wait(50);
movemouse(704, 323);
wait(50);
clickmouse(704, 323, mouse_Left);
wait(50);
movemouse(574, 353);
wait(50);
clickmouse(574, 353, mouse_Left);
wait(50);
movemouse(624, 353);
wait(50);
clickmouse(624, 353, mouse_Left);
wait(50);
movemouse(664, 353);
wait(50);
clickmouse(664, 353, mouse_Left);
wait(50);
movemouse(704, 353);
wait(50);
clickmouse(704, 353, mouse_Left);
wait(50);
movemouse(574, 393);
wait(50);
clickmouse(574, 393, mouse_Left);
wait(50);
movemouse(624, 393);
wait(50);
clickmouse(624, 393, mouse_Left);
wait(50);
movemouse(664, 393);
wait(50);
clickmouse(664, 393, mouse_Left);
wait(50);
movemouse(704, 393);
wait(50);
clickmouse(704, 393, mouse_Left);
wait(50);
movemouse(574, 423);
wait(50);
clickmouse(574, 423, mouse_Left);
wait(50);
movemouse(624, 423);
wait(50);
clickmouse(624, 423, mouse_Left);
wait(50);
movemouse(664, 423);
wait(50);
clickmouse(664, 423, mouse_Left);
wait(50);
movemouse(704, 423);
wait(50);
clickmouse(704, 423, mouse_Left);
wait(50);
movemouse(574, 463);
wait(50);
clickmouse(574, 463, mouse_Left);
wait(50);
movemouse(624, 463);
wait(50);
clickmouse(624, 463, mouse_Left);
wait(50);
movemouse(664, 463);
wait(50);
clickmouse(664, 463, mouse_Left);
wait(50);
movemouse(704, 463);
wait(50);
clickmouse(704, 463, mouse_Left);
wait(50);
movemouse(574, 493);
wait(50);
clickmouse(574, 493, mouse_Left);
wait(50);
movemouse(624, 493);
wait(50);
clickmouse(624, 493, mouse_Left);
wait(50);
movemouse(664, 493);
wait(50);
clickmouse(664, 493, mouse_Left);
wait(50);
movemouse(704, 493);
wait(50);
clickmouse(704, 493, mouse_Left);
wait(50);
end;
procedure Drop;
begin
movemouse(620, 288);
wait(50);
clickmouse(620, 288, mouse_Right);
wait(50);
movemouse(620, 330);
wait(50);
clickmouse(620, 330, mouse_Left);
wait(50);
movemouse(660, 288);
wait(50);
clickmouse(660, 288, mouse_Right);
wait(50);
movemouse(660, 330);
wait(50);
clickmouse(660, 330, mouse_Left);
wait(50);
movemouse(700, 288);
wait(50);
clickmouse(700, 288, mouse_Right);
wait(50);
movemouse(700, 330);
wait(50);
clickmouse(700, 330, mouse_Left);
wait(50);
movemouse(578, 318);
wait(50);
clickmouse(578, 318, mouse_Right);
wait(50);
movemouse(578, 360);
wait(50);
clickmouse(578, 360, mouse_Left);
wait(50);
movemouse(620, 318);
wait(50);
clickmouse(620, 318, mouse_Right);
wait(50);
movemouse(620, 360);
wait(50);
clickmouse(620, 360, mouse_Left);
wait(50);
movemouse(660, 318);
wait(50);
clickmouse(660, 318, mouse_Right);
wait(50);
movemouse(660, 360);
wait(50);
clickmouse(660, 360, mouse_Left);
wait(50);
movemouse(700, 318);
wait(50);
clickmouse(700, 318, mouse_Right);
wait(50);
movemouse(700, 360);
wait(50);
clickmouse(700, 360, mouse_Left);
wait(50);
movemouse(578, 355);
wait(50);
clickmouse(578, 355, mouse_Right);
wait(50);
movemouse(578, 393);
wait(50);
clickmouse(578, 393, mouse_Left);
wait(50);
movemouse(620, 355);
wait(50);
clickmouse(620, 355, mouse_Right);
wait(50);
movemouse(620, 393);
wait(50);
clickmouse(620, 393, mouse_Left);
wait(50);
movemouse(660, 355);
wait(50);
clickmouse(660, 355, mouse_Right);
wait(50);
movemouse(660, 393);
wait(50);
clickmouse(660, 393, mouse_Left);
wait(50);
movemouse(700, 355);
wait(50);
clickmouse(700, 355, mouse_Right);
wait(50);
movemouse(700, 393);
wait(50);
clickmouse(700, 393, mouse_Left);
wait(50);
movemouse(578, 390);
wait(50);
clickmouse(578, 390, mouse_Right);
wait(50);
movemouse(578, 430);
wait(50);
clickmouse(578, 430, mouse_Left);
wait(50);
movemouse(620, 390);
wait(50);
clickmouse(620, 390, mouse_Right);
wait(50);
movemouse(620, 430);
wait(50);
clickmouse(620, 430, mouse_Left);
wait(50);
movemouse(660, 390);
wait(50);
clickmouse(660, 390, mouse_Right);
wait(50);
movemouse(660, 430);
wait(50);
clickmouse(660, 430, mouse_Left);
wait(50);
movemouse(700, 390);
wait(50);
clickmouse(700, 390, mouse_Right);
wait(50);
movemouse(700, 430);
wait(50);
clickmouse(700, 430, mouse_Left);
wait(50);
movemouse(578, 430);
wait(50);
clickmouse(578, 430, mouse_Right);
wait(50);
movemouse(578, 470);
wait(50);
clickmouse(578, 470, mouse_Left);
wait(50);
movemouse(620, 430);
wait(50);
clickmouse(620, 430, mouse_Right);
wait(50);
movemouse(620, 470);
wait(50);
clickmouse(620, 470, mouse_Left);
wait(50);
movemouse(660, 430);
wait(50);
clickmouse(660, 430, mouse_Right);
wait(50);
movemouse(660, 470);
wait(50);
clickmouse(660, 470, mouse_Left);
wait(50);
movemouse(700, 430);
wait(50);
clickmouse(700, 430, mouse_Right);
wait(50);
movemouse(700, 470);
wait(50);
clickmouse(700, 470, mouse_Left);
wait(50);
movemouse(578, 460);
wait(50);
clickmouse(578, 460, mouse_Right);
wait(50);
movemouse(578, 503);
wait(50);
clickmouse(578, 503, mouse_Left);
wait(50);
movemouse(620, 460);
wait(50);
clickmouse(620, 460, mouse_Right);
wait(50);
movemouse(620, 503);
wait(50);
clickmouse(620, 503, mouse_Left);
wait(50);
movemouse(660, 460);
wait(50);
clickmouse(660, 460, mouse_Right);
wait(50);
movemouse(660, 503);
wait(50);
clickmouse(660, 503, mouse_Left);
wait(50);
movemouse(700, 460);
wait(50);
clickmouse(700, 460, mouse_Right);
wait(50);
movemouse(700, 503);
wait(50);
clickmouse(700, 503, mouse_Left);
wait(50);
movemouse(578, 500);
wait(50);
clickmouse(578, 500, mouse_Right);
wait(50);
movemouse(578, 515);
wait(50);
clickmouse(578, 515, mouse_Left);
wait(50);
movemouse(620, 500);
wait(50);
clickmouse(620, 500, mouse_Right);
wait(50);
movemouse(620, 515);
wait(50);
clickmouse(620, 515, mouse_Left);
wait(50);
movemouse(660, 500);
wait(50);
clickmouse(660, 500, mouse_Right);
wait(50);
movemouse(660, 515);
wait(50);
clickmouse(660, 515, mouse_Left);
wait(50);
movemouse(700, 500);
wait(50);
clickmouse(700, 500, mouse_Right);
wait(50);
movemouse(700, 515);
wait(50);
clickmouse(700, 515, mouse_Left);
wait(50);
end;
begin
repeat
Fernahei;
Fernahei;
Fernahei;
Fernahei;
Fernahei;
Fernahei;
Fernahei;
Fernahei;
Fernahei;
Fernahei;
Fernahei;
Fernahei;
Fernahei;
Fernahei;
Fernahei;
Fernahei;
Fernahei;
Fernahei;
Fernahei;
BuyHerb1;
Close;
Clean;
Drop;
Fernahei;
Fernahei;
Fernahei;
Fernahei;
Fernahei;
Fernahei;
Fernahei;
Fernahei;
Fernahei;
Fernahei;
Fernahei;
Fernahei;
Fernahei;
Fernahei;
Fernahei;
Fernahei;
Fernahei;
Fernahei;
Fernahei;
BuyHerb2;
Close;
Clean;
Drop;
until false;
end.
begin
SetupSRL;
MouseSpeed := 15;
FaleSafe := BitmapFromString(94, 27, 'meJztV1FKxEAMHVTYqiiyIIJb/B' +
'X1GH55AW/Wu+wJ9lwuDBuyb5I0ztS2I1PeR5q+SV4ymdIO+8N29wI' +
'Y9odB8s8J0OCRNK3sY6j7p2dATJH65wRo8EhKOSWFHBfebh8BMSBB' +
'e/RbP3+k8YFg3+bFNFaB34gAkkpsrWoPJzudf5VYbHf3AIiEcptuR' +
'afIFzl5qcsLubq5BkRCuW3HJKTkNE5e6vJCLjcdGRPaHB6OtgT4/t' +
'Ql4vkOjrYatjvdHYNs8LWxEbU5w/rFa/yLblMdov6/zqJt1pphj9l' +
'UWHwA2sxUNzO7t/cGEZ9f3w0i+tePhoYM0PfPnOkWr9qpM4Qwm2DK' +
'uHjtHpFRJxmtM4uIrL0z/P9LdMLRG+X/j87wU8brojJFf2DXaJBKO' +
'9Mn46EVC34t+Ch5bfDPjF2g0Rne24o6Qzq54eyAf2b4EauoM/352w' +
'P0a6cpLdD/xq6oM/3pSwbUhvOLO1Mb+P4g68QPS/EA+g==');
CloseTrade := BitmapFromString(13, 8, 'meJx9jzEKACAMA/MmdVWcRH/Vpys' +
'NlGLFkiE0NyQARKT0dXQMAPqnmEYst0n5p8dE74+xBrTPH/OGWJxg' +
'qTfPCdaNGPSuyebJpDo2R5xMRA==');
BuyX := BitmapFromString(126, 12, 'meJzdls0NwjAMhRmkdw4swYhcu' +
'ksn6FpQYckytt+L26YqUPlgpfFPvjhOxmm+vL9xmhcZrredIn4Wh0' +
'53cn88F5HQou8P/bWii3WgmpS2wVeH0afFLiPptL+Rs8gXM+Fpn06' +
'vF3ldTlqftvNUdAQfVbJmIooFqyN20PqxE1Jbvl/EBEWvD/LJ7oCP' +
'WZ9HvbrYw+1uNmvA9XlNW2nHv2qS2lor0uiISTElNJOMu5qvE95Av' +
'tJt0PLJ36isJS/Lr5gXU0qPJPHWnbztM6jsK+TTyb3IEz6kwnlKac' +
'33Iu/qmZPn56LeJerkUcml5O0tE7mhCi+Sr+joBUhehraeN5N3lNY' +
'WGCKv6SHy4sSGi5BVEHmyxfVu4z7rHI1Hwk6sCTInIVAmTo9KJINC' +
'u3AoJb4KtMVND5xJUzq+/48QTv7nAumNyZ/r59IePk/0oYH2kH8Bm' +
'N1xiA==');
DropWergali := BitmapFromString(120, 10, 'meJzdlkESwjAIRTmIexdewiO66' +
'V16gl5LMzLDUAI/JDXVMcOCEAw/ryTjsm5EdLnelnUrVpyP2/3xLE' +
'bvUabiSHxG0W9ZdKhlz3nGqaPSf8+ZfcCZfdPhbhDEeznzVGsDcR0' +
'0+SYHT4eDOFkOJZcXc9ZpMtVIo3gvZ/22aOU4zksRavc7ZsrpV25M' +
'WFc/S61oFfjDnHGfA1Bgfz5sppyBfESY8ZPEzuGcaafmd3HvtUsDl' +
'Ms3Q1LYCZz1DcJXjNTI93yTs6DoKjcmAHAGr7GWDTLreIQaNI/psa' +
'gt85x5SZerkZpy7laugF5htB+yuUusztR4AWTz86gKFmPikV8Xdf3' +
'Mtiaz/gpHhHXZvH/dP2jg4jTtBY9fq7I=');
RedWeed := DTMFromString('mWAAAAHicY2FgYHBgYmBwAWIPILYHYg5GBgYWIOYCYl4gDpWVBmMDJS4Gex1eBk6gHmTMiIZBAAC7rgNV');
UnHerb := DTMFromString('mWAAAAHicY2FgYPBgYmBwBGInIHYD4qdAsRdA/ASIXwKxl5Q4g6+0BEOgjBRDgo4GAztQDBkzomEQAACdFAcO');
all;
freebitmap (DropWergali);
freebitmap (BuyX);
freebitmap (falesafe);
freebitmap (closetrade);
freedtm (UnHerb);
freedtm (RedWeed);
end.