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.
