SRL Archive - Research & Development Lounge

I made this plant random finder and handler for my application scripts.

dtmFruit := DTMFromString('78DA637CC2C0C0B09301054CCDDECFC00AA41' +
          '981F83F1030DE03327630A00146241248BFC63407590D13887E0A' +
          '24D61330E73990384040CD7D20B18F32F78000004453112A');

Function FindPlant: Boolean;
Begin
  if (not (LoggedIn)) then
    Exit;
  if FindObjCustom(Plantx, Planty, ['lant', 'ick ', 'ange'], [8999], 0) then
  begin
    Plants := Plants + 1;
    Result := True;
  end;
end;
 
{My plant random solver}
Procedure HandlePlant;
Var
  Planti: Integer;
Begin
  repeat
    If Not LoggedIn then
      Break;
    Wait(500 + random(100));
    FindObjCustom(Plantx, Planty, ['lant', 'ick ', 'ange'], [8999], 0);
    Wait(300 + Random(100));
    Mouse(Plantx, Planty, 0, 0, False);
    Wait(200 + Random(100));
    ChooseOption('ick');
    FFlag(0);
    Wait(500 + random(100));
    Planti := Planti + 1;
    if (not(CountItemDtm(dtmFruit) >= 1)) then
      Wait(900 + Random(200));
  Until (CountItemDtm(dtmFruit) >= 1) or (Planti >= 5) or (FindFight);
  if (FindFight) then
  begin
    RunTo('N', True);
    Wait(15000 + random(5000));
    RunBack;
  end;
end;

Looks nice but, does it hovers over the other stuff? 8999 with tol 5…

The place where i'm using the script it never hovered over anything else except when there was a plantrandom. But it could pose a problem, thanks for pointing it out to me

You shouldnt post this here it dosent matter if it works or not but if i made it id put in Members section… dont give leechers member anti-randoms :) but i dont know how to use it if i did id use it

This part is not gone do anything on it's own, so a leecher can use it in a script if he wants to or not, and there are memberscripts availeble to the general public also.