Results 1 to 2 of 2

Thread: Yak Hide Buyer

  1. #1
    Join Date
    Dec 2015
    Posts
    35
    Mentioned
    0 Post(s)
    Quoted
    14 Post(s)

    Default Yak Hide Buyer

    This buys yak hides on Jatizso and banks them! Its one of those daily money making methods that people do. Its a pretty slow script with a lot of unneeded waits, you could do it yourself a bit faster, but im lazy and thats what bots are for. It makes about 400k once its all done though!

    REQUIREMENTS:
    Start infront of the banker.
    Preset slot 1 is an empty inventory.
    Have atleast 50k when you start.
    Quests:The Fremennik Isles, The Fremennik Trials
    Skills
    25 Fetching
    20 Construction
    54 Woodcutting
    46 Crafting
    40 Agility

    Sometimes it misses the bank and stuff, but in the end it gets the job done for me.

    Also any tips on how to make it better are appreciated!

    And I dont know if I need anti ban for this as it is pretty fast. I don't know what I could do.

    Next up is Potted Plant buyer in Falador Park!

    Code:
    program YAK;
    
    {$DEFINE SMART}              // Always have this to load smart
    {$I SRL-6/SRL.simba}         // To load the SRL include files
    {$I SPS/lib/SPS-RS3.Simba}   // To load the SPS include files
    
    procedure declarePlayers();
    begin
      setLength(players, 1);
      with players[0] do
      begin
        loginName := 'username';
        password := 'password';
        isActive := true;
        isMember := true;
      end
      currentPlayer := 0;
    end;
    procedure compass();
    var
      compassBox: TBox;
    begin
    compassBox := intToBox(590, 25, 602, 42);
      wait(randomRange(500, 730));
      mouseBox(compassBox, MOUSE_LEFT);
      mainScreen.setAngle(MS_ANGLE_HIGH);
    end;
    procedure Bank(); //Opens bank and chooses preset
    var
      x, y: integer;
    begin
      if mainscreen.findObject(x, y, 4216935, 11, ['agnus'], MOUSE_RIGHT) then
      begin
        chooseOption.select(['Bank']);
        wait(RandomRange(1500,2000));
        bankScreen.clickButton(BANK_BUTTON_PRESET_1);
      end;
    
    end;
    procedure WalkTo(); //Walks to shop
    begin
      mouse(647, 59, MOUSE_MOVE);
      wait(RandomRange(300, 500));
      fastClick(MOUSE_Left);
      wait(4000);
      minimap.waitPlayerMoving()
    end;
    procedure Buy(); //Buys the hides
    var
      x, y: integer;
       YakHides: TBox;
    begin
      if mainscreen.findObject(x, y, 1785413, 11, ['anligg'], MOUSE_RIGHT) then
      begin
        wait(1200);
        chooseOption.select(['pen-s']);
        wait(RandomRange(500,920));
        YakHides := intToBox(48, 91, 86, 135);
        mousebox(YakHides, MOUSE_RIGHT);
        chooseOption.select(['All']);
       end;
    
    
    end;
    procedure Return(); //Returns to bank
    begin
      mouse(734, 154, MOUSE_MOVE);
      wait(RandomRange(300, 500));
      fastClick(MOUSE_LEFT);
      wait(4000);
      minimap.waitPlayerMoving()
    end;
    procedure WaitRandom(MsecToWait: Integer); //procedure that makes random wait time
      begin
        Wait(MsecToWait + Random(Round(MsecToWait / 5.0)));
      end;
    
    // main loop
    begin
      clearDebug();               // Clear the debug box
      smartEnableDrawing := true; // So we can draw on SMART
      setupSRL();                   // Load the SRL include files
      declarePlayers();            // Set up your username/pass
    
      SPS.setup('YAK', RUNESCAPE_OTHER);
    
      if not isLoggedIn() then             // If player isn't logged in then
      begin
        players[currentPlayer].login();   // Log them in
        exitTreasure();            // Exit treasure hunter
        minimap.setAngle(MM_DIRECTION_NORTH);  // Make compass north and angle high
        mainScreen.setAngle(MS_ANGLE_HIGH);
      end;
      repeat
        compass();
        WaitRandom(1000);
        Bank();
        WaitRandom(500);
        WalkTo();
        Buy();
        Return();
        WaitRandom(1000);
      until False;
    
    end.
    Last edited by Trash; 12-19-2015 at 03:46 AM.

  2. #2
    Join Date
    Jan 2012
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Neat idea!

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
  •