SCAR Code:
{-8-----8---8----8--8---88888----88----8-----8-----8-----}
{-8-----8---8----8-8----8--------88----88----8--8888888--}
{-8-----8---8----88-----8-------8--8---8-8---8-----8-----}
{--8---8----8----88-----8-------8888---8--8--8-----8-----}
{---8-8-----8----8--8---8------8----8--8---8-8-----8-----}
{----8------8----8---8--8------8----8--8----88-----8-----}
{Simple Power Lobster Fisher
Just setup and hit start
Start on the Decking, Make compass North
Remember Its A Power Fisher So It Drops All It Caches!
Post Problems Or Errors!!
Happy autoing :}
Program SimpleLobsterPowerFisher;
{.include SRL/SRL/Misc/Smart.scar}
{.include SRL/SRL.Scar}
var
potDTM: integer;
Lob: integer;
x,y: integer;
Droped: integer;
Found: integer;
Logedin: integer;
const
//SMART Setup Begin
WorldN = 'au3'; //Refer to includes/SRL/SCSS/worlds.ini for "Prefix" of wanted world
HighQuality = false; //true = high quality; false = low quality
SignedApplet = true; //true = signed applet; false = unsigned applet
YourSRLId = ''; //SRL ID if using SRL Stats
YourSRLPassword = ''; //SRL Password if using SRL Stats
//SMART END Setup
Procedure DeclarePlayers;
begin
HowManyPlayers :=1; // Set Number of Players here.
NumberOfPlayers(HowManyPlayers); // Sets the Players Array Length;
CurrentPlayer:=0; // CurrentPlayer = Array Index
Players[0].Name :='';//USERNAME
Players[0].Pass :='';//PASS
Players[0].Nick :='';//3 LETTERS OF YOUR USERNAME NOT THE FIRST ONE
Players[0].Active:=True;//PLAYER IN USE TURE OR FALSE
end;
procedure LoadDTM;
begin
Lob := DTMFromString('78DA631466606000612450E12ACFC003A4198' +
'1F83F10304A01196CA86A122D24C1342394CF280F243851D54C0B' +
'534355230A24E451D534792BA2AA61051212A86ADA7C9550D5486' +
'1AAA971974755C305240451D544188BA1A8010005620B29');
end;
function LostCage: boolean;
begin
potDTM := DTMFromString('78DA637463626078C180029AABAA18F881342' +
'310FF07024613A09A270C6880118904D2664035EF08A87105AAF9' +
'44404D0050CD33026AFC806A6EE35703005D770CA0');
if not(FindDTM(potDTM, x, y, 549, 199, 609, 259))then
begin
writeln('pot is lost');
Result := True;
FreeDTM(potDTM);
end;
end;
Procedure Highest;
begin
Wait(1000);
Mouse(89, 494, 1, 2, True);
SetAngle(True);
MakeCompass('S');
end;
procedure Potf;
begin
if InChat('You need a') then
begin
if (LostCage) then
begin
if (FindObj(x, y, 'bst', 804197, 3)) then
begin
Mouse (x, y, 4, 4, true);
Found := Found + 1;
ReportVars[2] := ReportVars[1] + 1;
SRLRandomsReport;
SendSRLReport;
writeln('found pot =]');
end else
begin
writeln('cant find pot, please report this error');
LogOut;
end;
end;
end;
end;
procedure Ifin;
begin
if InChat('You catch a lobster.') then
begin
FTWait(45);
end;
end;
procedure Sig;
begin
Writeln('-8-----8---8----8--8---88888----88----8-----8-----8-----');
Wait(100);
Writeln('-8-----8---8----8-8----8--------88----88----8--8888888--');
Wait(100);
Writeln('-8-----8---8----88-----8-------8--8---8-8---8-----8-----');
Wait(100);
Writeln('--8---8----8----88-----8-------8888---8--8--8-----8-----');
Wait(100);
Writeln('---8-8-----8----8--8---8------8----8--8---8-8-----8-----');
Wait(100);
Writeln('----8------8----8---8--8------8----8--8----88-----8-----');
Wait(100);
Writeln('YOU ARE USING SIMPLE POWER FISHER BY VIKRANT60. ');
end;
procedure Bag;
begin
Gametab(4);
end;
procedure SmartIt;
begin
SmartSetUp(WorldN,false,true);
while not SmartReady do wait(100);
SetTargetDC(SmartGetDC);
end;
Procedure RandomlyChosenSkill;
Begin
Case Random(34) Of
0: HoverSkill('Attack', False);
1: HoverSkill('Strength', False);
2: HoverSkill('Defence', False);
3: HoverSkill('Range', False);
4: HoverSkill('Prayer', False);
5: HoverSkill('Magic', False);
6: HoverSkill('Runecraft', False);
7: HoverSkill('Hitpoints', False);
8: HoverSkill('Agility', False);
9: HoverSkill('Herblore', False);
10: HoverSkill('Fishing', False);
End;
End;
Procedure Randoms;
Begin
FindNormalRandoms;
FindLamp('Woodcutting');
If(FindFight)Then
Begin
MakeCompass('N');
RunTo('S', True);
Wait(7000 +Random(3000));
End;
End;
procedure Antiban;
begin
case Random(64) of
0: HoverSkill('FireMaking', False);
1: HoverSkill('Range', false);
2:
begin
GameTab(1 + Random(12));
wait(800 + random(500));
GameTab(4)
end;
3: BoredHuman;
4: DoEmote(400 + Random(90));
5:
begin
GameTab(8)
Wait(300 + random(300));
if FindColor(x, y, 65535, 552, 231, 716, 287) then
begin
MMouse(x, y,1,4);
Wait(200+random(300));
Mouse(x, y,1,1,true);
Wait(300+random(350));
Case Random(5) of
0: Typesend('Hey');
1: Typesend('Hows it going?, and me im going gwd');
2: Typesend('I hate fishing lol.');
3: Typesend('Im sooooo bored :(');
4: Typesend('I might bh later:S');
end;
end;
end;
6:HoverSkill('Fishing', false);
7:
begin
Writeln('Trying out new CC anti ban');
GameTab(10)
Wait(200 + random(300));
Mouse(567,446,1,1,true);
Wait(100+random(350));
Case Random(4) of
0: Typesend('zezima');
1: Typesend('Samc loser');
2: Typesend('Youbleedred');
3: Typesend('skychi');
end;
end else
begin
Wait(200 + random(300));
if FindColor(x, y, 6619135, 551, 269, 717, 389) then
begin
MMouse(573, 454,1,14);
Wait(100+random(350));
Mouse(x, y,1,1,true);
Wait(100+random(350));
GameTab(4);
end;
end;
end;
end;
procedure FindFishies;
begin
repeat
if not Loggedin then
begin
ReportVars[3] := ReportVars[1] + 1;
Logedin := Logedin + 1;
SRLRandomsReport;
SendSRLReport;
LoginPlayer;
end;
if(FindObjCustom(x, y, ['Cag'], [15252893, 15053710, 15257272], 13)) then
begin
MMouse(x,y,1,2);
FTWait(1);
Mouse(x,y,1,1, false);
FTWait(4);
ChooseOption('Cage');
FTWait(56);
Ifin;
Potf;
Randoms;
Antiban;
Potf;
Ifin;
Writeln('Found cage spot.');
end else
Randoms;
Case Random(174) Of
0:MakeCompass('E');
1:If FindSymbol(x, y, 'fishing spot') Then
begin
Mouse(x, y, 0, 0, True);
end;
2:MakeCompass('W');
3:if FindColorSpiralTolerance(x,y, 1260622,2,8,514,337, 13) then
begin
Mouse(x, y, 0, 0, True);
end;
4:MakeCompass('N');
5:if Findcolor(x, y,795694, 4, 5, 513, 338) then
begin
Randoms;
Mouse(x, y, 0, 0, True);
end;
6:If FindSymbol(x, y, 'fishing spot') Then
begin
Mouse(x, y, 0, 0, True);
end;
7:MakeCompass('S');
8:If FindSymbol(x, y, 'fishing spot') Then
begin
Randoms;
Mouse(x, y, 0, 0, True);
end;
9:if FindColorSpiralTolerance(x,y, 16249319,2,8,514, 337, 13) then
begin
Randoms;
Mouse(x, y, 0, 0, True);
end;
end;
until( InvFull )
end;
procedure Report;
begin
WriteLn('[----------Simple Lobster Power Fisher----------]');
WriteLn('[-----------------ProgressReport----------------]');
WriteLn('[------Droped ' + IntToStr(Droped) + ' lobsters----------------------]');
ReportVars[0] := ReportVars[0] + 1;
WriteLn('[------Ran for ' + TimeRunning + ' -------]');
WriteLn('[-----------Found ' + IntToStr(Found) + ' --------------------------]');
WriteLn('[------Logedin ' + IntToStr(Logedin) + ' times- ------------------------]');
WriteLn('[----------Simple Lobster Power Fisher----------]');
Disguise('Droped '+ IntToStr(Droped) + ' Lobs');
SendSRLReport;
SRLRandomsReport;
end;
procedure DropL;
begin
Repeat
if FindDTM(Lob, x, y, 551, 207, 731, 463) then
begin
Mouse(x, y, 2, 2, false);
ChooseOption('rop');
Wait(100);
ReportVars[3] := ReportVars[1] + 1;
Droped := Droped + 1;
SRLRandomsReport;
SendSRLReport;
end;
until(not(FindDTM(Lob, x, y, 551, 207, 731, 463)));
end;
begin
SmartIt;
ClearDebug;
ActivateClient;
SetupSRL;
LoadDTM;
SRLId := YourSRLId;
SRLPassword:= YourSRLPassword;
ScriptId:= '827';
DeclarePlayers;
LoginPlayer;
Wait(1000);
Highest;
Sig;
repeat
Bag;
FindFishies;
Bag;
Randoms;
DropL;
Report;
until(false);
end.