SCAR Code:
program MagicalChickenKiller;
{.include SRL/SRL.scar}
var
MouseCoordX, MouseCoordY : Integer;
var
Tolerance : Integer;
const
SpellNumber = 1; //1-4 Strikes Wind, Water, Earth & Fire
TimeToKillChicken = 10000;
Procedure CheckStaff;
begin
MouseCoordX := 586;
MouseCoordY := 290;
Wait(50+random(5));
Gametab(5);
Wait(100+random(50));
MMouse (MouseCoordX, MouseCoordY, 10, 10);
Wait(350+random(150));
if (IsUpText('aff')) then
Writeln('Staff Found')
else
Writeln('No Staff Found')
end;
Procedure TakeSpell;
begin
Wait(750+random(75));
Gametab(1);
Wait(150+random(50));
Mouse(663, 320, 15, 10, true);
Wait(500+random(150));
if (SpellNumber = 1) then
begin
if (FindColor(MouseCoordX, MouseCoordY, 12632764, 580, 220, 597, 234))then
begin
Wait(250+random(50))
Mouse(MouseCoordX, MouseCoordY, 2, 2, true)
Wait(50+random(10))
Writeln('Windstrike Activated')
Exit
end
Writeln('Windstrike NOT Found');
end;
if (SpellNumber = 2) then
begin
if (FindColor(MouseCoordX, MouseCoordY, 16349818, 618, 220, 640, 234))then
begin
Wait(250+random(50))
Mouse(MouseCoordX, MouseCoordY, 2, 2, true)
Wait(50+random(10))
Writeln('Waterstrike Activated')
Exit
end
Writeln('Waterstrike NOT Found');
end;
if (SpellNumber = 3) then
begin
if (FindColor(MouseCoordX, MouseCoordY, 307460, 660, 220, 677, 234))then
begin
Wait(250+random(50))
Mouse(MouseCoordX, MouseCoordY, 2, 2, true)
Wait(50+random(10))
Writeln('Earthstrike Activated')
Exit
end
Writeln('Earthstrike NOT Found');
end;
if (SpellNumber = 4) then
begin
if (FindColor(MouseCoordX, MouseCoordY, 168440, 696, 220, 719, 234))then
begin
Wait(250+random(50))
Mouse(MouseCoordX, MouseCoordY, 2, 2, true)
Wait(50+random(10))
Writeln('Firestrike Activated')
Exit
end
Writeln('Firestrike NOT Found');
end;
end;
Procedure AttackChicken;
begin
Wait(750+random(250));
MouseCoordX := 250;
MouseCoordY := 150;
Wait(100+random(50));
Gametab(4);
Wait(100+random(50));
repeat
if (FindColorTolerance(MouseCoordX, MouseCoordY, 1055887, 5, 5, 500, 300, Tolerance))then
begin
Wait(10+random(5))
if (FindColorTolerance(MouseCoordX, MouseCoordY, 3364465, MouseCoordX-15, MouseCoordY+15, MouseCoordX+15, MouseCoordY-15, Tolerance))then
begin
Wait(5+random(4))
MMouse(MouseCoordX, MouseCoordY, 4, 4)
Wait(25+random(10))
if (IsUpText('ick'))then
begin
Wait(10+random(10))
Mouse(MouseCoordX, MouseCoordY, 4, 4, true)
Wait(TimeToKillChicken+random(250))
end
end
end;
Tolerance:=Tolerance+3;
until(Tolerance>30);
end;
begin
SetUpSRL;
ActivateClient;
CheckStaff;
TakeSpell;
AttackChicken;
end.
SCAR Code:
Procedure Killchicken;
begin
if(FindColorSpiral(MCX,MCY, RedColor, MSX1,MSY1,MSX2,MSY2))or
(FindColorSpiral(MCX, MCY, BrownColor, MSX1-10, Msy1+10, MSX2+10, MCY2-10))then
begin
MMouse(MCX, MCY, 3, 3);
Wait(20+random(10));
end;
if(IsUpText('cken'))then
begin
Wait(5+random(10));
Mouse(MCX, MCY, 2, 2, true)
Wait(TimeToWaitChicken+random(100));
end;
end;