My karamjafisher clicks on an fishing spot but after a few times it does map walking...
Can some1 help me??
My karamjafisher clicks on an fishing spot but after a few times it does map walking...
Can some1 help me??
Current Scripts:
OakZZ!||Done!!!!
WillowZZ!||Done!!!!
ChickenZZ!||Done!!!!
KaramjaFisher||Done!!!!
Firemaking||Busy!!!!
http://www.fenjer.com/adnan/SRLStats/4708.png
Your Handle Whirl Pool procedure Needs at the beggining:
[b]If FindWhirlPool(x,y) Then [/scar]
So the script Fixed:
SCAR Code://Hello this is My KaramjaFisher script it is made to fish lobsters and then drop them
//Start at the bridge in Karamja where u can fish lobbys and stuff.
//Have lobster pot in inventory.
//Now fill in the players and start!
//Many thanks to Caustic on SRL-forums.com for his antirandoms procedure
//And thanks to The Claw for his whirlpool procedures
// And NaumanAkhlaQ for His Helping :)
program KaramjaFisher;
{.include SRL/SRL.scar}
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '';//Username Set This if u wanna log in
Players[0].Pass := '';//Password Set This if u wanna log in
Players[0].Nick := '';//Y0ur NickName Set This if u wanna log in
Players[0].Active := True;//Player active or not??
end;
Procedure Fishing;
VAR
X,Y:INTEGER;
Begin
Makecompass('N');
Setangle(true);
if findcolorspiraltolerance(x,y,15651768,MSX1,MSY1,MSX2,MSY2,1)then
begin
Mouse(x,y,0,0,false)
Chooseoption('Cage')
Writeln('Fishing')
Wait(7500 + 300)
End;
End;
procedure AntiRandom;
//------------------------------- AntiRandom-------------------------------------
begin
if(not loggedin)then exit;
FindTalk;
LampSkill:= ('hitpoints');
FindNormalRandoms;
if (FindFight) then
begin
MakeCompass('N');
RunAway('S', false, 1, (7000+random(3000)));
end;
FindMod;
DwarfItem;
FindDead;
if NoGameTab xor InBlack then
begin
Writeln('Found unsolvable random');
Logout;
NextPlayer(True);
Exit;
end;
end;
procedure AntiBan;
begin
case random(100) of //do a random number so it won't always perform the antiban
0: BoredHuman;
1: HoverSkill('Mining', False);
2: AlmostLogout;
end;
end;
Procedure DropLobsters;
var
i : Integer;
begin
if invfull then
begin
for i := 4 to 28 do
begin
DropItem(i);
Wait(RandomRange(501, 1501));
end;
end;
end;
function FindWhirlPool(var x, y: Integer): Boolean;
var
Points: TPointArray;
Rx, Ry: Integer;
begin
if not LoggedIn then Exit;
ColorToleranceSpeed(2);
FindColorsSpiralTolerance(Ry, Rx, Points, 12103079, x - 30, y - 30, x + 30, y + 30, 20);
if GetArrayLength(Points) > 90 then
begin
if (Rx > 0) or (Ry > 0) then
begin
MMouse(Rx, Ry, 0, 0);
Wait(1000);
Result := True;
ColorToleranceSpeed(1);
Exit;
end;
end;
Result := False;
ColorToleranceSpeed(1);
end;
procedure MyHandleWhirlPool;
var
x,y:Integer;
begin
If FindWhirlPool(x,y) Then
TakeScreen('Whirlpool');
Mouse(MMCX - 10, MMCY - 10, 5, 5, True);
WhirlPools := WhirlPools + 1;
ReportVars[3] := 1;
SendSRLReport;
end;
begin
SetupSRL;
DeclarePlayers;
ActivateClient;
if not loggedin then loginplayer;
Wait(1000)
Repeat
Fishing;
Antirandom;
Antiban;
DropLobsters;
Myhandlewhirlpool;
Loginplayer;
Writeln('Running KaramjaFisher By 2pacfan for:'+timerunning);
Until (false)
end.
Hope I Helped![]()
oow forgot to credit you2 times you helped me
Current Scripts:
OakZZ!||Done!!!!
WillowZZ!||Done!!!!
ChickenZZ!||Done!!!!
KaramjaFisher||Done!!!!
Firemaking||Busy!!!!
http://www.fenjer.com/adnan/SRLStats/4708.png
No Problem![]()
omg it doesnt click fishing spot
maybe need new color
Current Scripts:
OakZZ!||Done!!!!
WillowZZ!||Done!!!!
ChickenZZ!||Done!!!!
KaramjaFisher||Done!!!!
Firemaking||Busy!!!!
http://www.fenjer.com/adnan/SRLStats/4708.png
ok problem was the color changed it it works now![]()
Current Scripts:
OakZZ!||Done!!!!
WillowZZ!||Done!!!!
ChickenZZ!||Done!!!!
KaramjaFisher||Done!!!!
Firemaking||Busy!!!!
http://www.fenjer.com/adnan/SRLStats/4708.png
Actually, you can use the EDIT button instead of couble posting.
Try making an array of colors read this tutorial
Nauman i have the same error again map walking out of itself...
Can u help me?
Current Scripts:
OakZZ!||Done!!!!
WillowZZ!||Done!!!!
ChickenZZ!||Done!!!!
KaramjaFisher||Done!!!!
Firemaking||Busy!!!!
http://www.fenjer.com/adnan/SRLStats/4708.png
There are currently 1 users browsing this thread. (0 members and 1 guests)