simba script for neobux


SUBMITTED BY: Guest

DATE: Nov. 22, 2013, 1:50 p.m.

FORMAT: Text only

SIZE: 13.9 kB

HITS: 1191

  1. const
  2. T=0; // 0 = view ads then adprize.
  3. // 1 = view adprize only.
  4. // 2 = view ads only.
  5. //You most be logged in and lang set to english
  6. Var
  7. Star, Button, X, Y, Close, Check, Error, Next, ADP, ADP2, logout, Advertisement, Wt, Ht : Integer;
  8. NoAds : Boolean;
  9. Function FindStar : Boolean;//Done
  10. begin
  11. if findbitmaptolerancein(star, x, y, 0, 0, Wt, Ht, 20) then
  12. Result:=true;
  13. end;
  14. Function FindRedDot : Boolean;//Done
  15. begin
  16. if findbitmaptolerancein(Button , x, y, 0, 0, Wt, Ht, 20) then
  17. Result:=true;
  18. end;
  19. Procedure ScrollForAd;
  20. Var
  21. Z : Integer;
  22. begin
  23. repeat
  24. ScrollMouse(x, y, -1);
  25. Wait(500);
  26. Z:=Z+1;
  27. until(FindStar) or (Z>=10)
  28. If z>=10 then
  29. begin
  30. PressKey(VK_F5);
  31. NoAds:=True;
  32. end;
  33. Wait(1000);
  34. end;
  35. Function IsAdDone : Boolean;//Done
  36. var
  37. Z : Integer;
  38. begin
  39. Z:=0;
  40. Repeat
  41. wait(1000);
  42. Z:=Z+1;
  43. Writeln(inttostr(z));
  44. until((z>=130) or findbitmaptolerancein(check, x, y, 0, 0, Wt, Ht, 20) or findbitmaptolerancein(error , x, y, 0, 0, Wt, Ht, 20));
  45. If findbitmaptolerancein(check, x, y, 0, 0, Wt, Ht, 20) then
  46. Result:=true;
  47. If findbitmaptolerancein(error, x, y, 0, 0, Wt, Ht, 20) or (Z>=130) then
  48. begin
  49. cleardebug;
  50. Writeln('Error detected... Stopping now.');
  51. TerminateScript;
  52. end;
  53. end;
  54. Procedure CloseAd;//done
  55. begin
  56. Wait(1500);
  57. If findbitmaptolerancein(close, x, y, 0, 0, Wt, Ht, 20) then
  58. begin
  59. movemouse(x, y);
  60. wait(1000);
  61. Clickmouse(x, y, 1);
  62. wait(5000);
  63. PressKey(13);
  64. wait(2500);
  65. PressKey(13);
  66. end
  67. else
  68. begin
  69. Cleardebug;
  70. Writeln('Error cannot find closing button');
  71. TerminateScript;
  72. end;
  73. end;
  74. Procedure ClickAd;
  75. begin
  76. if FindStar then
  77. begin
  78. MoveMouse(x, y);
  79. wait(100+random(500));
  80. ClickMouse(x, y, 1);
  81. wait(500+random(200));
  82. if FindRedDot then
  83. begin
  84. MoveMouse(x+random(5), y+random(5));
  85. wait(100+random(500));
  86. ClickMouse(x+random(5), y+random(5), 1);
  87. wait(500+random(200));
  88. if IsAdDone then
  89. begin
  90. CloseAd;
  91. end;
  92. end
  93. end
  94. else
  95. ScrollForAd;
  96. end;
  97. Procedure AdPrize;
  98. var
  99. Z : Boolean;
  100. begin
  101. Z:=False;
  102. Repeat
  103. Cleardebug;
  104. If findbitmaptolerancein(close, x, y, 0, 0, Wt, Ht, 20) then
  105. begin
  106. wait(1000);
  107. If FindBitmaptolerancein(Next, x, y, 385, 63, 678, 128, 15) then
  108. begin
  109. Writeln('Found Next button');
  110. findbitmaptolerancein(next, x, y, 0, 0, Wt, Ht, 20);
  111. movemouse(x, y);
  112. wait(150);
  113. clickmouse(x, y, 1);
  114. wait(2000);
  115. Presskey(13);
  116. repeat
  117. wait(100)
  118. until not findbitmaptolerancein(close, x, y, 0, 0, Wt, Ht, 20);
  119. wait(2000);
  120. movemouse(x+50, y+50);
  121. end
  122. else
  123. begin
  124. writeln('did not find next button');
  125. findbitmaptolerancein(close, x, y, 0, 0, Wt, Ht, 20);
  126. movemouse(x, y);
  127. wait(150);
  128. clickmouse(x, y, 1);
  129. wait(100);
  130. Presskey(13);
  131. Z:=true;
  132. end;
  133. end;
  134. Until(z=true);
  135. end;
  136. Procedure SetupADP;
  137. Var
  138. Z : Integer;
  139. begin
  140. Z:=1;
  141. repeat
  142. scrollMouse(x, y, 1);
  143. wait(300);
  144. Z:=Z+1;
  145. until(z>=35)
  146. If findbitmaptolerancein(adp, x, y, 0, 0, Wt, Ht, 20) then
  147. begin
  148. movemouse(x+3, y+5);
  149. wait(500);
  150. clickmouse(x+3, y+5, 1);
  151. wait(6000);
  152. if findbitmaptolerancein(adp2, x, y, 0, 0, Wt, Ht, 20) then
  153. begin
  154. movemouse(x+30, y+50);
  155. wait(500);
  156. Clickmouse(x+30, y+50, 1);
  157. wait(2000);
  158. end;
  159. end;
  160. end;
  161. Procedure LoadImages;
  162. begin
  163. star := BitmapFromString(9, 8, 'beNrLNf64OevF+tTvRyr//w/9/1' +
  164. 'f1/79oIPvFsrRbi7KBbBD67wMShyAgG6gMKPhV6v87bhB6IwRFMO6' +
  165. 'v1Tr/7zKho/PcT1qFL6yd/H8n0//LDP/PwdBlhn+zGTZN6nh9ctr/' +
  166. 'VQz/D6IgoNTu2X1A54GkVoG4/5qZQOydIHJrRfy3WcYQwZO5xkCVQ' +
  167. 'BLIBoqcBACgRYcu');
  168. Button := BitmapFromString(8, 12, 'beNpjZ98kJHSIkfEGA8NDMAI' +
  169. 'ygNwl7OxA9hdOzvcMDJ9h6D1Y9qOSElD8NwMDEP0Dk7/BshDBf2D0' +
  170. 'H4wgshDx/6joH1j8H4niWM0Buuc3kqVwe3G5E+JTTH8BvYwlHACxA' +
  171. 'FvV');
  172. Error := BitmapFromString(19, 19, 'beNplkWtIk1EYx5/zIRpdVtu' +
  173. 'Utr3nnPerXWwVUWIXi13SNtrU0trsIphZFjSJGKiVWFJRmS1EEUkS' +
  174. 'LQoqiqC+RC3toiazZinufcs0L128ZPq1nm1Wiw6/D8/l/4Pzvifb+' +
  175. 'Sgp6dasGUMnj07UV9+nMfdEcUKWf/53cIgrDExUlw9dOonKzVkz+j' +
  176. '0HpoqLkdErl+9SzR3Ov0tStIUtDu/SmBHvmamioqnS0k8Xjr8/5Pp' +
  177. 'a4P7iDlNQ8Ln6wi2qaeT8WzAYsUYk6Rrnt6lm+OKp6Zjb/dXj6Tu8' +
  178. 'qzc3t3fv3mn27fvkPV1LNecZG+7pQcoZq6Oa/nMl0bGPeXk3tErpQ' +
  179. 'OY7p/MvWVnB8yVlgrqYUuSMoA6eLnzncv0NuJx95040iuI1rbI7N9' +
  180. 'Vvt/+hPTU1UOYpFFRFgipQeqTd4YjeBj37rwvqcVmu57xBq3ybbW0' +
  181. '1mVqNRqTFaGy2mDuOHeooPvjMbG4JD0OYzV35Oxr0KlTw89Gt4/yq' +
  182. 'VhnIMj1PSIjQnJDgS0xEmsMtWm/z8+Wz7npBjeHx3082Jkm1nNdpl' +
  183. 'a+3r2+Kj29asiSEwfDKZnuTk9O+c6fPbG7avOiKbi7Gxv59rFFJqu' +
  184. 'G8Vqd8vdv0OC7uyVKDb8WKBwu0twHuADyzxOEKA6P/WhGxivMa3bw' +
  185. '2y8KHAA+iwLbNsqhGP6/qPxHbSs6r9PP9mxb7CPgAngA8DoMFtjj0' +
  186. 'J8dX6VWVUe6oLHs5r9SrOpOXthFoA2gFaAFoxhuGC2xxiKvOlGWVg' +
  187. 'hrDqIzI8kXOvYK6O2V5J64gRADAT4jPuvKpdWUHIQGYnmOg27rKS2' +
  188. 'NRKRfFChor2VbLBGQIIQH0EPJiyzoDjTHQ2Jf2pCAhEkxvZaztGyu' +
  189. 'YroJpe+0bBgkZBIgwQIg/1bKWaW2UWhlbw3QdackDUQEM96anDGTa' +
  190. 'xgkZB0DGEEK60q1Grt/G2EAwiKQzZuJC91YbrsbCsRAY25M5qZg5C' +
  191. 'YD8IOT9ti0OTjPDVuTXYbGVsTSRfsiwTxISSU4qFGVzZndlO7HAYV' +
  192. '+GI1ukWVFW5AxKkovzHJH1ZzhCrkLR9QvuIQWy');
  193. Check := BitmapFromString(12, 13, 'beNr7/79kR451n9WpO6f+o4K' +
  194. 'n7566T3JPWx9Xf6i8fG9WwZZkm3abc/fPwRU8e/fMu98reVV45f6c' +
  195. 'sj1ZBbsSivYm5G6MtmuyufjgIlDByw8vvTu9E5cGlOxLKtidkL8jP' +
  196. 'mtHaPbu0Ny9YZnrAm2rrQ5eOeDd4h27wDN/fwRQPGtnaMbWkJTtXq' +
  197. 'm7vNP3emce8Elb46GTrRk1xzHnoG/6Pu+03d4pO7xydobFb3dI3O2' +
  198. 'YvM8x5aBj2mGnwt2e5adCS4+HFhwKyN7jnbzZKX6FRfI6y6DN6qE7' +
  199. 'NML3aETs0wjZo+SxXdh5E5/jOl67lby+y6WNypX1clUi1yu7bufz2' +
  200. 'MPvdYDf6yCI9NzL77aTL3SrjFmZSsfajjWH1+hnKifuVvU9LuB/Wi' +
  201. 'DgrEDAGQG/kwKxh+UsS1WblzdBQmP5/uX6qUqZJ9RDrwmG3RQKuy6' +
  202. 'YelHBtlS1Zn7Nv3//4IG2cNdCw2TFwquaMU+Ec+8rOZWplc8oQ1YA' +
  203. 'AXO2zTFOUux4YOZZrVk4qeDv37//sYGZm2a65uhUzChGUQAATRkNK' +
  204. 'g==');
  205. close := BitmapFromString(29, 12, 'beNq1j9FKwzAUhmFMZDKZiG+' +
  206. 'qvsZQpKJURFbnezRFfYOZ3ncijvWUzW5JmzSeJrUbnUUca/kuku9P' +
  207. '/p70W8nDSROw++ManqTyRW36B4u7I4S/R2r1ReIV5RBrU51uQWz3U' +
  208. 'lCKedzuxYYXL4NhbOvaUv6T+TPJlJ/cHs6rPMrSU988Q9IiZWMoXs' +
  209. 'YI+83MsJaR5U13VsURWFu3qFzBktAx6+UYBO1Gnpspyq8PoipYoj0' +
  210. 'eCB0jeQipp9M3akbLgvP1bSnB6vAQJ3cXVgcMec8ArEFem5vNRclZ' +
  211. 'yrQprqyi6dU+8hXA2t8gISjzEqbT6agYRoz0lrjy56gMTjcbUE4u9' +
  212. '5rg86LdBB/91u75Bs3hjo8=');
  213. next := BitmapFromString(30, 15, 'beNq1j91KxDAQhVEUURRFFB90' +
  214. 'd4uvsaKI4qJ0u3jtI3RF9hG2UURRWsXSTrGrTYtlnCRNf268EBK+i' +
  215. '3MyZw7JcH5wHRlifxIaYs/5MMSu/W6InatAk9zmiDk/rG1S6/+wfe' +
  216. 'lrqLlgCSZvSWWpuZn+zRfDYtK93Bq9amDKC2e0YFhOZ9ICt+TICkp' +
  217. 'Uh4sbBypRjTi/6QZU4ebFiyam5jEJViAshIXMIjvLQFiRoR7GZJgy' +
  218. 'PBsHJQSxHNF75G6LjfNnTeRScyXQY5EL2YAslbQO+JHKD/wSIdW7q' +
  219. 'Ydqt2H97Ekjmm2l7zLAEiDrKw1pKybx6F9pX5bLG9FsdzNrp4+a0O' +
  220. 'W5rW3P/0H+3at18+bQjhHjTxUTWsaEQKxXiNWTB0OsHN8bYvnIM8T' +
  221. 'ScG6EX5wCFiE=');
  222. ADP := BitmapFromString(41, 13, 'beNrFkU1PE1EYhROh0w8KotFfo' +
  223. 'j9BXOha68Id0DREN8XSUAsrQ1QiMU1pgUhkppg0VPmo+MFuKgUiBQ' +
  224. 'IY6S1aKDhYnJpOILRUXFzP9IahIEZ23Dy5OffMed937oyHXHyROS0' +
  225. 'u9Mv/5ZxnnnGS8Mk5L2wyqp/OVbaMAgjNZMDsl/c+vBllGfOdHnBs' +
  226. 'Eg7jiH8s1X3fGWb3OqFYmYA7rJkMU0N3IF2IhLrN7nAgTbWlrHyq6' +
  227. 'pgpTVZ1ZBJ0t/+w+S/OPt8AlU9ipqmsMh+0z+eUxASOml9xP8xdrR' +
  228. 'ek3Uioy9TQJUiUjNVDGG69i+QomQ0jw2Jqk7u9EExjR4xprZV2VJ3' +
  229. 'eb8DkWozksoKlVW+ZI7kNh2sYZkX7tCO5t3/FfGTAb7D5hTQlk348' +
  230. 'hb6XKCiJqMm1RmhB2UFmL/JymdDtgGvYsf774OMkFw+1ymcc7dPoY' +
  231. 'H62bnr8kRNluhbV1dQBfo0SsRWmcWab5iS7pVU1JYz2GWw+XqLxsT' +
  232. 'oIzvJWvfXMkMEWJzQv+uqMzUPc7QVCs4LNh3JkdDVRQmWhecj4OqN' +
  233. 'Ic+WXrwP75zyq1Lk9Kb1zQdyhh9bOSqNz0E4KChnnrJ2ATxfEYFFI' +
  234. 'Jf86uWB4NMVZ43Eq8zdbmMZo3toJrXem1NdwDqr+RLa0PQox19i9y' +
  235. 'gUlRZotv1LLWb0AAncUg14utk3TS7ob7gPH6lVv/b6YbHpleDipll' +
  236. 'uXiuO8pZprSuF9+oo9EeNGZIwou3QNoCFqEdb7k/wPGo+FdI4QNID' +
  237. 'QxbZoXra3RfFofxXEETXDwiy5n1+N0y2+WK5p+9dfB5f8ucm1RUsd' +
  238. 'JVUs7PxS/mCcAX3kiL2scaCs1oNd87XksXmN0sK/W6mOd/m0OOMhp' +
  239. '8MffzqK3A==');
  240. ADP2 := BitmapFromString(70, 15, 'beNrdVc1O20AQ3oNve/TVx7xB' +
  241. 'XqY8RGP50AvXSm0PPAE/cSukShEhBy4kASkRimgOSOVmA5UMUpAQE' +
  242. 'tgOqRC9uN6fmd2146SR6IXRHJLZmdn5Zr5ZHxJyrCt16igOPS6cFn' +
  243. 'T3KuMyG3ncYn2p1eeJ01ych3g3qciU3nhkyaUrarMVZShRq7kaIiy' +
  244. 'sINFBvd6gC1K5j7HwjB/dV0BxpJSOI6OSMdVPS6oh4haj1dyCpWZR' +
  245. '2+6Qhdn+h9JWVGhuixZ8OrYi1lr71zJE5Ojrpcw1Pf3Bm9YQwTW7Y' +
  246. '9lr/GeDIl2dHfOKAnt3sBKIRWloze+DbgOg5yB4BkjbuoNT3zibIt' +
  247. '6XJEVE3MFAJKO80Uy6X10wy+6dBHi2AbnudjGQ+YSDOJsvwS3PuZ9' +
  248. 'D1usAZr+zLXFpiXLJveveJyXiUecgUmzPLeFJsnxGH07h6vCWWQCR' +
  249. 'JjNfIbos0sbB2me+nM43YYkHofDxQ9mk8XpHnxFSLhnmnuEwQeIVJ' +
  250. 'vj7xJUh2h5VzIg2oAtZ4Pf1GaWjczV9Y0Z9peVwsr8+nuJzIwWcjJ' +
  251. 'wa5Ya8YHdYIN6FLD8nCVmGKKeUeRcQZhVE1ucakoKNQ9jPR2lWJeD' +
  252. 'WY4qUw2Jw2ox4PRNRT0RpiLjFu557W+BLf6YGIjBiIEMkjG37IxQQ' +
  253. 'P7joqRBNvlta2pKWXrnCi5f7TCRbtVSViNJrr+quf0Nkro+eIYB1y' +
  254. 'LemXQGnS8gmAgr9LrcwhY3LIW1qf/NUe2ZUjoiHGIhUHkMVop/KaC' +
  255. 'DqEvpeW59iBnfwgmxyKNitTzX2RRCFaZTLYqMhfpzpxPNnJjHHwMP' +
  256. 'XndEWvqm4AfA92hJjwuddvQ58pMkwkDPyn6AjE7Mhk0AePPnCgp7c' +
  257. 'GMjjPwOXn7oPsWJ+xYwgQzwIlBEDWQF4aXkhJ+U8mkAZb1AP35b+B' +
  258. 'fFwTqY=');
  259. Logout := BitmapFromString(18, 9, 'meJx1jjFqwzAUhq+UK9gXMEIXaBF' +
  260. '4KnWEQJOx6VRTgjt36dZ6zgHspR4qe2whHrKlCKmz3fX1VYKiJOQb' +
  261. 'xP++90tIyj+qqnpyYMAxTdN/6U04IuCQo713/Oy33iwot3s0dpRhZ' +
  262. '5TSgqW06yjVoIUY7CCmBSh9juN4/upYMw1C4Crs9IxhYI5F99hZpg' +
  263. 'aP0EwN6/WR8bcIaVtCMHCujOJvGgghURTNh/b6dac4P+l44/+8Vub' +
  264. 'OAUZ5MwNcvezQGLU+72SOsiwfHZiTJHlYrQ7zR5YpNLg66WCoAz7r' +
  265. 'GuDbv3z7boqiqC+wOSbP8xsHhs1lfgEsyDHA');
  266. 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==');
  267. end;
  268. Function NeedUpdate(URL, CurrentVer : String) : Boolean;
  269. Var
  270. WebPage : String;
  271. begin
  272. WebPage := GetPage( URL );
  273. if not (WebPage = CurrentVer) then
  274. Result := True;
  275. end;
  276. Procedure Login;
  277. begin
  278. OpenWebPage('http://cur.lv/4wn9i');
  279. Wait(30000);
  280. GetClientDimensions(Wt, Ht);
  281. Wt:=Wt-1;
  282. Ht:=Ht-1;
  283. if findbitmaptolerancein(logout, x, y, 0, 0, Wt, Ht, 30) then
  284. begin
  285. if findbitmaptolerancein(advertisement , x, y, 0, 0, Wt, Ht, 20) then
  286. begin
  287. movemouse(x+5, y+5);
  288. wait(150);
  289. clickmouse(x+5, y+5, 1);
  290. wait(3000);
  291. end;
  292. end
  293. else
  294. begin
  295. cleardebug;
  296. Writeln('Not logged in');
  297. Terminatescript;
  298. end;
  299. end;
  300. begin
  301. if NeedUpdate('http://darkysnipery.com/VersionID', '1.0') then
  302. begin
  303. 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);
  304. terminatescript;
  305. end;
  306. ClearDebug;
  307. Messagebox('This Script is only availible at http://bit.ly/1js6y17'+Chr(13)+
  308. 'If you downloaded it elseware it may be a virus--proceed with caution.'+Chr(13)+
  309. '- Simba Write', 'IMPORTANT', 1);
  310. Messagebox('Script dont work with adblock!! Script will fuck up if you win at adprize or ads become invalid when clicking!!'+Chr(13)+
  311. '- Simba Write', 'Also Important', 1);
  312. LoadImages;
  313. login;
  314. Wait(7500);
  315. NoAds:=false;
  316. if t=0 then begin
  317. repeat
  318. ClickAd;
  319. until(NoAds=true)
  320. end;
  321. if t=2 then
  322. TerminateScript;
  323. Wait(5000);
  324. SetupADP;
  325. AdPrize;
  326. end.

comments powered by Disqus