Results 1 to 3 of 3

Thread: ProdigyX Dragonstone Crafting Bot

  1. #1
    Join Date
    Nov 2015
    Location
    Oregon
    Posts
    51
    Mentioned
    0 Post(s)
    Quoted
    18 Post(s)

    Default ProdigyX Dragonstone Crafting Bot

    First script I ever made
    It looks so simple, but it did the job XD

    Code:
    //Screen coords (1, 42, 518, 389)
    //Prodigy-X dragon stone craft/bank bot
    
    //M           ^
    //U          /_\
    //S         //|\\
    //T       <^^^^^^^>
    //A       \ ( o ) /
             //_|__|__\\
            //_|__|__|_\\
           //_SETTINGS:_\\
          //|__|__|__|__|\\
         //_PM IN CHATBOX_\\
        //_|XP DISPLAY OFF|\\
       //|__|FRONT OF NPC__|\\
      //__|_RELOG FOR VIEW|__\\
     //__|ZOOM IN ALL THE WAY|\\
    
    program craftBot;
      {$I RSPS/srlRSPS.Simba}
    var
      X, Y:Integer;
      Full:Boolean;
      SkillShopBitmap:Integer;
      CloseX:Integer;
      Deposit:Integer;
      ActionButton:Integer;
      InvyFull:Integer;
    
    function checkInstance:boolean;
      begin
        if (Full = true) then
          begin
            wait(3000);
            If findBitmapToleranceIn (InvyFull, X, Y, 683, 476, 732, 551, 5) then
              begin
                Full = true;
                //Click deposit box, wait to walk
                if findColorTolerance(X, Y, 10338767, 230, 450, 300, 490, 5) then
                  begin
                    mmouse(X, Y);
                    wait(250);
                    mouse(X, Y, mouse_Left);
                    wait(2000);
                  end;
              end;
            Full := false;
          end;
    
      if (Full = false) then
        begin
        //Clicks the shops npc
        if findColorTolerance(X, Y, 2968470, 1, 42, 518, 389, 5) then
          begin
            mmouse(X, Y);
            wait(250);
            mouse(X, Y, mouse_Left);
            wait(750);
          end;
        //Clicks the skilling shop button
        if findBitmapToleranceIn(SkillShopBitmap, X, Y, 257, 313, 469, 356, 50) then
          begin
            mmouse(X, Y);
            wait(250);
            mouse(X, Y, mouse_Left);
            wait(250);
          end;
        //Right-click dragon stones
        if findColorTolerance(X, Y, 6098246, 435, 117, 482, 167, 5) then
          begin
            mmouse(X, Y);
            wait(250);
            ClickMouse(X, Y, mouse_Right);
            wait(250);
          end;
        //Buy 50x dragon stones
            mmouse(454, 225);
            wait(250);
            mouse(454, 225, mouse_Left);
            wait(250);
        //Close out of skilling shop
        if findBitmapToleranceIn(CloseX, X, Y, 482, 52, 515, 83, 5) then
          begin
            mmouse(X, Y);
            wait(250);
            mouse(X, Y, mouse_Left);
            wait(250);
          end;
        //Click dstone in invy
         if findColorTolerance(X, Y, 6098246, 551, 259, 637, 330, 5) then
          begin
            mmouse(X, Y);
            wait(250);
            mouse(X, Y, mouse_Left);
            wait(250);
          end;
        //Click action button, wait for them to finish
    
        if findBitmapToleranceIn(ActionButton, X, Y, 198, 438, 317, 513, 5) then
          begin
            mmouse(X, Y);
            wait(250);
            mouse(X, Y, mouse_Left);
            wait(1500);
          end;
    
        //Click deposit invy
        if findBitmapToleranceIn(Deposit, X, Y, 291, 313, 332, 344, 5) then
          begin
            mmouse(X, Y);
            wait(250);
            mouse(X, Y, mouse_Left);
            wait(250);
          end;
        //Close out of deposit box
        if findBitmapToleranceIn(CloseX, X, Y, 482, 52, 515, 83, 5) then
          begin
            mmouse(X, Y);
            wait(250);
            mouse(X, Y, mouse_Left);
            wait(250);
          end;
        //Walk back infront of shops npc, wait to walk
        checkInstance;
      end;
    end;
    
    
    
    
    
    procedure loadBitmaps;
      begin
      SkillShopBitmap := BitmapFromString(69, 12, 'meJy1lVsKQjEMRLsB/ej+l+NeBF' +
            'ehEBwOM2lv/bCUgGOa5yR3zv48nq9Ebvd7yvamwZVmq7w5excVJ6+' +
            'CH2OY8gcpvGQhmzjpdIPoZg1/zasqPHBU+QrVnjOdn0p3EtjK7N4F' +
            'kdaCBVxFY5qSKqmay9h4216QEqncckaaQsxISxilU2pGM5NsMXNkx' +
            '81LskJOaYc/mQjB5NVqdmQz+2JS0dpw0Rq50ZaRr4w25ivNTqyvdn' +
            'aUe8aZ0kJqwZwUFtCoskmHYNuLnCbJ1uBhOvZ2xiFn2nROqmS9oP1' +
            '8mPRr5eq5atimY8kedme1CXOl2OCb2mU6Fpu2RKaTHonnZuNXb7Ue' +
            'BVrLxASy4lLOL2nlkRwQaEyrw78sBtMZsUBS5+SSkIZcnnYV/OO+A' +
            'bfeSJM=');
       CloseX := BitmapFromString(13, 13, 'meJw9kEtPwkAUhduZAqWtktAB03' +
            'Yk9gHyKI1AfPAQI7oBVjW6YGfYaDDuXLqRvW4k0YU/wj9Ewg9x4YF' +
            'JmJxMbu58c87c6fXWK4qiMDwOw7N6vR1FnSBo2naFc9eyLM4d7MPh' +
            'sNM5j6I2gHL5qlK5LhYvPa9TKDRzudCyvNns+W0+3zWMWu0UQO3pJ' +
            '2xMXH/sBWPOR9jtyQdjQSaTj+PbYhAia838/lW/VtWjR8+7s/x71O' +
            'hYk3fDcCjVfb/huW34VL9Xgjw4eRVM6XOpsgGlDiGmbZcd+8JxRm7' +
            'wIEih0mKp5+NEoqUovsA4b2zIm3ztZYuh1vWBqm4wajLmM1Y1zTZz' +
            'JnAQTH2TuHWjlGlaVtOCNBugL7LgI/j128wuIbYs62pqh1IbE6F/u' +
            'Fgae7FhDOAjbqEvy/Ax9y2TEB3j4JfSrJtMthAEwUcwsqT1+32Xs7' +
            'SqwZaQLGBF8SD4b7LWjCwp0+lUliQolVQoAawBxvgQallKi1Ng/8P' +
            'BcH4=');
      Deposit := BitmapFromString(31, 21, 'meJy1lc9KAlEUxluEoKWCLrKIyo' +
            'GEWoX2b1EUlQuRBiKCoGIgCCEiiDYRLaJlqx7AoBfpSXqZfuNHp8t' +
            'o4y0IPi7Hc2d+95tzzjhhdBX+p1rHF0PVPumg0UzmJ+ULxcQta822' +
            'J1yE2YPnmf0n1urpqysyExuXCb4nHGx2arm4EAqrI3QKmty5RQTT7' +
            'XuX/yt4vhRUNs8FFBwmhsuNiHPZIuP694FD5l4EnCNkUnCAZHLV9f' +
            'FgF3EKu/GVPf5QuMjl+mG8NiLxsSc4dWBrJFdjdy68VsXiyzzg8Qy' +
            'UAi4GKGOgyBCDRao2+cWzByR4XEA/ODfu1Y4I9OzUQfVhFZmnWLl5' +
            '2XrsyjkZz5qrJqyK4atxBGou5sngufP2Xr/rxuRS4A8vNMdNMs+zG' +
            'J+f6gIZyNr1aaiAzY9tRCDn4mv8NJygCOgpeWI9C3BeZ4OPrWYHYk' +
            'W2skgaOR1BoIFE/KShA+GCuFiRsad33+DqJibtJVU1SJKJa9UHFyp' +
            'B1jSKn4CLbANvw6NR7IcnyNZWSspamV9KwF2sBt6G3G1oCtwK7sJx' +
            'aEzi7xb3PKfDXbL732VwUOIbNkH2d+7Wx5zH/waNiPYJm/KxAD5Q+' +
            'gBJra9Phnya236swf8gAaX0Kz8Bw+v1kg==');
      ActionButton := BitmapFromString(94, 12, 'meJztU0EOwzAIy32P2Bf2hDxzv1' +
            '2rISFkDFmTle6wKgdKHePaSX/cesm6P181g07SfJ7+nbm1dvnPTmt' +
            'e0Z+7Wu/MespfdCbZe4kzixOpM3shC5DaoQWNSamUubsrnAyinURe' +
            'pOdzhqEz7f2AA9L0SLsFZsku8FyaAPBbkk4iz+s5xAAY6gwthkh6I' +
            'BMD/aGaKA4lHhU+Nfupxpn8UM05s5i4RuZTmwjFOqy/6c2hnkeApE' +
            'PTjBIHPUMGILFuC0BhvrAw+gpggFFCCoBTFI32Ra5nyBCR/Mii1+G' +
            '/1BO4F/VrA+SNsfI=');
      InvyFull := BitmapFromString(12, 44, 'meJx9kc0rhFEUxoekSNmR5CtNiq' +
            'GXMtEb+ehVkyL5yCSaECGmLBRKKZNkSj5CWRjGQmJjIzYWsrCRkoX' +
            'yB9j4Hzx66nS713vr13TmPL9zOnfmfCeV3j0Dm26cNGQHSWYgUF7u' +
            'gPOdlAAhmtcBNEfG4VAQzXRUQYAGLEIou1QcP0Eci2BxRPBzVEGwC' +
            'Fyi7jEF/jjA7wamdc3twBRkHGmoqRXM5Pf6jQteTp02Xu92clz2qO' +
            'NMOcu0prEFyDg6cIA4mglkAyN2zJRNFBLVhtsAm+pOXiWaiXaAirr' +
            'fMmvfbz7BLlvgA/0orKwVSkLhf6lxI6Cq5Q8UjtfvRKIaXcNT3aOz' +
            'AEVPbKFvcnFobmVwcWNsbU9AyiY+WcweXO4+vICFk2vUAP2R5SSAD' +
            '4EytqlAXrq4jS5t8SvWagKIrR9ikCeZKZneTpkCjmcTBcABqDMCAR' +
            'UKAq4tKi7eunu7+fq5ev8GR48fA/FVdQR7WKSfPwE1FPv3rwJfBAf' +
            'jap/MJU+BOJOJ48TNEyMUJCc3F4jjjUxI9K9DrWdoLJ7YV52CiiDg' +
            '3wQB6Wr6TmgdiCHlc+iUZZVqgvZ2bU/3+Dy+Ol4EL6oOu+AX6xKwNw==');
      end;
    
    begin
      loadBitmaps;
      writeln('Prodigy-X Crafting Bot!');
      FreeBitmap(SkillShopBitmap);
      FreeBitmap(CloseX);
      FreeBitmap(Deposit);
      FreeBitmap(ActionButton);
      FreeBitmap(InvyFull);
    end.
    Last edited by Starfox; 03-27-2016 at 07:45 PM.

  2. #2
    Join Date
    Mar 2016
    Location
    Scandinavia
    Posts
    138
    Mentioned
    3 Post(s)
    Quoted
    46 Post(s)

    Default

    Congratulations on your first script!

  3. #3
    Join Date
    Nov 2015
    Location
    Oregon
    Posts
    51
    Mentioned
    0 Post(s)
    Quoted
    18 Post(s)

    Default

    Reconstructing this script ATM for s&g
    My Scripts:
    TizenX Damage Token Collector
    OS-Scape Auto Buyer
    Check out an index of all my scripts here: ScriptingSRL

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
  •