SRL Archive - RS3 Outdated / Broken Scripts

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.

{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.

:D next time don't put a ? after you title now it is like you are asking for it

I am :D

The one I posted doesn't work properly haha. I was just showing I've attempted it, and a scripter can even use that as a base. I just didn't want to come off like an absolute leecher.

From: igotgrapes
I am :D

The one I posted doesn't work properly haha. I was just showing I've attempted it, and a scripter can even use that as a base. I just didn't want to come off like an absolute leecher.

:shame:, i will try something maybe give the white color of the fishing place?
edit:
next time i read your post lol :p :shame:
edit2: don't use that many tries at find object find object repeats itself much to ;)
edit3: what is not working?

It loads up, and then it doesn't find the fishing spot and it runs from whirlpools when there are none. I've actually been…. playing for the past 2 hours haha. It's weird, i've learned to be more efficient by watching scripts. But yeah, it never finds the spot, and when it does it won't click it to lure.

 if (not (FindObjCustom(x, y, ['Lur', 'ure'], [FishSpot1, FishSpot2], 7))) then

haha dude it only FINDS IT DOES NOT CLICK IT ;) That X and Y are there because there the Coords of the found thing that are correct with the 'properties'(uptext lur or ure and the colors)

then it will be saved in

 X,Y 

then you have to call them again to click ;)

Mouse(X, Y, 2, 2,True);

From: Hermpie

 if (not (FindObjCustom(x, y, ['Lur', 'ure'], [FishSpot1, FishSpot2], 7))) then

haha dude it only FINDS IT DOES NOT CLICK IT ;) That X and Y are there because there the Coords of the found thing that are correct with the 'properties'(uptext lur or ure and the colors)

then it will be saved in

 X,Y 

then you have to call them again to click ;)

Mouse(X, Y, 2, 2,True);

Currently testing this.

well I can't get it to work, could someone fool around with it and try to get it working properly please.

What is the problem?? Did it finally click it after you added Mouse(x, y, 2, 2)?

No it just logs in and sits there. I honestly thought that with zero scripting knowledge and a few tuts I could make a power fisher lol. I'm bout to go out tho so maybe someone can do something with it, if not it's cool tool.

<.< anyone please?

i will giive it a try

~shut

try this

program PowerFisher;
{.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('Fishing', False);
          3: BoredHuman;
          4: AlmostLogout;
     end;
end;

procedure AntiRandoms;
begin
  If(FindFight)Then
  RunAway('N', True, 1, 15000);
  FindNormalRandoms;
  FindLamp('Defense');
  HandleWhirlPool;
end;



procedure LureThatFish;
begin
  if not LoggedIn then
  Exit;
  Tries:= 0;
  repeat
  if (not (FindObjCustom(x, y, ['Lur', 'ure'], [FishSpot1, FishSpot2], 30))) 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], 30) then
  repeat
  begin                                 
    Mouse(x, y, 4, 4, false);
    ChooseOption('ure');
    FindNormalRandoms;
    Wait(10000+(random(5000)));
    antiban;
    Wait(10000+(random(5000)));
  end;
  until (InvFull);
  until (InvFull);
end;

procedure DropFish;
var i: integer;
begin
for i := 3 to 28 do    
  DropItem(i);
  FindNormalRandoms;
end;

begin
  SetupSRL;
  Wait(1000);
  declarePlayers;
  LoginPlayer;
  repeat
   LureThatFish;
   DropFish;
   AntiBan;
   AntiRandoms;
  until (False);
end.

~shut

nop=/ it jus won't work for me.

Findobj is currently not working
try something else ;)

lol i've fished legitly to 65 <.<