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 MakerCode: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 MakerCode: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 MakerCode: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 MakerCode: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 MakerCode: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 MakerCode: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 RunesCode: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 MakerCode: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.