Well I just started like this week and have read I'm guessing 10-15 tutorials. So I wanted to start making a net fisher script. I just want your opinions on what I'm doing right or wrong. This script isn't even close to done but I want to see how I'm doing. Ty
P.S. I'm guessing I'm not doing at all well. Even though I know most of the basics I'm having a lot of trouble putting it together into a working script.
SCAR Code:
program AutoFisher;
{.include SRL/SRL.scar}
const
FishingSpotColor = 13937293; //Set the color of the specs on a fishing spot.
LoadsPerPlayer = 15;
procedure DeclarePlayers;
begin
HowManyPlayers :=1; // Must match number of players in the array
NumberOfPlayers(HowManyPlayers);
Players[0].Name := 'wsxdrfv50';
Players[0].Pass := 'werdxcv';
Players[0].Nick := 'xdr';
Players[0].Active := True;
end;
procedure Drop;
var Logs,x,y:integer;
begin
Logs := DTMFromString('78DA637462626078C28002AAE3AC18FE03694' +
'620FE0F048C1E40353719D000231209A4AD806AEE1050630C54F3' +
'9A809A004CF760A87101AA7947408D0D50CD47FC6A00AFAD0E3F');
if(FindDTM(Logs,x,y,MIX1,MIY1,MIX2,MIY2))then
begin
Mouse(x,y,5,5,False);
if(ClickOption('rop',2))then
begin
wait(1000+random(500));
Writeln('Dropped');
end
end
end;
procedure Fish;
var x,y,ChatChars:integer;
begin
repeat
if not LoggedIn then exit;
if FindObjCustom(x,y,['Net,t is,ish'],[FishingSpotColor],10) then
begin
Mouse(x,y,5,5,true);
end;
until GetTextAtEx(96, 387, 0, ChatChars, False, False, 0, 0, -1, 20, True, tr_NormalChars)
= 'You cast out your net...';
end;
begin
SetupSRL;
DeclarePlayers
ActivateClient;
if Loggedin then Logout;
LoginPlayer;
repeat
if InvFull then
begin
Drop;
Inc(Players[CurrentPlayer].Banked);
if Players[CurrentPlayer].Banked mod LoadsPerPlayer = 0 then
begin
NextPlayer(True);
end;
end;
if not Loggedin then NextPlayer(False);
until false
end.
Well no errors but won't fish. Any suggestions?
Oh also attached it.