It doesn't even need to fish everything, just power fish trout/salmon and check for randoms and anti ban <.<
and yes, I did try to make this before I flat out requested the script, I even got help from 2 experienced scripters.
SCAR Code:
{I "used" Wizzups? whirlpool feature from his edgeville fisher
but I don't know if it even works cuz my script won't compile!!}
{Fixed by NaumanAkhlaQ}
program PowerFisher;
{.include srl/srl/misc/smart.scar}
{.include srl/srl.scar}
{.include srl/srl/skill/fishing.scar}
const
fishspot1= 15191480;
fishspot2= 14858129;
salmon= 5990048;
trout= 10066341;
var x, y, Tries: integer;
procedure declarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := ''; //username
Players[0].Pass := ''; //password
Players[0].Nick := ''; //3-4 letters from your username
Players[0].Active := True;
end;
procedure AntiBan;
begin
if not LoggedIn then Exit;
case Random(30) of
1: RandomRClick;
2: HoverSkill('Defense', False);
3: BoredHuman;
4: AlmostLogout;
end;
end;
Function FindWhirlPool(x, y: integer): Boolean; forward;
procedure AntiRandoms;
begin
If(FindFight)Then
RunAway('N', True, 1, 15000);
FindNormalRandoms;
FindLamp('Defense');
If FindWhirlPool(x, y) Then
Begin
Mouse(648, 84, 4, 4, True);
Wait(100);
WriteLn('Whirlpool found.');
Inc(Whirlpools);
End;
end;
Function FindWhirlPool(x, y: integer): Boolean;
Var
FishPoints: TPointArray;
WhirlPoolAcc: Extended;
Begin
If Not LoggedIn Then Exit;
ColorToleranceSpeed(2);
FindColorsSpiralTolerance(x, y, FishPoints, 13947343, x - 20, y - 20, x + 20, y + 20, 40)
If GetArrayLength(FishPoints) > Round(230 * WhirlPoolAcc) Then
Begin
WhirlPools := Whirlpools + 1;
WriteLn(IntToStr(Round(GetArrayLength(FishPoints) / 1600))+ '% Change');
Result := True;
End;
ColorToleranceSpeed(1);
End;
procedure LureThatFish;
begin
if not LoggedIn then
Exit;
if (not (FindObjCustom(x, y, ['Lur', 'ure'], [FishSpot1, FishSpot2], 7))) then
Wait(100+random(75));
Tries := Tries +1;
if(Tries = 20)then
begin
Logout;
Exit;
end else
if FindObjCustom(x, y, ['Lur', 'ure'], [FishSpot1, FishSpot2], 7) then
repeat
case (Random(1)) of
1: begin //Needs Begin and End Here
Mouse(x, y, 4, 4, false);
ChooseOption('ure');
FindNormalRandoms;
Wait(6000+(random(3000)))
end;
end;
until (InvFull)
end;
procedure DropFish; // Drop To doesnt work any more
var i: integer;
begin
for i := 3 to 28 do //FindObjCustom?! WTF man, Doesnt work for inventory.
DropItem(i);
FindNormalRandoms;
end;
begin
SetupSRL;
Wait(1000);
declarePlayers;
LoginPlayer;
repeat
LureThatFish;
DropFish;
AntiBan;
AntiRandoms;
until (False);
end.