SRL Archive - General Botting Help

Simple fishing bot


sirgriffen69

2014-04-07 22:43:13

Alright, I need help with making of a simple fishing bot.
I have this done so far. The rs has a ::bank command so I can bank anywhere. And this script works for the most part except for two things. The ::bank command can't be typed in if I level up in fishing and the chatbox has the congratz message in it. As well the issue of me having the "poop" function to wait 85 seconds in order to fill up my inventory with fish because I simply cannot seem to make it so that it will click the fishing spot 1 time, that it won't click it again until the bank procedure has been executed. I would like for it to click the fishing spot, possibly even without me having to use the coordinates, because there are multiple fishing spots around it and the camera, as you know, moves around a bit. So it's not flawless in the sense that the camera can move and ruin the coordinates. It as well cannot wait until the inv is filled with fish to bank the fish and then click the spot again without that 85 second wait function.
Please help if you can, I know I'm probably asking a lot from the community.

program fish;


procedure fish;
begin
movemouse(252, 208);
wait(250);
clickmouse(252, 208, mouse_Left);
end;

procedure poop;

var
numberOfWaits: Integer;
begin // Although 'repeat' acts like a 'begin', 'begin' is still needed here to signal the start of the procedure
repeat
Wait(85000);
Inc(numberOfWaits); // The Inc() command simply increases the var numberOfWaits by 1
WriteLn('We have pooped ' + IntToStr(numberOfWaits) + ' times');
until(numberOfWaits = 1);
end;

procedure bank;
begin
SendKeys('/bank', 100, 1000); //lobster 929387
KeyDown(13); //Pressing down enter //shark 6908534
KeyUp(13); //Unpressing enter //manta 6634809
wait(1000); //monk 2438743
movemouse(392, 302); // bank all //rock 3558454
wait(1000);
ClickMouse(392, 302, mouse_Left);
wait(1000);
movemouse(100, 100);
wait(1000);
clickmouse(100, 100, mouse_Left);
wait(1000);
movemouse(488, 29); //x in bank
wait(1000);
ClickMouse(488, 29, mouse_Left);
end;



begin
repeat
fish;
poop;
fish;
bank;
until(IsKeyDown(112) = true);
end.