SRL Archive - Non-RuneScape Scripts

[PHP]program DuckHunt;

// http://www.2flashgames.com/f/f-212.htm



procedure StartGame;
begin
MoveMouse(325, 583);
ClickMouse(325, 583, 1);
end;
procedure ShootDucks;
Var
x, y:Integer;
begin
if (findColorSpiralTolerance(x, y, 13260, 123, 360, 565, 625, 20) or
FindColorSpiralTolerance(x, y, 9414120, 123, 360, 565, 625, 20) or
FindColorSpiralTolerance(x, y, 13056, 123, 360, 565, 625, 20) or
FindColorSpiralTolerance(x, y, 8362367, 123, 360, 565, 625, 20) or
FindColorSpiralTolerance(x, y, 11254779, 123, 360, 565, 625, 20) or
FindColorSpiralTolerance(x, y, 12517376, 123, 360, 565, 625, 20)) then

begin
MoveMouse(x, y);
ClickMouse(x, y, 1);
end;
end;
begin
StartGame;
repeat
ShootDucks
until(false);
end. [/PHP]


The link of the game is in the script, might change mouse locations.