Well for my power miner i have made two procedures to check and find x,y of a ore which is better?
They should look for a ore, move the mouse over it then call a procedure named ClickOre
How would i turn them in to Function because i want to call for them and see if i can find them but i see no need for the (parameters) do you have to have them? I just need to see if i can my mouse over one Would be great if you could make the Function for me and show me what has been changed thanks
So here are the two procedure's
SCAR Code:
Procedure MineRockColour;
Begin
If (not LoggedIn) then
Exit;
SetRock;
If FindColorSpiralTolerance(x, y, Rock, MSX1, MSY1, MSX2, MSY2, 39) Then
Begin
MMouse(x,y,5,5);
AntiBan;
If IsUpTextMultiCustom(['Rock', 'ock', 'ck']) Then
Begin
ClickOre;
Exit;
End;
// If not(FindColorSpiralTolerance(x, y, Rock, MSX1, MSY1, MSX2, MSY2, 39)) Then
End;
Sorry still making failsafes
SCAR Code:
Procedure MineRockTPA;
Var
MyTPA : TPointArray;
MyPoint : TPoint;
i, F : Integer;
Begin
SetRock;
FindColorsSpiralTolerance(MSCx, MSCy, MyTPA, Rock, MSx1, MSy1, MSx2, MSy2, 17);
If Length(MyTPA) = 0 then FindColorsTolerance(MyTPA, Rock2, MSX1, MSY1, MSX2, MSY2, 17);
For i := 0 to High(MyTPA)do
Begin
MyPoint := MyTPA[i]
MMouse (MyPoint.x, MyPoint.y, 3, 3);
if (IsUpTextMultiCustom(['ine', 'ore'])) then
Begin
ClickOre;
Exit;
End Else
Inc(F);
If (F => 7) then
Exit;
End;
End;
May have missed a end not sure if it compiles as its with my half made not working scirpt
Thanks for any help i may get
~Rya