
Originally Posted by
meanage
your not setting where the dtm is to x1 y1
SCAR Code:
procedure FindFishingSpots;
begin
FishingSpots:=DTMFromString('78DA63FCC4C0C070910105CC38F086410E483' +
'342F98C1F31D5E4B52C4255F399083520BB2E10A1E6127E3500EE' +
'831204')
begin
FindDTM(FishingSpots,x1,y1,MSX1,MSY1,MSX2,MSY2)
MMouse(x1,y1,1,1)
wait(1000+(200));
if(IsUpText('age'))then
begin
Mouse(x1,y1,1,1,false)
wait(1000)
popup('Cage');
end;
end;
//FishingSpots :=
//if (FindDTM(FishingSpots,x1,y1,)then
end;
Edit: Also add some failsafes or whatever, make it a bit more like if find dtm do this, if not click the fishing sybol, if it dont find fishing symbol try and work out where you are or make the player 'lost' and go to the next one or whatever
alright then ill take a look at that and see
ill work on the failsafes after i get this done
*priortize*
EDIT:*UGH* the cordinates are off or something... i dunno this is harder than i thought...
im going to work on this later since i've spent a good 3 hours trying to get it working...
here's an early version of my script:
SCAR Code:
program legendaryfisher;
{.include srl/srl.scar}
{.include srl/srl/skill/Fishing.scar}
const
Loads = 3; //max load to be done
TimeLimit = 3; //time till it switches
publicChat= 'Friends';
privateChat= 'Off';
WaitTime= 60; //time to wait till it finds another spot to fish
var
Lobsters,LoadsToBeDone,FishingSpots,x1,y1: integer;
procedure Declareplayers;
Begin
HowManyPlayers :=1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:=0;
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active:=True;
end;
procedure TheSetup;
Begin
clearDebug;
MouseSpeed:= 10;
if(Not(LoggedIn)) then
LoginPlayer;
SetRun(True) ;
Setchat (PublicChat,1);
Setchat (PrivateChat,2);
HighestAngle;
end;
//incomplete//
//------------------------------------------------
//procedure Bank Lobsters;
//begin
//Lobsters := DTMFromString('78DA6354606660906064400659B6D20CFF813' +
//'448F43F1030CA03D588A0AA81C8C24820AD0954C349841A59026A' +
//'94816A5450D534FB28A0AA9121C21C614C35F59E68E68800D588E' +
//'1370700A5F00987');
//if FindDTM(Lobsters,x,y,1,1,200,200) then
//end;
procedure FindFishingSpots;
var
x1,y1,FishingSpots :integer;
begin
FishingSpots:=DTMFromString('78DA63FCC4C0C070910105CC38F086410E483' +
'342F98C1F31D5E4B52C4255F399083520BB2E10A1E6127E3500EE' +
'831204')
begin
FindDTM(FishingSpots,x1,y1,MSX1,MSY1,MSX2,MSY2)
MMouse(x1,y1,1,1)
wait(1000+(200));
if(IsUpText('age'))then
begin
Mouse(x1,y1,1,1,false)
wait(1000)
popup('Cage');
end;
end;
//FishingSpots := FishingSpots:=DTMFromString('78DA636C616260F8CAC8800C661C78C32007A' +
// '41961B819534D5ECB22B81A10606C25420DC8AE2F44A8F9865F0D' +
// '0057C310A2')
//if (FindDTM(FishingSpots,x1,y1,)then
end;
Procedure CustomAntiban;
var
ProtectFromBannage:Integer;
begin
ProtectFromBannage:= Random(30);
case ProtectFromBannage of
1: RandomRClickEvery(3 + Random(14));
2: RotateEvery(9 + Random(15));
3: BoredEvery(3 + Random(36));
4: GameTab(2 + Random (10));
end;
end;
Procedure FindRandoms;
begin
if(FindFight) then
begin
RunAwayDirection('S')
wait(10000+random(2000));
RunBack;
FindNormalRandoms;
HandleWhirlPool;
end;
end;
Procedure LobsterDrop;
begin
DropTo(3,28);
end;
begin
SetupSRL;
SetupSRLFishing;
DeclarePlayers;
wait(2000);
Activateclient;
If(Not(Loggedin)) then
LoginPlayer;
TheSetup;
FindFishingSpots;
wait(1000);
CustomAntiban;
wait(3000);
FindRandoms;
repeat
until(invfull)
LobsterDrop;
repeat
until(LoadsToBeDone = Loads );
Logout;
wait(1000+random(20000))
NextPlayer(True);
end.
feel free to fix it but be sure pm me the changes and what you did with it.
i know it aint working atm and im not done with the walking and banking but this is what i got done so far
with everyone's help, im sure i can release a working beta soon