Marcu_s
2014-07-10 18:31:00
>>>>SoulSplit Private Server ONLY<<<<
This script cleans both Grimy Wergali and Harralanders BECAUSE there are only 600 Wergali's avalible to buy, and if you're an extreme (Like myself), 99 herblore will take A LOT longer because you will have bought out the whole store.
I would like to thank g ked for his original script, from which I took the method of finding the NPC store owner. It saved me some time from coding.
There are a lot of things that I could've done better in this script, but it's near flawless (ran it a whole night and woke up with 99 herblore), so don't question my coding! Also, please don't change anything, unless you know what you're doing.
Feedback would be VERY much appreciated.
Instructions:
Credits
g ked
Marcu_s
This script cleans both Grimy Wergali and Harralanders BECAUSE there are only 600 Wergali's avalible to buy, and if you're an extreme (Like myself), 99 herblore will take A LOT longer because you will have bought out the whole store.
I would like to thank g ked for his original script, from which I took the method of finding the NPC store owner. It saved me some time from coding.
There are a lot of things that I could've done better in this script, but it's near flawless (ran it a whole night and woke up with 99 herblore), so don't question my coding! Also, please don't change anything, unless you know what you're doing.
Feedback would be VERY much appreciated.
Instructions:
Set brightness level to the darkest option
Start it!Credits
g ked
Marcu_s
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.