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.
Code: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.


Reply With Quote