const
  T=0;   // 0 = view ads then adprize.
         // 1 = view adprize only.
         // 2 = view ads only.
         //You most be logged in and lang set to english












Var
  Star, Button, X, Y, Close, Check, Error, Next, ADP, ADP2, logout, Advertisement, Wt, Ht : Integer;
  NoAds : Boolean;

Function FindStar : Boolean;//Done
begin
    if findbitmaptolerancein(star, x, y, 0, 0, Wt, Ht, 20) then
    Result:=true;
end;

Function FindRedDot : Boolean;//Done
begin
  if findbitmaptolerancein(Button , x, y, 0, 0, Wt, Ht, 20) then
    Result:=true;
end;

Procedure ScrollForAd;
Var
  Z : Integer;
begin
  repeat
    ScrollMouse(x, y, -1);
    Wait(500);
    Z:=Z+1;
  until(FindStar) or (Z>=10)
    If z>=10 then
    begin
      PressKey(VK_F5);
      NoAds:=True;
    end;
  Wait(1000);
end;

Function IsAdDone : Boolean;//Done
var
  Z : Integer;
begin
  Z:=0;
  Repeat
    wait(1000);
    Z:=Z+1;
    Writeln(inttostr(z));
  until((z>=130) or findbitmaptolerancein(check, x, y, 0, 0, Wt, Ht, 20) or findbitmaptolerancein(error , x, y, 0, 0, Wt, Ht, 20));
  If findbitmaptolerancein(check, x, y, 0, 0, Wt, Ht, 20) then
    Result:=true;
  If findbitmaptolerancein(error, x, y, 0, 0, Wt, Ht, 20) or (Z>=130) then
  begin
    cleardebug;
    Writeln('Error detected... Stopping now.');
    TerminateScript;
  end;
end;

Procedure CloseAd;//done
begin
  Wait(1500);
  If findbitmaptolerancein(close, x, y, 0, 0, Wt, Ht, 20) then
  begin
    movemouse(x, y);
    wait(1000);
    Clickmouse(x, y, 1);
    wait(5000);
    PressKey(13);
    wait(2500);
    PressKey(13);

  end
  else
  begin
    Cleardebug;
    Writeln('Error cannot find closing button');
    TerminateScript;
  end;
end;

Procedure ClickAd;
begin
  if FindStar then
  begin
    MoveMouse(x, y);
    wait(100+random(500));
    ClickMouse(x, y, 1);
    wait(500+random(200));
    if FindRedDot then
    begin
      MoveMouse(x+random(5), y+random(5));
      wait(100+random(500));
      ClickMouse(x+random(5), y+random(5), 1);
      wait(500+random(200));
      if IsAdDone then
      begin
        CloseAd;
      end;
    end
  end
  else
  ScrollForAd;
end;


Procedure AdPrize;
var
  Z : Boolean;
begin
 Z:=False;
 Repeat
 Cleardebug;
 If findbitmaptolerancein(close, x, y, 0, 0, Wt, Ht, 20) then
 begin
   wait(1000);
   If FindBitmaptolerancein(Next, x, y, 385, 63, 678, 128, 15) then
   begin
     Writeln('Found Next button');
     findbitmaptolerancein(next, x, y, 0, 0, Wt, Ht, 20);
     movemouse(x, y);
     wait(150);
     clickmouse(x, y, 1);
     wait(2000);
     Presskey(13);
     repeat
       wait(100)
     until not findbitmaptolerancein(close, x, y, 0, 0, Wt, Ht, 20);
     wait(2000);
     movemouse(x+50, y+50);
   end
   else
   begin
     writeln('did not find next button');
     findbitmaptolerancein(close, x, y, 0, 0, Wt, Ht, 20);
     movemouse(x, y);
     wait(150);
     clickmouse(x, y, 1);
     wait(100);
     Presskey(13);
     Z:=true;
   end;
 end;
 Until(z=true);
end;

Procedure SetupADP;
Var
  Z : Integer;
begin
  Z:=1;
  repeat
    scrollMouse(x, y, 1);
    wait(300);
    Z:=Z+1;
  until(z>=35)
  If findbitmaptolerancein(adp, x, y, 0, 0, Wt, Ht, 20) then
  begin
    movemouse(x+3, y+5);
    wait(500);
    clickmouse(x+3, y+5, 1);
    wait(6000);
    if findbitmaptolerancein(adp2, x, y, 0, 0, Wt, Ht, 20) then
    begin
      movemouse(x+30, y+50);
      wait(500);
      Clickmouse(x+30, y+50, 1);
      wait(2000);
    end;
  end;
end;


Procedure LoadImages;
begin
    star := BitmapFromString(9, 8, 'beNrLNf64OevF+tTvRyr//w/9/1' +
       'f1/79oIPvFsrRbi7KBbBD67wMShyAgG6gMKPhV6v87bhB6IwRFMO6' +
       'v1Tr/7zKho/PcT1qFL6yd/H8n0//LDP/PwdBlhn+zGTZN6nh9ctr/' +
       'VQz/D6IgoNTu2X1A54GkVoG4/5qZQOydIHJrRfy3WcYQwZO5xkCVQ' +
       'BLIBoqcBACgRYcu');

    Button := BitmapFromString(8, 12, 'beNpjZ98kJHSIkfEGA8NDMAI' +
       'ygNwl7OxA9hdOzvcMDJ9h6D1Y9qOSElD8NwMDEP0Dk7/BshDBf2D0' +
       'H4wgshDx/6joH1j8H4niWM0Buuc3kqVwe3G5E+JTTH8BvYwlHACxA' +
       'FvV');

    Error := BitmapFromString(19, 19, 'beNplkWtIk1EYx5/zIRpdVtu' +
       'Utr3nnPerXWwVUWIXi13SNtrU0trsIphZFjSJGKiVWFJRmS1EEUkS' +
       'LQoqiqC+RC3toiazZinufcs0L128ZPq1nm1Wiw6/D8/l/4Pzvifb+' +
       'Sgp6dasGUMnj07UV9+nMfdEcUKWf/53cIgrDExUlw9dOonKzVkz+j' +
       '0HpoqLkdErl+9SzR3Ov0tStIUtDu/SmBHvmamioqnS0k8Xjr8/5Pp' +
       'a4P7iDlNQ8Ln6wi2qaeT8WzAYsUYk6Rrnt6lm+OKp6Zjb/dXj6Tu8' +
       'qzc3t3fv3mn27fvkPV1LNecZG+7pQcoZq6Oa/nMl0bGPeXk3tErpQ' +
       'OY7p/MvWVnB8yVlgrqYUuSMoA6eLnzncv0NuJx95040iuI1rbI7N9' +
       'Vvt/+hPTU1UOYpFFRFgipQeqTd4YjeBj37rwvqcVmu57xBq3ybbW0' +
       '1mVqNRqTFaGy2mDuOHeooPvjMbG4JD0OYzV35Oxr0KlTw89Gt4/yq' +
       'VhnIMj1PSIjQnJDgS0xEmsMtWm/z8+Wz7npBjeHx3082Jkm1nNdpl' +
       'a+3r2+Kj29asiSEwfDKZnuTk9O+c6fPbG7avOiKbi7Gxv59rFFJqu' +
       'G8Vqd8vdv0OC7uyVKDb8WKBwu0twHuADyzxOEKA6P/WhGxivMa3bw' +
       '2y8KHAA+iwLbNsqhGP6/qPxHbSs6r9PP9mxb7CPgAngA8DoMFtjj0' +
       'J8dX6VWVUe6oLHs5r9SrOpOXthFoA2gFaAFoxhuGC2xxiKvOlGWVg' +
       'hrDqIzI8kXOvYK6O2V5J64gRADAT4jPuvKpdWUHIQGYnmOg27rKS2' +
       'NRKRfFChor2VbLBGQIIQH0EPJiyzoDjTHQ2Jf2pCAhEkxvZaztGyu' +
       'YroJpe+0bBgkZBIgwQIg/1bKWaW2UWhlbw3QdackDUQEM96anDGTa' +
       'xgkZB0DGEEK60q1Grt/G2EAwiKQzZuJC91YbrsbCsRAY25M5qZg5C' +
       'YD8IOT9ti0OTjPDVuTXYbGVsTSRfsiwTxISSU4qFGVzZndlO7HAYV' +
       '+GI1ukWVFW5AxKkovzHJH1ZzhCrkLR9QvuIQWy');


  Check := BitmapFromString(12, 13, 'beNr7/79kR451n9WpO6f+o4K' +
       'n7566T3JPWx9Xf6i8fG9WwZZkm3abc/fPwRU8e/fMu98reVV45f6c' +
       'sj1ZBbsSivYm5G6MtmuyufjgIlDByw8vvTu9E5cGlOxLKtidkL8jP' +
       'mtHaPbu0Ny9YZnrAm2rrQ5eOeDd4h27wDN/fwRQPGtnaMbWkJTtXq' +
       'm7vNP3emce8Elb46GTrRk1xzHnoG/6Pu+03d4pO7xydobFb3dI3O2' +
       'YvM8x5aBj2mGnwt2e5adCS4+HFhwKyN7jnbzZKX6FRfI6y6DN6qE7' +
       'NML3aETs0wjZo+SxXdh5E5/jOl67lby+y6WNypX1clUi1yu7bufz2' +
       'MPvdYDf6yCI9NzL77aTL3SrjFmZSsfajjWH1+hnKifuVvU9LuB/Wi' +
       'DgrEDAGQG/kwKxh+UsS1WblzdBQmP5/uX6qUqZJ9RDrwmG3RQKuy6' +
       'YelHBtlS1Zn7Nv3//4IG2cNdCw2TFwquaMU+Ec+8rOZWplc8oQ1YA' +
       'AXO2zTFOUux4YOZZrVk4qeDv37//sYGZm2a65uhUzChGUQAATRkNK' +
       'g==');

  close := BitmapFromString(29, 12, 'beNq1j9FKwzAUhmFMZDKZiG+' +
       'qvsZQpKJURFbnezRFfYOZ3ncijvWUzW5JmzSeJrUbnUUca/kuku9P' +
       '/p70W8nDSROw++ManqTyRW36B4u7I4S/R2r1ReIV5RBrU51uQWz3U' +
       'lCKedzuxYYXL4NhbOvaUv6T+TPJlJ/cHs6rPMrSU988Q9IiZWMoXs' +
       'YI+83MsJaR5U13VsURWFu3qFzBktAx6+UYBO1Gnpspyq8PoipYoj0' +
       'eCB0jeQipp9M3akbLgvP1bSnB6vAQJ3cXVgcMec8ArEFem5vNRclZ' +
       'yrQprqyi6dU+8hXA2t8gISjzEqbT6agYRoz0lrjy56gMTjcbUE4u9' +
       '5rg86LdBB/91u75Bs3hjo8=');

  next := BitmapFromString(30, 15, 'beNq1j91KxDAQhVEUURRFFB90' +
       'd4uvsaKI4qJ0u3jtI3RF9hG2UURRWsXSTrGrTYtlnCRNf268EBK+i' +
       '3MyZw7JcH5wHRlifxIaYs/5MMSu/W6InatAk9zmiDk/rG1S6/+wfe' +
       'lrqLlgCSZvSWWpuZn+zRfDYtK93Bq9amDKC2e0YFhOZ9ICt+TICkp' +
       'Uh4sbBypRjTi/6QZU4ebFiyam5jEJViAshIXMIjvLQFiRoR7GZJgy' +
       'PBsHJQSxHNF75G6LjfNnTeRScyXQY5EL2YAslbQO+JHKD/wSIdW7q' +
       'Ydqt2H97Ekjmm2l7zLAEiDrKw1pKybx6F9pX5bLG9FsdzNrp4+a0O' +
       'W5rW3P/0H+3at18+bQjhHjTxUTWsaEQKxXiNWTB0OsHN8bYvnIM8T' +
       'ScG6EX5wCFiE=');

  ADP := BitmapFromString(41, 13, 'beNrFkU1PE1EYhROh0w8KotFfo' +
       'j9BXOha68Id0DREN8XSUAsrQ1QiMU1pgUhkppg0VPmo+MFuKgUiBQ' +
       'IY6S1aKDhYnJpOILRUXFzP9IahIEZ23Dy5OffMed937oyHXHyROS0' +
       'u9Mv/5ZxnnnGS8Mk5L2wyqp/OVbaMAgjNZMDsl/c+vBllGfOdHnBs' +
       'Eg7jiH8s1X3fGWb3OqFYmYA7rJkMU0N3IF2IhLrN7nAgTbWlrHyq6' +
       'pgpTVZ1ZBJ0t/+w+S/OPt8AlU9ipqmsMh+0z+eUxASOml9xP8xdrR' +
       'ek3Uioy9TQJUiUjNVDGG69i+QomQ0jw2Jqk7u9EExjR4xprZV2VJ3' +
       'eb8DkWozksoKlVW+ZI7kNh2sYZkX7tCO5t3/FfGTAb7D5hTQlk348' +
       'hb6XKCiJqMm1RmhB2UFmL/JymdDtgGvYsf774OMkFw+1ymcc7dPoY' +
       'H62bnr8kRNluhbV1dQBfo0SsRWmcWab5iS7pVU1JYz2GWw+XqLxsT' +
       'oIzvJWvfXMkMEWJzQv+uqMzUPc7QVCs4LNh3JkdDVRQmWhecj4OqN' +
       'Ic+WXrwP75zyq1Lk9Kb1zQdyhh9bOSqNz0E4KChnnrJ2ATxfEYFFI' +
       'Jf86uWB4NMVZ43Eq8zdbmMZo3toJrXem1NdwDqr+RLa0PQox19i9y' +
       'gUlRZotv1LLWb0AAncUg14utk3TS7ob7gPH6lVv/b6YbHpleDipll' +
       'uXiuO8pZprSuF9+oo9EeNGZIwou3QNoCFqEdb7k/wPGo+FdI4QNID' +
       'QxbZoXra3RfFofxXEETXDwiy5n1+N0y2+WK5p+9dfB5f8ucm1RUsd' +
       'JVUs7PxS/mCcAX3kiL2scaCs1oNd87XksXmN0sK/W6mOd/m0OOMhp' +
       '8MffzqK3A==');

  ADP2 := BitmapFromString(70, 15, 'beNrdVc1O20AQ3oNve/TVx7xB' +
       'XqY8RGP50AvXSm0PPAE/cSukShEhBy4kASkRimgOSOVmA5UMUpAQE' +
       'tgOqRC9uN6fmd2146SR6IXRHJLZmdn5Zr5ZHxJyrCt16igOPS6cFn' +
       'T3KuMyG3ncYn2p1eeJ01ych3g3qciU3nhkyaUrarMVZShRq7kaIiy' +
       'sINFBvd6gC1K5j7HwjB/dV0BxpJSOI6OSMdVPS6oh4haj1dyCpWZR' +
       '2+6Qhdn+h9JWVGhuixZ8OrYi1lr71zJE5Ojrpcw1Pf3Bm9YQwTW7Y' +
       '9lr/GeDIl2dHfOKAnt3sBKIRWloze+DbgOg5yB4BkjbuoNT3zibIt' +
       '6XJEVE3MFAJKO80Uy6X10wy+6dBHi2AbnudjGQ+YSDOJsvwS3PuZ9' +
       'D1usAZr+zLXFpiXLJveveJyXiUecgUmzPLeFJsnxGH07h6vCWWQCR' +
       'JjNfIbos0sbB2me+nM43YYkHofDxQ9mk8XpHnxFSLhnmnuEwQeIVJ' +
       'vj7xJUh2h5VzIg2oAtZ4Pf1GaWjczV9Y0Z9peVwsr8+nuJzIwWcjJ' +
       'wa5Ya8YHdYIN6FLD8nCVmGKKeUeRcQZhVE1ucakoKNQ9jPR2lWJeD' +
       'WY4qUw2Jw2ox4PRNRT0RpiLjFu557W+BLf6YGIjBiIEMkjG37IxQQ' +
       'P7joqRBNvlta2pKWXrnCi5f7TCRbtVSViNJrr+quf0Nkro+eIYB1y' +
       'LemXQGnS8gmAgr9LrcwhY3LIW1qf/NUe2ZUjoiHGIhUHkMVop/KaC' +
       'DqEvpeW59iBnfwgmxyKNitTzX2RRCFaZTLYqMhfpzpxPNnJjHHwMP' +
       'XndEWvqm4AfA92hJjwuddvQ58pMkwkDPyn6AjE7Mhk0AePPnCgp7c' +
       'GMjjPwOXn7oPsWJ+xYwgQzwIlBEDWQF4aXkhJ+U8mkAZb1AP35b+B' +
       'fFwTqY=');
  Logout := BitmapFromString(18, 9, 'meJx1jjFqwzAUhq+UK9gXMEIXaBF' +
        '4KnWEQJOx6VRTgjt36dZ6zgHspR4qe2whHrKlCKmz3fX1VYKiJOQb' +
        'xP++90tIyj+qqnpyYMAxTdN/6U04IuCQo713/Oy33iwot3s0dpRhZ' +
        '5TSgqW06yjVoIUY7CCmBSh9juN4/upYMw1C4Crs9IxhYI5F99hZpg' +
        'aP0EwN6/WR8bcIaVtCMHCujOJvGgghURTNh/b6dac4P+l44/+8Vub' +
        'OAUZ5MwNcvezQGLU+72SOsiwfHZiTJHlYrQ7zR5YpNLg66WCoAz7r' +
        'GuDbv3z7boqiqC+wOSbP8xsHhs1lfgEsyDHA');
  Advertisement := BitmapFromString(54, 15, 'meJzNU89PE0EUPtidmd3tQiHwt/A/+DfIQc9CykqPQiOgN6MmKMUEu7uIv2irFwycZmpiigeVC51AYggGrXCYC+Bx/LYD6wLVcODA5uvmvW++9733drf9b/v7Lzf6an0XhZ6nPQYX69lb6T0ncrM5764HIOgoqK94SitvpX5+z45dDEz64WOuZ7HnnJif8rSW4Q/tTXkdBfWaiwndWv38nh1Mjtc0aXepO/cm1zXTZXAqTgOM/OTI71pp6dREIkCQncw6vgOIWQpzc9rRMC1GkBYgjY8KjpiLTeisMJrsvWz36+76siux+2R0Kk7DnXR1K2J1qXfCwiYELkjviWd4fXwprTGh2ipEe9poYsFeVNhSRqw2C4nSXa6DREeMJNcFyF/47f9M3Oq/tXhXcCYctTmK1F6VJg5bGkHXq64E2cfZMG9LPL2JSH51xKG286MgjV7sx6mdt3mJoJddFdGEA7GdDyFAYfzYl8UpsZineBQwFFUb8wbb4G02yvhcbEJKHClKxAt2a5CqQ9Fc4xiMDlLdCtmqdKdd76WXwLnjyFUGAfhoGitLVhUgwzzDlwm9kYkqgzmOIDM+MEwKIUahVeIszwD/qqX2BcSmikbCNE1MEk9+f0QcqPLACLYuD5RhQivCXXDToMNU7wSZlSaCON4u++sKgai0v5ljfTqVDSoO9JWBEYxKGxJMiEIt9cmLfZH/MTlK17i/oaxrlm4FfK3JDxQt3nKeOwnYI8YrpP3h/L34vibDfnDdwkakwo9kkRW/oHYaFtFIlmc4FqfFEEwwjNfXzMxwMkwAdMSdFinMkyqgU6rJIifjRDYwhsa06GXP2wlwpDb8YEeTIWIQDEHZJA2ZuZHBXsmRWhsxbqiCCY5gGLS0MTQ+8WpD/pHPe8JEyBfbI7WrgGAc5tISzVgzTviCxQ81GfNZxIKx+Ih8lojT8MEf8lO83g2CXW3lrXZV0zzY5o6Key1xo+FLJJ3Sh5SMxUOm//hUiLMy9e1Ig9l41ScPCEBDagITp9GRT0jAum1lbmZwB9LKs4WJ2Oj/1feEZ9GyypcdmWeZS44/42yxrg==');
end;

Function NeedUpdate(URL, CurrentVer : String) : Boolean;
Var
  WebPage : String;
begin
  WebPage := GetPage( URL );
  if not (WebPage = CurrentVer) then
    Result := True;
end;


Procedure Login;
begin
  OpenWebPage('http://cur.lv/4wn9i');
  Wait(30000);
  GetClientDimensions(Wt, Ht);
  Wt:=Wt-1;
  Ht:=Ht-1;
  if findbitmaptolerancein(logout, x, y, 0, 0, Wt, Ht, 30) then
  begin
    if findbitmaptolerancein(advertisement , x, y, 0, 0, Wt, Ht, 20) then
    begin
      movemouse(x+5, y+5);
      wait(150);
      clickmouse(x+5, y+5, 1);
      wait(3000);
    end;
  end
  else
  begin
    cleardebug;
    Writeln('Not logged in');
    Terminatescript;
  end;
end;


begin
  if NeedUpdate('http://darkysnipery.com/VersionID', '1.0') then
  begin
    Messagebox('Visit http://bit.ly/1js6y17 for an update, update will be posted as soon as it is done! The script is marked as out of day if neobux detect the script!', 'UPDATE REQUIRED!', 1);
    terminatescript;
  end;
  ClearDebug;
  Messagebox('This Script is only availible at http://bit.ly/1js6y17'+Chr(13)+
             'If you downloaded it elseware it may be a virus--proceed with caution.'+Chr(13)+
             '- Simba Write', 'IMPORTANT', 1);
  Messagebox('Script dont work with adblock!! Script will fuck up if you win at adprize or ads become invalid when clicking!!'+Chr(13)+
             '- Simba Write', 'Also Important', 1);
  LoadImages;
  login;
  Wait(7500);
  NoAds:=false;
  if t=0 then begin
  repeat
    ClickAd;
  until(NoAds=true)
  end;
  if t=2 then
    TerminateScript;
  Wait(5000);
  SetupADP;
  AdPrize;
end.