g ked
07-25-2013, 06:16 AM
Redone whole thing, been running for 5 hours now. Should work aye ok!
SETUP:
Darkest Setting
Stand somewhere near Fernahei in Neitzinot
Play in 'Lite' mode
Face South at the highest angle you can
Edit: Should work now.
program FckHerb;
{$i srl/srl.simba}
var
X, Y, Add, UnHerb, DropWergali, CloseTrade, BuyX, Redweed, Falesafe: Integer;
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(2000, 2500));
end;
begin;
repeat
if FindDTM(RedWeed, x, y, 70, 60, 398, 110)=false then
Fernahei;
until FindDTM(RedWeed, x, y, 70, 60, 398, 110)
Writeln('Trading Fernahei');
end;
end;
Procedure Buy;
begin
begin
if FindDTM(RedWeed, x, y, 70, 61, 407, 110) then
mmouse(x, y, 1, 1);
wait(randomrange(100, 200));
clickmouse2(mouse_right);
wait(randomrange(400, 600));
end;
begin
if FindBitmapToleranceIn(BuyX, X, Y, 1, 1, 510, 335, 10) then
begin
mmouse(x, y,1,1);
wait(250);
ClickMouse(X, Y, mouse_Left)
wait (randomrange (1000, 1200));
end;
end;
begin;
TypeSend('69');
wait (randomrange (400, 666));
end;
begin
if FindBitmapToleranceIn(Closetrade, X, Y, 1, 1, 510, 335, 10) then
begin
mmouse(x, y,1,1);
wait(250);
ClickMouse(X, Y, mouse_Left)
wait (randomrange (1000, 1200));
end;
end;
end;
Procedure Clean;
begin
begin
repeat
if FindDTM(RedWeed, x, y, 522, 172, 762, 500) then
mmouse(x, y, 1, 1);
wait(randomrange(100, 200));
clickmouse2(mouse_left);
wait(randomrange(450, 500));
until FindDTM(RedWeed, x, y, 522, 172, 762, 500)=false
end;
begin
repeat
if FindDTM(RedWeed, x, y, 522, 172, 762, 500) then
mmouse(x, y, 1, 1);
wait(randomrange(100, 200));
clickmouse2(mouse_left);
wait(randomrange(450, 500));
until FindDTM(RedWeed, x, y, 522, 172, 762, 500)=false
end;
begin
movemouse (659, 186);
wait (400);
clickmouse (659, 186, mouse_left);
end;
end;
Procedure Drop;
begin
if FindBitmapToleranceIn(falesafe, X, Y, 404, 156, 760, 501, 10) then
begin
movemouse(653, 187);
wait(250);
ClickMouse(X, Y, mouse_Left)
end;
if FindDTM(unHerb, x, y, 522, 172, 762, 500) then
begin
mmouse(x, y, 1, 1);
wait(randomrange(100, 150));
clickmouse2(mouse_right);
wait(randomrange(300, 310));
end;
if FindBitmapToleranceIn(DropWergali, X, Y, 404, 156, 760, 501, 10) then
begin
mmouse(x, y,1,1);
wait(250);
ClickMouse(X, Y, mouse_Left)
begin
repeat
if FindDTM(unHerb, x, y, 522, 172, 762, 500) then
drop;
until FindDTM(unHerb, x, y, 522, 172, 762, 500)=false
end;
end;
end;
Procedure All;
begin
repeat
fernahei;
buy;
clean;
drop;
inc (add);
until (add=500); //right here is where you change how many times you want the bot to buy and clean them
end;
begin
SetupSRL;
MouseSpeed := 15;
FaleSafe := BitmapFromString(94, 27, 'meJztV1FKxEAMHVTYqiiyIIJb/B' +
'X1GH55AW/Wu+wJ9lwuDBuyb5I0ztS2I1PeR5q+SV4ymdIO+8N29wI' +
'Y9odB8s8J0OCRNK3sY6j7p2dATJH65wRo8EhKOSWFHBfebh8B MSBB' +
'e/RbP3+k8YFg3+bFNFaB34gAkkpsrWoPJzudf5VYbHf3AIiEcptu R' +
'afIFzl5qcsLubq5BkRCuW3HJKTkNE5e6vJCLjcdGRPaHB6Otg T4/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+vL9xmhcZrredIn 4Wh0' +
'53cn88F5HQou8P/bWii3WgmpS2wVeH0afFLiPptL+Rs8gXM+Fpn06' +
'vF3ldTlqftvNUdAQfVbJmIooFqyN20PqxE1Jbvl/EBEWvD/LJ7oCP' +
'WZ9HvbrYw+1uNmvA9XlNW2nHv2qS2lor0uiISTElNJOMu5qvE 95Av' +
'tJt0PLJ36isJS/Lr5gXU0qPJPHWnbztM6jsK+TTyb3IEz6kwnlKac' +
'33Iu/qmZPn56LeJerkUcml5O0tE7mhCi+Sr+joBUhehraeN5N3lNY' +
'WGCKv6SHy4sSGi5BVEHmyxfVu4z7rHI1Hwk6sCTInIVAmTo9K JINC' +
'u3AoJb4KtMVND5xJUzq+/48QTv7nAumNyZ/r59IePk/0oYH2kH8Bm' +
'N1xiA==');
DropWergali := BitmapFromString(120, 10, 'meJzdlkESwjAIRTmIexdewiO66' +
'V16gl5LMzLDUAI/JDXVMcOCEAw/ryTjsm5EdLnelnUrVpyP2/3xLE' +
'bvUabiSHxG0W9ZdKhlz3nGqaPSf8+ZfcCZfdPhbhDEeznzVGs DcR0' +
'0+SYHT4eDOFkOJZcXc9ZpMtVIo3gvZ/22aOU4zksRavc7ZsrpV25M' +
'WFc/S61oFfjDnHGfA1Bgfz5sppyBfESY8ZPEzuGcaafmd3HvtUsDl' +
'Ms3Q1LYCZz1DcJXjNTI93yTs6DoKjcmAHAGr7GWDTLreIQaNI/psa' +
'gt85x5SZerkZpy7laugF5htB+yuUusztR4AWTz86gKFmPikV8 Xdf3' +
'Mtiaz/gpHhHXZvH/dP2jg4jTtBY9fq7I=');
RedWeed := DTMFromString('mWAAAAHicY2FgYHBgYmBwAWIPILYHYg5GBg YWIOYCYl4gDpWVBmMDJS4Gex1eBk6gHmTMiIZBAAC7rgNV');
UnHerb := DTMFromString('mWAAAAHicY2FgYPBgYmBwBGInIHYD4qdAsR dA/ASIXwKxl5Q4g6+0BEOgjBRDgo4GAztQDBkzomEQAACdFAcO');
all;
freebitmap (DropWergali);
freebitmap (BuyX);
freebitmap (falesafe);
freebitmap (closetrade);
freedtm (UnHerb);
freedtm (RedWeed);
end.
SETUP:
Darkest Setting
Stand somewhere near Fernahei in Neitzinot
Play in 'Lite' mode
Face South at the highest angle you can
Edit: Should work now.
program FckHerb;
{$i srl/srl.simba}
var
X, Y, Add, UnHerb, DropWergali, CloseTrade, BuyX, Redweed, Falesafe: Integer;
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(2000, 2500));
end;
begin;
repeat
if FindDTM(RedWeed, x, y, 70, 60, 398, 110)=false then
Fernahei;
until FindDTM(RedWeed, x, y, 70, 60, 398, 110)
Writeln('Trading Fernahei');
end;
end;
Procedure Buy;
begin
begin
if FindDTM(RedWeed, x, y, 70, 61, 407, 110) then
mmouse(x, y, 1, 1);
wait(randomrange(100, 200));
clickmouse2(mouse_right);
wait(randomrange(400, 600));
end;
begin
if FindBitmapToleranceIn(BuyX, X, Y, 1, 1, 510, 335, 10) then
begin
mmouse(x, y,1,1);
wait(250);
ClickMouse(X, Y, mouse_Left)
wait (randomrange (1000, 1200));
end;
end;
begin;
TypeSend('69');
wait (randomrange (400, 666));
end;
begin
if FindBitmapToleranceIn(Closetrade, X, Y, 1, 1, 510, 335, 10) then
begin
mmouse(x, y,1,1);
wait(250);
ClickMouse(X, Y, mouse_Left)
wait (randomrange (1000, 1200));
end;
end;
end;
Procedure Clean;
begin
begin
repeat
if FindDTM(RedWeed, x, y, 522, 172, 762, 500) then
mmouse(x, y, 1, 1);
wait(randomrange(100, 200));
clickmouse2(mouse_left);
wait(randomrange(450, 500));
until FindDTM(RedWeed, x, y, 522, 172, 762, 500)=false
end;
begin
repeat
if FindDTM(RedWeed, x, y, 522, 172, 762, 500) then
mmouse(x, y, 1, 1);
wait(randomrange(100, 200));
clickmouse2(mouse_left);
wait(randomrange(450, 500));
until FindDTM(RedWeed, x, y, 522, 172, 762, 500)=false
end;
begin
movemouse (659, 186);
wait (400);
clickmouse (659, 186, mouse_left);
end;
end;
Procedure Drop;
begin
if FindBitmapToleranceIn(falesafe, X, Y, 404, 156, 760, 501, 10) then
begin
movemouse(653, 187);
wait(250);
ClickMouse(X, Y, mouse_Left)
end;
if FindDTM(unHerb, x, y, 522, 172, 762, 500) then
begin
mmouse(x, y, 1, 1);
wait(randomrange(100, 150));
clickmouse2(mouse_right);
wait(randomrange(300, 310));
end;
if FindBitmapToleranceIn(DropWergali, X, Y, 404, 156, 760, 501, 10) then
begin
mmouse(x, y,1,1);
wait(250);
ClickMouse(X, Y, mouse_Left)
begin
repeat
if FindDTM(unHerb, x, y, 522, 172, 762, 500) then
drop;
until FindDTM(unHerb, x, y, 522, 172, 762, 500)=false
end;
end;
end;
Procedure All;
begin
repeat
fernahei;
buy;
clean;
drop;
inc (add);
until (add=500); //right here is where you change how many times you want the bot to buy and clean them
end;
begin
SetupSRL;
MouseSpeed := 15;
FaleSafe := BitmapFromString(94, 27, 'meJztV1FKxEAMHVTYqiiyIIJb/B' +
'X1GH55AW/Wu+wJ9lwuDBuyb5I0ztS2I1PeR5q+SV4ymdIO+8N29wI' +
'Y9odB8s8J0OCRNK3sY6j7p2dATJH65wRo8EhKOSWFHBfebh8B MSBB' +
'e/RbP3+k8YFg3+bFNFaB34gAkkpsrWoPJzudf5VYbHf3AIiEcptu R' +
'afIFzl5qcsLubq5BkRCuW3HJKTkNE5e6vJCLjcdGRPaHB6Otg T4/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+vL9xmhcZrredIn 4Wh0' +
'53cn88F5HQou8P/bWii3WgmpS2wVeH0afFLiPptL+Rs8gXM+Fpn06' +
'vF3ldTlqftvNUdAQfVbJmIooFqyN20PqxE1Jbvl/EBEWvD/LJ7oCP' +
'WZ9HvbrYw+1uNmvA9XlNW2nHv2qS2lor0uiISTElNJOMu5qvE 95Av' +
'tJt0PLJ36isJS/Lr5gXU0qPJPHWnbztM6jsK+TTyb3IEz6kwnlKac' +
'33Iu/qmZPn56LeJerkUcml5O0tE7mhCi+Sr+joBUhehraeN5N3lNY' +
'WGCKv6SHy4sSGi5BVEHmyxfVu4z7rHI1Hwk6sCTInIVAmTo9K JINC' +
'u3AoJb4KtMVND5xJUzq+/48QTv7nAumNyZ/r59IePk/0oYH2kH8Bm' +
'N1xiA==');
DropWergali := BitmapFromString(120, 10, 'meJzdlkESwjAIRTmIexdewiO66' +
'V16gl5LMzLDUAI/JDXVMcOCEAw/ryTjsm5EdLnelnUrVpyP2/3xLE' +
'bvUabiSHxG0W9ZdKhlz3nGqaPSf8+ZfcCZfdPhbhDEeznzVGs DcR0' +
'0+SYHT4eDOFkOJZcXc9ZpMtVIo3gvZ/22aOU4zksRavc7ZsrpV25M' +
'WFc/S61oFfjDnHGfA1Bgfz5sppyBfESY8ZPEzuGcaafmd3HvtUsDl' +
'Ms3Q1LYCZz1DcJXjNTI93yTs6DoKjcmAHAGr7GWDTLreIQaNI/psa' +
'gt85x5SZerkZpy7laugF5htB+yuUusztR4AWTz86gKFmPikV8 Xdf3' +
'Mtiaz/gpHhHXZvH/dP2jg4jTtBY9fq7I=');
RedWeed := DTMFromString('mWAAAAHicY2FgYHBgYmBwAWIPILYHYg5GBg YWIOYCYl4gDpWVBmMDJS4Gex1eBk6gHmTMiIZBAAC7rgNV');
UnHerb := DTMFromString('mWAAAAHicY2FgYPBgYmBwBGInIHYD4qdAsR dA/ASIXwKxl5Q4g6+0BEOgjBRDgo4GAztQDBkzomEQAACdFAcO');
all;
freebitmap (DropWergali);
freebitmap (BuyX);
freebitmap (falesafe);
freebitmap (closetrade);
freedtm (UnHerb);
freedtm (RedWeed);
end.