Results 1 to 1 of 1

Thread: SoulSplit -- Herblore Script (Grimy Cleaner)

  1. #1
    Join Date
    Aug 2013
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default SoulSplit -- Herblore Script (Grimy Cleaner)

    >>>>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:
    Code:
    Set brightness level to the darkest option
    Start it!
    Credits

    g ked
    Marcu_s

    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.
    Last edited by Marcu_s; 07-10-2014 at 10:34 PM.

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •