Code:
{*****************************************************************************
Procedure AttackMonsterSpiral (Color1, color2, color3 : Integer; MonsterName :String; Tolerence :integer);
By: Bebemycat2 edited by Pwnd
Description: Now uses FindColorSpiralTolerance so it'll search from your feet out.
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 AttackMonsterSpiral (Color1, color2, color3 : Integer; MonsterName :String; Tolerence :integer);
var
xa, ya: integer;
begin
xa:= 259;
ya:= 196;
if(FindColorSpiralTolerance(xa, ya, color1, 79, 95, 592, 429, Tolerence))and
(FindColorSpiralTolerance(xa, ya, color2, 79, 95, 592, 429, Tolerence))and
(FindColorSpiralTolerance(xa, ya, color3, 79, 95, 592, 429, Tolerence))and
(Option2('Attack ' + MonsterName + ''))then
Mouse(x, y, 5, 5, true)
else
if(FindColorSpiralTolerance(xa, ya, color1, 79, 95, 592, 429, Tolerence))and
(FindColorSpiralTolerance(xa, ya, color2, 79, 95, 592, 429, Tolerence))and
(Option2('Attack ' + MonsterName + ''))then
Mouse(x, y, 5, 5, true)
else
if(FindColorSpiralTolerance(xa, ya, color2, 79, 95, 592, 429, Tolerence))and
(FindColorSpiralTolerance(xa, ya, color3, 79, 95, 592, 429, Tolerence))and
(Option2('Attack ' + MonsterName + ''))then
Mouse(x, y, 5, 5, true)
else
if(FindColorSpiralTolerance(xa, ya, color1, 79, 95, 592, 429, Tolerence))and
(FindColorSpiralTolerance(xa, ya, color3, 79, 95, 592, 429, Tolerence))and
(Option2('Attack '+ MonsterName + ''))then
Mouse(x, y, 5, 5, true)
else
exit;
end;