Whats Wrong with:
procedure DrinkPots;
var
X, Y: Integer;
begin
if FindColorTolerance(X, Y, 14342875, 566, 215, 726, 454, 4) then
begin
if FindColorTolerance(X, Y, 14342875, 563, 212, 602, 460, 4) then
begin
mmouse(x, y,1,1);
Wait(250 + Random(150));
ClickMouse(x, y, mouse_Left);
Wait((StrToInt(DrinkWait)+1) + Random(50));
end;
if FindColorTolerance(X, Y, 14342875, 607, 212, 644, 460, 4) then
begin
mmouse(x, y,1,1);
Wait(250 + Random(150));
ClickMouse(x, y, mouse_Left);
Wait((StrToInt(DrinkWait)+1) + Random(50));
end;
if FindColorTolerance(X, Y, 14342875, 652, 212, 685, 460, 4) then
begin
mmouse(x, y,1,1);
Wait(250 + Random(150));
ClickMouse(x, y, mouse_Left);
Wait((StrToInt(DrinkWait)+1) + Random(50));
end;
if FindColorTolerance(X, Y, 14342875, 691, 212, 730, 460, 4) then
begin
mmouse(x, y,1,1);
Wait(250 + Random(150));
ClickMouse(x, y, mouse_Left);
Wait((StrToInt(DrinkWait)+1) + Random(50));
end;
repeat
DrinkPots;
until
(FindColorTolerance(X, Y, 14342875, 566, 212, 726, 454, 4)=false)
FindTheBank;
end;
end;
For a pserver dont care about anti-ban, CBA to drink 3400 potions
EDIT: FFS I FORGOT I CHANGED IT TO USE COLORS BUT IT HAS THE SAME RESULT