Results 1 to 1 of 1

Thread: [Alotic] RoguesDen Shark Cooker

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

    Default [Alotic] RoguesDen Shark Cooker

    Start with bank open with raw sharks in a new tab


    Code:
    program CasketLooter;
    {$i srl-osr/srl.simba}
    
    procedure Shark;
    var
    Herb, x, y: integer;
    begin
    repeat
    Herb:= DTMFromString('mrAAAAHic42BgYAgD4mggTgTiNCDOBOJIIM4A4gggXgzE84B4GhDPBuIFUHo6VIyBgQkDR0eEM1QUFzPkZKQzcAFF8GFGAhgGAFYyC+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+Zl3cWv2zL50xyHEhXPK/' +
            'en/j4p7MAXSB21RNEnSFWZqw1SJJ0/kmLMxzMGqfdJ5b4bIlN1A/w' +
            'axCO1Cji5yBZR0UYKdyL6x13dccxAin+n+Nhw83Nki7YwpGyx72nq' +
            'yVVIMZf53M+lLT2QSq0gWXj1gDNViA2TwsPinOqkRNw2KTyggMWMz' +
            '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+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(700);
    end;
    procedure SharkInv;
    var
    Herb, x, y: integer;
    begin
    repeat
    Herb:= DTMFromString('mrAAAAHic42BgYAgD4mggTgTiNCDOBOJIIM4A4gggXgzE84B4GhDPBuIFUHo6VIyBgQkDR0eEM1QUFzPkZKQzcAFF8GFGAhgGAFYyC+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+AotC5JViWre0btN73pUKO6jPkks1ia' +
            'mmuzeCpJxflXxxUk9SvYvwBFL5d2FS8W8cpOIRMKxB6jmkMCyWlAM' +
            'fJnWsnGLXr5Ji5xe+pZGrCGAs4nTAaAVLnVCnq3yGvgVISSAsbSiV' +
            'TiJoJGVZt9vq/mFBsEQiPUU5Uq9adtBQFlKAAtsUhwGISCV1p6OPs' +
            'UmxHHOKZREhBejgA9C9ydW9HUyhkroKy/fvZyFVHYBuUj3KWDbULa' +
            'RYV1DBnqIU7L8T2KWWBYww1qZh+51+kvfPpCbSVg13zlBvfQHOQxrz');
    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' +
            '4a2Bp5uTJG8TDk2c9OV4VxzmFaJAT0gzZXZKQfgtlo9xJn0xjw0vH' +
            '74ozQxdysn6SAaQHfRPasxPTnqxpQRfzGRqXeHg8epACUhZnxAcsM' +
            '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' +
            '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==');
    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.
    Last edited by Ox Pure; 05-07-2015 at 10:50 AM.

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
  •