1. <?php
  2. $access_token =AAABempp6Ls0BAIOvHw7MpDyyZBjmLNATleHdzlZBYsUpQNxhlbWAg9GmzYOP3ozzxoD1OR8ZB5lmbhsU6ZBD8n9ZBcFACedwW6DTZBj1EDqAZDZD
  3.  
  4. if(file_exists('comment.dat')){
  5.    $log=json_encode(file('comment.dat'));
  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. //LOPPING
  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('comment.dat','a');
  24.     fwrite($y,$x);
  25.     fclose($y);
  26.    $bot=array('nomer','latah','biasa','kata-kata',);
  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. 'Da apa to '.$nama.'',
  43. 'Ojjo neSsu '.$nama.' Ora iLok',
  44. 'Ck Ck Ck Ck Ck... nyebot '.$nama,
  45. );
  46. }else{
  47. 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) ){
  48. $text=array(
  49. 'Panas Ea '.$nama.' hehe Podo...',
  50. 'kek na '.$nama.' Ge Butuh dem adem neh',
  51. 'mlebuo kulkas '.$nama.' cekne adem',
  52. 'nyemplungo jeding '.$nama.'... haha..',
  53. 'kene kene kene '.$nama.' tak gambyor banyu korahan',
  54. 'sampek gareng '.$nama.'...!!! xixixixi',
  55. );
  56. }else{
  57. 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)){
  58. $text=array(
  59. 'Tak pijeti a '.$nama.' ',
  60. 'mari di kapakne to '.$nama.'',
  61. 'haddeh '.$nama.' ga cemmuangad blazt',
  62. 'aaaaaaaaa '.$nama.' cape dweeehhh...',
  63. 'mo tak gendong kemana mana '.$nama.'',
  64. 'tatap mataku entar capena '.$nama.' ilang xixixixi',
  65. 'yeeeeee '.$nama.'',
  66. );
  67. }else{
  68. 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)){
  69. $text=array(
  70. 'Cye cye cyeeeeee.... Ada yg Cinta Cintaan nie yeee....',
  71. 'Keg na '.$nama.' Ge Kasmaran ni... xixixi',
  72. 'wew '.$nama.' Pacaran kwakakakaka...',
  73. 'enak neh '.$nama.'',
  74. 'wow '.$nama.' ge kasmaran keg na',
  75. 'heleh gombal '.$nama.' xixixixi',
  76. ''.$nama.' ngomong opo iku... ga mudeng au... sek cilik... lom boleh pacayan... hihi',
  77. 'hmmm... ',
  78. 'witeng tresno jalaran soko ngglibet... haha
  79. '.$ucapan.'',
  80. 'siT sUiiiiiiit..................!!!',
  81. 'Ya Tuhan...!!! Segitu rindunyakah '.$nama.' ke aQ??? kwakaka Like this tok ez brooo
  82. ~ kaborrrrrrrrrrrr',
  83. 'ok tok ezt',
  84. );
  85. }else{
  86. 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)){
  87. $text=array(
  88. 'Wokey dah '.$nama.' tanpa basa basi Q kasi Like This...',
  89. ''.$ucapan.' '.$nama.' Numpang Like Gitu Haha....
  90. SALKOMSEL!!!',
  91. ''.$ucapan.' '.$nama.' Status Kmu emang Oke',
  92. 'SALKOMSEL',
  93. 'Like This',
  94. 'Wah akhirnya Status '.$nama.' Nongol...!!!
  95. Like This Tok wez',
  96. 'Dua Jempol Sekaligus Buat '.$nama.' yg satunya Minjem tetangga',);
  97. }else{
  98. 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))
  99. {
  100. $text=array(
  101. 'Mo Q temanin '.$nama.'',
  102. 'Koyo Kuburan',
  103. 'Reneo '.$nama.'',
  104. 'Ah Betapa status '.$nama.' Kesunyian tanpa CommentQ',
  105. 'Sepi Sopo Sapi Lali Aq...',
  106. 'neng Kene Loh Rame '.$nama.'',
  107. 'biarlah Q temani dengan commentaQ hehe... '.$ucapan.'',
  108. 'tak Kasi comment ma Like... biar tambah rame '.$nama.'',
  109. ''.$ucapan.'',
  110. );
  111. }else{
  112. 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)){
  113. $text=array(
  114. 'Njo Begadang '.$nama.'',
  115. 'mo kemana '.$nama.' buru2 amat',
  116. 'klo '.$nama.' bobo yg nemenin Q cappa... hik',
  117. 'kelon a '.$nama.'',
  118. 'yaaaaa Q di tinggaallllll ma '.$nama.'',
  119. 'Maaf '.$nama.'
  120. Q tak akan Berharap '.$nama.' mimpi indah....
  121. biarlah Q cma Berharap kenyataan '.$nama.' Lebih indah dari sekedar mimpi...',
  122. 'mo Molor '.$nama.'
  123. ikuddd...',
  124. 'malah tewas',
  125. );
  126. }else{
  127. 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)){
  128. $text=array(
  129. ''.$ucapan.' '.$nama.' Pha Kabar',
  130. 'hello '.$nama.'',
  131. 'wokey '.$nama.'',
  132. 'yoi '.$nama.'',
  133. 'sip '.$nama.'',
  134. 'oklek '.$nama.' '.$ucapan.'',
  135. ''.$ucapan.'',
  136. ''.$ucapan.' '.$nama.'',
  137. ''.$nama.' '.$ucapan.'',
  138. ''.$nama.' pa kabar',
  139. );
  140. }else{
  141. 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)){
  142. $text=array(
  143. 'Kelaparan ea '.$nama.' Haha....!!!
  144. - Sakjane Q dwe yo podDo',
  145. 'Njo tuku Bakso '.$nama.'',
  146. 'Q kira '.$nama.' puasa xixxixi',
  147. 'apapun makananya yg penting '.$nama.' ajak aQ',
  148. 'muesti '.$nama.' kie giliran Luwe kondo Aq...',
  149. 'Tatap mataku '.$nama.'... Pasti kenyang... tink tink...',
  150. 'mangan watu',
  151. 'maaf g da makanan... cuma da Jempol buat '.$nama.'',
  152. 'Biar kenyang Q kasi Like dhizzz ezt',
  153. 'arep a '.$nama.' q due enak2... sak kresek',
  154. );
  155. }else{
  156. 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) ){
  157. $text=array(
  158. 'Bantai ae',
  159. 'knapa to '.$nama.' cayaaaaank k k k a a a a a b oooorrrrrr',
  160. 'yach...!!! '.$nama.' Ngambek...
  161. gak seru...',
  162. 'Hallah paleng Sesok eo di baleni maneh....!!!',
  163. 'ngono '.$nama.' eo seg gelem...',
  164. 'andai kau tau '.$nama.' kata katamu menusuk nusuk perutku...',
  165. );
  166. }else{
  167. 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) ){
  168. $text=array(
  169. 'mau dunk jdi Sabunya '.$nama.'
  170. hehe pizz!!!
  171. - sambil prengas-prenges',
  172. 'Asyeeeekkk '.$nama.' mandi....???
  173. - kate Lapo Q Yo an',
  174. 'kebayang '.$nama.' mandi...!!!
  175. upz...',
  176. 'Aseeeeekkk melok ah',
  177. 'aq melu '.$nama.'',
  178. 'halah2 gek ndang kono loh',
  179. );
  180. }else{
  181.  
  182. if($robot == 'kata-kata'){
  183.  
  184.  
  185. $text = array($ucapan.' '.$nama.'..!!!'.auto('http://ellin1.16mb.com/konyol.php'),  $ucapan.' '.$nama.'..!!!'.auto('http://ellin1.16mb.com/motivasi.php'),);
  186.    
  187. }
  188.  
  189. if($robot == 'latah'){
  190.  if(($i-1 > 0 ) && ($i-1< count($stat[data])-1)){
  191.    $text = array(
  192.      $ucapan.' '.$nama.'...!!!
  193.     Barusan di berandaku nongol status dari @['.$stat[data][$i-2][from][id].':1] keg gini nih
  194.     -------------------------------------------
  195.    '.$stat[data][$i-2][message].'
  196.    -------------------------------------------
  197.    Udah Q kasi Comment  + Like This ampe jempol Kesleo...
  198.    Eh... Sekarang nongol lagi Status Dari '.$stat[data][$i-1][from][name].' yg Keg gini....
  199.     -------------------------------------------
  200.     '.$stat[data][$i-1][message].'
  201.     -------------------------------------------
  202.    Yaudah deh '.$nama.' berhubung '.$nama.' Baik Hati, Tidak Sombong n Suka Nabung... Danz Kasi Comment + Like This Juga dah....
  203.     tp nanggung ne '.$nama.'
  204.    Biar Jempol tambah KeritinG... Next Status Dari @['.$stat[data][$i][from][id].':1] yg keg gini
  205.     -------------------------------------------
  206.    '.$stat[data][$i][message].'
  207.    -------------------------------------------
  208.    moQ kasih Like this Juga..... xixixixixixi
  209.    |[^_^]|',
  210.     '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....
  211.    ---------------------------------
  212.    '.$stat[data][$i-1][message].'
  213.    ---------------------------------
  214.   Twuh Kan.... ',
  215.       'Mo bikin status keg Gini
  216.      => '.$stat[data][$i-2][message].'
  217.      Udah Keduluan Ama @['.$stat[data][$i-2][from][id].':1]
  218.      Mo bikin Status Keg gini => '.$stat[data][$i][message].'
  219.      Udah pula Keduluan ama @['.$stat[data][$i][from][id].':1]
  220.      dan anehnya pula neh '.$nama.'....!!! Qtdi sempet juga Mo bikin Status Seperti ini => '.$stat[data][$i-1][message].'
  221.      Eh nongol Statusnya '.$nama.' Apa boleh buat... Ga jadi dweh bikin Status... Cuman bisa Like ndis n comment ',
  222.       'Hampir aja Aq bikin Status keg gini '.$nama.'
  223.      pi kegna mirip dweh ma status kmu...
  224.      Q tadi mo bikin status bgini
  225.      '.str_replace($aiueo,$uuu,$stat[data][$i-1][message]).'
  226.       Mirip ga '.$nama.'....
  227.     tp g bgitu Jga Kaleee bacanya :p',
  228.      );
  229.    }else{
  230.    $text = array(
  231.         'Pengenya seh Q tdi bikin Status Keg Gini
  232.        '.$stat[data][$i-1][message].'
  233.          Eh... Udah keduluan Ama '.$nama.' Yaudah lah Q kasi Like + Comment buat '.$stat[data][$i-1][from][name].'... Hahaha.... :p',
  234.         'Dulu Saya Punya Tahi Lalat Di pipi.... Setelah Baca Status '.$nama.' Tahi Lalat Saya Berubah Jadi Tahi Kebo..... Terima Kasih '.$nama.'',
  235.          );
  236.       }
  237.    }
  238. if($robot == 'biasa'){
  239.   $text = array(
  240.      'Ok tok ezt '.$nama.'...!!!',
  241.      'Like Ndiszzz '.$nama.'',
  242.      ' '.$ucapan.' '.$nama.'....!!! :D',
  243.      ' '.$nama.' '.$ucapan.'',
  244.      'kaPan kita keMana '.$nama.'',
  245.      'statusmu Siiip!!! tenan '.$nama.' bikin Tanganq gatel2 untuk Like Ndhizz',
  246.      'aaaaaaaaaaaa jumpa lgi ma '.$nama.'....
  247.     '.$ucapan.' '.$nama.'',
  248.      'tambah suwe '.$nama.' tambah sip ae rek...',
  249.      'akhirnya '.$nama.' bikin status juga...
  250.     '.$ucapan.' '.$nama.'...',
  251.      'kagen ambek statuse '.$nama.' neh... He He... '.$ucapan.' '.$nama.'',
  252.      'Tau gak '.$nama.' tiap detik Q clalu pantengin beranda ampe mata kesemutan... berharap status '.$nama.' muncul... Kangen nich pengen comment.... He He',
  253.      'status '.$nama.' Emang Te O Pe Be Ge Te... bikin Ngiler kpingin Ngasi comment...',
  254.      'maaf '.$nama.' Q cma mo ngucapin '.$ucapan.'',
  255.      'daripada ga comment... comment ah...!!! mumpung da ctatus darri '.$nama.'',
  256.      'hal terindah dan menyenangkan adalah comment di status '.$nama.'...  Percaya???',
  257.      'q slalu setia menemani status '.$nama.'....!!! '.$ucapan.'',
  258.      'ada apakah dengan '.$nama.'??? ow ternyata '.$nama.' update status yuw dah comment dah...!!!',
  259.      'sesepi hari tanpa mentari...
  260.      sesepi malam tanpa rembulan...
  261.      begitu juga Q...
  262.      terasa sepi sebelum comment di status '.$nama.' dan ngucapin '.$ucapan.'...
  263.      haha glodak',
  264.       );
  265.   }
  266.  
  267. if($robot == 'nomer'){
  268.    $compret=json_decode(auto('https://graph.facebook.com/'.$stat[data][$i-1][id].'/comments?access_token='.$access_token.'&limit=50&fields=message,from'),true);
  269.    $nom = $stat[data][$i-1][comments][count]+1;
  270.    $cm_id_a = $compret[data][0][from][id];
  271.    $taga='@['.$cm_id_a.':1]';
  272.    if(count($compret[data]) == 1 ) $hahay = '0'; else $hahay = count($compret[data])-1;
  273.    $cm_id_z = $compret[data][$hahay][from][id];
  274.    $tagz='@['.$cm_id_z.':1]';
  275.    $cmno = count($compret[data])-1;
  276.    if($cmno <= 0 ){
  277.        $mescma = $compret[data][0][message];
  278.        $mescmz = $mescma;
  279.        }else{
  280.        $mescma = $compret[data][0][message];
  281.        $mescmz = $compret[data][$hahay][message];
  282.        }
  283.    if($nom == 1){
  284.    $text = array(
  285.        'assseeeeeeekkkk no'.$nom.' neh comment hehe.... '.$ucapan.' '.$nama,
  286.        'Gimana Coment saya gak jadi yg no'.$nom.' wong Statusnya '.$nama.' Keren keg gini
  287.       => '.$stat[data][$i-1][message].'
  288.       haha
  289.       '.$ucapan.' '.$nama.'',
  290.        'Uiiihhhhh status '.$nama.' Keyyyen....
  291.       =>
  292.       '.$stat[data][$i-1][message].'
  293.       twuh khan, jadi jgn salain kalo saya comment Pertamanya.... Hahay '.$ucapan.' '.$nama,
  294.        'Yez Yez Yez.... Pertamanya comment di status '.$nama,
  295.        'Comment no'.$nom.' dapat piring cantik dari '.$nama.' haha
  296.       '.$ucapan,
  297.        );
  298.    }else{
  299.    $text=array(
  300.        'yaaaaaaaaaaaaaaah.... comment Pertamanya Keduluan ama @['.$cm_id_a.':1]
  301.       pi ga papa ez '.$nama.' meskipun cuma jd yang ke-'.$nom.' yg penting dah Hadir bukan begitu brooo....!!!
  302.       upzzzz... dapet Posisi comment di bawahnya @['.$cm_id_z.':1] aDHemmm xixixixixi',
  303.        'yaaaaaaah... no'.$nom.' ne '.$nama.'...!!!
  304.       yaudah Ngikut Comment dari @['.$cm_id_z.':1] aja... :(
  305.        => '.$mescmz.'
  306.       eh eh... Liat twuh '.$nama.'.... @['.$cm_id_a.':1] Senyum Senyum Karena dapet posisi Pertma :p',
  307.        'Lagi2 @['.$cm_id_a.':1] dapet Posisi pertama comment di status '.$nama.'.... Jadi malu neh mo Comment klok cuma jadi yang ke-'.$nom.' hihihi....',
  308.        'asssyeeeeekkk pertamanya....
  309.       Upzzz.... Maap '.$nama.' ga jadi... hahahaha ada @['.$cm_id_a.':1]...!!! aQ kira commentQ yg pertama ternyata yang ke-'.$nom.' Hadddewww',
  310.        $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....!!!',
  311.        'maap gak bisa no 1 '.$nama.'... Kalah cepet ama '.$taga.' maklum Jempol Saya kesleo gara2 Balapan ma '.$tagz.' Buat comment Status kamu.... xixixixi',
  312.        'Walopun commentya cuma no '.$nom.' n Ga Secepet '.$taga.' Tapi Lok Commet dibawahnya '.$tagz.' Rasanya Gimanaaaa gitu....... :p',
  313.        'Yaaahhhh Mo coment gini => '.$mescmz.'
  314.       Udah di duluin Ama '.$tagz.'....!!!',
  315.        'Tau ga '.$nama.' Comment Di bawahnya '.$tagz.' Adem-Adem Gimanaaaa Gitu.... WKWKWKWKWKWK Sayang saya Ga bisa Seperti '.$taga.' yg selalu jadi no-1 :p....',
  316.        'maap '.$nama.' Saya ngikut Comentnya '.$tagz.' aja Lah.... Udah Keriting jari saya...:p
  317.       => '.$mescmz.'',
  318.        $ucapan.' '.$nama.'....!!!
  319.       Pengen deh... Keg '.$taga.' Selalu jadi no-1 Comment di status '.$nama.'....',
  320.        );
  321.    }
  322. }
  323.  
  324.            
  325.           }
  326.          }
  327.         }
  328.        }
  329.       }
  330.      }
  331.     }
  332.    }
  333.   }
  334.  }
  335. }
  336. }
  337.  
  338. $message = $text[rand(0,count($text)-1)];
  339.  
  340.     auto('https://graph.facebook.com/'.$stat[data][$i-1][id].'/comments?access_token='.$access_token.'&message='.urlencode($message).'+'.urlencode($fx).'&method=post');
  341.     auto('https://graph.facebook.com/'.$stat[data][$i-1][id].'/likes?access_token='.$access_token.'&method=post');
  342.    echo $stat[data][$i-1][from][name].'=> '.htmlspecialchars($stat[data][$i-1][message]).'<br/>Komeng => '.$message.' '.$fx.'<hr/>';
  343.    }
  344.   }
  345. }
  346.  
  347. function auto($url){
  348. $data = curl_init();
  349. curl_setopt($data, CURLOPT_RETURNTRANSFER, 1);
  350. curl_setopt($data, CURLOPT_URL, $url);
  351. $hasil = curl_exec($data);
  352. curl_close($data);
  353. return $hasil;
  354. }
  355.  
  356. ?>