I'm trying to get it to simply fish and drop. The procedure fishy when executed by itself successfully gets it to fish. When I try to add in everything else it quits clicking the fishing spot and hovers over the backpack inventory tab. I've also tried running it with a full inventory and it doesn't drop anything. Any ideas?
Simba Code:
program New;
{$i SRL\SRL.scar}
Var
OldXP, TimeSinceFish: Integer;
Procedure Fishy;
var
SeX, SeY: Integer;
Begin
If FindObjCustom(SeX, SeY, ['Cage', 'Fishing'], [7956571, 9998731, 10458507], 5) Then
WriteLn('Found Spot!');
Begin
Case Random(2) Of
0: Mouse(SeX,SeY, 5,5, True);
1: Begin
Mouse(SeX,SeY,4,4,False);
WaitOption('Cage',Randomrange(100,300));
End;
End;
End;
End;
Procedure DropFish;
var x, y: integer;
begin
if FindObjCustom(x, y, ['Raw'], [2046824, 792619], 25) then
DropAll;
end;
Begin
SetupSRL;
Repeat
If IsXPBarOpen Then
Begin
If Not( GetXPBarTotal = OldXP) Then
Begin
OldXP := GetXPBarTotal;
MarkTime( TimeSinceFish);
End;
End;
If TimeFromMark( TimeSinceFish) > 8600 Then
Begin
If InvFull Then
DropFish
else
Begin
Fishy;
wait(1000);
End;
end;
Until False;
End.