program AutoClicker;
// Need To Fix Yellow Tab Not Clicking
var
x, y, a : Integer;

begin
a := 0;
// Time Loops Here
while (a < 1000000000) do
begin
a := a + 1;
// Search Market For Players
if FindColor(x, y, 1679715, 722, 588, 826, 618) then
begin
wait(40)
ClickMouse(742, 602, true);
end else
begin
// Press Ok After Search
if FindColor(x, y, 1679971, 798, 474, 876, 503) then
begin
wait(40)
ClickMouse(809, 491, true);
end else
begin
// Clicks On Player Rare
if FindColor(x, y, 159897, 347, 466, 435, 654) then
begin
wait(40)
ClickMouse(364, 609, true);
end else
begin
// Buys Player Both Rare And Non Rare
if FindColor(x, y, 1679971, 844, 386, 1002, 421) then
begin
wait(40)
ClickMouse(873, 401, true);
end else
begin
// Buys Player Non Rare
if FindColor(x, y, 5157075, 347, 466, 435, 654) then
begin
wait(40)
ClickMouse(364, 609, true);
end else
begin
// Sends Player To Trade Pile
if FindColor(x, y, 1161443, 678, 377, 739, 405) then
begin
wait(40)
ClickMouse(590, 357, true);
end else
begin
// Goes Back To Search. Try To Make This Work Not On Red Line
if FindColor(x, y, 855549, 680, 246, 826, 274) then
begin
wait(40)
ClickMouse(613, 453, true);
end else
begin
// Fix To The Expired Items Problem. Clicks Back To Search
if FindColor(x, y, 1381883, 680, 246, 826, 274) then
begin
wait(40)
ClickMouse(613, 453, true);
end else
begin
// Yellow Tab Fix Ok
if FindColor(x, y, 3395067, 924, 474, 1007, 506) then
begin
wait(40)
ClickMouse(935, 491, true);
end else
begin
// Yellow Tab Fix Search
if FindColor(x, y, 3395067, 849, 588, 955, 617) then
begin
wait(40)
ClickMouse(907, 605, true);
// both yellow tabs not fixed
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end.m New;
begin
end.