Code:
program VoragoFighter;
const
STOP_KEY = 113; // F2 to exit
Procedure GetHealth;
var
x,y:Integer;
begin
//looks at health orb for yellow or orange color
if FindColorTolerance(x, y, 2070783, 721, 28, 742, 41, 40) or findcolortolerance(x, y,65535, 721, 28, 742, 41, 40) then
//if found it will eat the monkey bandage
begin
//located at top left invo slot
movemouse(579,230);
wait(200);
clickmouse(579,230,1);
wait(5000);
end;
end;
Procedure GetPrayer;
var
x,y,xi,yi:Integer;
begin
//looks at prayer orb for yellow or orange color
FindColorTolerance(xi, yi, 6897067, 603, 250, 730, 326, 40);//super pot
//if found it will sip on the the 5 super pots in invo
if FindColorTolerance(x, y, 2070783, 737, 67, 758, 80, 40) or findcolortolerance(x, y,65535, 737, 67, 758, 80, 40) then
begin
movemouse(658,188);
wait(200);
clickmouse(658,188,1);
movemouse(xi,yi);
wait(200);
clickmouse(xi,yi,1);
end;
end;
Procedure GetStage; // 1st phase or 2nd phase
var
x,y,xi,yi:Integer;
begin
if FindColorTolerance(x, y, 12561819, 63, 85, 391, 314, 5) then //1st phase
begin
movemouse(x,y);
wait(700);
clickmouse(x,y,1);
GetHealth();
GetPrayer();
wait(500);
end;
if findcolortolerance(x, y, 5121950, 63, 85, 391, 314, 5) then //2nd phase
begin
movemouse(x,y);
wait(700);
clickmouse(x,y,1);
GetHealth();
GetPrayer();
wait(500);
end; //still work to do for this stage, equip omen's maul when almost dead, and then switch back to the sword and shield
end;
begin
while not(isKeyDown(STOP_KEY)) do
GetStage();
end.