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.