Game: Kill the popups! Lol

[LordJashin]

Lol what a funny game. (hint make sure sounds on)

 

Game: Realistic Internet Simulator AKA Kill The Popups by Rob Manuel [b3TA : WE LOVE THE WEB]

 

Flawless script afaik:

 

// KillThePopups killer ~ By LordJashin

program KillThePopups;

var
 ClickToPlay, PlayAgain, Xbmp: TSCARBitmap;
 x, y, w, h, XColor: Integer;

function FindBmpDblClick(bmp: TSCARBitmap): Boolean;
begin
 if FindBitmap(x, y, bmp, 0, 0, w - 1, h - 1) then
 begin
   Result := True;
   MoveMouse(x, y);
   ClickMouse(x, y, mbLeft);
   ClickMouse(x, y, mbLeft);
 end;  
end;

procedure cPlay;
begin
 if FindBmpDblClick(PlayAgain) then
   wait(500);
 FindBmpDblClick(ClickToPlay);    
end;

begin
 ClickToPlay := TSCARBitmap.Create('deNpTZWBhYGJas3//q////8MZiorbgGxDw92Cg' +
   'hvhgu/f/wQiIBcNNTRchegFovPn38PVBAYeBYoDZZEVI9uCzEBGEMH7978AyYS' +
   'E03isAzKAiiFsR8cDBK1bsOA+kAFUCWSvX/8UaAXQgxBZCAPoeIiX0awDBgXEd' +
   'xA2UA1QO1wcl3VAWaCB/2EA4ja4LFYHA/0LUQyURdMOdDxaUAAFAd1e8WA=');
 PlayAgain := TSCARBitmap.Create('deNpTYeBm+I8K/v7939R0jYlpDRBNmnQbKLJ06' +
   'SMIFw/Kz7/w+/c/oOLDh1+jSWlr7/z+/e+fP/+8vA4ji5879x6o/vbtz6TaBdQ' +
   'INO3GjU+YZgLRli3PkY2FIFnZrU+efHvz5qeZ2V7i7YK4HGgURD2m1yDGAqWwu' +
   'hDiNiLtgjgbqAxiKdypmIFMob8gWuDOg8QCVi1AKcz4ggcCMXahhRvE/WhRAw9' +
   'qtHSIHLnE2AV0HnLShXgTWQQZIVuE5h6CdkEi6D82gJlC8COCdkFSBVaANfGTb' +
   'RdaqsCMd2IyJpF2QWSxJgNICsFM/AB7SShg');
 Xbmp := TSCARBitmap.Create('deNrjYuBkuHLhBH7EAAZ4RJC5mIrhglil8Ogiq' +
   'BePvQTdjAsBACekmxQ=');
 XColor := 7219471;
 GetClient.Activate;
 GetBoxSize(GetClient.ImageArea, w, h);    
 CPlay;
 Repeat
   if FindBitmap(x, y, Xbmp, 0, 0, w - 1, h - 1) then
     ClickMouse(x, y, mbLeft);    
   if FindColor(x, y, XColor, 0, 0, w - 1, h - 1) then
   begin
     MouseBtnDown(x, y, mbLeft);
     //MoveMouse(w div 2, h div 2);
     MouseBtnUp(w div 2, h div 2, mbLeft);
   end;


 until FindBitmap(x, y, PlayAgain, 0, 0, w - 1, h - 1);
 ClickToPlay.Free;
 PlayAgain.Free;
 Xbmp.Free;
end.