SRL Archive - Outdated / Broken

[Alotic] Herblore Scripts

Ox Pure

2015-05-07 06:21:36

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

[SPOILER=Extreme Attack Maker]


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.

[/SPOILER]

[SPOILER=Extreme Strength Maker]


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.

[/SPOILER]

[SPOILER=Extreme Defence Maker]


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.

[/SPOILER]

[SPOILER=Extreme Range Maker]


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.

[/SPOILER]

[SPOILER=Extreme Magic Maker]


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.

[/SPOILER]

[SPOILER=Recover Special Maker]


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.

[/SPOILER]

[SPOILER=Grinding Mud Runes]


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.

[/SPOILER]

[SPOILER=Overload Maker]


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.

[/SPOILER]