API tools faq
paste
Advertisement
Black404

Scrip Bot By Reza

Black404
Apr 19th, 2013
277
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
PHP 13.60 KB | None | 0 0
raw download clone embed print report
  1. <?php
  2. $access_token = ('TARUH TOKENMU DISINI');
  3.  
  4. if(file_exists('cm_log')){
  5. $log=json_encode(file('cm_log'));
  6. }else{
  7. $log='';
  8. }
  9. $jam=array('01','02','03','04','05','06','07','08','09','10','11','12','13','14','15','16','17','18','19','20','21','22','23','24','00',);
  10. $sapa=array('Met Dini Hari ','Met Dini Hari ','Met Dini Hari ','Met Dini Hari ','Met Pagi ','Met Pagi ','Met Pagi ','Met Pagi ','Met Pagi ','Met Jelang Siang ','Met Siang ','Met Siang ','Met Siang ','Met Siang ','Met Sore ','Met Sore ','Met Petang ','Met Petang ','Met Malem ','Met Malem ','Met Malem ','Met Malem ','Met Malem ','Met Malem ','Met Malem ',);
  11. $ucapan = gmdate('H',time()+7*3600);
  12. $ucapan = str_replace($jam,$sapa,$ucapan);
  13. $aiueo = array('A','I','E','O','a','i','e','o',);
  14. $uuu = array('u','u','u','u','u','u','u','u',);
  15. $me = json_decode(auto('https://graph.facebook.com/me?access_token='.$access_token.'&fields=id'),true);
  16. $stat=json_decode(auto('https://graph.facebook.com/me/home?fields=id,message,from,comments,type&access_token='.$access_token.'&offset=0&limit=15'),true);
  17.  
  18.  
  19. for($i=1;$i<=count($stat[data]);$i++){
  20. if(!ereg($stat[data][$i-1][id],$log)){
  21. if($stat[data][$i-1][from][id] != $me[id]){
  22. $x=$stat[data][$i-1][id].'  ';
  23. $y = fopen('cm_log','a');
  24. fwrite($y,$x);
  25. fclose($y);
  26. $bot=array('nomer','latah','biasa',);
  27. $robot=$bot[rand(0,count($bot)-1)];
  28. $s=$stat[data][$i-1][message];
  29. $gen=json_decode(auto('http://graph.facebook.com/'.$stat[data][$i-1][from][id].'?fields=gender'),true);
  30. if($gen[gender] == 'male'){
  31. $arr_gen=array('Mas','Kang','Mbah','Pak','Om',);
  32. }else{
  33. $arr_gen=array('Mbak','Neng','Non',);
  34. }
  35. $exp_nam=explode(' ',$stat[data][$i-1][from][name]);
  36. $nama = $arr_gen[rand(0,count($arr_gen)-1)].' '.$exp_nam[0]; if($stat[data][$i-1][type] == 'photo' ){ $text= array('Keren '.$nama,'tag dunk hehe...','waduh '.$nama.' g keliatan potona maklum cuma make hp tanpa layar :p',); }else{
  37. if(ereg('jancok',$s) || ereg(' asu ',$s) || ereg('taek',$s) || ereg('jancox',$s) || ereg('jamput',$s) || ereg('raimu',$s) || ereg('ndasmu',$s) || ereg('kontol',$s) || ereg('itil',$s) || ereg('anjing',$s) || ereg('hancok',$s) ){
  38. $text=array(
  39. 'wew Garapane Kasar... Selow dikit dunk '.$nama.'',
  40. 'wah '.$nama.' Ge Marah...!
  41. Kabur ach....!!!',
  42. 'Ojjo neSsu '.$nama.' Ora iLok',
  43. 'Ck Ck Ck Ck Ck... nyebot '.$nama,
  44. );
  45. }else{
  46. if(ereg('panas',$s) || ereg('sumuk',$s) || ereg('puanas',$s) || ereg('puanaz',$s) || ereg('panaz',$s) || ereg('gerah',$s) || ereg('neroko',$s) || ereg('koyo kobong',$s) || ereg('Panas',$s) ){
  47. $text=array(
  48. 'Panas Ea '.$nama.' hehe Podo...',
  49. 'kek na '.$nama.' Ge Butuh dem adem neh',
  50. 'mlebuo kulkas '.$nama.' cekne adem',
  51. 'nyemplungo jeding '.$nama.'... haha..',
  52. 'kene kene kene '.$nama.' tak gambyor banyu korahan wkwkwk',
  53. );
  54. }else{
  55. if(ereg('cape',$s) || ereg('kesel',$s) || ereg('keju',$s) || ereg('linu',$s) || ereg('klenger',$s) || ereg('lempoh',$s) || ereg('lesu',$s) || ereg('kemeng',$s) || ereg('nggregesi',$s)){
  56. $text=array(
  57. 'Tak pijeti a '.$nama.' ',
  58. 'mari di kapakne to '.$nama.'',
  59. 'aaaaaaaaa '.$nama.' cape dweeehhh...',
  60. 'mo tak gendong kemana mana '.$nama.'',
  61. 'tatap mataku entar capena '.$nama.' ilang wkwkwk',
  62. );
  63. }else{
  64. if(ereg('cinta',$s) || ereg('love',$s) || ereg('rindu',$s) || ereg('kangen',$s) || ereg('LOVE',$s) || ereg('nyayang',$s) || ereg('kekasih',$s) || ereg('peluk',$s) || ereg('Cinta',$s)){
  65. $text=array(
  66. 'Cye cye cyeeeeee.... Ada yg Cinta Cintaan nie yeee....',
  67. 'wew '.$nama.' Pacaran kwakakakaka...',
  68. 'heleh gombal '.$nama.' wkwkwk',
  69. ''.$nama.' ngomong opo iku... ga mudeng au... sek cilik... lom boleh pacayan... wkwk',
  70. 'hmmm... ',
  71. 'siT sUiiiiiiit..................!!!',
  72. 'ok tok ezt',
  73. );
  74. }else{
  75. if(ereg('like',$s) || ereg('Like',$s) || ereg('salkomsel',$s) || ereg('SALKOMSEL',$s) || ereg('jempol',$s) || ereg('Jempol',$s) || ereg('Salkomsel',$s) || ereg('JEMPOL',$s) || ereg('LIKE',$s)){
  76. $text=array(
  77. 'Wokey dah '.$nama.' tanpa basa basi Q kasi Like This...',
  78. ''.$ucapan.' '.$nama.' Numpang Like Gitu Haha....
  79. SALKOMSEL!!!',
  80. ''.$ucapan.' '.$nama.' Status Kmu emang Oke',
  81. 'SALKOMSEL',
  82. 'Like This',
  83. 'Wah akhirnya Status '.$nama.' Nongol...!!!
  84. Like This Tok wez',
  85. 'Dua Jempol Sekaligus Buat '.$nama.' yg satunya Minjem tetangga',);
  86. }else{
  87. if(ereg('sepi',$s) || ereg('sunyi',$s) || ereg('sendiri',$s) || ereg('Sepi',$s) || ereg('Sunyi',$s) || ereg('Sendiri',$s) || ereg('Dewean',$s) || ereg('dewekan',$s) || ereg('dewean',$s))
  88. {
  89. $text=array(
  90. 'Mo Q temanin '.$nama.'',
  91. 'Reneo '.$nama.'',
  92. 'neng Kene Loh Rame '.$nama.'',
  93. 'tak Kasi comment ma Like... biar tambah rame '.$nama.'',
  94. ''.$ucapan.'',
  95. );
  96. }else{
  97. if(ereg('off',$s) || ereg('OFF',$s) || ereg('Off',$s) || ereg('ngantuk',$s) || ereg('ngantok',$s) || ereg('bobo',$s) || ereg('bubu',$s) || ereg('tidur',$s) || ereg('molor',$s)){
  98. $text=array(
  99. 'klo '.$nama.' bobo yg nemenin Q cappa... wkwk',
  100. 'Maaf '.$nama.'
  101. Q tak akan Berharap '.$nama.' mimpi indah....
  102. biarlah Q cma Berharap kenyataan '.$nama.' Lebih indah dari sekedar mimpi...',
  103. 'mo Molor '.$nama.'
  104. ikuddd...',
  105. );
  106. }else{
  107. if(ereg('met pagi',$s) || ereg('met siang',$s) || ereg('met',$s) || ereg('pagi',$s) || ereg('malem',$s) || ereg('met malem',$s) || ereg('hello',$s) || ereg('hallo',$s) || ereg('pa kabar',$s)){
  108. $text=array(
  109. ''.$ucapan.' '.$nama.' Pha Kabar',
  110. 'wokey '.$nama.'',
  111. 'yoi '.$nama.'',
  112. 'sip '.$nama.'',
  113. 'oklek '.$nama.' '.$ucapan.'',
  114. ''.$ucapan.'',
  115. ''.$ucapan.' '.$nama.'',
  116. ''.$nama.' '.$ucapan.'',
  117. ''.$nama.' pa kabar',
  118. );
  119. }else{
  120. if(ereg('luwe',$s) || ereg('lapar',$s) || ereg('laper',$s) || ereg('mangan',$s) || ereg('mbadok',$s) || ereg('nguntal',$s) || ereg('nyosor',$s) || ereg('ewul',$s) || ereg('hungry',$s)){
  121. $text=array(
  122. 'Kelaparan ea '.$nama.' Haha....!!!
  123. - Sakjane Q dwe yo podDo',
  124. 'Tuku Bakso '.$nama.'',
  125. 'apapun makananya yg penting '.$nama.' ajak aQ',
  126. 'mangan watu',
  127. 'maaf g da makanan... cuma da Jempol buat '.$nama.'',
  128. 'Biar kenyang Q kasi Like dhizzz ezt',
  129. 'arep a '.$nama.' q due enak2... sak kresek',
  130. );
  131. }else{
  132. if(ereg('benci',$s) || ereg('sebel',$s) || ereg('muak',$s) || ereg('muntah',$s) || ereg('gila',$s) || ereg('gendeng',$s) || ereg('edan',$s) || ereg('koclok',$s) || ereg('cengoh',$s) ){
  133. $text=array(
  134. 'Bantai ae',
  135. 'yach...!!! '.$nama.' Ngambek...
  136. gak seru...',
  137. 'andai kau tau '.$nama.' kata katamu menusuk nusuk perutku...',
  138. );
  139. }else{
  140. if(ereg('adus',$s) || ereg('mandi',$s) || ereg('mande',$s) || ereg('siram',$s) || ereg('Mandi',$s) || ereg('lumban',$s) || ereg('MANDI',$s) || ereg('Lumban',$s) || ereg('slulop',$s) ){
  141. $text=array(
  142. 'mau dunk jdi Sabunya '.$nama.'
  143. hehe pizz!!!
  144. - sambil prengas-prenges',
  145. 'Asyeeeekkk '.$nama.' mandi....???
  146. - kate Lapo Q Yo an',
  147. 'kebayang '.$nama.' mandi...!!!
  148. upz...',
  149. 'Aseeeeekkk melok ah',
  150. 'aq melu '.$nama.'',
  151. );
  152. }else{
  153.  
  154. if($robot == 'kata-kata'){
  155. $konyol=auto('http://ellin1.16mb.com/konyol.php');
  156. $motivasi=auto('http://ellin1.16mb.com/motivasi.php');
  157. $text=array($konyol,$motivasi,);
  158.  
  159. }
  160.  
  161. if($robot == 'latah'){
  162. if(($i-1 > 0 ) && ($i-1< count($stat[data])-1)){
  163. $text = array(
  164. $ucapan.' '.$nama.'...!!!
  165. Barusan di berandaku nongol status dari @['.$stat[data][$i-2][from][id].':1] keg gini nih
  166. -------------------------------------------
  167. '.$stat[data][$i-2][message].'
  168. -------------------------------------------
  169. Udah Q kasi Comment  + Like This ampe jempol Kesleo...
  170. Eh... Sekarang nongol lagi Status Dari '.$stat[data][$i-1][from][name].' yg Keg gini....
  171. -------------------------------------------
  172. '.$stat[data][$i-1][message].'
  173. -------------------------------------------
  174. Yaudah deh '.$nama.' berhubung '.$nama.' Baik Hati, Tidak Sombong n Suka Nabung... Q Kasi Comment + Like This Juga dah....
  175. tp nanggung ne '.$nama.'
  176. Biar Jempol tambah KeritinG... Next Status Dari @['.$stat[data][$i][from][id].':1] yg keg gini
  177. -------------------------------------------
  178. '.$stat[data][$i][message].'
  179. -------------------------------------------
  180. moQ kasih Like this Juga..... xixixixixixi
  181. |[^_^]|',
  182. 'Tadi Comment di Statusnya @['.$stat[data][$i-2][from][id].':1] Udah...!!! Truss.... di Statusnya @['.$stat[data][$i][from][id].':1] Juga Udah... Selanjutnya Comment di Status  @['.$stat[data][$i-1][from][id].':1] Ini neh yg paling Q tnggu2....!!! abisnya status '.$nama.' OK bnget seh....
  183. ---------------------------------
  184. '.$stat[data][$i-1][message].'
  185. ---------------------------------
  186. Twuh Kan.... ',
  187. 'Mo bikin status keg Gini
  188. => '.$stat[data][$i-2][message].'
  189. Udah Keduluan Ama @['.$stat[data][$i-2][from][id].':1]
  190. Mo bikin Status Keg gini => '.$stat[data][$i][message].'
  191. Udah pula Keduluan ama @['.$stat[data][$i][from][id].':1]
  192. dan anehnya pula neh '.$nama.'....!!! Qtdi sempet juga Mo bikin Status Seperti ini => '.$stat[data][$i-1][message].'
  193. Eh nongol Statusnya '.$nama.' Apa boleh buat... Ga jadi dweh bikin Status... Cuman bisa Like ndis n comment ',
  194. 'Hampir aja Aq bikin Status keg gini '.$nama.'
  195. pi kegna mirip dweh ma status kmu...
  196. Q tadi mo bikin status bgini
  197. '.str_replace($aiueo,$uuu,$stat[data][$i-1][message]).'
  198. Mirip ga '.$nama.'....
  199. tp g bgitu Jga Kaleee bacanya :p',
  200. );
  201. }else{
  202. $text = array(
  203. 'Pengenya seh Q tdi bikin Status Keg Gini
  204. '.$stat[data][$i-1][message].'
  205. Eh... Udah keduluan Ama '.$nama.' Yaudah lah Q kasi Like + Comment buat '.$stat[data][$i-1][from][name].'... Hahaha.... :p',);
  206. }
  207. }
  208. if($robot == 'biasa'){
  209. $text = array(
  210. 'Ok tok ezt '.$nama.'...!!!',
  211. 'Like Ndiszzz '.$nama.'',
  212. ' '.$ucapan.' '.$nama.'....!!! :D',
  213. ' '.$nama.' '.$ucapan.'',
  214. 'statusmu Siiip!!! tenan '.$nama.' bikin Tanganq gatel2 untuk Like Ndhizz',
  215. 'aaaaaaaaaaaa jumpa lgi ma '.$nama.'....
  216. '.$ucapan.' '.$nama.'',
  217. 'tambah suwe '.$nama.' tambah sip ae rek...',
  218. 'akhirnya '.$nama.' bikin status juga...
  219. '.$ucapan.' '.$nama.'...',
  220. 'kagen ambek statuse '.$nama.' neh... He He... '.$ucapan.' '.$nama.'',
  221. 'status '.$nama.' Emang Te O Pe Be Ge Te... bikin Ngiler kpingin Ngasi comment...',
  222. 'maaf '.$nama.' Q cma mo ngucapin '.$ucapan.'',
  223. 'q slalu setia menemani status '.$nama.'....!!! '.$ucapan.'',
  224. 'sesepi hari tanpa mentari...
  225. sesepi malam tanpa rembulan...
  226. begitu juga Q...
  227. terasa sepi sebelum comment di status '.$nama.' dan ngucapin '.$ucapan.'...
  228. haha glodak',
  229. 'pencet tombol like dulu di status '.$nama.' trus Q kasih komen dah...okee sip!!'
  230. );
  231. }
  232.  
  233. if($robot == 'nomer'){
  234. $compret=json_decode(auto('https://graph.facebook.com/'.$stat[data][$i-1][id].'/comments?access_token='.$access_token.'&limit=50&fields=message,from'),true);
  235. $nom = $stat[data][$i-1][comments][count]+1;
  236. $cm_id_a = $compret[data][0][from][id];
  237. $taga='@['.$cm_id_a.':1]';
  238. if(count($compret[data]) == 1 ) $hahay = '0'; else $hahay = count($compret[data])-1;
  239. $cm_id_z = $compret[data][$hahay][from][id];
  240. $tagz='@['.$cm_id_z.':1]';
  241. $cmno = count($compret[data])-1;
  242. if($cmno <= 0 ){
  243. $mescma = $compret[data][0][message];
  244. $mescmz = $mescma;
  245. }else{
  246. $mescma = $compret[data][0][message];
  247. $mescmz = $compret[data][$hahay][message];
  248. }
  249. if($nom == 1){
  250. $text = array(
  251. 'assseeeeeeekkkk no '.$nom.' neh commentku hehe.... '.$ucapan.' '.$nama,
  252. 'Gimana Coment saya gak jadi yg no '.$nom.' wong Statusnya '.$nama.' Keren keg gini
  253. => '.$stat[data][$i-1][message].'
  254. haha
  255. '.$ucapan.' '.$nama.'',
  256. 'Uiiihhhhh status '.$nama.' Keyyyen....
  257. =>
  258. '.$stat[data][$i-1][message].'
  259. twuh khan, jadi jgn salain kalo saya comment Pertamanya.... Hahay '.$ucapan.' '.$nama,
  260. 'Yez Yez Yez.... Pertamanya comment di status '.$nama,
  261. 'Comment no '.$nom.' dapat piring cantik dari '.$nama.' haha
  262. '.$ucapan,
  263. );
  264. }else{
  265. $text=array(
  266. 'yaaaaaaaaaaaaaaah.... comment Pertamanya Keduluan ama @['.$cm_id_a.':1]
  267. pi ga papa ez '.$nama.' meskipun cuma jd yang ke-'.$nom.' yg penting dah Hadir bukan begitu '.$nama.'
  268. upzzzz... dapet Posisi comment di bawahnya @['.$cm_id_z.':1] aDHemmm wkwkwkwk',
  269. 'yaaaaaaah... no '.$nom.' ne '.$nama.'...!!!
  270. yaudah Ngikut Comment dari @['.$cm_id_z.':1] aja...
  271. => '.$mescmz.'
  272. eh eh... Liat twuh '.$nama.'.... @['.$cm_id_a.':1] Senyum Senyum Karena dapet posisi Pertma :p',
  273. 'Lagi2 @['.$cm_id_a.':1] dapet Posisi pertama comment di status '.$nama.'.... Jadi malu neh mo Comment klok cuma jadi yang ke-'.$nom.' hihihi....',
  274. 'asssyeeeeekkk pertamanya....
  275. Upzzz.... Maap '.$nama.' ga jadi... hahahaha ada @['.$cm_id_a.':1]...!!! aQ kira commentQ yg pertama ternyata yang ke-'.$nom.' Hadddewww',
  276. $ucapan.' '.$nama.' wah '.$nama.' ga bilang bilang lok mo bikin status jdi telat ne jempol saya.... Eh @['.$cm_id_a.':1] udah Hadir pula...!! '.$ucapan.' @['.$cm_id_a.':1] pa kabar....!!!',
  277. 'maap gak bisa no 1 '.$nama.'... Kalah cepet ama '.$taga.' maklum Jempol Saya kesleo gara2 Balapan ma '.$tagz.' Buat comment Status kamu.... xixixixi',
  278. 'Walopun commentya cuma no '.$nom.' n Ga Secepet '.$taga.' Tapi Lok Commet dibawahnya '.$tagz.' Rasanya Gimanaaaa gitu....... :p',
  279. 'Yaaahhhh Mo coment gini => '.$mescmz.'
  280. Udah di duluin Ama '.$tagz.'....!!!',
  281. 'Tau ga '.$nama.' Comment Di bawahnya '.$tagz.' Adem-Adem Gimanaaaa Gitu.... WKWKWKWKWKWK Sayang saya Ga bisa Seperti '.$taga.' yg selalu jadi no-1 :p....',
  282. 'maap '.$nama.' Saya ngikut Comentnya '.$tagz.' aja Lah.... Udah Keriting jari saya...:p
  283. => '.$mescmz.'',
  284. $ucapan.' '.$nama.'....!!!
  285. Pengen deh... Keg '.$taga.' Selalu jadi no-1 Comment di status '.$nama.'....',
  286. );
  287. }
  288. }
  289.  
  290.  
  291. }
  292. }
  293. }
  294. }
  295. }
  296. }
  297. }
  298. }
  299. }
  300. }
  301. }
  302. }
  303.  
  304. $message =$text[rand(0,count($text)-1)];
  305.  
  306. auto('https://graph.facebook.com/'.$stat[data][$i-1][id].'/comments?access_token='.$access_token.'&message='.urlencode($message).'&method=post');
  307. auto('https://graph.facebook.com/'.$stat[data][$i-1][id].'/likes?access_token='.$access_token.'&method=post');
  308. echo $stat[data][$i-1][from][name].'=> '.htmlspecialchars($stat[data][$i-1][message]).'<br/>Komeng => '.$message.'<hr/>';
  309. }
  310. }
  311. }
  312.  
  313. function auto($url){
  314. $curl = curl_init();
  315. curl_setopt($curl, CURLOPT_RETURNTRANSFER, 1);
  316. curl_setopt($curl, CURLOPT_URL, $url);
  317. $ch = curl_exec($curl);
  318. curl_close($curl);
  319. return $ch;
  320. }
  321.  
  322. ?>
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!