SRL Archive - RS3 Outdated / Broken Scripts

KaramjaFisher


2pacfan

2008-05-02 08:23:29

This script of mine fishes lobbys at the Karamja dock and then drops them.
Start at the dock and have a few lobster pots in inventory.
Post proggys or whatever.
New 1:

2pacfan

2008-05-02 14:56:33

Some1 test it?

noidea

2008-05-02 15:58:52

Cool, first post. What luck. Sure I'll test for you just wait a while. Definatly reserved for proggy.;)

Not really a proggie… It just told the time it worked every 6 seconds. It also just clicked at in one place. like in the middle of the mini map. I left it for 2 minutes and thats all that happed. Sorry for the bad news.

2pacfan

2008-05-03 05:42:10

well then you maybe need to change the colors in the fishing procedure:)
aargh ok ik will change in findcolorspiraltolerance:)

2pacfan

2008-05-03 06:05:46

omg the map walking is a major bug:(

2pacfan

2008-05-03 06:47:46

ok new 1 coming up

Naum

2008-05-03 06:54:44

Nice :).

Edit your First Post and Upload it onto there :)

GJ!

2pacfan

2008-05-03 10:58:15

ty and i will

noidea

2008-05-03 16:11:01

Let us know when you are finished updating, ok and good luck.

2pacfan

2008-05-04 03:08:37

omg i am this close to KaramjaFisherandSeller:)

noidea

2008-05-05 16:16:10

I tried your new version, it actually fishes. Every eight seconds though it clicks on the bridge forcing it away from fishing. If it is on the fishing spot off of the bridge, it just walks up the mountain. Because of this I had to fix it about once a minute and it fished 3 lobsters in 9 minutes. Make it follow the fishing spot. I thought this was a fisher seller? It says as a procedure drop.

2pacfan

2008-05-06 05:22:16

yah i aint done yet u downloaded old version…

NiCbaZ

2008-05-06 06:01:09

Ok you need to fix the fishing procedure so it just doesn't do it one time then go to walking to procedure..

you need a function like

Function FullInv: Boolean;

Var
S: String;

Begin
S := GetBlackChatMessage
Result := (Pos('full', S) <> 0);
End;


and use it your procedure like

Procedure Fishing;
VAR
X,Y:INTEGER;
Begin
Makecompass('N');
Setangle(true);
if findcolorspiraltolerance(x,y,14987659,MSX1,MSY1,MSX2,MSY2,1)then
Repeat
Mouse(x,y,0,0,false);
Chooseoption('Cage');
Writeln('Fishing');
Wait(7500 + 300);
until
FullInv;
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.


Until (false)

is a big no-no you need to do something like


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??
Players[0].Integers[0]:= 1; //Loads to Do;


and then in the mainloop

if (Loads = Players[CurrentPlayer].Integers[0]) then
begin
NextPlayer(True);
MakeCompass('S')
Writeln('Players Switched successfully')
end;

noidea

2008-05-12 16:21:27

It looks like 2pacfan has just completely givin up on this… I honestly think that is pathetic. If you dont bother to try no one with bother to try and post proggies… Sorry for the outburst ;0

2pacfan

2008-05-13 10:34:06

first of all.i didnt stopped.
2.im busy with other things you know..

noidea

2008-05-17 12:02:19

Ok then, let us know when you update it…