PDA

View Full Version : [Alotic] RoguesDen Shark Cooker



Ox Pure
05-07-2015, 10:48 AM
Start with bank open with raw sharks in a new tab



program CasketLooter;
{$i srl-osr/srl.simba}

procedure Shark;
var
Herb, x, y: integer;
begin
repeat
Herb:= DTMFromString('mrAAAAHic42BgYAgD4mggTgTiNCDOBOJIIM 4A4gggXgzE84B4GhDPBuIFUHo6VIyBgQkDR0eEM1QUFzPkZKQz cAFF8GFGAhgGAFYyC+I=');
MouseSpeed := 15;
Wait(150 + random(50));
until FindDTM(Herb, x, y, MBX1, MBY1, MBX2, MBY2) ;
MMouse(x, y, 0, 0);
ClickMouse(X, Y, mouse_Right);
FreeDTM(Herb);
wait(200);
end;
Procedure WithdrawAllButOne;
Var //Variables are declared here
copper, X, Y:Integer; //Declare bitmaps as Integers


Begin
copper := BitmapFromString(142, 15, 'meJztlcERgDAIBBvx78N67cUKr' +
'EtfjkPIeUE0mjBzDyaSALdRh3EaQqGQq+Zl3cWv2zL50xyHEh XPK/' +
'en/j4p7MAXSB21RNEnSFWZqw1SJJ0/kmLMxzMGqfdJ5b4bIlN1A/w' +
'axCO1Cji5yBZR0UYKdyL6x13dccxAin+n+Nhw83Nki7YwpGyx 72nq' +
'yVVIMZf53M+lLT2QSq0gWXj1gDNViA2TwsPinOqkRNw2KTygg MWMz' +
'9RS6YMSaQO5+FFS4LqqHQKHwRbesVAoFOpWG4Lkhm4=');
repeat
If (FindBitmap(copper, X, Y)) Then //This will search the screen for the bitmap
Wait(150 + random(50));
until (FindBitmap(copper, X, Y));
MMouse(x, y, 0, 0);
ClickMouse(X, Y, mouse_Left);
wait(250);
End;
procedure CloseInv;
var
Button, x, y: integer;
begin
Button:= DTMFromString('mggAAAHicY2NgYHjKyMDwHIifAfFrIH4FxG +BWAEopwzEalCsCMTyQCwhKsygpSLLYKilBMYyEqIMWUm+DLgA Iw4MAQCM/gld');
MouseSpeed := 15;
FindDTM(Button, x, y, MSX1, MSY1, MSX2, MSY2) ;
MMouse(x, y, 0, 0);
ClickMouse(X, Y, mouse_Left);
FreeDTM(Button);
wait(700);
end;
procedure SharkInv;
var
Herb, x, y: integer;
begin
repeat
Herb:= DTMFromString('mrAAAAHic42BgYAgD4mggTgTiNCDOBOJIIM 4A4gggXgzE84B4GhDPBuIFUHo6VIyBgQkDR0eEM1QUFzPkZKQz cAFF8GFGAhgGAFYyC+I=');
MouseSpeed := 15;
until FindDTM(Herb, x, y, MIX1, MIY1, MIX2, MIY2) ;
MMouse(x, y, 0, 0);
ClickMouse(X, Y, mouse_Left);
FreeDTM(Herb);
wait(500);
end;
Procedure MakeShark;
var
x, y: Integer;
begin
if FindObjCustom(x, y, ['Us', 'se'], [272950, 3652325], 3) then
begin
Cleardebug;
MMouse(x, y, 0, 0);
ClickMouse(X, Y, mouse_Right);
wait(400);
end;
end;
Procedure UseSharkFire;
Var //Variables are declared here
copper, X, Y:Integer; //Declare bitmaps as Integers


Begin
copper := BitmapFromString(142, 11, 'meJztlkEOhDAIRecg7mfhJeaIb' +
'noXT+C1OiZmTFPgg9COLmr+AotC5JViWre0btN73pUKO6jPkk s1ia' +
'mmuzeCpJxflXxxUk9SvYvwBFL5d2FS8W8cpOIRMKxB6jmkMCy WlAM' +
'fJnWsnGLXr5Ji5xe+pZGrCGAs4nTAaAVLnVCnq3yGvgVISSAs bSiV' +
'TiJoJGVZt9vq/mFBsEQiPUU5Uq9adtBQFlKAAtsUhwGISCV1p6OPs' +
'UmxHHOKZREhBejgA9C9ydW9HUyhkroKy/fvZyFVHYBuUj3KWDbULa' +
'RYV1DBnqIU7L8T2KWWBYww1qZh+51+kvfPpCbSVg13zlBvfQH OQxrz');
repeat
SharkInv;
MakeShark;
If (FindBitmap(copper, X, Y)) Then
Wait(150 + random(50));
until (FindBitmap(copper, X, Y));
MMouse(x, y, 0, 0);
ClickMouse(X, Y, mouse_Left);
wait(3000);
End;
Procedure CookShark;
Var //Variables are declared here
copper, X, Y:Integer; //Declare bitmaps as Integers


Begin
copper := BitmapFromString(51, 10, 'meJzNkdsKwkAQQ/0TH7zWgvfWu9' +
'/p32ogGMJsXWHtg2VYTjIzsXXr9l7/ZS2a2/DxVEH2VQVpvlLtr5C' +
'D9wOG00sxtnhlvrtQAgL/WAVRvjLbnv0qIdHCKZ9M2clu+kqQmUxf' +
'4a2Bp5uTJG8TDk2c9OV4VxzmFaJAT0gzZXZKQfgtlo9xJn0xj w0vH' +
'74ozQxdysn6SAaQHfRPasxPTnqxpQRfzGRqXeHg8epACUhZnx AcsM' +
'xPLS1mMr0VVkbLFgVJSJlPxskPf80MUZIvzk9uKA==');
repeat
If (FindBitmap(copper, X, Y)) Then
Wait(150 + random(50));
until (FindBitmap(copper, X, Y));
MMouse(x, y, 0, 0);
ClickMouse(X, Y, mouse_Left);
wait(17800);
End;
Procedure ClickChest;
var
x, y: Integer;
begin
repeat
if FindObjCustom(x, y, ['alk'], [6655938], 3) then
Wait(150 + random(50));
WriteLn('Where is the banker!');
MMouse(x, y, 2, 2);
until (IsUpText('alk'));
begin
WriteLn('Attempting to Bank!');
MMouse(x, y, 0, 0);
ClickMouse(X, Y, mouse_Right);
wait(500);
end;
end;
Procedure BankChest;
Var //Variables are declared here
copper, X, Y:Integer; //Declare bitmaps as Integers


Begin
copper := BitmapFromString(32, 12, 'meJyTUdeWoTGauuMYMqLQHPzilF' +
'gxvM3HGv5YxXGph3NxiVOFjcuRWP2I1akEzScy/GntfrLZRMYXeeF' +
'DeTokCQEA8yRyoQ==');
repeat
ClickChest;
If (FindBitmap(copper, X, Y)) Then //This will search the screen for the bitmap
Wait(150 + random(50));
until (FindBitmap(copper, X, Y));
MMouse(x, y, 0, 0);
ClickMouse(X, Y, mouse_Left);
wait(2800);
End;
Procedure BankAll;
Var //Variables are declared here
copper, X, Y:Integer; //Declare bitmaps as Integers


Begin
copper := BitmapFromString(32, 23, 'meJy1lc9KQkEUxq8QkqkVeEME+0' +
'NuglZdKoQoIrKFGdYylAqECKJF0KZNRC17gHqBHsAH6E16mH7 x0WE' +
'YrjoGwscwnjvz+86cM9ebiaKL++fJqX11N1HJonl+PVKt7g2a ymYH' +
'KV8oelvqR61wviDLZ29LJ6+Mq50PV0TKO7eeRTgf8nQlmV8/FVkuM' +
'kKVgwfEpHr86FqMxZ9ZqWNR2uqJKT5Y0o6TDtY8IuKeIpAPnO 3FWi' +
'NXWsRFqYoPE1OCPEUY8ZTFsgjhCy6xHQuAJCk+BSFOBDhzlY5 lcbw' +
'QwgderiWsF0F1wEI0pMoTZ752+VLt9eGzODB/+Ozdm2urv2ApiCwY' +
'Becsm0+f6Nex1ycSXn+wMBmtxeojEyyYwGQBmXffv7AATnws/myjY' +
'FIfwZqFms7R1FnVkDGkPmI2vvcRE/VCR6AmZsFPXV1dIZ0IPi+7y8' +
'9v51LJgluvdRuVrVyYyEtx+juIL45LFhys/hyMr+aSqr3CKgtBIoP' +
'4onlwsBQBWX2ML7i9CHaddD9T+R7cumx8N3+PrELZ5ff6O4Rv xZes' +
'xYZlrn8hy3wk34W7p7D6kKosRNYVcuFj5e9Z2BVFdJMI5OHfF/ip0' +
'mdLav59ZUjVlEo2/v8kpjR8ZSaKNnYPJ6cfxJVRQA==');
repeat
If (FindBitmap(copper, X, Y)) Then
Wait(150 + random(50));
until (FindBitmap(copper, X, Y));
MMouse(x, y, 0, 0);
ClickMouse(X, Y, mouse_Left);
wait(600);
End;
begin
MouseSpeed := 20;
ClearDebug;
repeat
Shark;
WithdrawAllButOne;
CloseInv;
UseSharkFire;
CookShark;
BankChest
BankAll;
until(iskeydown(113));
end.