SCAR Code:
program LobsterFisher;
{.include SRL/SRL.scar}
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := 'username';
Players[0].Pass := 'password';
Players[0].Nick := 'sern';
Players[0].Active :=True;
end;
procedure FakeTyper;
begin
case Random(21) of
0: SendKeysWait('hi...', 150, 75);
1: SendKeysWait('yo...', 150, 75);
2: SendKeysWait('sup...', 150, 75);
3: SendKeysWait('plant..', 150, 75);
4: SendKeysWait('whats ', 150, 75);
5: SendKeysWait('bore..', 150, 75);
6: SendKeysWait('pal...', 150, 75);
7: SendKeysWait('man i', 150, 75);
8: SendKeysWait('lol...', 150, 75);
9: SendKeysWait('soo...', 150, 75);
10: SendKeysWait('weathr', 150, 75);
11: SendKeysWait('well..', 150, 75);
12: SendKeysWait('ths is', 150, 75);
13: SendKeysWait('ugh..', 150, 75);
14: SendKeysWait('i cbf', 150, 75);
15: SendKeysWait('fish l...', 150, 75);
16: SendKeysWait('smaie...', 150, 75);
17: SendKeysWait('harum...', 150, 75);
18: SendKeysWait('werd...', 150, 75);
19: SendKeysWait('choco...', 150, 75);
20: SendKeysWait('lobbi...', 150, 75);
end;
Wait(Random(250));
SendKeysWait(#8 + #8 + #8 + #8 + #8 + #8, 150, 75);
end;
procedure AntiBan;
begin
case random(50) of
0: RandomRClick;
1: BoredHuman;
2: HoverSkill('Fishing', False);
3: AlmostLogout;
4: FakeTyper;
end;
Wait(5000+random(2000));
end;
procedure SolveRandoms;
begin
FindTalk;
FindNormalRandoms;
if (FindFight = true) then RunAway ('N', True, 1, 5000+random(1000));
end;
Procedure FishLobs;
var
X, Y : integer;
begin
repeat
if (FindObjCustom(X, Y, ['Cage','Ca','ge','Cag','ge'], [14663316,9794918,9203296], 10)) then
begin
Mmouse(X, Y, 0, 0);
Wait(500+random(300));
Mouse(X, Y, 0, 0, True);
Wait(1000+random(200));
SolveRandoms;
AntiBan;
end;
until (InvFull);
end;
procedure Drop;
begin
if (InvFull) then
WriteLn('Inventory full! Dropping') ;
DropTo (2,28);
WriteLn('Dropped sucessfully');
end;
begin
SetupSRL;
ClearDebug;
Mouse(650,185,random(15),random(15),True);
//NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
repeat
SolveRandoms;
FishLobs;
if (InvFull) then
begin
Wait(500+random(500));
Drop;
SolveRandoms
end;
until (IsFKeyDown(12));
end.