Simba Code:
Procedure WhileFishing;
begin
if not findnormalrandoms then
begin
wait(randomrange(2000,2500));
repeat
PBox := IntToBox(245, 130, 285, 195);
repeat
APShift := AveragePixelShift(PBox, 1, 2500);
Writeln('pixel shift A= ' + IntToStr(APShift));
if (APShift>=35) then
AntiBan;
until ((APShift<35) or (InvFull));
Writeln('pixelshift A done');
if (InvFull) then
begin
writeln('Inv is full');
SquellDepo;
break;
end else
begin
if (AveragePixelShift(PBox, 250, 2500)<550) then
begin
Writeln('PixelShift B done');
wait(randomrange(10,150));
if not startfishing then
break;
end;
end;
until(InvFull);
end else
begin
writeln('found random event');
Logout;
TerminateScript;
end;
end;