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.