SCAR Code:
program fisher;
{.include SRL\SRL.scar}
{.include SRL/SRL/skill/Fishing.scar}
var
fish, hx, hy, I : Integer;
Fishsp: array[1..2] of Integer;
//*****************Setup******************\\
const
waitTime=6000; // wait between swapping fishing places
bank=3983834; //bank symbol
fishsym=15558401; // fish symbol on mini get fish color (don't have to)
rock=4673609;// rock next to bank leave
procedure colors;
begin
Fishsp[1]:= 14536920;// fish spot color
end;
//***************End of Setup***************\\
Procedure fishy;
Begin
X:=MSCX;
Y:=MSCY;
I:=10
Repeat
If FindColorSpiral(x,y,Fishsp[1],MSCX+I,MSCY-I,MSCX+I,MSCY-I) Then
MMouse(x,y,4,4);
HandleWhirlPool;
I:=I+10
if istextat2(9,9,'Net',20)then
mouse(x,y,2,2,true)
wait(waitTime+random(300))
findnormalrandoms;
until(invfull)
if (invfull = true) then
fish := fish +1;
End;
procedure checkRandoms;
begin
findnormalrandoms;
end;
procedure attacked;
begin
If ( FindFight ) then
findcolorspiral(x,y,bank,3,3,515,336)
mmouse(x,y,3,3)
wait(500)
mouse(x,y,2,2,true)
wait(2600)
findcolorspiral(x,y,fishsym,3,3,515,336)
mmouse(x,y,3,3)
wait(500+(25))
mouse(x,y,2,2,true)
end;
procedure ProgressReport;
begin
WriteLn(' ')
WriteLn('Progress Report for a Fisher, Banker');
WriteLn(' ');
SRLRandomsReport;
WriteLn('Fished and banked ' + inttostr(fish) + ' loads.');
writeln('Worked for '+ TimeRunning + ' this session');
WriteLn(' ');
WriteLn('*^^Made by Reece^^*')
end;
Procedure DropAllTHings;
var
i,e : integer;
begin
while (I < 6) do
begin
if not loggedin then break;
if (I = 5) and (E < 8) then
begin
I := 0;
E := E + 1;
end;
if FindColor(x,y,65536,(570 + 39 * I), (214 + 35 * E), (609 + 39 * I), (249 + 35 * E)) then
begin
Mouse(x, y, 10, 10, False);
ChooseOption(x,y,'Drop');
end;
if (I = 4) and (E = 7) then break;
I := I + 1;
end;
end;
procedure AntiBanMe;
begin
Case random(10) of
1: PickUpMouse;
3: begin
HoverSkill('fishing', false);
GameTab(4);
end;
4: RandomRClick;
5: begin
GameTab(random(7+1));
wait(4000+random(3000));
GameTab(4);
end;
6: MMouse(x+random(500), y+random(500), 10, 10);
7: MMouse(x+random(500), y+random(500), 10, 10);
8: MMouse(x+random(500), y+random(500), 10, 10);
9: MMouse(x+random(500), y+random(500), 10, 10);
10: MMouse(x+random(500), y+random(500), 10, 10);
end;
end;
begin
SetupSRL;
SetupSRLFishing;
repeat
checkRandoms;
attacked;
fishy;
attacked;
AntiBanMe;
checkRandoms;
DropAllTHings;
attacked;
AntiBanMe;
checkRandoms;
ProgressReport;
until(false)
end.