SCAR Code:
function Fish: Boolean;
var
FMark, F: Integer;
A, Found, LoopRandomLO: Boolean;
begin
repeat
if(FindSymbol(x, y, 'fish'))then
begin
Mouse(x, y, 3, 3, True);
FFlag(0);
repeat
for F := 1 to 3 do
begin
case F of
1: A := FindColorTolerance(x, y, Fc[F], MSX1, MSY1, MSX2, MSY2, 10);
2: A := FindColorTolerance(x, y, Fc[F], MSX1, MSY1, MSX2, MSY2, 10);
3: A := FindColorTolerance(x, y, Fc[F], MSX1, MSY1, MSX2, MSY2, 10);
end;
Wait(100 + Random(25));
end;
if (A) then
begin
MMouse(x, y, 2, 2);
if (IsUpText('Net')) then
begin
Found := True;
try
Fc[F] := GetColor(x, y);
except
Writeln('Lol, runtime error would´ve come if we´d update color');
Writeln('Well, theres nothing wrong with our colors since we could');
Writeln('Find the fishing spot :)');
end;
Click(True);
MarkTime(FMark);
end;
end;
if(RandomLoggedOut)then
begin
Writeln('*Sigh* Logged out due to a random');
NextPlayer(False);
LoadISM;
SendInterScarMessage(ISM[ISMno], 'Break');
ISMno := ISMno + 1;
LoopRandomLO := True;
end;
if(not(LoggedIn)) and (not(RandomLoggedOut)) then
begin
Writeln('We are logged out. Not due to a random.');
Writeln('Player stays active, but nextplayer comes.');
NextPlayer(False);
LoadISM;
SendInterScarMessage(ISM[ISMno], 'Break');
ISMno := ISMno + 1;
end;
until (Found) or(LoopRandomLO) or (not(LoggedIn));
end;
while (TimeFromMark(FMark) < 20000) do
begin
try
NontiBan;
Wait(100 + Random(25));
FasterRandoms;
Wait(100 + Random(25));
HandleWhirlPool;
Wait(100 + Random(25));
if(FindFight)then
begin
RunAwayDirection('w');
Wait(8500 + Random(250));
RunBack;
end;
if(not(FindDeformed(x, y, SmallNet, MIX1, MIY1, MIX2, MIY2)))
or(FindNpcChatText('You need a net')) then
begin
FindNet(x, y);
MMouse(x, y, 1, 1);
if(IsUpText('Small'))then
begin
Click(True);
end else
begin
MMouse(x, y, 0, 0);
if(IsUpText('Small'))then
begin
Click(True);
end else
begin
Writeln('Could not find your fishing equipment, changing player');
NextPlayer(False);
LoadISM;
SendInterScarMessage(ISM[ISMno], 'Break');
ISMno := ISMno + 1;
end;
end;
end;
except
Writeln('There was some crap in my Antiban and antirandoms');
Writeln('Problem handled with Try - Except. ');
end;
end;
GameTab(4);
if(InvCount = 27) then
begin
Result := True;
end;
until(not(LoggedIn)) or (Result);
end;