Hi guys,
Current Questions: How to get the script to wait until a new ore appears in the inventory before clicking another rock and best method of walking.
I have tried using findobjcustom and am now using tpas and both have accurately found the object, but for some reason it won't click in either one! Can someone please explain to me what I'm doing wrong? Thanks SO much!
Simba Code:
program new;
{$i SRL/SRL.simba}
{$i P07Include.simba} //Thanks Danny!
procedure Antiban;
begin
case random(200) of
1: P07_HoverSkill('fishing', RandomRange(1000, 2000));
2: P07_HoverSkill('random', RandomRange(500, 2000));
3: P07_MakeCompassDegree(RandomRange(97, 107));
4: P07_MakeCompassDegree(RandomRange(229, 286));
5: MMouse(random(400), random(300), 0, 0);
end;
end;
procedure MineRock;
var
RockTPA: TPointArray;
MyPoint: TPoint;
x, y, i, tmpCTS: integer;
begin
tmpCTS := GetToleranceSpeed; //Thanks for the tut Footy!
SetColorToleranceSpeed(2);
SetToleranceSpeed2Modifiers(0.03, 0.35);
FindColorsSpiralTolerance(P07_MSCX, P07_MSCY, RockTPA, 2437715, P07_MSX1, P07_MSY1, P07_MSX2, P07_MSY2, 6); //Dusk's TPA tutorial
// if Length(RockTPA) = 0 then FindColorsSpiralTolerance(P07_MSCX, P07_MSCY, RockTPA, 2437715, P07_MSX1, P07_MSY1, P07_MSX2, P07_MSY2, 6); In case I need to add another color
SetColorToleranceSpeed(tmpCTS);
SetToleranceSpeed2Modifiers(0.02, 0.02);
for i :=0 to High(RockTPa) do
begin
MyPoint := RockTPA[i] //not exactly sure what this one does
MMouse(MyPoint.x, MyPoint.y, 5, 5);
if (P07_IsUpTextMultiCustom(['ine', 'roc'])) then
begin
ClickMouse2(1)
Wait(1000 + random(2000)); //how do I get it to just wait until the rock is mined?
Exit;
end;
Wait(500 + random(1000));
end;
end;
begin
SetupSRL;
SetupP07Include;
MineRock;
end.