SRL Archive - Other Scripts

Will randomly click one of the google adds on this site, script will open site on its own.

Program GoogleAds;
{.Include SRL/SRL.Scar}

Var
Times: Integer;

Const
TimesToClick= 100;  //Times to click the ad
TimeBetween= 10;    //Wait time before clicking the add again (In Seconds)

Procedure OpenSRL;
Begin
 OpenWebPage('http://dakotastorm.sslpowered.com/dakotastorm.com/SRL-Forum/index.php');
 Wait(7500);
End;

Procedure ClickAd;
Var
RandomClick: Integer;
Begin
RandomClick:= Random(3)+1;
 Case (RandomClick) of
  1: If(FindColorSpiral(x, y, 15630653, 2, 2, 296, 741))then Mouse(x, y, 0, 0, True);
  2: If(FindColorSpiral(x, y, 15630653, 288, 9, 677, 747))then Mouse(x, y, 0, 0, True);
  3: If(FindColorSpiral(x, y, 15630653, 678, 5, 1021, 735))then Mouse(x, y, 0, 0, True);
 End;
End;

Procedure Back;
Var
BackBitmap: Integer;
Begin
  BackBitmap := BitmapFromString(14, 14, 'z78DAAD944B0E1C210C' +
       '44AF847F1896D886FB1F29D5DD1329236526521216B540F054B60' +
       'B42362F5EBD72E41CE5EE6356EBCD772ECD4119BA73EC1114B669' +
       '7ACF643EDF75EE9A83C629E97370A6A96B9AC4F02CEBA79F387C7' +
       'E59B31575F9CE1C3DB785AF1C6A7DA7087DA23DCB0FFCCFEF4C67' +
       'B87A9DF94E5B52D3EB236D417797248E7FA2C5AD1D9CEC2D1B4F4' +
       'B00FC3B6DCBD11ACF747EA3B4DBD4756EAD3A93D1996DEB13EDEF' +
       '162AAAB1FF33B35D99FC5E7BD68EC8B55197AC557BD29AB71AFCB' +
       'C5C2D02A76641AFE92CE33FCCC8AE1D047D691947316B44D0510F' +
       'A09463524806022E239C5C283AFD4CEFBC92301A32CF0FE78DACD' +
       '8214CD91529062DA5C081F59BA6E0E05A18314728B5AE77A29E24' +
       '0460DDED72F570DEC872ED18CE8B89C355872B23E182125B68DB8' +
       '04A4BDBE00CF3D86C7892C5A215C10D1986AB87F3F636BDD6182F' +
       '57139CC37271E8E05210FE85364C2F8E35C49774A2AEADFDAEEEA' +
       '0570BFE4D159D58A73D8A1D7C0868ABB462BA6968709B684D6B4E' +
       '8C23F603A37F1C04');
  If(FindBitmapToleranceIn(BackBitmap, x, y, 1, 2, 1021, 735, 10))then
   Begin
    MMouse(x, y, 0, 0);
    GetMousePos(x, y);
    Mouse(x, y, 0, 0, True);
    Wait(3000);
  End;
End;

Begin
SetupSRL;
MouseSpeed:= 0;
OpenSRL;
 Repeat
  ClickAd;
  Wait(3000);
  Back;
  Times:=Times + 1;
  WriteLn('Clicked ad '+IntToStr(Times)+' times.');
  Wait(1000*TimeBetween);
 Until(TimesToClick=Times);
 TerminateScript;
End.

I was bored -.-

~ChArMz

Lol, nice one :p, only one thing, you have Random(3)+1; so that you can make a case that starts with 1, at least i suppose this is your meaning :), but then it can also be 4, so it should be Random(2)+1 or just Random(3) and start your case with 0 :D but a good one ;)

Ahhhh NOOOOO. Nice script but noooo. Honestly. If you run this when it conmes to cash up they will refuse to cash up. Please only click ads ONCE a day. No more or we will get absolutely nothing.

Oo im sry, NO ONE USE THIS :P

From: _ChArMz
Oo im sry, NO ONE USE THIS :P

Maybe remove it aswell :p