Code:
program New;
const
KEY_ENTER = 13;
KEY_1 = 49;
KEY_2 = 50;
KEY_3 = 51;
KEY_4 = 52;
KEY_5 = 53;
var colorvar, xfound, yfound : Integer;
begin
wait(5000);
repeat
colorvar := GetColor(671, 462);
if (FindColorTolerance(xfound, yfound, 8978376, 655, 450, 689, 470, 70)) or (SimilarColors(colorvar, 15791091, 60)) then
begin
KeyDown(KEY_3);
KeyDown(KEY_ENTER);
wait(5);
repeat
wait(55);
until(not(SimilarColors(GetColor(671, 446), 3866588, 50)));
KeyUp(KEY_ENTER);
KeyUp(KEY_3);
end;
colorvar := GetColor(590, 462);
if (FindColorTolerance(xfound, yfound, 8973055, 571, 450, 604, 470, 70)) or (SimilarColors(colorvar, 15791091, 60)) then
begin
KeyDown(KEY_1);
KeyDown(KEY_ENTER);
wait(5);
repeat
wait(55);
until(not(SimilarColors(GetColor(590, 447), 4521983, 50)));
KeyUp(KEY_ENTER);
KeyUp(KEY_1);
end;
colorvar := GetColor(631, 460);
if (FindColorTolerance(xfound, yfound, 16750060, 614, 450, 648, 4701
, 70)) or (SimilarColors(colorvar, 15791091, 60)) then
begin
KeyDown(KEY_2);
KeyDown(KEY_ENTER);
wait(5);
repeat
wait(55);
until(not(SimilarColors(GetColor(631, 449), 16743679, 50)));
KeyUp(KEY_ENTER);
KeyUp(KEY_2);
end;
until 1=2;
end.
It most likely won't work on other computers unless you have the same resolution as me because it uses specific coordinates. I'm kinda looking for other ideas, or another approach to this bot so I can make it work better. Any ideas?