SCAR Code:
program Shrimper;
{.Include SRL\SRL\misc\Smart.scar}
{.Include SRL\SRL.scar}
{.Include SRL\SRL\reflection\reflection.scar}
{.Include SRL\SRL\skill\Fishing.scar}
var mx, my: Integer;
procedure SetupSMART;
begin
Smart_Members := False;
Smart_Server := RandomWorld(false, false);
Smart_Signed := False;
Smart_SuperDetail := False;
end;
procedure DeclarePlayer;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active := true;
end;
procedure ToFish;
var mx, my: Integer;
begin
if (FindSymbol(mx, my, 'fish')) then
begin
FindNormalRandoms;
Mouse(mx, my, 0, 0, true);
end else
begin
while not(FindSymbol(mx, my, 'fish')) do
begin
FindNormalRandoms;
MakeCompass('n');
MouseBox(585, 100, 619, 127, 1);
FFlag(20);
end;
FindNormalRandoms;
Mouse(mx, my, 0, 0, true);
end;
end;
procedure ToBank;
var mx, my: Integer;
begin
if (FindSymbol(mx, my, 'bank')) then
begin
FindNormalRandoms;
Mouse(mx, my, 0, 0, true);
end else
begin
while not(FindSymbol(mx, my, 'bank')) do
begin
FindNormalRandoms;
MakeCompass('n');
MouseBox(612, 36, 651, 15, 1);
FFlag(20);
end;
FindNormalRandoms;
Mouse(mx, my, 0, 0, true);
end;
end;
procedure FindFish;
var mx, my: Integer;
begin
if (FindFishSpot(mx, my, 'net')) then
begin
if not(FindWhirlpoolMS) then
begin
Mouse(mx, my, 0, 0, true);
FFlag(10);
end else
begin
HandleWhirlPool;
Mouse(mx, my, 0, 0, true);
FFlag(10);
end;
end;
end;
procedure AntiBan;
begin
case RandomRange(1, 50) of
1: BoredHuman;
2: HoverSkill('fishing', false);
3: RandomMovement;
4: GameTab(RandomRange(1, 15));
5: Sleep(RandomRange(4000, 10000));
end;
end;
function IsFishing: Boolean;
begin
if (GetAnimation > 0) then
begin
Result := true;
end else
begin
Result := false;
end;
end;
begin
SetupSRL;
SetupSMART;
srl_LoadBitmapRange(88, 89);
DeclarePlayer;
LoginPlayer;
ToFish;
FFlag(5);
FindFish;
repeat
repeat
FindNormalRandoms;
if (InvFull) then
begin
ToBank;
FFlag(3);
OpenBankFast('draynor');
while (FindBitmapTolerance(bmp_Food_Raw_Shrimps, mx, my, 3) or (FindBitmapTolerance(bmp_Food_Raw_Anchovies, mx, my, 3))) do
begin
Sleep(RandomRange(300, 500));
Mouse(mx, my, 5, 5, false);
Sleep(RandomRange(100, 200));
ChooseOption('ll');
end;
ToFish;
Sleep(RandomRange(1000, 2500));
AntiBan;
Sleep(RandomRange(1000, 2500));
FindFish;
end;
AntiBan;
until not(IsFishing);
ToFish;
FFlag(5);
FindFish;
until false;
end.