SCAR Code:
program ZombieKiller;
const
ZombieColor = 4088199; //set zombie color
SpellBookColor = 4940670; //set spell book tab color
SpellColor = 131074; //set spell color in example air blast color.
procedure AttackZombie;
var x,y:integer;
begin
if (FindColorSpiral(x,y, ZombieColor,0,0,271,172)) then
begin
if (FindColorSpiral(x,y,SpellBookColor,0,0,647,292)) then
MMouse(x, y, 2, 2)
wait(1000+random(50))
Mouse(x,y, 2, 2, true)
end;
end;
procedure CastSpell;
var x,y:integer;
begin
if(FindColorSpiral(x,y,SpellColor,0,0,647,292)) then
begin
MMouse(x, y);
wait(1000+random(50))
Mouse(x,y, 2, 2, true)
end;
end;
procedure ClickZombie;
var x,y:integer;
begin
if(findColorSpiral(x,y,ZombieColor,0,0,271,172)) then
begin
MMouse(x, y, 2, 2)
wait(2000+random(25))
Mouse(x,y, 2, 2, true)
end;
end;
begin
SetupSRL;
repeat
AttackZombie;
CastSpell;
ClickZombie;
until(false)
end.