Why won't my powerminer click that rock?

[IsoMorphic]

Heres my script:


program ScriptNameHere;

{$i SRL\SRL.simba}

var
objo:Integer;

procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;

Players[0].Name := 'NAME HERE!!!!'; //Your Runescape username here.
Players[0].Pass := 'No no no!'; //Your Runescape password here.
Players[0].Nick := 'kil'; //3 letters from your screen name (not first)
Players[0].Active := True; //Set to True if you want to use this player. Set to False to disable this player.
Players[0].Pin := 'Your_Bank_PIN'; //Put your Bank PIN here. Leave alone if you don't have a Bank PIN.
end;
Procedure Proggy;
begin
writeln('*******************************');
writeln('Blackys Iron powerminer. Enjoy!!');
writeln('You have been running for: ' + TimeRunning);
writeln('You have Mined: ' + IntToStr(objo));
writeln('*******************************');
End;
Procedure ANTIBAN;
begin

Case Random(30) of
0: begin
RandomRClick;
end;
1: begin
BoredHuman;
End;
2: begin
PickUpMouse;
End;
3: begin ExamineInv; end;
4: HoverSkill('mining',false);
5: RandomAngle(1);

End;

end;
function colour: Integer;
var
arP: TPointArray;
arC: TIntegerArray;
tmpCTS, i, arL: Integer;
begin
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.05, 0.16);

if not (FindColorsTolerance(arP, 2109010, MSX1, MSY1, MSX2, MSY2, 5)) then
begin
Writeln('Failed to find the color, no result.');
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
Exit;
end;

arC := GetColors(arP);
ClearSameIntegers(arC);
arL := High(arC);

for i := 0 to arL do
begin
Result := arC[i];
Writeln('AutoColor = ' + IntToStr(arC[i]));
Break;
end;

ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);

if (i = arL + 1) then
Writeln('AutoColor failed in finding the color.');
end;
Procedure Ironer;
var
x,y,plusone,timer:integer;
begin
plusone := InvCount + 1;
x := MSCX;
y := MSCY;
//if FindObjTPA(x,y,WillowColour,3,2,15,60,400,['Chop']) then
if FindObj(x,y,'Mine',colour,5) then
begin
Mouse(x,y,2,2,false);


Flag;
MarkTime(timer);


Repeat
Antiban;
wait(1500);
Until(InvCount = plusone) or (TimeFromMark(timer) > 60000)
if(InvCount = plusone) then
writeln('Mined');
end;
end;
procedure Dropper;
begin
writeln('Dropping ore');
DropAll;
writeln('Dropped ore');
wait(2000 + Random(30));
end;



begin
SetupSRL;
DeclarePlayers;
LoginPlayer;

Repeat
//ACA procedure and chop/mine/fish/mousepress/etc goes here.
colour;
Ironer;
if(InvFull) then
begin
//Drop/bank and/or walking procedure goes here...
Dropper;
ClearDebug;
Proggy;
End;
Until(false)
end.


I know im using FindObj, i though FindObjTPA might not be working... but its working fine. When i move my mouse about 2 seconds later it goes and click the inventory button (probably the PlusOne Procedure)

Thanks in advance!!

[Gucci]

Does it right click the ore?

[tehq]

Gucci asked that because you have (cleaned up a bit)
if FindObj(x, y, 'Mine', colour, 5) then
begin
Mouse(x, y, 2, 2, false);
end;

If you want it to left click the rock, change the false to true or mouse_left

[IsoMorphic]

It doesnt move the mouse after clicking the bag tab

[tehq]

Update the main post with this:

program ScriptNameHere;

{$i SRL\SRL.simba}

var
objo:Integer;

procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;

Players[0].Name := 'NAME HERE!!!!'; //Your Runescape username here.
Players[0].Pass := 'No no no!'; //Your Runescape password here.
Players[0].Nick := 'kil'; //3 letters from your screen name (not first)
Players[0].Active := True; //Set to True if you want to use this player. Set to False to disable this player.
Players[0].Pin := 'Your_Bank_PIN'; //Put your Bank PIN here. Leave alone if you don't have a Bank PIN.
end;

Procedure Proggy;
begin
writeln('*******************************');
writeln('Blackys Iron powerminer. Enjoy!!');
writeln('You have been running for: ' + TimeRunning);
writeln('You have Mined: ' + IntToStr(objo));
writeln('*******************************');
End;

Procedure ANTIBAN;
begin
Case Random(30) of
0 : RandomRClick;
1 : BoredHuman;
2 : PickUpMouse;
3 : ExamineInv;
4 : HoverSkill('mining',false);
5 : RandomAngle(1);
End;
end;

function colour: Integer;
var
arP: TPointArray;
arC: TIntegerArray;
tmpCTS, i, arL: Integer;
begin
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.05, 0.16);

if not (FindColorsTolerance(arP, 2109010, MSX1, MSY1, MSX2, MSY2, 5)) then
begin
Writeln('Failed to find the color, no result.');
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
Exit;
end;

arC := GetColors(arP);
ClearSameIntegers(arC);
arL := High(arC);

for i := 0 to arL do
begin
Result := arC[i];
Writeln('AutoColor = ' + IntToStr(arC[i]));
Break;
end;

ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);

if (i = arL + 1) then
Writeln('AutoColor failed in finding the color.');
end;

Procedure Ironer;
var
x, y, plusone, timer:integer;
begin
plusone := InvCount + 1;
x := MSCX;
y := MSCY;
//if FindObjTPA(x,y,WillowColour,3,2,15,60,400,['Chop']) then
if FindObj(x, y, 'Mine', colour, 5) then
begin
Mouse(x, y, 2, 2, false);
Flag;
MarkTime(timer);
Repeat
Antiban;
wait(1500);
Until(InvCount = plusone) or (TimeFromMark(timer) > 60000)
if(InvCount = plusone) then
writeln('Mined');
end;
end;

procedure Dropper;
begin
writeln('Dropping ore');
DropAll;
writeln('Dropped ore');
wait(2000 + Random(30));
end;


begin
SetupSRL;
DeclarePlayers;
LoginPlayer;
Repeat
//ACA procedure and chop/mine/fish/mousepress/etc goes here.
colour;
Ironer;
if(InvFull) then
begin
//Drop/bank and/or walking procedure goes here...
Dropper;
ClearDebug;
Proggy;
End;
Until(false);
end.

I'm going to bed, but now other members will be able to read it easily. If no one else solves it then pm me tomorrow :)

[Total]

Are you running SMART or no? I had this same problem when making my first script where it would open the inv tab and just sit there, but when I ran it in SMART it worked.

[John]

Are you running SMART or no? I had this same problem when making my first script where it would open the inv tab and just sit there, but when I ran it in SMART it worked.

I am also wondering this, smart may solve your problem.

[Imanoobbot]

So this function should work. Just write in here if you got another problem.


function FindIron: Boolean;
var
arP, arAP: TPointArray;
arC, arUC: TIntegerArray;
ararP: T2DPointArray;
tmpCTS, i, j, arL, arL2: Integer;
P: TPoint;
X, Y, Z: Extended;
begin
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.08, 0.94);

if not(FindColorsTolerance(arP, 2109010, MSX1, MSY1, MSX2, MSY2, 6)) then
begin
Writeln('Rock Color not found...');
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
Exit;
end;

arC := GetColors(arP);
arUC := arC;
ClearSameIntegers(arUC);
arL := High(arUC);
arL2 := High(arC);

for i := 0 to arL do
begin
ColorToXYZ(arC[i], X, Y, Z);

if (X >= 4.13) and (X <= 10.17) and (Y >= 3.71) and (Y <= 8.43) and (Z >= 2.49) and (Z <= 4.36) then
begin
for j := 0 to arL2 do
begin
if (arUC[i] = arC[j]) then
begin
SetLength(arAP, Length(arAP) + 1);
arAP[High(arAP)] := arP[j];
end;
end;
end;
end;

SortTPAFrom(arAP, Point(MSCX, MSCY));
ararP := SplitTPAEx(arAP, 10, 10);
arL := High(ararP);

for i := 0 to arL do
begin
if (Length(ararP[i]) < 10) then Continue;
P := MiddleTPA(ararP[i]);
MMouse(P.x, P.y, 5, 5);
Wait(100 + Random(100));
if (IsUpText('Min')) and (IsUpText('Iron')) then
begin;
Mouse(p.x, p.y, 3, 3, True);
Result := True;
Break;
end;
end;

ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);

if (i = arL + 1) then
begin
Writeln('Rock not found...');
Exit;
end;
end;