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;