Results 1 to 1 of 1

Thread: [Alotic] Herblore Scripts

  1. #1
    Join Date
    Aug 2014
    Posts
    14
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default [Alotic] Herblore Scripts

    How To Setup

    Client has to be Fixed screen and Low detail

    Stand at the north edgeville chest, Face north and put screen up

    Make a new tab with nothing in it apart from the items your using

    For Extremes/Recover Special Withdraw 14 of an item so it has it saved to last withdrawn number
    And for overloads set it to 4

    For grinding mud runes just have 2 pestle's in the bank and the mud runes


    Start script in bank



    Extreme Attack Maker
    Code:
    program CasketLooter;
    {$i srl-osr/srl.simba}
    
    procedure Herbs;
    var
    Herb, x, y: integer;
    begin
    Herb:= DTMFromString('mlwAAAHicY2eAAF4gFgRiUSjNAxUDAWYg5gBiFiibAcpnYGBiEPdSAdMgLGgpzyDqpghmcwFJXJgRD4YCAL2lAj4=');
    MouseSpeed := 15;
    FindDTM(Herb, x, y, MBX1, MBY1, MBX2, MBY2) ;
    MMouse(x, y, 0, 0);
    ClickMouse(X, Y, mouse_Right);
    FreeDTM(Herb);
    wait(300);
    end;
    Procedure FindCopper;
    Var //Variables are declared here
    copper, X, Y:Integer; //Declare bitmaps as Integers
    
    
    Begin
    copper := BitmapFromString(83, 15, 'meJztlFEKwCAMQy/i/z523t1lJ9' +
            'i5Nhj40WoSCxOZQj5c0Oprw9K2p6WZdJzXI92P7dSrfQf1mtlvBff' +
            '+aOAG0Jg/BgePND5lwY0aHzx/Uh+Pu3icBsy3zpt4IuHfThhcn7i+' +
            'VurTbbjhesGe4CBLxWyEJ04f7y/qBk6zUZusDl4rEktON3CzbgKnP' +
            'uhqrUsUCge4drupUFxTagVkaWkG3T326jA=');
    
    If (FindBitmap(copper, X, Y)) Then //This will search the screen for the bitmap
    MMouse(x, y, 0, 0);
    ClickMouse(X, Y, mouse_Left);
    wait(250);
    End;
    procedure Pots;
    var
    Pot, x, y: integer;
    begin
    Pot:= DTMFromString('mlwAAAHicY2dgYOBigAAeIBYAYmEgZgFiZiBmhWKQHBMQswMxN1S9hfU2qCgm5oKaiw0z4sFQAACyQQH0');
    MouseSpeed := 15;
    FindDTM(Pot, x, y, MBX1, MBY1, MBX2, MBY2) ;
    MMouse(x, y, 0, 0);
    ClickMouse(X, Y, mouse_Right);
    FreeDTM(Pot);
    wait(400);
    end;
    procedure CloseInv;
    var
    Button, x, y: integer;
    begin
    Button:= DTMFromString('mggAAAHicY2NgYHjKyMDwHIifAfFrIH4FxG+BWAEopwzEalCsCMTyQCwhKsygpSLLYKilBMYyEqIMWUm+DLgAIw4MAQCM/gld');
    MouseSpeed := 15;
    FindDTM(Button, x, y, MSX1, MSY1, MSX2, MSY2) ;
    MMouse(x, y, 0, 0);
    ClickMouse(X, Y, mouse_Left);
    FreeDTM(Button);
    wait(400);
    end;
    procedure HerbsInv;
    var
    Herb, x, y: integer;
    begin
    Herb:= DTMFromString('mlwAAAHicY2eAAF4gFgRiUSjNAxUDAWYg5gBiFiibAcpnYGBiEPdSAdMgLGgpzyDqpghmcwFJXJgRD4YCAL2lAj4=');
    MouseSpeed := 15;
    FindDTM(Herb, x, y, MIX1, MIY1, MIX2, MIY2) ;
    MMouse(x, y, 0, 0);
    ClickMouse(X, Y, mouse_Left);
    FreeDTM(Herb);
    wait(400);
    end;
    procedure PotsInv;
    var
    Pot, x, y: integer;
    begin
    Pot:= DTMFromString('mlwAAAHicY2dgYOBigAAeIBYAYmEgZgFiZiBmhWKQHBMQswMxN1S9hfU2qCgm5oKaiw0z4sFQAACyQQH0');
    MouseSpeed := 15;
    FindDTM(Pot, x, y, MIX1, MIY1, MIX2, MIY2) ;
    MMouse(x, y, 0, 0);
    ClickMouse(X, Y, mouse_Left);
    FreeDTM(Pot);
    wait(1400);
    end;
    Procedure MakePots;
    Var //Variables are declared here
    copper, X, Y:Integer; //Declare bitmaps as Integers
    
    
    Begin
    copper := BitmapFromString(88, 11, 'meJztlWFOQkEMhL0JiYAgBBWQJw' +
            'pyTm+Lk0wymbTdVRL9YYQ0m9n2204XeHnL4bS8xnBa7N5HH2cFtn8' +
            '6OldQyW8qcf98hL6xDzI5wJT5Xwq3u8iad2k1RCkIlebbA89CdOI7' +
            'zA+G211k3YI9T6EMxWzzpocCmlsK1xkImG9LpsRapWD3pZfD/K1zf' +
            '17WeV0f4m796s8FtsxoDQx1KFFThOMh6Zii7OB2rkuv1mxu4ZnslZ' +
            'nQP/fxwWSdvzRfSyzYMfJIYbwOqWrZv/XNUEyf9hIKZLQqIybw/nf' +
            'yjK8lFuwyXFp3SLfOFuJzBmLy+DKy9ya3WFXCypDWQS/puABfS6zs' +
            '4HC2bpF5tuBS8iIhxg8Dwt+b3DLf0p4MHRwouznW6dAfI5N5tuCC+' +
            '2aeSejb1e7/RHlfJj8BPZ2eog==');
    
    If (FindBitmap(copper, X, Y)) Then //This will search the screen for the bitmap
    MMouse(x, y, 0, 0);
    ClickMouse(X, Y, mouse_Left);
    wait(17600);
    End;
    Procedure OpenChest;
    var
      x, y: Integer;
    begin
     if FindObjCustom(x, y, ['ank', 'Ches'], [5402497], 3) then
    begin
    Cleardebug;
      Mouse(x, y, 0, 0, True);
      wait(2000);
    end;
    end;
    Procedure BankAll;
    Var //Variables are declared here
    copper, X, Y:Integer; //Declare bitmaps as Integers
    
    
    Begin
    copper := BitmapFromString(32, 23, 'meJy1lc9KQkEUxq8QkqkVeEME+0' +
            'NuglZdKoQoIrKFGdYylAqECKJF0KZNRC17gHqBHsAH6E16mH7x0WE' +
            'YrjoGwscwnjvz+86cM9ebiaKL++fJqX11N1HJonl+PVKt7g2aymYH' +
            'KV8oelvqR61wviDLZ29LJ6+Mq50PV0TKO7eeRTgf8nQlmV8/FVkuM' +
            'kKVgwfEpHr86FqMxZ9ZqWNR2uqJKT5Y0o6TDtY8IuKeIpAPnO3FWi' +
            'NXWsRFqYoPE1OCPEUY8ZTFsgjhCy6xHQuAJCk+BSFOBDhzlY5lcbw' +
            'QwgderiWsF0F1wEI0pMoTZ752+VLt9eGzODB/+Ozdm2urv2ApiCwY' +
            'Becsm0+f6Nex1ycSXn+wMBmtxeojEyyYwGQBmXffv7AATnws/myjY' +
            'FIfwZqFms7R1FnVkDGkPmI2vvcRE/VCR6AmZsFPXV1dIZ0IPi+7y8' +
            '9v51LJgluvdRuVrVyYyEtx+juIL45LFhys/hyMr+aSqr3CKgtBIoP' +
            '4onlwsBQBWX2ML7i9CHaddD9T+R7cumx8N3+PrELZ5ff6O4RvxZes' +
            'xYZlrn8hy3wk34W7p7D6kKosRNYVcuFj5e9Z2BVFdJMI5OHfF/ip0' +
            'mdLav59ZUjVlEo2/v8kpjR8ZSaKNnYPJ6cfxJVRQA==');
    
    If (FindBitmap(copper, X, Y)) Then
    MMouse(x, y, 0, 0);
    ClickMouse(X, Y, mouse_Left);
    wait(600);
    End;
    begin
    MouseSpeed := 20;
    ClearDebug;
    repeat
    Herbs;
    FindCopper;
    Pots;
    FindCopper;
    CloseInv;
    HerbsInv;
    PotsInv;
    MakePots;
    OpenChest;
    BankAll;
    until(iskeydown(113));
    end.


    Extreme Strength Maker
    Code:
    program CasketLooter;
    {$i srl-osr/srl.simba}
    
    procedure Herbs;
    var
    Herb, x, y: integer;
    begin
    Herb:= DTMFromString('mwQAAAHic42RgYGBlgAB2IBYCYhEgFoBiXiDmAmIWBgRghOphgerhAGJmIOZ04GJgVWFjYDfmYOCw5ASKMDGwm0FoEGbTZYey8GNGIjAcAAAHBAJC');
    MouseSpeed := 15;
    FindDTM(Herb, x, y, MSX1, MSY1, MSX2, MSY2) ;
    MMouse(x, y, 0, 0);
    ClickMouse(X, Y, mouse_Right);
    FreeDTM(Herb);
    wait(300);
    end;
    Procedure FindCopper;
    Var //Variables are declared here
    copper, X, Y:Integer; //Declare bitmaps as Integers
    
    
    Begin
    copper := BitmapFromString(83, 15, 'meJztlFEKwCAMQy/i/z523t1lJ9' +
            'i5Nhj40WoSCxOZQj5c0Oprw9K2p6WZdJzXI92P7dSrfQf1mtlvBff' +
            '+aOAG0Jg/BgePND5lwY0aHzx/Uh+Pu3icBsy3zpt4IuHfThhcn7i+' +
            'VurTbbjhesGe4CBLxWyEJ04f7y/qBk6zUZusDl4rEktON3CzbgKnP' +
            'uhqrUsUCge4drupUFxTagVkaWkG3T326jA=');
    
    If (FindBitmap(copper, X, Y)) Then //This will search the screen for the bitmap
    MMouse(x, y, 0, 0);
    ClickMouse(X, Y, mouse_Left);
    wait(250);
    End;
    procedure Pots;
    var
    Pot, x, y: integer;
    begin
    Pot:= DTMFromString('mwQAAAHic42RgYIgE4lggTgLiNCDOAuJEqHgCEKcD8WIgXgrEy6D0AiCeB8RzgXgWEM9mAAEmDLxp9SowvWXNGobC3BwGLiCPEGYkAsMBAFrDDuI=');
    MouseSpeed := 15;
    FindDTM(Pot, x, y, MSX1, MSY1, MSX2, MSY2) ;
    MMouse(x, y, 0, 0);
    ClickMouse(X, Y, mouse_Right);
    FreeDTM(Pot);
    wait(400);
    end;
    procedure CloseInv;
    var
    Button, x, y: integer;
    begin
    Button:= DTMFromString('mggAAAHicY2NgYHjKyMDwHIifAfFrIH4FxG+BWAEopwzEalCsCMTyQCwhKsygpSLLYKilBMYyEqIMWUm+DLgAIw4MAQCM/gld');
    MouseSpeed := 15;
    FindDTM(Button, x, y, MSX1, MSY1, MSX2, MSY2) ;
    MMouse(x, y, 0, 0);
    ClickMouse(X, Y, mouse_Left);
    FreeDTM(Button);
    wait(400);
    end;
    procedure HerbsInv;
    var
    Herb, x, y: integer;
    begin
    Herb:= DTMFromString('mbQAAAHicY2VgYOABYiEg5maAABYGBACxGYGYCYjZjTkYOKy5oDwmBk5HLgYQDx0zYsFgAABQ1QFY');
    MouseSpeed := 15;
    FindDTM(Herb, x, y, MIX1, MIY1, MIX2, MIY2) ;
    MMouse(x, y, 0, 0);
    ClickMouse(X, Y, mouse_Left);
    FreeDTM(Herb);
    wait(400);
    end;
    procedure PotsInv;
    var
    Pot, x, y: integer;
    begin
    Pot:= DTMFromString('mggAAAHicY2NgYGAHYk4gFgBiPgYIYAJiNiBmhNLcUAwCW9asYVg2fz5UFQJzAUlsmBEHhgAAWroElA==');
    MouseSpeed := 15;
    FindDTM(Pot, x, y, MIX1, MIY1, MIX2, MIY2) ;
    MMouse(x, y, 0, 0);
    ClickMouse(X, Y, mouse_Left);
    FreeDTM(Pot);
    wait(1400);
    end;
    Procedure MakePots;
    Var //Variables are declared here
    copper, X, Y:Integer; //Declare bitmaps as Integers
    
    
    Begin
    copper := BitmapFromString(103, 13, 'meJztVglqAzEQy09Cr/RI2/RI0' +
            'jvv7G/bAYEQ8tisly2lSxdhZI1mxmNiyHp/WP+jE1e7j8Dy84uAMm' +
            '+0x2RUL0RTLrfvgVAW8kE0hCfVfwiTt9OCmLdhi6gRrXDx+BZAEfA' +
            'ahngmxOTttGCjuIZAqJCcP7wG+Da5BVFeGsym29ST2iw0rp3lNjwN' +
            'P0NxM5YChaHV/UtAnycVrhDpAbcQOIilm6g2giFt0dUO5kYvK2h+P' +
            'QkvIa1Qc1rf0qMH4FDlDeua2qydjjCi3UBSE2tXUZrP7p4D2IJT4V' +
            'p6zK8/VFV0TW0GmEe3G0hqYhmqmU83T4Gl/OXANtYwkNNGgqiGmE6' +
            'DrqktTVdzVztz0tMomFa2CnoVICe3e2AhH7YaKrmKVkENaTW1tfXe' +
            'dmUvTNooWFaOFOtCEfz4ZjdLxIwkMWlveppC8eh6O1fgcQWJYX/9M' +
            'H8IeFyTl/0GIIlznA==');
    
    If (FindBitmap(copper, X, Y)) Then
    MMouse(x, y, 0, 0);
    ClickMouse(X, Y, mouse_Left);
    wait(17600);
    End;
    Procedure OpenChest;
    var
      x, y: Integer;
    begin
     if FindObjCustom(x, y, ['ank', 'Ches'], [5402497], 3) then
    begin
    Cleardebug;
      Mouse(x, y, 0, 0, True);
      wait(2000);
    end;
    end;
    Procedure BankAll;
    Var //Variables are declared here
    copper, X, Y:Integer; //Declare bitmaps as Integers
    
    
    Begin
    copper := BitmapFromString(32, 23, 'meJy1lc9KQkEUxq8QkqkVeEME+0' +
            'NuglZdKoQoIrKFGdYylAqECKJF0KZNRC17gHqBHsAH6E16mH7x0WE' +
            'YrjoGwscwnjvz+86cM9ebiaKL++fJqX11N1HJonl+PVKt7g2aymYH' +
            'KV8oelvqR61wviDLZ29LJ6+Mq50PV0TKO7eeRTgf8nQlmV8/FVkuM' +
            'kKVgwfEpHr86FqMxZ9ZqWNR2uqJKT5Y0o6TDtY8IuKeIpAPnO3FWi' +
            'NXWsRFqYoPE1OCPEUY8ZTFsgjhCy6xHQuAJCk+BSFOBDhzlY5lcbw' +
            'QwgderiWsF0F1wEI0pMoTZ752+VLt9eGzODB/+Ozdm2urv2ApiCwY' +
            'Becsm0+f6Nex1ycSXn+wMBmtxeojEyyYwGQBmXffv7AATnws/myjY' +
            'FIfwZqFms7R1FnVkDGkPmI2vvcRE/VCR6AmZsFPXV1dIZ0IPi+7y8' +
            '9v51LJgluvdRuVrVyYyEtx+juIL45LFhys/hyMr+aSqr3CKgtBIoP' +
            '4onlwsBQBWX2ML7i9CHaddD9T+R7cumx8N3+PrELZ5ff6O4RvxZes' +
            'xYZlrn8hy3wk34W7p7D6kKosRNYVcuFj5e9Z2BVFdJMI5OHfF/ip0' +
            'mdLav59ZUjVlEo2/v8kpjR8ZSaKNnYPJ6cfxJVRQA==');
    
    If (FindBitmap(copper, X, Y)) Then
    MMouse(x, y, 0, 0);
    ClickMouse(X, Y, mouse_Left);
    wait(600);
    End;
    begin
    MouseSpeed := 20;
    ClearDebug;
    repeat
    Herbs;
    FindCopper;
    Pots;
    FindCopper;
    CloseInv;
    HerbsInv;
    PotsInv;
    MakePots;
    OpenChest;
    BankAll;
    until(iskeydown(113));
    end.


    Extreme Defence Maker
    Code:
    program CasketLooter;
    {$i srl-osr/srl.simba}
    
    procedure Herbs;
    var
    Herb, x, y: integer;
    begin
    Herb:= DTMFromString('mrAAAAHic42BgYPBjZWAIBuIwIA4AYl8g9oKKgeR6mRgYeqB4IhBPBuJuKLsDiDkdzBg4rI0YOJ0tGLi87IAmMjFwuVqBaZA4F5CFDzMSwDAAAOmMCpE=');
    MouseSpeed := 15;
    FindDTM(Herb, x, y, MBX1, MBY1, MBX2, MBY2) ;
    MMouse(x, y, 0, 0);
    ClickMouse(X, Y, mouse_Right);
    FreeDTM(Herb);
    wait(700);
    end;
    Procedure FindCopper;
    Var //Variables are declared here
    copper, X, Y:Integer; //Declare bitmaps as Integers
    
    
    Begin
    copper := BitmapFromString(83, 15, 'meJztlFEKwCAMQy/i/z523t1lJ9' +
            'i5Nhj40WoSCxOZQj5c0Oprw9K2p6WZdJzXI92P7dSrfQf1mtlvBff' +
            '+aOAG0Jg/BgePND5lwY0aHzx/Uh+Pu3icBsy3zpt4IuHfThhcn7i+' +
            'VurTbbjhesGe4CBLxWyEJ04f7y/qBk6zUZusDl4rEktON3CzbgKnP' +
            'uhqrUsUCge4drupUFxTagVkaWkG3T326jA=');
    
    If (FindBitmap(copper, X, Y)) Then //This will search the screen for the bitmap
    MMouse(x, y, 0, 0);
    ClickMouse(X, Y, mouse_Left);
    wait(500);
    End;
    procedure Pots;
    var
    Pot, x, y: integer;
    begin
    Pot:= DTMFromString('m6wAAAHic42ZgYOAAYi4gZgFiXiDmZIAAfiAWhIqxATEjVA0IMAMxO1QtM1SODWoOD5TeNcuSYf0EM4aD860ZptXoMeycaQkUZYLjimQVOJsLqocYzEgCRgIA/PoJlw==');
    MouseSpeed := 15;
    FindDTM(Pot, x, y, MSX1, MSY1, MSX2, MSY2) ;
    MMouse(x, y, 0, 0);
    ClickMouse(X, Y, mouse_Right);
    FreeDTM(Pot);
    wait(400);
    end;
    procedure CloseInv;
    var
    Button, x, y: integer;
    begin
    Button:= DTMFromString('mggAAAHicY2NgYHjKyMDwHIifAfFrIH4FxG+BWAEopwzEalCsCMTyQCwhKsygpSLLYKilBMYyEqIMWUm+DLgAIw4MAQCM/gld');
    MouseSpeed := 15;
    FindDTM(Button, x, y, MSX1, MSY1, MSX2, MSY2) ;
    MMouse(x, y, 0, 0);
    ClickMouse(X, Y, mouse_Left);
    FreeDTM(Button);
    wait(400);
    end;
    procedure HerbsInv;
    var
    Herb, x, y: integer;
    begin
    Herb:= DTMFromString('mrAAAAHic42BgYPBjZWAIBuIwIA4AYl8g9oKKgeR6mRgYeqB4IhBPBuJuKLsDiDkdzBg4rI0YOJ0tGLi87IAmMjFwuVqBaZA4F5CFDzMSwDAAAOmMCpE=');
    MouseSpeed := 15;
    FindDTM(Herb, x, y, MIX1, MIY1, MIX2, MIY2) ;
    MMouse(x, y, 0, 0);
    ClickMouse(X, Y, mouse_Left);
    FreeDTM(Herb);
    wait(400);
    end;
    procedure PotsInv;
    var
    Pot, x, y: integer;
    begin
    Pot:= DTMFromString('m6wAAAHic42ZgYOAAYi4gZgFiXiDmZIAAfiAWhIqxATEjVA0IMAMxO1QtM1SODWoOD5TeNcuSYf0EM4aD860ZptXoMeycaQkUZYLjimQVOJsLqocYzEgCRgIA/PoJlw==');
    MouseSpeed := 15;
    FindDTM(Pot, x, y, MIX1, MIY1, MIX2, MIY2) ;
    MMouse(x, y, 0, 0);
    ClickMouse(X, Y, mouse_Left);
    FreeDTM(Pot);
    wait(1400);
    end;
    Procedure MakePots;
    Var //Variables are declared here
    copper, X, Y:Integer; //Declare bitmaps as Integers
    
    
    Begin
    copper := BitmapFromString(99, 12, 'meJzVVotOAkEQuz8hqPhCxQfgC/' +
            'xO/1YmaTJpOt3FRPHk0mxmO912bsMlzNcf8/+EyefX6DNYXK+2gRg' +
            'vAWYsxADDMIwVzbch5NVyE8B4+YAUhMbyvwtM8gdB9u0iWopsXT69' +
            'BzAe6ha+o/k59qaE4NC5KJJBcfH4FsjvLrcouK4CkfHWaqxMWnWqj' +
            'qcI5C06Gptec8Ggdf7wGuBPL5lcQaYGtbRQo5DjQrIswa2WZ87AvI' +
            'RiwprY8RRnoNpamaS09LytV5dvze8usjpnR8xMJ9QWrSOti6oms/u' +
            'XANfJ5Fo1oucfJDO8Wlk174uT7ITaojWnHcC6nS2eAxP6e4BtrOii' +
            'TlkWeVYcWMCrlVmHjlhybajIqoMdwB5ht9O7NTDQgy23as2kOLDAu' +
            'rGs41AZmbkVahP3DhDm9QjIqE9uV0cEXNTh/K05yOnN8lgQtxRrjD' +
            '1K+g4Y5CEQ');
    
    If (FindBitmap(copper, X, Y)) Then //This will search the screen for the bitmap
    MMouse(x, y, 0, 0);
    ClickMouse(X, Y, mouse_Left);
    wait(17600);
    End;
    Procedure OpenChest;
    var
      x, y: Integer;
    begin
     if FindObjCustom(x, y, ['ank', 'Ches'], [5402497], 3) then
    begin
    Cleardebug;
      Mouse(x, y, 0, 0, True);
      wait(2400);
    end;
    end;
    Procedure BankAll;
    Var //Variables are declared here
    copper, X, Y:Integer; //Declare bitmaps as Integers
    
    
    Begin
    copper := BitmapFromString(32, 23, 'meJy1lc9KQkEUxq8QkqkVeEME+0' +
            'NuglZdKoQoIrKFGdYylAqECKJF0KZNRC17gHqBHsAH6E16mH7x0WE' +
            'YrjoGwscwnjvz+86cM9ebiaKL++fJqX11N1HJonl+PVKt7g2aymYH' +
            'KV8oelvqR61wviDLZ29LJ6+Mq50PV0TKO7eeRTgf8nQlmV8/FVkuM' +
            'kKVgwfEpHr86FqMxZ9ZqWNR2uqJKT5Y0o6TDtY8IuKeIpAPnO3FWi' +
            'NXWsRFqYoPE1OCPEUY8ZTFsgjhCy6xHQuAJCk+BSFOBDhzlY5lcbw' +
            'QwgderiWsF0F1wEI0pMoTZ752+VLt9eGzODB/+Ozdm2urv2ApiCwY' +
            'Becsm0+f6Nex1ycSXn+wMBmtxeojEyyYwGQBmXffv7AATnws/myjY' +
            'FIfwZqFms7R1FnVkDGkPmI2vvcRE/VCR6AmZsFPXV1dIZ0IPi+7y8' +
            '9v51LJgluvdRuVrVyYyEtx+juIL45LFhys/hyMr+aSqr3CKgtBIoP' +
            '4onlwsBQBWX2ML7i9CHaddD9T+R7cumx8N3+PrELZ5ff6O4RvxZes' +
            'xYZlrn8hy3wk34W7p7D6kKosRNYVcuFj5e9Z2BVFdJMI5OHfF/ip0' +
            'mdLav59ZUjVlEo2/v8kpjR8ZSaKNnYPJ6cfxJVRQA==');
    
    If (FindBitmap(copper, X, Y)) Then
    MMouse(x, y, 0, 0);
    ClickMouse(X, Y, mouse_Left);
    wait(600);
    End;
    begin
    MouseSpeed := 20;
    ClearDebug;
    repeat
    Herbs;
    FindCopper;
    Pots;
    FindCopper;
    CloseInv;
    HerbsInv;
    PotsInv;
    MakePots;
    OpenChest;
    BankAll;
    until(iskeydown(113));
    end.


    Extreme Range Maker
    Code:
    program CasketLooter;
    {$i srl-osr/srl.simba}
    
    procedure Herbs;
    var
    Herb, x, y: integer;
    begin
    Herb:= DTMFromString('m1gAAAHic42KAAG4g5gNiFiBmB2IuIBYBYkEg5gFiDqg8A1QNI5RmhWI+qDousAomBmdLOQZDTVEGKVFmMB8b5oKqJ4QZicQIAAA3fAJu');
    MouseSpeed := 15;
    FindDTM(Herb, x, y, MSX1, MSY1, MSX2, MSY2) ;
    MMouse(x, y, 0, 0);
    ClickMouse(X, Y, mouse_Right);
    FreeDTM(Herb);
    wait(300);
    end;
    Procedure WithdrawAllButOne;
    Var //Variables are declared here
    copper, X, Y:Integer; //Declare bitmaps as Integers
    
    
    Begin
    copper := BitmapFromString(142, 15, 'meJztlcERgDAIBBvx78N67cUKr' +
            'EtfjkPIeUE0mjBzDyaSALdRh3EaQqGQq+Zl3cWv2zL50xyHEhXPK/' +
            'en/j4p7MAXSB21RNEnSFWZqw1SJJ0/kmLMxzMGqfdJ5b4bIlN1A/w' +
            'axCO1Cji5yBZR0UYKdyL6x13dccxAin+n+Nhw83Nki7YwpGyx72nq' +
            'yVVIMZf53M+lLT2QSq0gWXj1gDNViA2TwsPinOqkRNw2KTyggMWMz' +
            '9RS6YMSaQO5+FFS4LqqHQKHwRbesVAoFOpWG4Lkhm4=');
    
    If (FindBitmap(copper, X, Y)) Then //This will search the screen for the bitmap
    MMouse(x, y, 0, 0);
    ClickMouse(X, Y, mouse_Left);
    wait(250);
    End;
    Procedure WithdrawFourteen;
    Var //Variables are declared here
    copper, X, Y:Integer; //Declare bitmaps as Integers
    
    
    Begin
    copper := BitmapFromString(83, 15, 'meJztlFEKwCAMQy/i/z523t1lJ9' +
            'i5Nhj40WoSCxOZQj5c0Oprw9K2p6WZdJzXI92P7dSrfQf1mtlvBff' +
            '+aOAG0Jg/BgePND5lwY0aHzx/Uh+Pu3icBsy3zpt4IuHfThhcn7i+' +
            'VurTbbjhesGe4CBLxWyEJ04f7y/qBk6zUZusDl4rEktON3CzbgKnP' +
            'uhqrUsUCge4drupUFxTagVkaWkG3T326jA=');
    
    If (FindBitmap(copper, X, Y)) Then //This will search the screen for the bitmap
    MMouse(x, y, 0, 0);
    ClickMouse(X, Y, mouse_Left);
    wait(250);
    End;
    procedure Pots;
    var
    Pot, x, y: integer;
    begin
    Pot:= DTMFromString('mrAAAAHic42BgYOAAYiYgZgZiPiAWAGJ+qDgDlOYBYnYonxWIuYGYF8q2mrEXbILNnENQk1AxF5DEhxkJYBgAAJlVBBU=');
    MouseSpeed := 15;
    FindDTM(Pot, x, y, MSX1, MSY1, MSX2, MSY2) ;
    MMouse(x, y, 0, 0);
    ClickMouse(X, Y, mouse_Right);
    FreeDTM(Pot);
    wait(400);
    end;
    procedure CloseInv;
    var
    Button, x, y: integer;
    begin
    Button:= DTMFromString('mggAAAHicY2NgYHjKyMDwHIifAfFrIH4FxG+BWAEopwzEalCsCMTyQCwhKsygpSLLYKilBMYyEqIMWUm+DLgAIw4MAQCM/gld');
    MouseSpeed := 15;
    FindDTM(Button, x, y, MSX1, MSY1, MSX2, MSY2) ;
    MMouse(x, y, 0, 0);
    ClickMouse(X, Y, mouse_Left);
    FreeDTM(Button);
    wait(400);
    end;
    procedure HerbsInv;
    var
    Herb, x, y: integer;
    begin
    Herb:= DTMFromString('m1gAAAHic42KAAG4g5gNiFiBmB2IuIBYBYkEg5gFiDqg8A1QNI5RmhWI+qDousAomBmdLOQZDTVEGKVFmMB8b5oKqJ4QZicQIAAA3fAJu');
    MouseSpeed := 15;
    FindDTM(Herb, x, y, MIX1, MIY1, MIX2, MIY2) ;
    MMouse(x, y, 0, 0);
    ClickMouse(X, Y, mouse_Left);
    FreeDTM(Herb);
    wait(400);
    end;
    procedure PotsInv;
    var
    Pot, x, y: integer;
    begin
    Pot:= DTMFromString('mrAAAAHic42BgYOAAYiYgZgZiPiAWAGJ+qDgDlOYBYnYonxWIuYGYF8q2mrEXbILNnENQk1AxF5DEhxkJYBgAAJlVBBU=');
    MouseSpeed := 15;
    FindDTM(Pot, x, y, MIX1, MIY1, MIX2, MIY2) ;
    MMouse(x, y, 0, 0);
    ClickMouse(X, Y, mouse_Left);
    FreeDTM(Pot);
    wait(1400);
    end;
    Procedure MakePots;
    Var //Variables are declared here
    copper, X, Y:Integer; //Declare bitmaps as Integers
    
    
    Begin
    copper := BitmapFromString(97, 12, 'meJztVYtqQjEU809kL6dz0z3Uvf' +
            '1O/3YLBEI4Pa11XBiX7RJKmqY5PcXicrdf/qOJm+0nMD18CVT+FNS' +
            '134DIYvMBYDqxj2IAPKk+drAvdB2IluZP7wCviLyGHs/vAif82S71' +
            'RSKF5PrxDdAr05TEeWkINp+mntTWGRhOWEtjR51m6eEePAdk9vAK+' +
            'EOTopGiPORhiZwkbA+i24SeQFZvpJ1k9tLqOi2a2kJsze/TskfW0p' +
            'jawjldlNkDByS1KyrNV/cvgHMpGktP8PuP0BUfU1sarrrl3gFJWVr' +
            'NBvPl+hmY2p8+pxi5Si6biPaGBDf4mNp8ey1Qxwikx9Mwp6V1Nt9+' +
            'sdoRE/s49aWSuxgS3JCmuS2t0ggs07yRk8wCxFBUIvj53XakQAsiR' +
            'xs5am6IZ7eb8YLvAgS9DGt2fAOUJhTF');
    
    If (FindBitmap(copper, X, Y)) Then //This will search the screen for the bitmap
    MMouse(x, y, 0, 0);
    ClickMouse(X, Y, mouse_Left);
    wait(33000);
    End;
    Procedure OpenChest;
    var
      x, y: Integer;
    begin
     if FindObjCustom(x, y, ['ank', 'Ches'], [5402497], 3) then
    begin
    Cleardebug;
      Mouse(x, y, 0, 0, True);
      wait(2000);
    end;
    end;
    Procedure BankAll;
    Var //Variables are declared here
    copper, X, Y:Integer; //Declare bitmaps as Integers
    
    
    Begin
    copper := BitmapFromString(32, 23, 'meJy1lc9KQkEUxq8QkqkVeEME+0' +
            'NuglZdKoQoIrKFGdYylAqECKJF0KZNRC17gHqBHsAH6E16mH7x0WE' +
            'YrjoGwscwnjvz+86cM9ebiaKL++fJqX11N1HJonl+PVKt7g2aymYH' +
            'KV8oelvqR61wviDLZ29LJ6+Mq50PV0TKO7eeRTgf8nQlmV8/FVkuM' +
            'kKVgwfEpHr86FqMxZ9ZqWNR2uqJKT5Y0o6TDtY8IuKeIpAPnO3FWi' +
            'NXWsRFqYoPE1OCPEUY8ZTFsgjhCy6xHQuAJCk+BSFOBDhzlY5lcbw' +
            'QwgderiWsF0F1wEI0pMoTZ752+VLt9eGzODB/+Ozdm2urv2ApiCwY' +
            'Becsm0+f6Nex1ycSXn+wMBmtxeojEyyYwGQBmXffv7AATnws/myjY' +
            'FIfwZqFms7R1FnVkDGkPmI2vvcRE/VCR6AmZsFPXV1dIZ0IPi+7y8' +
            '9v51LJgluvdRuVrVyYyEtx+juIL45LFhys/hyMr+aSqr3CKgtBIoP' +
            '4onlwsBQBWX2ML7i9CHaddD9T+R7cumx8N3+PrELZ5ff6O4RvxZes' +
            'xYZlrn8hy3wk34W7p7D6kKosRNYVcuFj5e9Z2BVFdJMI5OHfF/ip0' +
            'mdLav59ZUjVlEo2/v8kpjR8ZSaKNnYPJ6cfxJVRQA==');
    
    If (FindBitmap(copper, X, Y)) Then
    MMouse(x, y, 0, 0);
    ClickMouse(X, Y, mouse_Left);
    wait(2000);
    End;
    begin
    MouseSpeed := 20;
    ClearDebug;
    repeat
    Herbs;
    WithdrawAllButOne;
    Pots;
    WithdrawAllButOne;
    CloseInv;
    HerbsInv;
    PotsInv;
    MakePots;
    OpenChest;
    BankAll;
    until(iskeydown(113));
    end.


    Extreme Magic Maker
    Code:
    program CasketLooter;
    {$i srl-osr/srl.simba}
    
    procedure Herbs;
    var
    Herb, x, y: integer;
    begin
    Herb:= DTMFromString('mggAAAHicY2NgYOBmgABmIGYBYgEg5gRiDiBmgorD5CFsJjiOj46Cs7mAJDbMiANDAABxOwGl');
    MouseSpeed := 15;
    FindDTM(Herb, x, y, MBX1, MBY1, MBX2, MBY2) ;
    MMouse(x, y, 0, 0);
    ClickMouse(X, Y, mouse_Right);
    FreeDTM(Herb);
    wait(300);
    end;
    Procedure FindCopper;
    Var //Variables are declared here
    copper, X, Y:Integer; //Declare bitmaps as Integers
    
    
    Begin
    copper := BitmapFromString(83, 15, 'meJztlFEKwCAMQy/i/z523t1lJ9' +
            'i5Nhj40WoSCxOZQj5c0Oprw9K2p6WZdJzXI92P7dSrfQf1mtlvBff' +
            '+aOAG0Jg/BgePND5lwY0aHzx/Uh+Pu3icBsy3zpt4IuHfThhcn7i+' +
            'VurTbbjhesGe4CBLxWyEJ04f7y/qBk6zUZusDl4rEktON3CzbgKnP' +
            'uhqrUsUCge4drupUFxTagVkaWkG3T326jA=');
    
    If (FindBitmap(copper, X, Y)) Then //This will search the screen for the bitmap
    MMouse(x, y, 0, 0);
    ClickMouse(X, Y, mouse_Left);
    wait(250);
    End;
    procedure Pots;
    var
    Pot, x, y: integer;
    begin
    Pot:= DTMFromString('mrAAAAHic42BgYOAEYi4gFoBiHiDmYIAARiBmRmKzATE7VA8jlO1UPo3BoXgSkMUExqZxFXA2CHNBzceFGQlgGAAAtrcEdA==');
    MouseSpeed := 15;
    FindDTM(Pot, x, y, MBX1, MBY1, MBX2, MBY2) ;
    MMouse(x, y, 0, 0);
    ClickMouse(X, Y, mouse_Right);
    FreeDTM(Pot);
    wait(400);
    end;
    procedure CloseInv;
    var
    Button, x, y: integer;
    begin
    Button:= DTMFromString('mggAAAHicY2NgYHjKyMDwHIifAfFrIH4FxG+BWAEopwzEalCsCMTyQCwhKsygpSLLYKilBMYyEqIMWUm+DLgAIw4MAQCM/gld');
    MouseSpeed := 15;
    FindDTM(Button, x, y, MSX1, MSY1, MSX2, MSY2) ;
    MMouse(x, y, 0, 0);
    ClickMouse(X, Y, mouse_Left);
    FreeDTM(Button);
    wait(400);
    end;
    procedure HerbsInv;
    var
    Herb, x, y: integer;
    begin
    Herb:= DTMFromString('mggAAAHicY2NgYOBmgABmIGYBYgEg5gRiDiBmgorD5CFsJjiOj46Cs7mAJDbMiANDAABxOwGl');
    MouseSpeed := 15;
    FindDTM(Herb, x, y, MIX1, MIY1, MIX2, MIY2) ;
    MMouse(x, y, 0, 0);
    ClickMouse(X, Y, mouse_Left);
    FreeDTM(Herb);
    wait(400);
    end;
    procedure PotsInv;
    var
    Pot, x, y: integer;
    begin
    Pot:= DTMFromString('mrAAAAHic42BgYOAEYi4gFoBiHiDmYIAARiBmRmKzATE7VA8jlO1UPo3BoXgSkMUExqZxFXA2CHNBzceFGQlgGAAAtrcEdA==');
    MouseSpeed := 15;
    FindDTM(Pot, x, y, MIX1, MIY1, MIX2, MIY2) ;
    MMouse(x, y, 0, 0);
    ClickMouse(X, Y, mouse_Left);
    FreeDTM(Pot);
    wait(1400);
    end;
    Procedure MakePots;
    Var //Variables are declared here
    copper, X, Y:Integer; //Declare bitmaps as Integers
    
    
    Begin
    copper := BitmapFromString(85, 13, 'meJzlVYtKQ1EM809E3dx0zjn3cu' +
            'r8Tv/WBQIhtD2XO5A9dISS5qRdezhwJ+uvyT/G42p3/f0jIP1j0FK' +
            '+oMjD8hP8yn5QMuAp9TMHx8ZSgehovPjg+iAd6OM5PjBV/7FJpJCM' +
            'Xt/18sGZkjjPhmDztPSUtkP9WeEKreba0Q3aGuR+vvXHj5SKYvCQh' +
            'yNyklAeRLcJPf0txY+0gnRXQq2vVo7kFxK4p/lC+EeKpS0MGfxeEu' +
            'bsIHmL1oWQDF/eRAQoilLkCX5/PK54LG2hQ/Yj5g7dpOzsu4SSwWz' +
            'jHz6miDpCJMRV6Ecql8FjafPybn9LyUdl52Dw2rvnNeAfPqbUW9zF' +
            '0MENZTe3hc59/LqicrzcGeZsoAh+O11dCjCzyEGTl2aKN0/LCwIfM' +
            'AiGP/kwJwEf8G912wMIs9uJ');
    
    If (FindBitmap(copper, X, Y)) Then //This will search the screen for the bitmap
    MMouse(x, y, 0, 0);
    ClickMouse(X, Y, mouse_Left);
    wait(17600);
    End;
    Procedure OpenChest;
    var
      x, y: Integer;
    begin
     if FindObjCustom(x, y, ['ank', 'Ches'], [5402497], 3) then
    begin
    Cleardebug;
      Mouse(x, y, 0, 0, True);
      wait(2000);
    end;
    end;
    Procedure BankAll;
    Var //Variables are declared here
    copper, X, Y:Integer; //Declare bitmaps as Integers
    
    
    Begin
    copper := BitmapFromString(32, 23, 'meJy1lc9KQkEUxq8QkqkVeEME+0' +
            'NuglZdKoQoIrKFGdYylAqECKJF0KZNRC17gHqBHsAH6E16mH7x0WE' +
            'YrjoGwscwnjvz+86cM9ebiaKL++fJqX11N1HJonl+PVKt7g2aymYH' +
            'KV8oelvqR61wviDLZ29LJ6+Mq50PV0TKO7eeRTgf8nQlmV8/FVkuM' +
            'kKVgwfEpHr86FqMxZ9ZqWNR2uqJKT5Y0o6TDtY8IuKeIpAPnO3FWi' +
            'NXWsRFqYoPE1OCPEUY8ZTFsgjhCy6xHQuAJCk+BSFOBDhzlY5lcbw' +
            'QwgderiWsF0F1wEI0pMoTZ752+VLt9eGzODB/+Ozdm2urv2ApiCwY' +
            'Becsm0+f6Nex1ycSXn+wMBmtxeojEyyYwGQBmXffv7AATnws/myjY' +
            'FIfwZqFms7R1FnVkDGkPmI2vvcRE/VCR6AmZsFPXV1dIZ0IPi+7y8' +
            '9v51LJgluvdRuVrVyYyEtx+juIL45LFhys/hyMr+aSqr3CKgtBIoP' +
            '4onlwsBQBWX2ML7i9CHaddD9T+R7cumx8N3+PrELZ5ff6O4RvxZes' +
            'xYZlrn8hy3wk34W7p7D6kKosRNYVcuFj5e9Z2BVFdJMI5OHfF/ip0' +
            'mdLav59ZUjVlEo2/v8kpjR8ZSaKNnYPJ6cfxJVRQA==');
    
    If (FindBitmap(copper, X, Y)) Then
    MMouse(x, y, 0, 0);
    ClickMouse(X, Y, mouse_Left);
    wait(600);
    End;
    begin
    MouseSpeed := 20;
    ClearDebug;
    repeat
    Herbs;
    FindCopper;
    Pots;
    FindCopper;
    CloseInv;
    HerbsInv;
    PotsInv;
    MakePots;
    OpenChest;
    BankAll;
    until(iskeydown(113));
    end.


    Recover Special Maker
    Code:
    program CasketLooter;
    {$i srl-osr/srl.simba}
    
    procedure Herbs;
    var
    Herb, x, y: integer;
    begin
    Herb:= DTMFromString('mrAAAAHic42BgYDACYmsgtoViXSDWA2ILIDYE4vNAfBaITwLxUSA+DsQHoeKHGUCACSdevEOSgQvIwocZCWAYAACKVgnS');
    MouseSpeed := 15;
    FindDTM(Herb, x, y, MSX1, MSY1, MSX2, MSY2) ;
    MMouse(x, y, 0, 0);
    ClickMouse(X, Y, mouse_Right);
    FreeDTM(Herb);
    wait(300);
    end;
    Procedure FindCopper;
    Var //Variables are declared here
    copper, X, Y:Integer; //Declare bitmaps as Integers
    
    
    Begin
    copper := BitmapFromString(83, 15, 'meJztlFEKwCAMQy/i/z523t1lJ9' +
            'i5Nhj40WoSCxOZQj5c0Oprw9K2p6WZdJzXI92P7dSrfQf1mtlvBff' +
            '+aOAG0Jg/BgePND5lwY0aHzx/Uh+Pu3icBsy3zpt4IuHfThhcn7i+' +
            'VurTbbjhesGe4CBLxWyEJ04f7y/qBk6zUZusDl4rEktON3CzbgKnP' +
            'uhqrUsUCge4drupUFxTagVkaWkG3T326jA=');
    
    If (FindBitmap(copper, X, Y)) Then //This will search the screen for the bitmap
    MMouse(x, y, 0, 0);
    ClickMouse(X, Y, mouse_Left);
    wait(250);
    End;
    procedure Pots;
    var
    Pot, x, y: integer;
    begin
    Pot:= DTMFromString('mggAAAHicY2NgYEgA4kwgjobiDCBOAuJLQHwKiI8D8UUgvgDEpxlAgAkDz3CqYuACsrBhRhwYAgAgdQi/');
    MouseSpeed := 15;
    FindDTM(Pot, x, y, MBX1, MBY1, MBX2, MBY2) ;
    MMouse(x, y, 0, 0);
    ClickMouse(X, Y, mouse_Right);
    FreeDTM(Pot);
    wait(400);
    end;
    procedure CloseInv;
    var
    Button, x, y: integer;
    begin
    Button:= DTMFromString('mggAAAHicY2NgYHjKyMDwHIifAfFrIH4FxG+BWAEopwzEalCsCMTyQCwhKsygpSLLYKilBMYyEqIMWUm+DLgAIw4MAQCM/gld');
    MouseSpeed := 15;
    FindDTM(Button, x, y, MSX1, MSY1, MSX2, MSY2) ;
    MMouse(x, y, 0, 0);
    ClickMouse(X, Y, mouse_Left);
    FreeDTM(Button);
    wait(400);
    end;
    procedure HerbsInv;
    var
    Herb, x, y: integer;
    begin
    Herb:= DTMFromString('mrAAAAHic42BgYDACYmsgtoViXSDWA2ILIDYE4vNAfBaITwLxUSA+DsQHoeKHGUCACSdevEOSgQvIwocZCWAYAACKVgnS');
    MouseSpeed := 15;
    FindDTM(Herb, x, y, MIX1, MIY1, MIX2, MIY2) ;
    MMouse(x, y, 0, 0);
    ClickMouse(X, Y, mouse_Right);
    FreeDTM(Herb);
    wait(400);
    end;
    Procedure UseHerb;
    Var //Variables are declared here
    copper, X, Y:Integer; //Declare bitmaps as Integers
    
    
    Begin
    copper := BitmapFromString(26, 11, 'meJyTUdeWoSqauuMYEGGyR02jxD' +
            'SICBxhFSfSNFxOJVILfrdRbhoeZaRaRF5k4Q9S4qUAlZcGvQ==');
    
    If (FindBitmap(copper, X, Y)) Then //This will search the screen for the bitmap
    MMouse(x, y, 0, 0);
    ClickMouse(X, Y, mouse_Left);
    wait(500);
    End;
    procedure PotsInv;
    var
    Pot, x, y: integer;
    begin
    Pot:= DTMFromString('mggAAAHicY2NgYJjCxMDQC8TzoLgfiKcBcTwjA0MUEMcAcRgQhwJxBBAzMDBh4DkudQxcQBY2zIgDQwAAvoYHXQ==');
    MouseSpeed := 15;
    FindDTM(Pot, x, y, MIX1, MIY1, MIX2, MIY2) ;
    MMouse(x, y, 0, 0);
    ClickMouse(X, Y, mouse_Left);
    FreeDTM(Pot);
    wait(1400);
    end;
    Procedure MakePots;
    Var //Variables are declared here
    copper, X, Y:Integer; //Declare bitmaps as Integers
    
    
    Begin
    copper := BitmapFromString(93, 10, 'meJzdU+1OAkEQ800uEQQkUQFFwI' +
            '/39G2xScOk6cwu5w8S4dJsZnudmc7e3vBzHE5Ybr9vFeV0Qer4DLD' +
            'enR7Ej29fNwmOaQzWmFrH5ymBWbx+AhpfI+C/88pGU4ZBMIP8QcB8' +
            '8wEeKxBMwJi8bcX5lVVWZSd3DNPyz5EtMYvJxG2JX2m2PgDYYiVvD' +
            'DWlQNM7siDJ5Pqd3DGuztormWzSagav/q2IZtlhWlZZxxzaibVajH' +
            'el4lLZZyLxYbUHEEcQH04Zxrq19Lh4I+sYmN5q8SdXUS37LMXGMJ6' +
            '+7ACLCW6DydtIIZkZTdQWCpVRkJmzrkr/Uc36ZrG2njy/I8ZKWMzH' +
            'mNY2VyjrZEEp07vRkZmNjv/cl+NbEZL3T9v/CR7LpbuULUD+ArRWiRs=');
    
    If (FindBitmap(copper, X, Y)) Then //This will search the screen for the bitmap
    MMouse(x, y, 0, 0);
    ClickMouse(X, Y, mouse_Left);
    wait(17600);
    End;
    Procedure OpenChest;
    var
      x, y: Integer;
    begin
     if FindObjCustom(x, y, ['ank', 'Ches'], [5402497], 3) then
    begin
    Cleardebug;
      Mouse(x, y, 0, 0, True);
      wait(2000);
    end;
    end;
    Procedure BankAll;
    Var //Variables are declared here
    copper, X, Y:Integer; //Declare bitmaps as Integers
    
    
    Begin
    copper := BitmapFromString(32, 23, 'meJy1lc9KQkEUxq8QkqkVeEME+0' +
            'NuglZdKoQoIrKFGdYylAqECKJF0KZNRC17gHqBHsAH6E16mH7x0WE' +
            'YrjoGwscwnjvz+86cM9ebiaKL++fJqX11N1HJonl+PVKt7g2aymYH' +
            'KV8oelvqR61wviDLZ29LJ6+Mq50PV0TKO7eeRTgf8nQlmV8/FVkuM' +
            'kKVgwfEpHr86FqMxZ9ZqWNR2uqJKT5Y0o6TDtY8IuKeIpAPnO3FWi' +
            'NXWsRFqYoPE1OCPEUY8ZTFsgjhCy6xHQuAJCk+BSFOBDhzlY5lcbw' +
            'QwgderiWsF0F1wEI0pMoTZ752+VLt9eGzODB/+Ozdm2urv2ApiCwY' +
            'Becsm0+f6Nex1ycSXn+wMBmtxeojEyyYwGQBmXffv7AATnws/myjY' +
            'FIfwZqFms7R1FnVkDGkPmI2vvcRE/VCR6AmZsFPXV1dIZ0IPi+7y8' +
            '9v51LJgluvdRuVrVyYyEtx+juIL45LFhys/hyMr+aSqr3CKgtBIoP' +
            '4onlwsBQBWX2ML7i9CHaddD9T+R7cumx8N3+PrELZ5ff6O4RvxZes' +
            'xYZlrn8hy3wk34W7p7D6kKosRNYVcuFj5e9Z2BVFdJMI5OHfF/ip0' +
            'mdLav59ZUjVlEo2/v8kpjR8ZSaKNnYPJ6cfxJVRQA==');
    
    If (FindBitmap(copper, X, Y)) Then
    MMouse(x, y, 0, 0);
    ClickMouse(X, Y, mouse_Left);
    wait(600);
    End;
    begin
    MouseSpeed := 20;
    ClearDebug;
    repeat
    Herbs;
    FindCopper;
    Pots;
    FindCopper;
    CloseInv;
    HerbsInv;
    UseHerb;
    PotsInv;
    MakePots;
    OpenChest;
    BankAll;
    until(iskeydown(113));
    end.


    Grinding Mud Runes
    Code:
    program CasketLooter;
    {$i srl-osr/srl.simba}
    
    
    procedure CloseInv;
    var
    Button, x, y: integer;
    begin
    Button:= DTMFromString('mggAAAHicY2NgYHjKyMDwHIifAfFrIH4FxG+BWAEopwzEalCsCMTyQCwhKsygpSLLYKilBMYyEqIMWUm+DLgAIw4MAQCM/gld');
    MouseSpeed := 15;
    FindDTM(Button, x, y, MSX1, MSY1, MSX2, MSY2) ;
    MMouse(x, y, 0, 0);
    ClickMouse(X, Y, mouse_Left);
    FreeDTM(Button);
    wait(400);
    end;
    procedure PestleInv;
    var
    Herb, x, y: integer;
    begin
    Herb:= DTMFromString('mwQAAAHic42RgYHBkYmDwAOJAIPYGYh8gNgdiJyD2BGJbIP4EVPcOiN8C8WMgvg/Ez4D4FRLNwMBEEHMBSUKYkQgMBwA7kAsw');
    MouseSpeed := 15;
    FindDTM(Herb, x, y, MIX1, MIY1, MIX2, MIY2) ;
    MMouse(x, y, 0, 0);
    ClickMouse(X, Y, mouse_Left);
    FreeDTM(Herb);
    wait(400);
    end;
    procedure MudRunesInv;
    var
    Pot, x, y: integer;
    begin
    Pot:= DTMFromString('mlwAAAHicY2dgYMhkYmBIAOIiIC4D4gogzgfibCD+DJR/DcSfgPg9EL8B4hdQmoGBCQOHW0gzlBUWMnABebgwIx4MBQDy+Avx');
    MouseSpeed := 15;
    FindDTM(Pot, x, y, MIX1, MIY1, MIX2, MIY2) ;
    MMouse(x, y, 0, 0);
    ClickMouse(X, Y, mouse_Left);
    FreeDTM(Pot);
    wait(16000);
    end;
    procedure GroundMudRunesInv;
    var
    Pot, x, y: integer;
    begin
    Pot:= DTMFromString('mwQAAAHic42RgYJjMxMAwiwlCTwfiPiDuhNLzgXgxEL8HqnsLxK+A+AUS/RSInwPxIwYQYCKIuYAkIcxIBIYDAB7XDf0=');
    MouseSpeed := 15;
    FindDTM(Pot, x, y, MIX1, MIY1, MIX2, MIY2) ;
    MMouse(x, y, 0, 0);
    ClickMouse(X, Y, mouse_Right);
    FreeDTM(Pot);
    wait(400);
    end;
    Procedure OpenChest;
    var
      x, y: Integer;
    begin
     if FindObjCustom(x, y, ['ank', 'Ches'], [5402497], 3) then
    begin
    Cleardebug;
      Mouse(x, y, 0, 0, True);
      wait(2000);
    end;
    end;
    Procedure DepositAll2;
    Var //Variables are declared here
    copper, X, Y:Integer; //Declare bitmaps as Integers
    
    
    Begin
    copper := BitmapFromString(73, 11, 'meJybuuPYVCQko649+BFW1yKLYP' +
            'pooHxHkr1wxWi6hrrXCHpnMHiNPHup5TVceZAScUwvkJTT0Ywiz2u' +
            '0YBMfa8S4n+xYo6J3sMbLACZI4uOd8pgaEK+R57xB5TXMBIOpAI8g' +
            'wYSHP0EiK6Oi14gJKzyGD2YEAA6YAyc=');
    
    If (FindBitmap(copper, X, Y)) Then
    MMouse(x, y, 0, 0);
    ClickMouse(X, Y, mouse_Left);
    wait(600);
    End;
    begin
    MouseSpeed := 20;
    ClearDebug;
    repeat
    PestleInv;
    MudRunesInv;
    OpenChest;
    GroundMudRunesInv;
    DepositAll2;
    CloseInv;
    until(iskeydown(113));
    end.


    Overload Maker
    Code:
    program CasketLooter;
    {$i srl-osr/srl.simba}
    
    procedure Herbs;
    var
    Torstol, x, y: integer;
    begin
    Torstol:= DTMFromString('mrAAAAHic42BgYOAEYn4gZmWAABYg5gZiISDmA2J2BgRghMrDaIgcEwOXBw8DuyEHmA3CHDZcDDwhfBA5IIkPMxLAMAAAy28CJw==');
    MouseSpeed := 15;
    FindDTM(Torstol, x, y, MBX1, MBY1, MBX2, MBY2) ;
    MMouse(x, y, 0, 0);
    ClickMouse(X, Y, mouse_Right);
    FreeDTM(Torstol);
    wait(300);
    end;
    Procedure DrawFour;
    Var //Variables are declared here
    copper, X, Y:Integer; //Declare bitmaps as Integers
    
    
    Begin
    copper := BitmapFromString(77, 12, 'meJzlk8ENwCAIRRfx3kPn7S6doH' +
            'O1J2MQv0/TWFMTDoo/wAMM2x7WsOO8HuP+PiWP9iJUmrEVM/fPhhk' +
            'ZF8QklafXyTFjIlGn0IhGpU43snlys5BNa+pnByafJj+T+FWZaQ6s' +
            'cySm2BN37mSaJEsedhhmde6lT6F7VUqkXz/ENGdiJbHomLvD/DcJv' +
            'VaaveKMAvPHdgOPTDpv');
    
    If (FindBitmap(copper, X, Y)) Then //This will search the screen for the bitmap
    MMouse(x, y, 0, 0);
    ClickMouse(X, Y, mouse_Left);
    wait(250);
    End;
    procedure Pots1;
    var
    Pot, x, y: integer;
    begin
    Pot:= DTMFromString('mggAAAHicY2NgYOBkgAB+IBYAYnYonwmKGaBiXFA6f8kyJFkE5oKqQceMODAEAAC0XgJX');
    MouseSpeed := 15;
    FindDTM(Pot, x, y, MBX1, MBY1, MBX2, MBY2) ;
    MMouse(x, y, 0, 0);
    ClickMouse(X, Y, mouse_Right);
    FreeDTM(Pot);
    wait(150);
    end;
    procedure Pots2;
    var
    Pot, x, y: integer;
    begin
    Pot:= DTMFromString('mlwAAAHicY2dgYOACYmYgZmWAABCfD4gFgZgTiFmQxPmBmBeI2YF4x4b1QJIJBVcUF4NpLqh6bJgRD4YCAGhbBEk=');
    MouseSpeed := 15;
    FindDTM(Pot, x, y, MBX1, MBY1, MBX2, MBY2) ;
    MMouse(x, y, 0, 0);
    ClickMouse(X, Y, mouse_Right);
    FreeDTM(Pot);
    wait(150);
    end;
    procedure Pots3;
    var
    Pot, x, y: integer;
    begin
    Pot:= DTMFromString('mggAAAHicY2NgYOAEYj4gZmaAAHYgFgRiViifAyrHA2VfOiIHJJkY7p6RB9MwzAUksWFGHBgCADL3BCM=');
    MouseSpeed := 15;
    FindDTM(Pot, x, y, MBX1, MBY1, MBX2, MBY2) ;
    MMouse(x, y, 0, 0);
    ClickMouse(X, Y, mouse_Right);
    FreeDTM(Pot);
    wait(150);
    end;
    procedure Pots4;
    var
    Pot, x, y: integer;
    begin
    Pot:= DTMFromString('mrAAAAHic42BgYOCEYm4g5odiJgYIYARiVqgcDIDUcgExO1TeasdesA6zleuhOlExF1Q9LsxIAMMAAJf+BBM=');
    MouseSpeed := 15;
    FindDTM(Pot, x, y, MBX1, MBY1, MBX2, MBY2) ;
    MMouse(x, y, 0, 0);
    ClickMouse(X, Y, mouse_Right);
    FreeDTM(Pot);
    wait(150);
    end;
    procedure Pots5;
    var
    Pot, x, y: integer;
    begin
    Pot:= DTMFromString('mggAAAHicY2NgYOAAYlYGCGACYn4g5gNiNiBmBGIWIOYBYm6omq5Z+gw9cwyhqhGYC0hiw4w4MAQAAPjwA0s=');
    MouseSpeed := 15;
    FindDTM(Pot, x, y, MBX1, MBY1, MBX2, MBY2) ;
    MMouse(x, y, 0, 0);
    ClickMouse(X, Y, mouse_Right);
    FreeDTM(Pot);
    wait(150);
    end;
    procedure CloseInv;
    var
    Button, x, y: integer;
    begin
    Button:= DTMFromString('mggAAAHicY2NgYHjKyMDwHIifAfFrIH4FxG+BWAEopwzEalCsCMTyQCwhKsygpSLLYKilBMYyEqIMWUm+DLgAIw4MAQCM/gld');
    MouseSpeed := 15;
    FindDTM(Button, x, y, MSX1, MSY1, MSX2, MSY2) ;
    MMouse(x, y, 0, 0);
    ClickMouse(X, Y, mouse_Left);
    FreeDTM(Button);
    wait(400);
    end;
    procedure HerbsInv;
    var
    Herb, x, y: integer;
    begin
    Herb:= DTMFromString('mrAAAAHic42BgYOAEYn4gZmWAABYg5gZiISDmA2J2BgRghMrDaIgcEwOXBw8DuyEHmA3CHDZcDDwhfBA5IIkPMxLAMAAAy28CJw==');
    MouseSpeed := 15;
    FindDTM(Herb, x, y, MIX1, MIY1, MIX2, MIY2) ;
    MMouse(x, y, 0, 0);
    ClickMouse(X, Y, mouse_Left);
    FreeDTM(Herb);
    wait(400);
    end;
    procedure PotsInv;
    var
    Pot, x, y: integer;
    begin
    Pot:= DTMFromString('mggAAAHicY2NgYOBkgAB+IBYAYnYonwmKGaBiXFA6f8kyJFkE5oKqQceMODAEAAC0XgJX');
    MouseSpeed := 15;
    FindDTM(Pot, x, y, MIX1, MIY1, MIX2, MIY2) ;
    MMouse(x, y, 0, 0);
    ClickMouse(X, Y, mouse_Left);
    FreeDTM(Pot);
    wait(2250);
    end;
    Procedure MakePots;
    Var //Variables are declared here
    copper, X, Y:Integer; //Declare bitmaps as Integers
    
    
    Begin
    copper := BitmapFromString(60, 12, 'meJztUVsOwjAM602QeMPEm4035+' +
            'S2YGHJipp2E+WHDyarchzHDaVq7tUfn6P3eH7kn9c3AFMEy2KUJWA' +
            'qhJCLsouRzPZXEJzh/ZEXg7d/P6WVIsLWdHfhCEjEC1A27qesQiIF' +
            'ZLI9swSxnC2JlvuWlCjKOlsUO9WSo8XGmxMNIJbnRJz8p9SS2OlsU' +
            'XRXdCPhp5Lr2a5dKblky0+OAvWqOU9y58g8Wh9ZgiS5V/h5vy2TBK' +
            'cN9CSZ45Xh6gDoBcDRokjdK3KyjLoqfaB955zSmQM+WDaEHlCKdK9' +
            'YZ2SwpQ/0t+Tu9btJ7C/qnwX2TIovywfznA==');
    
    If (FindBitmap(copper, X, Y)) Then //This will search the screen for the bitmap
    MMouse(x, y, 0, 0);
    ClickMouse(X, Y, mouse_Left);
    wait(6000);
    End;
    Procedure OpenChest;
    var
      x, y: Integer;
    begin
     if FindObjCustom(x, y, ['ank', 'Ches'], [5402497], 3) then
    begin
    Cleardebug;
      Mouse(x, y, 0, 0, True);
      wait(2300);
    end;
    end;
    Procedure BankAll;
    Var //Variables are declared here
    copper, X, Y:Integer; //Declare bitmaps as Integers
    
    
    Begin
    copper := BitmapFromString(32, 23, 'meJy1lc9KQkEUxq8QkqkVeEME+0' +
            'NuglZdKoQoIrKFGdYylAqECKJF0KZNRC17gHqBHsAH6E16mH7x0WE' +
            'YrjoGwscwnjvz+86cM9ebiaKL++fJqX11N1HJonl+PVKt7g2aymYH' +
            'KV8oelvqR61wviDLZ29LJ6+Mq50PV0TKO7eeRTgf8nQlmV8/FVkuM' +
            'kKVgwfEpHr86FqMxZ9ZqWNR2uqJKT5Y0o6TDtY8IuKeIpAPnO3FWi' +
            'NXWsRFqYoPE1OCPEUY8ZTFsgjhCy6xHQuAJCk+BSFOBDhzlY5lcbw' +
            'QwgderiWsF0F1wEI0pMoTZ752+VLt9eGzODB/+Ozdm2urv2ApiCwY' +
            'Becsm0+f6Nex1ycSXn+wMBmtxeojEyyYwGQBmXffv7AATnws/myjY' +
            'FIfwZqFms7R1FnVkDGkPmI2vvcRE/VCR6AmZsFPXV1dIZ0IPi+7y8' +
            '9v51LJgluvdRuVrVyYyEtx+juIL45LFhys/hyMr+aSqr3CKgtBIoP' +
            '4onlwsBQBWX2ML7i9CHaddD9T+R7cumx8N3+PrELZ5ff6O4RvxZes' +
            'xYZlrn8hy3wk34W7p7D6kKosRNYVcuFj5e9Z2BVFdJMI5OHfF/ip0' +
            'mdLav59ZUjVlEo2/v8kpjR8ZSaKNnYPJ6cfxJVRQA==');
    
    If (FindBitmap(copper, X, Y)) Then
    MMouse(x, y, 0, 0);
    ClickMouse(X, Y, mouse_Left);
    wait(600);
    End;
    begin
    MouseSpeed := 20;
    ClearDebug;
    repeat
    Herbs;
    DrawFour;
    Pots1;
    DrawFour;
    Pots2;
    DrawFour;
    Pots3;
    DrawFour;
    Pots4;
    DrawFour;
    Pots5;
    DrawFour;
    CloseInv;
    HerbsInv;
    PotsInv;
    MakePots;
    OpenChest;
    BankAll;
    until(iskeydown(113));
    end.
    Last edited by Ox Pure; 05-07-2015 at 01:01 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
  •