Code:
{*****************************************************************************
Procedure AttackMonster (Color1, color2, color3 : Integer; MonsterName :String; Tolerence :integer);
By: Bebemycat2
Description: Finds the monster specifyed by color1,color2,color2 and MonsterName and clickss to fight it.
If it doesn't find the 3 colors then it will try for 2 out of the 3 colors 3 times
If that doesn't work then it will exit out of the procedure
*****************************************************************************}
Procedure AttackMonster (Color1, color2, color3 : Integer; MonsterName :String; Tolerence :integer);
begin
if(FindColorTolerance(x,y, color1, 79, 95, 592, 429, Tolerence))and
(FindColorTolerance(x,y, color2, 79, 95, 592, 429, Tolerence))and
(FindColorTolerance(x,y, color3, 79, 95, 592, 429, Tolerence))and
(Option2('Attack '+MonsterName+''))then
Mouse(x, y, 5, 5, true)
else
if(FindColorTolerance(x,y, color1, 79, 95, 592, 429, Tolerence))and
(FindColorTolerance(x,y, color2, 79, 95, 592, 429, Tolerence))and
(Option2('Attack '+MonsterName+''))then
Mouse(x, y, 5, 5, true)
else
if(FindColorTolerance(x,y, color2, 79, 95, 592, 429, Tolerence))and
(FindColorTolerance(x,y, color3, 79, 95, 592, 429, Tolerence))and
(Option2('Attack '+MonsterName+''))then
Mouse(x, y, 5, 5, true)
else
if(FindColorTolerance(x,y, color1, 79, 95, 592, 429, Tolerence))and
(FindColorTolerance(x,y, color3, 79, 95, 592, 429, Tolerence))and
(Option2('Attack '+MonsterName+''))then
Mouse(x, y, 5, 5, true)
else
exit;
end;
Undated.