But the tanner is still visible on your main screen. What function you're using to trade the tanner?
EDIT: Taken from my tanner script made few months ago. I tested and it still works. But I found that it has quite some terrible flaws. You might want to improve and change it, like making it into a function and some other things.
Procedure FindTannerGuy;
var
a, Tries: Integer;
TPA : TPointArray;
ATPA : T2DPointArray;
MP : TPoint;
tmpCTS : Integer;
begin
if(not(LoggedIn))then Exit;
FindNormalRandoms;
if not FindNormalRandoms then
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.80, 1.36);
if not FindColorsTolerance(TPA, 14137553, MSX1, MSY1, MSX2, MSY2, 18) then
begin
writeln('Cant find Tanner');
repeat
wait(1000);
Inc(Tries);
until (FindColorsTolerance(TPA, 14137553, MSX1, MSY1, MSX2, MSY2, 18)) or (Tries = 3);
end;
If (Tries = 3) then
begin
writeln('Cant find tanner after 3 times');
Mouse(MSCX, MSCY, 0, 0, mouse_Right);
if WaitOption('hide', 3000) then
begin
writeln('Found tanner');
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
Exit;
end;
end;
SortTPAFrom(TPA, Point(MSCX, MSCY));
ATPA := TPAtoATPAEx(TPA, 20, 20);
SortATPAFromSize(ATPA, 1000, true);
for a := 0 to High(ATPA) do
begin
MP := MiddleTPA(ATPA[a]);
{$IFDEF SMART}
SMART_DrawDotsEx(false, ATPA[a], clYellow);
{$ENDIF}
Mouse(MP.X, MP.Y, 2, 2, mouse_Right)
if WaitOption('Tan', 3000) then
begin
writeln('Found tanner');
{$IFDEF SMART}
SMART_ClearCanvas;
{$ENDIF}
Break;
end;
end;
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
end;