What do you mean? It should work fine.
Printable View
What do you mean? It should work fine.
Hi, I get this error, could anybody help me please I would appriciate it [Error] C:\Simba\Includes\SRL-OSR/SRL/misc/SmartParams.Simba(229:203): Invalid number of parameters at line 228
Compiling failed.
No it dont, it stills hops from spot to spot :(
It stills spamclick so it changes spots. Yes i have 1.1
How often does it click? mine clicks < one time every ten seconds. it should detect if fishing and not to click if so. You realize you cant constantly fish without clicking right?
change your fish procedure to something like below for better results.
it ensures that it will only look for new spot when your not fishing.
i cant test your script cos i dont play 07.
Simba Code:procedure Fish;
var
x, y, i: integer;
begin
if not(isfishing) then
begin
wait(500);
if (FindObjCustom(x, y, ['ure', 'ishin', 'ot'], [14597535, 15123609, 14794914, 14858129, 13216647, 14597268, 15123625, 14398100, 14729121], 3) ) then
begin
wait(600 + random(500));
mouse(x,y,1,1,1)
wait(5000 + random(100));
Repeat
if(InvFull) then
DropFish;
Until (InvCount=7);
end;
end;
end;
Thanks Man! Will test and update script with credit.
Script is awesome, but the bad thing is its spamming the pool like every 10 secs and it makes script change pools very often and makes it pretty easily detectable. If you could fix it somehow it would be good. : p
Lots of problems with this. It hops fishing spots constantly, I've had it drop my feathers twice now (I was babysitting, looked away for 3 minutes, came back to no feathers) Also it doesn't change from the one location (Fish icon on minimap) to the other when the spots are gone 90% of the time. Even babysitting seems useless; every time I look back I'm either tele'd by a random or have no feathers. And before you ask, yes my feathers are in the first slot. Appreciate the work you've put into this but it needs many fixes to be useable.
make a video of yourself doing that. your the only one to report dropping feathers.
I'll try to
pretty well written just doesnt move between fishing spots
No joke, there's a guy on RS with the same name as you mafia. I think you just sold me some flax.
Eh. It was a personal script tbh. Not fancy enough to release.
Lol no i have no in game name related to mafia miles.
I've been using this script for a few hours now. It does click the fishing spot more then it has to. But, it does switch to new fishing spots and drops the fish good. It would be great if it ran from combat. But overall better then any other fly fisher on here. So goodjob :)
this is so bad because he don't wait until full back ... he drops them when he gets 1 fish ....
I have edited this script slightly to my needs and have improved it somewhat, I think.
Drops items in inventory space 3-28, so you have space for one rod and feathers in the top left.
Also sets up the camera so that isfishing will find your pixelshift, and has a random chance of resetting the camera to that position to make sure nothing breaks.
Also draws a box where isfishing checks pixelshift so you can see if your camera is in the wrong position.
Simba Code:program Fisher1;
{$DEFINE SMART8}
{$I SRL-OSR/SRL.Simba}
{$I SRL-OSR/SRL/Misc/Debug.Simba}
{$I SRL-OSR/SRL/misc/SmartGraphics.Simba}
var x, y, i: integer;
const
AccountLogin = '';
AccountPass = '';
CharacterName = '';
version = '1.1'; //fish1drop1 Wont Drop Featers or Rod When Placed In
//the first 2 inventory spots.
//Declare your username and password
procedure DeclarePlayer;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := AccountLogin;
Players[0].Pass := AccountPass;
Players[0].Nick := CharacterName; //Important for antirandoms
Players[0].Active := True;
end;
Procedure SetupCamera;
begin
KeyDown(VK_UP);
wait(randomrange(1500, 2500));
KeyUp(VK_UP);
wait(randomrange(300, 500));
MakeCompass('E');
end;
Procedure AntiBan;
begin
//writeln('antiban debug!');
Case Random(130) Of
1: HoverSkill(skill_fishing, false);
2: Wait(2500 + random(4500));
3: PickUpMouse;
4: RandomRClick;
end;
end;
Procedure DebugShiftCount;
Var
PBox: TBox;
Begin
PBox := IntToBox(245, 130, 285, 195);
Writeln(IntToStr(AveragePixelShift(PBox, 250, 500)));
End;
Function isfishing: Boolean; //Average PixelShift from Flights TuT (THANKS FLIGHT!!)
var
PBox: TBox;
begin
PBox := IntToBox(230, 165, 290, 260);
SMART_DrawBox(intToBox(230, 165, 290, 260));
Writeln('Checking if we are fishing in this box.');
Result := (AveragePixelShift(PBox, 300, 600) > 100);
end;
Procedure DropFish;
var
i: Integer;
begin
Writeln('Inventory full! Dropping Fish!');
if(InvFull) then
for i := 3 to 28 do
begin
if ExistsItem(i) then
DropItem(i);
wait(50+random(50));
end;
end;
procedure Fish;
var
x, y, i: integer;
begin
Repeat
if not(isfishing) then
begin
wait(500);
if (FindObjCustom(x, y, ['ure', 'ishin', 'ot'], [14597535, 15123609, 14794914, 14858129, 13216647, 14597268, 15123625, 14398100, 14729121], 3) ) then
begin
wait(600 + random(500));
mouse(x,y,1,1,1)
wait(5000 + random(100));
end;
end
else Writeln('We are fishing!');
Until not(isfishing) or (InvFull)
if (InvFull) then
begin
DropAllExcept([1, 2]);
end;
end;
begin
SetupSRL;
activateclient;
DeclarePlayer;
LoginPlayer;
wait(500);
SetupCamera;
repeat
Antiban;
Fish;
begin
Case Random(50) Of
1: SetupCamera;
end;
end;
until(false);
end.