Script Bot Respon Komen

<?php
$access_token = ('ACCESS YOUR TOKEN');

############################ By Irvan Efendy ##############################
#               Script BOT Facebook  15 mei 2013                      #
#                                     #
#  Created By    : Irvan Efendy                                           #
#  NO HP         : 087752441288                                           #
#  Follow        : http://twitter.com/@irvan_efendy                       #
#  Subcribe      : http://facebook.com/irv4n-cyber4rt             #
#                                     #
#                       Thanks to Allah And You :D                        #
#       MOHON UNTUK TIDAK MERUBAH TULISAN INI UNTUK SALING MENGHARGAI     #
#               Tunggu Versi Bot Terbaru Ya :D Salam Bot'R                #
#                                     #
#        Visit My Blog : http://irvan-efendy.blogspot.com         #
###########################################################################

$me = json_decode(auto('https://graph.facebook.com/me?access_token='.$access_token.'&fields=id'),true);
$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',);
$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 ',);
$ucapan = gmdate('H',time()+7*3600);
$ucapan = str_replace($jam,$sapa,$ucapan);
$stat = json_decode(auto('https://graph.facebook.com/me/feed?fields=id&access_token='.$access_token.'&offset=0&limit=10'),true);
if(file_exists('rcm_log')){
   $log = json_encode(file('rcm_log'));
   }else{
   $log='';
   }
for($i=1;$i<=count($stat[data]);$i++){
 $com = json_decode(auto('https://graph.facebook.com/'.$stat[data][$i-1][id].'/comments?access_token='.$access_token.'&limit=50&fields=id,message,from'),true);
 if(count($com[data]) > 0){
   for($c=1;$c<=count($com[data]);$c++){

      if(ereg($com[data][$c-1][id],$log)){
        echo' wes di respon <hr/>';
       }else{
    $logx = $com[data][$c-1][id].'  ';
    $logy = fopen('rcm_log','a');
        fwrite($logy,$logx);
        fclose($logy);
   $gen=json_decode(auto('http://graph.facebook.com/'.$com[data][$c-1][from][id].'?fields=gender'),true);
   if($gen[gender] == 'male'){
     $arr_gen=array('Mas','Om','Kang','Mbah','Pak',);
       }else{
     $arr_gen=array('Mbak','Jeng','Non','Neng',);
      }
  $exp_nam=explode(' ',$com[data][$c-1][from][name]);
  $nama=$arr_gen[rand(0,count($arr_gen)-1)].' '.$exp_nam[0];

//BIAR RESPONYA RADA NYAMBUNG  :D
  $kata=$com[data][$c-1][message];
  if(ereg('Hadir',$kata) || ereg('hadir',$kata) || ereg('HADIR',$kata) || ereg('ABSEN',$kata) || ereg('absen',$kata) || ereg('Absen',$kata)){
     $arr_mess = array(
       'Makasihh yaa '.$nama.' dah hadir di Statusku sekalian kalih (y) donkzz... hheehhee :P',
       'seneng deh lok '.$nama.' hadir di status ku',
       'dah Q tunggu kehadiranmu '.$nama.' hehe... '.$ucapan.'..!!',
       ' '.$nama.' dah hadir.... makasih',
       'hadir kemana '.$nama.'??? :p',
       ' '.$nama.' Kamu bawa anu ea.... kok setiap '.$nama.' hadir bawaanya kepengen anu gitu... :D',
       'asseeeek '.$nama.' hadirrr... ga jadi galau la gw...',
       'betapa sepinya tanpa kehadiranmu '.$nama.'',
       );
  }else{
  if(ereg('http',$kata)){
   $arr_mess=array(
     'Link apa tuh Gan','Linknya boleh di klik ndak twuh ',
     );
  }else{
  if(ereg('OFF',$kata) || ereg('off',$kata) || ereg('ofline',$kata) || ereg('offline',$kata) || ereg('Offline',$kata) || ereg('Off',$kata)){
   $arr_mess=array(
     'Wah '.$nama.' hebat.... padahal lg offlen kog bisa coment di statusQ gmana caranya twuh....',
     'sama '.$nama.' Q jga gi Offline kog',
     'mo offline ato online yang penting dah comment q dah seneng banget kok '.$nama.'...  yakin dah zumpah...!!! :D',
     'yaaah '.$nama.' offline mulu nih......',
     'owww jdi '.$nama.' robot ea.... sama lok giitu xixixixi',
     'waduh '.$nama.' jdi robot',
     );
     }else{
  if(ereg('Keriting',$kata) || ereg('kriting',$kata) || ereg('Kriting',$kata) || ereg('Kesleo',$kata) || ereg('kriting',$kata) || ereg('kesleo',$kata)){
   $arr_mess=array(
     'Salut deh '.$nama.'... meski jari keriting tetep hadir di statusku makasi eaaa',
     'tenang '.$nama.' sini jarinya Q setrika wakakaka',
     'Uuuuu kacian keriting ea '.$nama.'... sama lok gitu',
     'mo di pijitin jarinya '.$nama.'',
     'besok jempolnya di bonding ea '.$nama.' :p',
     );
  }else{
  if(ereg('like',$kata) || ereg('JEMPOL',$kata) || ereg('LIKE',$kata) || ereg('jempol',$kata) || ereg('Jempol',$kata) || ereg('suka',$kata)){
  $arr_mess=array(
   'trimakasih '.$nama.'',
   'jempolmu luar biasa '.$nama.'',
   'ndak krriting tuh jempol',
   'ok thankz for like this... wekekekeke',
   'makasih dah like statusq',
   'bener ni '.$nama.'',
   );
     }else{
     $arr_mess = array(
           'Thankz ea '.$nama.' Dah mampir di Statusku... '.$ucapan.' '.$nama,
           'Suka deh... '.$nama.' bisa hadir di statusku... '.$ucapan,
           $ucapan.' Makasih ea '.$nama.' Jempol + commentnya',
           'Ok '.$nama.' Thankz dah Mampir',
           'Seneng Dweh '.$nama.' dah comment',
           'Baca Koment '.$nama.' Rasanya adhem hehe',
           'aaaaaaaaa ada '.$nama.'... Thankz '.$nama.' Dah hadir...',
           'Kikuk Kikuk Hehe.... '.$ucapan,
           'Maaf Bos Irvan Lagi Off,, tunggu kalo online ajah yaa '.$nama,
           $ucapan.' '.$nama,
           $ucapan.' '.$nama.' Rajin banget Comment Di Statusku xixixixi pizzz....',
           'apa ada yang bisa saya bantu '.$nama,
           'Andai Saja kamu tau '.$nama.' Setiap Kamu Hadir Di Statusku Rasanya Gimanaaaaaa Gitu',
           'Maap '.$nama.'....!!! Baru mandi neh.... Lom sempet Pake celana Saya.... wakakakakaka',
           'Seneng deh lok ada '.$nama.' Di tiap Statusku Ntar Komen lagi eaaaaa....',
           $ucapan.' '.$nama.'...!!! Bapak kamu tukang anu ya....!!! Abisnya lok deket kAmu Bawaanya pengen Anuuuuuuu Gitu',
           'Weeeeeeeeeeeee '.$nama.' Dah hadirrrrr....!! '.$ucapan.' '.$nama.'',
           'klok '.$nama.' Ga komen bisa Gila gua...!! haha :p',
           'Maaf Bos Irvan Lagi Offline...',
           'Ampe jempol Keriting Oeee haha...',
           'Hampir Aja saya Galau klo '.$nama.' Ga comment...!! '.$ucapan.' '.$nama,
           'Thankz '.$nama.'',
           'Tunggu boss irvan online ajah yaa '.$nama.' ooppss makasih udah hadir...',
           'hampir gwe GALAU kalo '.$nama.' gak hadir di status ku',
           'Maaf Gwe hanya BOT yang di tugas kan Oleh Irvan Efendy Untuk balas Komen Kamu '.$nama.'',
           ''.$nama.' Suka Sekali yak ama Statusku',
           'yez yez yez '.$nama.' Dah Hadir d Statusku',
           'Sesama bot Harus rukun  ea '.$nama.' ',
           'Sesepi malam tanpa rembulan sehening Lautan tanpa gelombang Begitu pula Statusku Terasa sepi tanpa komentar kamu..... :p',
           'Boss Irvan Lagi Off '.$nama.' tunggu kalo Online ajah yaa',
           'jempolku kriteng rek rek',
           'Maaf saya Cuma ROBOT yang di tugaskan oleh Irvan Efendy???',
           'Bingung Mo jawab Apa '.$nama.'',
           'Bos Irvan Lagi OFF nie '.$nama.'',
           'kamu Like statusku aku like statusmu trus kita Like Likean yuk '.$nama.' haHaha',
           'Asalkan Jangan Hadir Bawa Golok aja '.$nama.'',
           'Kamu Kok baek banget se '.$nama.'.... Selalu Hadir di statusku',
           'asssSeeeeeekkkk '.$nama.' ngasi Coomment',
           'Saya kan Udah bilang BOSS Irvan Lagi OFF kok nyocot sihh.... hehehe :P',
           'Beliin pulsa gw dunk '.$nama.'',
           'Haadeeww Sayang sekali saya cuma BOT gak bisa macem" takut di marah in Sama BOss Irvan Efendy',
           'Dulu Saya punya tahi lalat di pipi... Setelah baca komen '.$nama.' Tahi Lalat saya berubah jadi tahi kebo.... Terimakasih '.$nama.'',
           'Dulu Saya suka makan roti.... setelah baca komen '.$nama.' Saya jadi suka makan batu.... Terimakasih '.$nama.'',
           'Dulu Saya terkena kencing manis... Setelah Baca komen '.$nama.' kencing saya jadi asem... Terimakasih '.$nama.'',
           'Dulu Saya susah tidur... Setelah baca komen dari '.$nama.' saya Jarang mandi....',
           'Sudah 3 tahun saya menderita gagal ginjal.... Setelah baca komen '.$nama.' Saya gagal hidup',
           'Dulu Saya menderita kencing batu... setelah baca komen dari '.$nama.' Batunya saya kumpulin buat bangun Rumah.... Terimakasih '.$nama.'',
           'Dulu Saya sering gonta ganti pasangan Setelah baca komen dari '.$nama.' Saya jadi Sering Gonta ganti kelamin...',
           'ah '.$nama.' bisa aja deeee',
           'Trimz waaaaa',
            );
            }
        }
      }
    }
   }
   $message= '@['.$com[data][$c-1][from][id].':1] @  '.$arr_mess[rand(0,count($arr_mess)-1)].'';
      if($com[data][$c-1][from][id] != $me[id]) {
           $rsp[$i][] = urlencode($message);
           //auto('https://graph.facebook.com/'.$com[data][$c-1][id].'/likes?access_token='.$access_token.'&method=post');
               }
            }
         }
      }
 if(!empty($rsp[$i])){
       $respon = implode('%0a',$rsp[$i]);
        auto('https://graph.facebook.com/'.$stat[data][$i-1][id].'/comments?access_token='.$access_token.'&message='.$respon.'&method=post');
       }
   }

function auto($url){
   $curl = curl_init();
   curl_setopt($curl, CURLOPT_RETURNTRANSFER, 1);
   curl_setopt($curl, CURLOPT_URL, $url);
   $ch = curl_exec($curl);
   curl_close($curl);
   return $ch;
   }
?>