This is how I find Ellis in my tanner
SCAR Code:
Ellis[1]:= 4681158;
Ellis[2]:= 5472230;
Ellis[3]:= 3692188;
Ellis[4]:= 3758498;
Function TanAll:Boolean;
var Dmx, Dmy, Ax, Ay, x, STime, ETime,TTime: integer;
begin
MarkTime(STime);
repeat
for x:=1 to 4 do
begin
if not LoggedIn then Exit;
MarkTime(ETime);
if FindColorTolerance(Ax, Ay, Ellis[x], MSX1, MSY1 + 20, MSX2, MSY2, 5) then
begin
MMouse(Ax, Ay, 0, 0);
GetMousePos(Ax, Ay);
Wait(50);
if FindColorTolerance(Dmx, Dmy, 318168, 42, 8, 120, 21, 50) then // Yellow
begin
if IsUpText('l') then
begin
Mouse(Ax, Ay, 0, 0, False);
if not Chooseoption('Trade') then break;
MarkTime(TTime);
Repeat
FlagFTWait;
WWait(1000);
if TimeFromMark(TTime) > 15000 then
begin
Break;
End;
Until TanScreen;
Mouse(75, 90, 20, 30, False);
Wait((1000)+Random(250));
ChooseOption('All');
TanHides := TanHides + 27;
ReportVars[0]:=27;
Result := True;
Exit;
end
end
end;
end;
Wait(100);
if ETime-STime > 20000 then
begin
Mouse(MSCX,MSCY + 50, 2, 2, True); // crude callib trying to find Ellis
end;
x := 1;
until(ETime-STime > 55000);
end;