SRL Archive - RS3 Outdated / Broken Scripts

okay, havent scripted in ages so i started from scratch… I am going to do standards, maybe a better drop procedure (but then it only drops one type of fish), better anti-randoms and failsafes

program PowerFisher;
{.include SRL/SRL.scar}

const
fisharea1 = ;
fisharea2 = ;
fisharea3 = ;

var
antiban:integer;

{---------------------}

Function FindAndClick;
begin
if(FindColor(x,y,fisharea1,color,coords,coords,coords,coords))
or
if(FindColor(x,y,fisharea2,color,coords,coords,coords,coords))
or
if(FindColor(x,y,fisharea3,color,coords,coords,coords,coords))
then
MMouse(x,y,0,0);
else if
WriteLn('cant find the fishy place');
End;

{---------------------}

Function AntiBan;
begin
antiban:= Random(5);
 case antiban of
 1:GameTab(2)
 2:RotateEvery(7 +random(4))
 3:LeaveScreenEvery(5 + Random(5));
 4:HoverSkill('Fishing', False);
 5:DragItem(2, 1 + Random(16));
End;

{---------------------}

Procedure DeclarePlayers;
begin
    HowManyPlayers:=1;
    NumberOfPlayers(HowManyPlayers);
    CurrentPlayer := 0;

    Players[0].Name :='login_name';
    Players[0].Pass :='login_pass';
    Players[0].Nick :='4_letters_of_login_name';
    Players[0].Active :=True;
    
    Players[1].Name :='login_name';
    Players[1].Pass :='login_pass';
    Players[1].Nick :='4_letters_of_login_name';
    Players[1].Active :=True;
    
    Players[2].Name :='login_name';
    Players[2].Pass :='login_pass';
    Players[2].Nick :='4_letters_of_login_name';
    Players[2].Active :=True;
end;
 
{---------------------}
 
 Procedure Randoms;
 begin
 Findnormalrandoms;
 End;

{---------------------}

Function DropAll;
if(InvFull) then
DropTo(2,28);
End;

{---------------------}

 //Main loop
 Begin
 setupSRL;
 DeclarePlayers;
 repeat
 FindAndClick;
 Drop;
  repeat
  Randoms;
  AntiBan;
  Until(false)
 until(False)
 End.
 

I need testers and i am guessing the syntax errors from the colour var's are becuase there are no colours in it

Yea i got syntax errors
Line 5: [Error] (12648:13): Syntax error in script

"errors from the colour var's are becuase there are no colours in it"


Wow this is old, how detectable is it now?

Procedure Randoms;
begin
Findnormalrandoms;
End;

Why have you done this? All you need is FindNormalRandoms :p

Im not sure this script is good enough for Junior Section. Sorry :(

Try in 1st scripts?

EDIT: Oop. Just checked date. Still… What I said.

i was going to add some more randoms or somthing, cant remember :D