SRL Archive - OSR Help

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.

the findobjcustom method uses uptext to confirm that it is the right object. since simba uses colors it has no other method to confirm that the fishing spot is indeed the right one. make sure that for - If (P07_FindObjCustom(x, y, ['age'] - replace 'age' with the UpText (the text in the top left corner of the rs screen) when you are hovering over the fishing spot you want it to click.

From: blockay
the findobjcustom method uses uptext to confirm that it is the right object. since simba uses colors it has no other method to confirm that the fishing spot is indeed the right one. make sure that for - If (P07_FindObjCustom(x, y, ['age'] - replace 'age' with the UpText (the text in the top left corner of the rs screen) when you are hovering over the fishing spot you want it to click.

Thanks, got it to work!:)