SCAR Code:
program AlKharidShrimpOwnage;
{.include SRL/SRL.scar}
{.include SRL/SRL/skill/fishing.scar}
{.include SRL\SRL\Misc\Trade.scar}
// llllllllll\ llllllllllllllll ----\ /--\ /----/
// llllllllll/ l l \ \ / /\ \ / /
// l l llllL llllllll \ \/ / \ \/ /
// l l l l \ / \ /
// l llllll\ l l \--/ \---/
// l llllll/ l l
// lll l l l
// llllllll llllll
// F T W
Const
NumberOfUsers = 1;//How Many Players Are You Using.
StartPlayer = 0;// What Player To Start Remember Theres A Player 0 Before 1.
FishAgain = 5000;//Time To Fish Again.
FishSpot1 = 11832699;//Leave.
FishSpot2 = 15978672;//Leave.
RunDir = ('E');//Run direction.
BankSymbol = 5494240;//Set Mannualy For Better Results.
QuestSymbol = 15701627;//A Sort Of FailSafe Set For Better Results.
LoadTime = 300000;//How long for each load to take currently at 300 seconds.
Procedure DeclarePlayers;
//If Not Using Any Left Over Players Delete There Forms.
Begin
HowManyPlayers:= NumberOfUsers;
NumberOfPlayers( HowManyPlayers );
CurrentPlayer := StartPlayer;
Players[0].Name :='UserName';
Players[0].Pass :='Pass';
Players[0].Nick :='3 Letters Of UserName';
Players[0].Active:=True;
Players[1].Name :='UserName';
Players[1].Pass :='Pass';
Players[1].Nick :='3 Letters Of UserName';
Players[1].Active:=True;
Players[2].Name :='UserName';
Players[2].Pass :='Pass';
Players[2].Nick :='3 Letters Of UserName';
Players[2].Active:=True;
Players[3].Name :='UserName';
Players[3].Pass :='Pass';
Players[3].Nick :='3 Letters Of UserName';
Players[3].Active:=True;
end;
Procedure Login;
begin
wait(10+random(20))
declareplayers;
wait(10+random(20))
LoginPlayer;
wait(10+random(20))
end;
Procedure Fish;
Var
c :Integer;
Begin
Repeat
If
(findColorSpiral(x,y,FishSpot1,2,2,418,304)) Or
(findColorSpiral(x,y,FishSpot2,2,2,418,304)) Then
Begin
MMouse(x,y,3,3);
wait(100+random(100));
End;
c:= c + 1
Until(IsUpText('Fish') Or (c > 15))
Mouse(x,y,2,2,True)
Wait(FishAgain + Random(500))
If(c > 15)Then
If(c > 15)Then
Begin
Writeln('Don''t find fishing spot...');
End;
End;
Procedure FindRandoms;
begin
Wait(10)
HandleWhirlPool;
findnormalrandoms;
if (not(loggedin)) then
NextPlayer(true);
end;
Function OtherRandoms: Boolean; // By WT-Fakawi.
Var
i: Integer;
Begin
For I := 1 To 11 Do
Begin
Case I Of
1: If FindDead Then
Result := True;
2: If FindMod Then
Result := True;
3: If FindMime Then
Result := True;
4: If FindMaze Then
Result := True;
5: If FindQuiz Then
Result := True;
6: If FindDemon Then
Result := True;
7: Begin
If NoGameTab Then
Begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
End;
End;
8 : If RC Then
Result := True;
9 : If FindFight Then
Begin
Result := True;
RunTo(RunDir, True);
End;
10: If FindTalk Then
Result := True;
11: If HandleTrade Then
Result := True;
End;
Wait(1);
End;
End;
function DoAntiBan: Boolean; //JADS Anitbannage :)
begin
AntiBan;
wait(50 + random(100));
BoredEvery(3 + random(3));
wait(100 + random(100))
RotateEvery(7 + random(4));
wait(750 + random(250));
LeaveScreenEvery(5 + random(7));
wait(500 + random(150));
end;
procedure Gap;
Begin
wait(LoadTime);
end;
Procedure ClickQuest;
Begin
If(FindSymbol(x, y, 'Quest'))Then
Mouse(x, y, 5, 5, True);
end;
Procedure ClickBank;
Begin
If(FindSymbol(x, y, 'Bank'))Then
Mouse(x, y, 5, 5, True);
end;
procedure RightClickBank;
var
x, y, fs, fs2: Integer;
begin
if not BankScreen then
repeat
if (FindObj3(x, y, 'Use Bank', 4481658, 10)) then
Mouse(x, y, 4, 4, False)
else
if (FindObj3(x, y, 'Use Bank', 2842230, 10)) then
Mouse(x, y, 4, 4, False)
else
if (FindObj3(x, y, 'Use Bank', 12611, 10)) then
Mouse(x, y, 4, 4, False);
Wait(250);
if (ClickOption('quickly', 1)) then
begin
Flag;
repeat
Wait(100);
fs := fs + 1;
until (BankScreen) or (fs >= 50);
end;
fs2 := fs2 + 1;
until (BankScreen) or (fs2 > 5);
end;
procedure DepositShrimp;
begin
if (BankScreen) then
Deposit(2, 28, 2);
end;
function ClickCross: Boolean;
var
CBBM, CBx, CBy: Integer;
begin
CBBM := BitmapFromString(4, 3, 'z78DA3330000243030CD2C' +
'CC4D4DC848008320900F6350DC1');
if not BankScreen then Exit;
if FindBitmapToleranceIn(CBBM, CBx, CBy, 450, 30, 500, 50, 50) then
begin
Mouse(CBx, CBy, 4, 4, True);
Result := True;
end;
FreeBitmap(CBBM);
end;
Procedure BackToFish;
Begin
If(FindSymbol(x, y, 'Quest'))Then
Mouse(x, y, 5, 5, True);
end;
Procedure QuestToFish;
Begin
If(FindSymbol(x, y, 'Fish'))Then
Mouse(x, y, 5, 5, True);
end;
Begin
SetupSRL;
Repeat
DeclarePlayers;
Fish;
FindRandoms;
OtherRandoms;
DoAntiBan;
Gap;
ClickQuest;
ClickBank;
RightClickBank;
DepositShrimp;
ClickCross;
BackToFish;
QuestToFish;
Until(False)
End.