Simba Code:
program NetCatherbyFisher;
{$I SRL/SRL.Simba}
{$I P07Include.Simba}
var x, y: Integer;
Procedure P07_DeclarePlayer;
Begin
P07_PlayerName:='';
P07_PlayerPass:='';
end;
procedure StartCheck; // This will move the camera to the best place.
begin
Wait(RandomRange(1000,2000));
P07_MakeCameraAngleHigh();
P07_MakeCompassNorth;
P07_HoverSkill('Fishing', random(5000));
Wait(RandomRange(200,1000));
end;
procedure StartFish; //Checks for Fishing Spot and starts fishing
begin
If (P07_FindObjCustom(x, y, ['age'], [15518125, 15452076, 13545623, 14398100, 14659209], 10)) then //Finds the Fishing spot
begin
MMouse(RandomRange(X - 3, X + 4), RandomRange(y - 3, y + 4), 0, 0); //Moves the mouse there
repeat Wait(randomRange(300,800)) until P07_IsUpTextMultiCustom(['age']);
If P07_IsUpTextMultiCustom(['age']) then begin
Wait(RandomRange(300,800));
ClickMouse2(False)
Wait(RandomRange(400,800));
P07_ChooseOptionMulti(['age'])
Wait(RandomRange(250,1000));
end;
end;
end;
Function EasyAntiBan: Boolean;
begin
case random(80) of
0: P07_HoverSkill('Fishing', random(4500));
1: P07_MakeCameraAngleHigh;
2: P07_MakeCompassDegree(RandomRange(0, 180));
3: MMouse(random(200), random(420), 0, 0);
end;
end;
//Start of Main
begin
P07_DeclarePlayer;
SetupP07Include;
MouseSpeed := 15;
If (Not P07_LoggedIn) Then
begin
P07_LogInPlayer;
end;
Wait(RandomRange(500,1000));
StartCheck;
//Start of fishing
while(true) do begin
EasyAntiBan;
StartFish;
end;
end.
So what happens is when it's about to choose a fishing spot it just goes from one spot to another and another. It does this a couple of times before restarting the script. I'm not sure how to make it focus on the right fishing spot. Weirdly enough if I change the object name to 'et' instead of cage it works perfectly.