Plant random finder and handler

[Psychor]

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

dtmFruit := DTMFromString('78DA637CC2C0C0B09301054CCDDECFC00AA 41' +
'981F83F1030DE03327630A00146241248BFC63407590D1388 7E0A' +
'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;

[Negaal]

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

[Psychor]

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

[yanix]

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

[Psychor]

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.