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