SCAR Code:
program Goonzu_Rabbit_Hunter;
var
x, y:integer;
PinkBunny01:integer;
PinkBunny02:integer;
PinkBunny03:integer;
PinkBunny04:integer;
PinkBunny05:integer;
PinkBunny06:integer;
PinkBunny07:integer;
Procedure Load_Bitmaps;
begin
PinkBunny01 := LoadBitmap('.\PinkBunny01.bmp');
PinkBunny02 := LoadBitmap('.\PinkBunny02.bmp');
PinkBunny03 := LoadBitmap('.\PinkBunny03.bmp');
PinkBunny04 := LoadBitmap('.\PinkBunny04.bmp');
PinkBunny05 := LoadBitmap('.\PinkBunny05.bmp');
PinkBunny06 := LoadBitmap('.\PinkBunny06.bmp');
PinkBunny07 := LoadBitmap('.\PinkBunny07.bmp');
end;
Procedure Hunt;
begin
if FindBitmapSpiralTolerance(x, y, PinkBunny01, 0, 0, 9999, 9999, 10) or
FindBitmapSpiralTolerance(x, y, PinkBunny01, 0, 0, 9999, 9999, 10) or
FindBitmapSpiralTolerance(x, y, PinkBunny01, 0, 0, 9999, 9999, 10) or
FindBitmapSpiralTolerance(x, y, PinkBunny01, 0, 0, 9999, 9999, 10) or
FindBitmapSpiralTolerance(x, y, PinkBunny01, 0, 0, 9999, 9999, 10) or
FindBitmapSpiralTolerance(x, y, PinkBunny01, 0, 0, 9999, 9999, 10) or
FindBitmapSpiralTolerance(x, y, PinkBunny01, 0, 0, 9999, 9999, 10) then
ClickMouse(x, y, true);
Wait(2000);
end;
begin
Load_Bitmaps;
repeat
Hunt;
Until(false)
writeln('Couldnt find any of the images');
end.