As i said I am hoping to release my new version of my script today, but I need EVERYONE's help. IF you read my other threads I was having trouble with my TPA but now its good. Well kind of, the problem is that it is REALLY detectable for some reason, it keeps hovering around the color of the iron in the rock until it finds the "perfect color"...I just want it to click anywher on the rock and not look for the actual color and hover the rock..Please help...
This is the part of the script of my rock finding/clicking..
SCAR Code:
function FindOres(var tx, ty: Integer):boolean;
var
i: integer;
IronPoints: TPointArray;
Iron2D : T2DPointArray;
IronPoint : TPoint;
begin
if not LoggedIn then exit;
x:= MSCX;
y:= MSCY;
begin
FindColorsSpiralTolerance(tx,ty,IronPoints,2832989,MSX1,MSY1,MSX2,MSY2,6);
Iron2D:= TPAtoATPAEx(IronPoints,3,3);
for i:= 0 to length(Iron2D)-1 do
begin
if not LoggedIn then exit;
Ironpoint:= MiddleTPA(Iron2D[i]);
tx:= IronPoint.X;
ty:= IronPoint.Y;
MMouse(tx,ty,2,2);
wait(90+random(50));
if isuptext('ine')then
begin
GetMousePos(tx,ty);
result:= true;
end else Continue;
end;
end;
end;
procedure MinedaRock;
var
i, MiningTime : Integer;
Blacktext : string;
begin
MakeCompass('N');
SetAngle(True);
for i := 0 to 2 do
repeat
if Not(LoggedIn) then exit;
writeln('start');
Myrandom;
if not FindOres(x, y) then
begin
repeat
wait(100+ random(50));
until FindOres(x, y);
writeln('uhoh');
end else
writeln('brap');
Mouse(x,y,2,2,True);
MarkTime(MiningTime);
Wait(1500+ random(250));
repeat
BlackText := GetBlackChatMessage;
if (getcolor(486, 384) = 0) then
Wait(250+Random(300));
until (Pos('anage', BlackText) <> 0) or (Pos('vailable', BlackText) <> 0) or (TimeFromMark(MiningTime) > (WaitperRock +random(250)));
until (InvFull);
if (InvFull) then
begin
writeln( 'Inventory Full walking to bank.' );
end;
end;