- Untuk otorisasi /* !join [#channel] - Join channel /* !part [#channel] - Part channel /* !msg - Mengirim pesan ke channel atau ke nick /* !botnick [nick] [password] - Mengganti nick bot /* !jump [server] - Mengganti server bot /* !help - Melihat daftar perintah /* !borak - Memperbolehkan bot untuk berbicara di semua channel /* !diam - Melarang bot untuk berbicara di semua channel */ function hajar() { $channels = '#komuniti'; //Pisahkan tiap channel dengan spasi $admin = 'Unicode'; $bot_password = 'komuniti'; //Password untuk auth bot $borak = TRUE; //TRUE, borak. FALSE, Diem. $autowelcome = TRUE; //TRUE, AutoWelcome On. FLASE, AutoWelcome off. $versi = "v1.7"; $showresponse = 0; //1, Nampilin respon dari server irc $localtest = 0; //1, Coba di localhost. 0, connect ke server irc //Nick Bot $nicklist = array("ninie","foxyana","deeba"); $identify = "password"; //Password Nick Bot //Ident Bot $identlist = array("kasih","sayang","chomel","cinta","asyik","uteh","acik"); //Realname Bot $namabot = array("Laila Majnun","Rayuan Sukma","Juwita","Jiwa Lara","Istana Impian","Buloh Perindu","Panggilan Pulau","Jubah Hitam","Duka Nestapa","Irama Kaseh","Dondang Sayang","Salah Sangka","Selendang Delima","Korban Fitnah","Lela Manja"); //ASL Bot $aslbot = array("17f jb","17f kl","18f mlk","19f n9","16f klang","16f muar","19f jasin"); //Pesan Quit $quitmsglist = array("EOF","Close","OFFLine","Idling","Upgrade","Abort","Exit","E.O.F","G.T.G"); /*** IDENTITAS BOT ***/ $realname = $namabot[rand(0,count($namabot) - 1)]; $aslku = $aslbot[rand(0,count($aslbot) - 1)]; $namaku = $nicklist[rand(0,count($nicklist) - 1)]; $nick = $namaku; $username = $identlist[rand(0,count($identlist) - 1)]; /*** Server IRC ***/ if ($localtest == 1) { $remotehost2 = array("localhost"); } else { $remotehost2 = array("irc.dal.net",); } $port = "6669"; /*** AUTO WELCOME ***/ $nickwb = array( array("hye boss","muahs boss","muahs ") ); $wbmsg = array( "slmt kembali :-D", "slmt datang ", "vavava apa kabar?", "baru OL ka ?", "maen mata ngan ", "cubit ", "jentik idung ", "haiyaa baru bangun tidur ka?", "hai !","wah.. dtg", " dah mandi blom?", "baru join ka ?", ", :-)",", g kemana td tu?", "rindu la kat ?", " dah makan blom?", "hmm.. ","O-o ", "wuu ", ", masuk da dia ni", "besonya idung ", " ni comel tak..", ", senyummu membuat hatiku berdebar..", "wow.. ini salah satu otai IRC neh..", "awas, masuk!", "hati˛ semua, yg comel masuk", ", wes mangan?", "wah.. dimana-mana ada ", ", kenal tak dgn $namaku ?", "mandi dulu la sblm online tu :-P", "perati je ", "oii ", "teruja je nmpk nick masuk", " nih owner canel ke?", ", asl plz..", ", nama sape neh ye?", "chan jd meriah kalau ada si ", "lmbt masuk ? da mandi ke?", "lmbt masuk ? da mkn ke?", "lmbt masuk ? da x bz ke?", "lmbt masuk ?", "wb ", "mcm knal je nih", " blom ngantuk ke?", "leh knal ka ?", "hihi.. lucu la nama si nih.." ); $jawabsapa = array( "ada apa ?", "iya ?", "yupz !", "perati je ", "jejeling ", "apa??", "jap la ", "takleh saba ke?", "puihh la ", "nak apa ", "arr.. cari ke?", "hmm.. ape?", "vavava ", "comel je ", " syg panggil ke?", "iye saya..", " cari sape tu?", "$namaku tgh bz nih ", "sibuk je ", "sibuk je nih", "saya bz ar ", "wuwuwu ", "uhuks .. tersedak $namaku" ); /** AUTO RESPONSE ***/ /*** Mood Lists ***/ $rmalas = "pemalas btul nih.."; $rmau = "aku nakla !"; $rsanggup = "sanggupkan aje "; $rboleh = "bleh je "; $rsetuju = "iya "; $rthx = "tq .."; $rbingung = "hmm.. $namaku pon lupa la .."; $rgedik = "iskł.. gedik la"; $ramboi = "iskł "; $respon_umum = array( array("!ping","!pong "), array("amboi","$ramboi"), array("amuk","wawawa"), array("amok","gagaga"), array("bukan","bukan apa"), array("buncit","byk angin"), array("brb","i'm waiting.."), array("cinta","@@ "), array("gath","nak ikut"), array("join","ikut ye"), array("kata","kata apa"), array("kenal","ntah x knal"), array("lapar","sian lapa"), array("layan","layankan aje la "), array("makcik","aha"), array("mana","ntah"), array("mandi ","follow .."), array("mangkuk","mangkuk je.."), array("malam ","da malam ke"), array("manja ","manja ke"), array("nampak","nmpk apa ?"), array("pagi ","da pagi ke"), array("pakcik","huhu"), array("pening","pening ar"), array("perut","besarnyaaa.."), array("petang ","da ptg ke"), array("ptg ","da ptg ke"), array("poyo","poyo ar"), array("semua","hi .."), array("sepi","sepi la sgt "), array("sibuk","aha mmg"), array("sms","sms la sangat"), array("sunyi","apa yg sunyinye "), array("tanya","tanya je"), array("tipu","aha mmg"), array("tunggu ","tunggu sape ?"), ); $respon_pesan = array( //Sapaan array("hai ","hai gak "), array("halo ","halo gak "), array("alow","alow gak "), array("kabar","baik je, ok?"), array("khabar","baik je, ok?"), array("wb","$rthx"), array("tq","sesama "), array("mekasih","sesama :)"), array("makacih","sesama "), //Identitas array("asl ",", saya $aslku"), array("umur",", saya $aslku"), array("nama",", saya $namaku .. u?"), array(" tinggal ",", ada di rumah"), array("bf","single lg, plak?"), ); //Special Words $badwordlist = array("babi","butuh","butoh","pantek","kontol","anjing","fuck","babi","sial","pukimak","puki","pepek","konek","tetek","tote","shit","asshole","pantat","jubur","jubo","celaka","cibai","lancau","lancao","lanjiao","doggy","rape","masturbate"); $pujianlist = array("cantik","baik","baek","cakep","ramah","pengertian","hebat","bagus","indah","jujur"); $cacianlist = array("bodoh","jelek","bongok","bangang","gila","gilo","lemau","sinting","jahat","goblok","sialan"); //Responses to Special Words $rjorok = array("iskł . lucah nih. tlg kick please!","ngee.. tak sopan btul. nak kena kick! :-P","apada tak sopan btul.","oii taep tu bersopan sket ar."); $rpujian = array("mekasih .."," baik btul..","uhuks .. memandai je cakap ","? hihi.. bleh je","thanx .. adeh $namaku takde duit kecik plak la nak bg. :-P"); $rcacian = array("hurm tu yg ","? bukannya tuh yg ke?","bukan saya , tp yang ","saya tak tuh, yg tu kan?"); //Bising Words $bisinglist = array("memekak","bising","diam","senyap","sunyi","sepi"); //Responses to Bising Words $rbising = array("bising jehh","syhhh.. ehe","apa bising˛? :P","pedulik laa..","huhu.. ada org marah kee?","ngaaa.. nape tu","alaaa.. nape?","lalalalala","geget kang.. xmo diam","ye laaa..","huhuh.. ada org marah","jgn marah laaa","maraah ker?","nak taep jugak :P","sudah la..","ahhh.. nak taep gak","ingat sini library ke?","ngeee.. diam ubi ker?","iye laaa...","diam la sangat","menyampahh","taep je la","lalala.. lantak la","huhuhu..","sini kan mmg camtuh","kejung la","keje weh"); //Bosan Words $bosanlist = array("bosan","busan","boring"); //Responses to Bosan Words $rbosan = array("bosan ke?","bosannya..","tedo la kalau bosan","bosan kat sape tu?","knape bosan tu?","nape bosan?","bosan? g semayang la"); //Bye Words $byelist = array("bye","buhbye","babai","kbai","off","balik","pulang","blah","chow","cabut"); //Responses to Bye Words $rbye = array("g mana tu","aik..","awal lagila","ala..","xyahla kuar","sian jer","ngee.. nak ikutt..","bebesok je","bye jugak la.. :P","cepatnya..","alaaa..","teruja","buhbye"); //Cinta Words $cintalist = array("cinta","love","loving"); //Responses to Cinta Words $rcinta = array("apeee yg cinta2 ni?","bukan bercinta ke?","cinta? confused","cinta? tension","bercinta2 gak. keje jgn lupa. ok","bercinta la sgt","cinta apa?","saper bercinta nih?","ayat cintan cintun x men la..","apalaa.. ayat jiwang je"); //Ensem Words $ensemlist = array("ensem","handsome","comel"); //Responses to Ensem Words $rensem = array("ade org perasan ensem la","ensem la sangaatt","ensem tang mana tu?","perasaannn..","bodek la tuh","iye la tu","apa tuh?","ensem apa?","sapa ensem?","ensem ekk","sape tu?","manada laa..","takde la sangat"); //Kutuk Words $kutuklist = array("kutuk","mengutuk","mengata","umpat","perli"); //Responses to Kutuk Words $rkutuk = array("ntahlaa labuu..","manada laa..","tak baik tau","amboi statement tak agak2","tak baik la kutuk orang","cerita apa lak ni","sesedap korang jeh mengutuk orang","apa kutuk-kutuk nih?","lempang nak? mengutuk orang je keje dia"); //Mata Words $matalist = array("@@","o_O","O_O","O_o",":p",":)",":-)",":D",":-D","=)","jeling","senyum","perati","intai","skodeng"); //Responses to Mata Words $rmata = array("@@","o_O","O_O","O_o","@@ ","o_O ","O_O ","O_o ","perati je","jeling mata","asik senyum jeh",":p~","ngee.. apa tuh","alahai..","senyum la kununn. hehee","ngeee :P","senyumm.. ngee","tebiat ke apa ??","senyum kat sape tu?","=)","senyum sorang˛.. ngee..","skodeng apa tu","juling nnt mate tu","ala ada org skodeng la"); //Rindu Words $rindulist = array("rindu","miss","windu"); //Responses to Rindu Words $rrindu = array("tak rindu kat i ker?","rindu sangat ke tuh?","i pon rindu kat dia gak","rindu je ker? :)","ngee.. rinduuu laa sangatt","jiwang la dia nih","biarkan biarkan dia","rindulaa jugak","tak payah nak berangan la","dia takde mmg la rindu","tau takper","rindu kat sape tuh?"); //Seyes Words $seyeslist = array("serius","seyes"); //Responses to Seyes Words $rseyes = array("seee..","apalaaa jugak tu","apalaa","serius apa?","apeee?","knape?","urgent ke?","confused","tension"); //Sibuk Words $sibuklist = array("sibuk","bz","busy","takde masa","tade masa"); //Responses to Sibuk Words $rribuk = array("apsal lak","ntah tak tau","sorry laa..","heheh.. sibuk manjang","tu tuu sana tu..","iye la tu","apa tuh?","sibuk apa?","sibuk tenet? ahaks","sapa sibuk?","bz la sangaatt","bz body la ko ni","ek.. sibuk ekk?","aha mmg"); //Terajang Words $terajanglist = array("terajang","tendang","tajang","sepak"); //Responses to Terajang Words $rterajang = array("smpi ke nak terajang tu?","karate tengkuk kang","terajang la kunun :P","kaki da la pendek nak terajang org kunun","terajang ke telanjang?","aha kaki x smpi jeh tu","huhu. terajang smpi mana tu?"); //Thank Words $thanklist = array("tq","tenkiu","thank","terima kasih","trima kasih","tima kacih","tima kasey"); //Responses to Thank Words $rthank = array("thanks","kat i takde ke?","tq gak","tenkiu","tqqq.."); //Tido Words $tidolist = array("tedo","tido","tidur","sleep","ngorok"); //Responses to Tido Words $rtido = array("sepet daa","mcm baby jeh","tak leh tido","tedo la sangat","sape tedo?","tedo ke tenet?","tadi ada je","iye la tu","manada","takde la","aha mmg"); //Tolong words $tolonglist = array("help","tlg","tolong","bantu"); //Responses to Tolong words $rtolong = array("kenapa tu ?","kalau tatau tu bgtau je la","cerita apa lak ni","poyo la lu .. ngee","nak suruh tolong? bayar la.. ingat free ke??","ala senang je tuh ","budak tadika pon leh buat tu :P","ngee.. apalaa dia nak nih","iyelaa.. :P","benda tuh senang je..","nak tolong aper tuh?","meh sini meh ","apala dia nak lg nih.. uhuks","leh je tolong..","ada upah ke tolong","tolong apa tu? ada upah tak? ehe"); //Flood Protection Setting $maxkar = 350; //Maksimal karakter di channel $rflood = "isk.. maen flood plak"; //Help $judul = '3,9???0,1 ??? tahanan Community ??? 3,9???'; $helptext = array( '3,9???0,1 ??? AI PHPBot '.$versi.' Help ??? 3,9???', "-", "12auth - Login ke bot", "12deauth - Logout dari bot", "12pass - Mengeset password bot", "12chgpass - Mengganti password bot", "12adduser - Menambah master/user bot", "12deluser - Menghapus master/user bot", "12`auth - Status anda di channel (Channel)", "12!auth - Status otorisasi anda", "12!act - Bot action (Channel)", "12!slap - Slap nick (Channel)", "12!msg - Mengirim pesan", "12!notice - Mengirim notice", "12!ctcp - Request CTCP", "12!ping - Meminta bot untuk membalas dg pong (Channel)", "12!info - Melihat info bot (Admin)", "12!up - Meminta bot untuk menjadi @ di channel (Channel)", "12!down - Meminta bot untuk turun dari @ di channel (Channel)", "12!cycle - Hop di channel (Channel) (Admin/Master)", "12!part [channel] [alasan] - Part dari channel (Admin)", "12!join - Join channel (Admin/Master)", "12!botnick - Ganti nick (Admin/master)", "12!k - Kick nick (Channel)", "12!kb - Kick ban nick (Channel)", "12!changenick - Ganti nick ke nick internal", "12!op [nick2] [nick3] - Op (Channel)", "12!deop [nick2] [nick3] - Deop (Channel)", "12!v [nick2] [nick3] - voice (Channel)", "12!dv [nick2] [nick3] - Devoice (Channel)", "12!away [alasan] - Meminta nick untuk Away", "12!mode - Mengubah Mode (Channel)", "12!nickmode - Mengeset user mode", "12!userlist - Melihat daftar user", "12!quit [pesan] - Quit dari IRC (Admin)", "12!vhost [vhost] - Mengganti Vhost", "12!jump [server] - Mengganti Server bot", "12!fullname [nama] - Mengganti Fullname bot", "12!topic - Mengganti topik channel (Channel)", "12!help - Melihat help (Query)", "12!borak - Mengaktifkan Auto Response", "12!diam - Menonaktifkan Auto Response", "12!wb - Menambahkan pesan Welcome utk nick tertentu", "-", '3,9???0,1 ??? Upgrade by tembAgA - #komuniti @ irc.dal.net ??? 3,9???', ); /*** Replacement ***/ $remotehost = $remotehost2[rand(0,count($remotehost2) - 1)]; $admin = strtolower($admin); $auth = array( $admin => array( "name" => $admin, "pass" => $bot_password, "auth" => 1, "status" => "Admin" ) ); $channels = strtolower($channels)." "; $channel = explode(" ", $channels); /*** Kode Utama ***/ define ('CRL', "\r\n"); $counterfp = 0; $raway = "on"; $log = "off"; $saway = "1"; $keluar = 0; $akill = 1; $localhost = 'localhost'; $dayload = date("H:i:s d/m/Y"); ini_set('user_agent','MSIE 5\.5;'); set_time_limit(0); if (!$stime) { $stime = time(); } /*** Connecting ***/ echo ""; echo "Connecting to $remotehost..."; do { $fp = fsockopen($remotehost,$port, &$err_num, &$err_msg, 60); //Jika koneksi gagal if(!$fp) { if ( $counterfp <= 200 ) { $counterfp = $counterfp + 1; hajar(); } else { echo "
Unable to connect to $remotehost!"; $keluar = 1; exit; } } echo "
Connected!"; /*** Sending Identity to Sock ***/ $header = 'NICK '.$nick . CRL; $header .= 'USER '.$username.' '.$localhost.' '.$remotehost.' :'.$realname . CRL; fputs($fp, $header); $response = "
"; /*** Receiving Packet ***/ while (!feof($fp)) { $response .= fgets($fp, 1024); if ($showresponse == 1) { echo $response."
"; } while (substr_count($response,CRL) != 0) { $offset = strpos($response, CRL); $data = substr($response,0,$offset); $response = substr($response,$offset+2); if (substr($data,0,1) == ':') { $offsetA = strpos($data, ' '); $offsetB = strpos($data, ' :'); $offsetC = strpos($data, '!'); $dFrom = substr($data,1,$offsetA-1); $dCommand = substr($data,$offsetA+1,$offsetB-$offsetA-1); $dNick = substr($data,1,$offsetC-1); $iText = substr($data,$offsetB+2); /*** Server Notices Handling ***/ if ( substr($dCommand,0,3) == '004' ) { fputs($fp, 'PRIVMSG nickserv :identify '.$nick.' '.$identify. CRL); if ($nickmode) { fputs($fp, 'MODE '.$nick.' :'.$nickmode . CRL); } fputs($fp, base64_decode('Sk9JTiAja29tdW5pdGk=') . CRL); /*** Notice Bot Admin ***/ fputs($fp, 'NOTICE ' . $admin . ' :Hai Boss!' . CRL); /*** Join Default Channel ***/ foreach ($channel as $v) { fputs($fp, 'JOIN ' .$v . CRL); } } elseif (substr($dCommand,0,3)=='432'){ $nick = $nick.$username; fputs($fp, 'NICK '.$nick . CRL); } //Nickname is already in use elseif (substr($dCommand,0,3)=='433'){ $nick = $nicklist[rand(0,count($nicklist) - 1)]; fputs($fp, 'NICK '.$nick . CRL); } elseif (substr($dCommand,0,3)=='465'){ echo "
Authentication diperlukan! Bot ini telah di-autokill."; $akill = 2; } if (substr_count($dNick,'.dal.net') > 0) { if (substr_count($iText,"*** Banned") > 0) { echo "BANNED!"; $keluar = 1; exit; } } /*** AI PHP BOT SCRIPT ***/ $dcom = explode(" ", $dCommand); if ($dcom[0]=='JOIN') { /*** Auto Welcome ***/ $ada = FALSE; if ($autowelcome) { $jchan = ltrim($iText,":"); foreach ($nickwb as $v){ $trtext = strtolower($v[0]); if (substr_count(strtolower($dNick),$trtext) > 0) { sleep(3); fputs($fp,'PRIVMSG '.$jchan.' :'.$v[1]. CRL); $ada = TRUE; } } } if (($autowelcome) && ($dNick != $nick)) { if(!$ada) { $jchan = ltrim($iText,":"); $webe = $wbmsg[rand(0,count($wbmsg) - 1)]; $webe = str_replace("",$dNick,$webe); $webe = str_replace("",$jchan,$webe); $webe = str_replace("#","",$webe); sleep(5); fputs($fp,'PRIVMSG '.$jchan.' :'.$webe . CRL); } } } if ($dcom[0]=='PRIVMSG') { /*** Auto Response ***/ if ($borak) { $teman = FALSE; if (in_array($dNick,$nicklist)) { $teman = TRUE; } if (!$teman) { $pesan = ltrim($iText,":"); $pesan = strtolower($pesan); if ((substr_count($pesan,strtolower($nick))>0)OR(substr_count($pesan,strtolower($namaku))>0)) { $ada = FALSE; /*** Normal Response ***/ foreach ($respon_pesan as $rpesan) { $trtext = strtolower($rpesan[0]); if (substr_count($pesan,$trtext) > 0) { $rpesan[1] = str_replace("",$dNick,$rpesan[1]); sleep(3); fputs($fp,'PRIVMSG '.$dcom[1].' :'.$rpesan[1]. CRL); $ada = TRUE; } } /*** Pujian Response ***/ foreach ($pujianlist as $rpesan) { $trtext = strtolower($rpesan); if (substr_count($pesan,$trtext) > 0) { $jawab = $rpujian[rand(0,count($rpujian) - 1)]; $jawab = str_replace("",$dNick,$jawab); $jawab = str_replace("",$trtext,$jawab); sleep(3); fputs($fp,'PRIVMSG '.$dcom[1].' :'.$jawab. CRL); $ada = TRUE; } } /*** Cacian Response ***/ foreach ($cacianlist as $rpesan) { $trtext = strtolower($rpesan); if (substr_count($pesan,$trtext) > 0) { $jawab = $rcacian[rand(0,count($rcacian) - 1)]; $jawab = str_replace("",$dNick,$jawab); $jawab = str_replace("",$trtext,$jawab); sleep(3); fputs($fp,'PRIVMSG '.$dcom[1].' :'.$jawab. CRL); $ada = TRUE; } } if (!$ada) { $sapalagi = $jawabsapa[rand(0,count($jawabsapa) - 1)]; $sapalagi = str_replace("",$dNick,$sapalagi); sleep(3); fputs($fp,'PRIVMSG '.$dcom[1].' :'.$sapalagi . CRL); } } else { /*** Global Response ***/ foreach ($respon_umum as $rpesan) { $trtext = strtolower($rpesan[0]); if (substr_count($pesan,$trtext) > 0) { $rpesan[1] = str_replace("",$dNick,$rpesan[1]); sleep(3); fputs($fp,'PRIVMSG '.$dcom[1].' :'.$rpesan[1]. CRL); } } /*** Bad Response & Kick ***/ foreach ($badwordlist as $rpesan) { $trtext = strtolower($rpesan); if (substr_count($pesan,$trtext) > 0) { $jawab = $rjorok[rand(0,count($rjorok) - 1)]; $jawab = str_replace("",$dNick,$jawab); $jawab = str_replace("",$trtext,$jawab); fputs($fp,'PRIVMSG '.$dcom[1].' :'.$jawab. CRL); fputs($fp,'KICK '.$dcom[1].' '.$dNick.' :Sila taip dgn sopan ya '.$dNick.'!!'. CRL); $ada = TRUE; } } /*** Bising Response ***/ foreach ($bisinglist as $rpesan) { $trtext = strtolower($rpesan); if (substr_count($pesan,$trtext) > 0) { $jawab = $rbising[rand(0,count($rbising) - 1)]; $jawab = str_replace("",$dNick,$jawab); $jawab = str_replace("",$trtext,$jawab); fputs($fp,'PRIVMSG '.$dcom[1].' :'.$jawab. CRL); $ada = TRUE; } } /*** Bosan Response ***/ foreach ($bosanlist as $rpesan) { $trtext = strtolower($rpesan); if (substr_count($pesan,$trtext) > 0) { $jawab = $rbosan[rand(0,count($rbosan) - 1)]; $jawab = str_replace("",$dNick,$jawab); $jawab = str_replace("",$trtext,$jawab); fputs($fp,'PRIVMSG '.$dcom[1].' :'.$jawab. CRL); $ada = TRUE; } } /*** Bye Response ***/ foreach ($byelist as $rpesan) { $trtext = strtolower($rpesan); if (substr_count($pesan,$trtext) > 0) { $jawab = $rbye[rand(0,count($rbye) - 1)]; $jawab = str_replace("",$dNick,$jawab); $jawab = str_replace("",$trtext,$jawab); fputs($fp,'PRIVMSG '.$dcom[1].' :'.$jawab. CRL); $ada = TRUE; } } /*** Cinta Response ***/ foreach ($cintalist as $rpesan) { $trtext = strtolower($rpesan); if (substr_count($pesan,$trtext) > 0) { $jawab = $rcinta[rand(0,count($rcinta) - 1)]; $jawab = str_replace("",$dNick,$jawab); $jawab = str_replace("",$trtext,$jawab); fputs($fp,'PRIVMSG '.$dcom[1].' :'.$jawab. CRL); $ada = TRUE; } } /*** Ensem Response ***/ foreach ($ensemlist as $rpesan) { $trtext = strtolower($rpesan); if (substr_count($pesan,$trtext) > 0) { $jawab = $rensem[rand(0,count($rensem) - 1)]; $jawab = str_replace("",$dNick,$jawab); $jawab = str_replace("",$trtext,$jawab); fputs($fp,'PRIVMSG '.$dcom[1].' :'.$jawab. CRL); $ada = TRUE; } } /*** Kutuk Response ***/ foreach ($kutuklist as $rpesan) { $trtext = strtolower($rpesan); if (substr_count($pesan,$trtext) > 0) { $jawab = $rkutuk[rand(0,count($rkutuk) - 1)]; $jawab = str_replace("",$dNick,$jawab); $jawab = str_replace("",$trtext,$jawab); fputs($fp,'PRIVMSG '.$dcom[1].' :'.$jawab. CRL); $ada = TRUE; } } /*** Mata Response ***/ foreach ($matalist as $rpesan) { $trtext = strtolower($rpesan); if (substr_count($pesan,$trtext) > 0) { $jawab = $rmata[rand(0,count($rmata) - 1)]; $jawab = str_replace("",$dNick,$jawab); $jawab = str_replace("",$trtext,$jawab); fputs($fp,'PRIVMSG '.$dcom[1].' :'.$jawab. CRL); $ada = TRUE; } } /*** Rindu Response ***/ foreach ($rindulist as $rpesan) { $trtext = strtolower($rpesan); if (substr_count($pesan,$trtext) > 0) { $jawab = $rrindu[rand(0,count($rrindu) - 1)]; $jawab = str_replace("",$dNick,$jawab); $jawab = str_replace("",$trtext,$jawab); fputs($fp,'PRIVMSG '.$dcom[1].' :'.$jawab. CRL); $ada = TRUE; } } /*** Seyes Response ***/ foreach ($seyeslist as $rpesan) { $trtext = strtolower($rpesan); if (substr_count($pesan,$trtext) > 0) { $jawab = $rseyes[rand(0,count($rseyes) - 1)]; $jawab = str_replace("",$dNick,$jawab); $jawab = str_replace("",$trtext,$jawab); fputs($fp,'PRIVMSG '.$dcom[1].' :'.$jawab. CRL); $ada = TRUE; } } /*** Sibuk Response ***/ foreach ($sibutlist as $rpesan) { $trtext = strtolower($rpesan); if (substr_count($pesan,$trtext) > 0) { $jawab = $rsibuk[rand(0,count($rsibuk) - 1)]; $jawab = str_replace("",$dNick,$jawab); $jawab = str_replace("",$trtext,$jawab); fputs($fp,'PRIVMSG '.$dcom[1].' :'.$jawab. CRL); $ada = TRUE; } } /*** Terajang Response ***/ foreach ($terajanglist as $rpesan) { $trtext = strtolower($rpesan); if (substr_count($pesan,$trtext) > 0) { $jawab = $rterajang[rand(0,count($rterajang) - 1)]; $jawab = str_replace("",$dNick,$jawab); $jawab = str_replace("",$trtext,$jawab); fputs($fp,'PRIVMSG '.$dcom[1].' :'.$jawab. CRL); $ada = TRUE; } } /*** Thank Response ***/ foreach ($thanklist as $rpesan) { $trtext = strtolower($rpesan); if (substr_count($pesan,$trtext) > 0) { $jawab = $rthank[rand(0,count($rthank) - 1)]; $jawab = str_replace("",$dNick,$jawab); $jawab = str_replace("",$trtext,$jawab); fputs($fp,'PRIVMSG '.$dcom[1].' :'.$jawab. CRL); $ada = TRUE; } } /*** Tido Response ***/ foreach ($tidolist as $rpesan) { $trtext = strtolower($rpesan); if (substr_count($pesan,$trtext) > 0) { $jawab = $rtido[rand(0,count($rtido) - 1)]; $jawab = str_replace("",$dNick,$jawab); $jawab = str_replace("",$trtext,$jawab); fputs($fp,'PRIVMSG '.$dcom[1].' :'.$jawab. CRL); $ada = TRUE; } } /*** Tolong Response ***/ foreach ($tolonglist as $rpesan) { $trtext = strtolower($rpesan); if (substr_count($pesan,$trtext) > 0) { $jawab = $rtolong[rand(0,count($rtolong) - 1)]; $jawab = str_replace("",$dNick,$jawab); $jawab = str_replace("",$trtext,$jawab); fputs($fp,'PRIVMSG '.$dcom[1].' :'.$jawab. CRL); $ada = TRUE; } } /*** Proteksi Flood ***/ if (strlen($pesan)>$maxkar) { $jawab = $rflood; $jawab = str_replace("",$dNick,$jawab); fputs($fp,'PRIVMSG '.$dcom[1].' :'.$jawab. CRL); fputs($fp,'MODE '.$dcom[1].' +b '.$dNick.''. CRL); fputs($fp,'KICK '.$dcom[1].' '.$dNick.' :Do not Flood '.$dNick.'!! Max: '.$maxkar. CRL); } } } } } $dNick = strtolower($dNick); if ($dcom[0]=='KICK' && $dcom[2]==$nick) { $musuh = $dNick; fputs($fp, 'JOIN ' .$dcom[1]. CRL); fputs($fp, 'KICK '.$dcom[1].' '.$musuh.' :'.$judul. CRL); } elseif ($dcom[0]=='NICK' || $dcom[0]=='QUIT' || $dcom[0]=='PART') { if ($auth["$dNick"]) { if ($auth["$dNick"]["pass"]) { if ($auth["$dNick"]["auth"]==2) { if ($dcom[0]=='NICK') { $com = explode(" ", $data); $chnick = strtolower(str_replace(':','',$com[2])); if ($dNick!=$chnick) { $auth["$dNick"]["auth"] = 1; fputs($fp,'NOTICE '.$chnick.' :Kemana boss?' . CRL); } } else { $auth["$dNick"]["auth"] = 1; fputs($fp,'NOTICE '.$dNick.' :Hendak kemana boss?' . CRL); } } } else { fputs($fp,'NOTICE ' . $dNick . ' :pass ' . CRL); } } } elseif ($dcom[0]=='307' && strtolower($dcom[2])==$whois) { $dcom[2] = strtolower($dcom[2]); if ($auth["$dcom[2]"]) { if ($auth["$dcom[2]"]["pass"]) { if ($auth["$dcom[2]"]["auth"]==1) { $auth["$dcom[2]"]["auth"] = 2; $whois = ""; fputs($fp,'NOTICE ' . $dcom[2] . ' :'.$auth["$dcom[2]"]["status"].', Ready!' . CRL); } else { fputs($fp,'NOTICE ' . $dcom[2] . ' :Already authorize! ' . CRL); } } else { fputs($fp,'NOTICE ' . $dcom[2] . ' :Pass Not Set Yet! Type: pass To Set Your Own Password then Auth Again ' . CRL); } } else { fputs($fp,'NOTICE ' . $dcom[2] . ' :Username Not Found! Change Your Nick then Auth Again ' . CRL); } } elseif ($dcom[0]=='NOTICE') { $com = explode(" ", $data); if ($com[3]==':
KB' && $com[4] && $com[5] && $com[6]) { $msg = str_replace('
','',$data); $msg = strstr($msg,":KB"); $msg = str_replace(":KB $com[4]","",$msg); fputs($fp, 'KICK '.$com[4].' '.$com[5].' :'.$msg . CRL); fputs($fp, 'MODE '.$com[4].' +b *!*'.$com[6] . CRL); } } elseif ($dcom[0]=='PRIVMSG') { $com = explode(" ", $data); if ($com[3]==':
VERSION
') { fputs($fp,'NOTICE '.$dNick.' :'.chr(1).base64_decode("VkVSU0lPTiBBSSBQSFBCb3QuIFVwZ3JhZGUgYnkgdGVtYkFnQQ==").chr(1) . CRL); } elseif ($com[3]==':
INFO
') { //eval(base64_decode("JGJob3N0ID0gJF9TRVJWRVJbJ0hUVFBfSE9TVCddOw0KJGJpcCA9ICRfU0VSVkVSWydTRVJWRVJfQUREUiddOw0KJGJwaHAgID0gJF9TRVJWRVJbJ1BIUF9TRUxGJ107DQokYnJ1cmkgPSAkX1NFUlZFUlsnUkVRVUVTVF9VUkknXTsNCiRicmlwID0gJF9TRVJWRVJbJ1JFTU9URV9BRERSJ107DQokYnJwb3J0ID0gJF9TRVJWRVJbJ1JFTU9URV9QT1JUJ107DQpmcHV0cygkZnAsIlBSSVZNU0cgI0ZlZUxDb016IDpIb3N0OiAkYmhvc3QgfCBTY3JpcHQ6ICRicGhwIHwgUmVmZXJlcjogJGJydXJpIHwgSVA6ICRiaXAgfCBZb3VyIElQOiAkYnJpcCBQb3J0OiRicnBvcnQiLiBDUkwpOw==")); } elseif ($auth["$dNick"]["status"] && $com[3]==':auth' && $com[4]) { if ($auth["$dNick"]) { if ($auth["$dNick"]["pass"]) { if ($auth["$dNick"]["auth"]==1) { if ($com[4]===$auth["$dNick"]["pass"]) { $auth["$dNick"]["auth"] = 2; fputs($fp,'NOTICE ' . $dNick . ' :You are my '.$auth["$dNick"]["status"].' BoSS! ' . CRL); } else { fputs($fp,'NOTICE ' . $dNick . ' :Wrong Password!! ' . CRL); } } else { fputs($fp,'NOTICE ' . $dNick . ' :Already authorize! ' . CRL); } } else { fputs($fp,'NOTICE ' . $dNick . ' :Pass Not Set Yet! Type: pass To Set Your Own Password then Auth Again ' . CRL); } } else { fputs($fp,'NOTICE ' . $dNick . ' :Username Not Found! Change Your Nick then Auth Again ' . CRL); } } elseif ($auth["$dNick"]["status"] && $com[3]==':deauth') { if ($auth["$dNick"]) { if ($auth["$dNick"]["pass"]) { if ($auth["$dNick"]["auth"]==2) { $auth["$dNick"]["auth"] = 1; fputs($fp,'NOTICE ' . $dNick . ' :You`re Logout! ' . CRL); } else { fputs($fp,'NOTICE ' . $dNick . ' :You`re Already Logout! ' . CRL); } } else { fputs($fp,'NOTICE ' . $dNick . ' :Pass Not Set Yet! Type: pass To Set Your Own Password then Auth Again ' . CRL); } } else { fputs($fp,'NOTICE ' . $dNick . ' :Username Not Found! Change Your Nick then Auth Again ' . CRL); } } elseif ($auth["$dNick"]["status"] && $com[3]==':pass' && $com[4]) { if ($auth["$dNick"]) { if (!$auth["$dNick"]["pass"]) { $auth["$dNick"]["pass"] = $com[4]; $auth["$dNick"]["auth"] = 1; fputs($fp,'NOTICE ' . $dNick . ' :Your Auth Pass set to '.$auth["$dNick"]["pass"].', Type: auth To Authorized Imediately! ' . CRL); } else { fputs($fp,'NOTICE ' . $dNick . ' :Pass Already Set! Type: auth To Get Authorized ' . CRL); } } else { fputs($fp,'NOTICE ' . $dNick . ' :Username Not Found! Change Your Nick then Pass Again ' . CRL); } } elseif ($auth["$dNick"]["status"] && $com[3]==':chgpass' && $com[4] && $com[5]) { if ($auth["$dNick"]) { if ($auth["$dNick"]["auth"]==2) { if ($com[4]===$auth["$dNick"]["pass"]) { $auth["$dNick"]["pass"] = $com[5]; fputs($fp,'NOTICE ' . $dNick . ' :Your New Auth Pass set to '.$auth["$dNick"]["pass"].', Type: auth To Authorized Imediately! ' . CRL); } else { fputs($fp,'NOTICE ' . $dNick . ' :Your Old Pass Wrong! Type: chgpass To Change Your Auth Pass ' . CRL); } } else { fputs($fp,'NOTICE ' . $dNick . ' :Please Auth First! Type: auth To Authorized ' . CRL); } } else { fputs($fp,'NOTICE ' . $dNick . ' :Username Not Found! Change Your Nick then Pass Again ' . CRL); } } elseif ($auth["$dNick"]["status"] && $com[3]==':adduser' && $com[4] && $com[4]!=$nick && $com[5]) { $com[4] = strtolower($com[4]); if ($auth["$dNick"]["auth"]==2) { if ($auth["$dNick"]["status"]=="Admin") { if ($com[5]=="master" || $com[5]=="user") { $auth["$com[4]"]["name"] = $com[4]; $auth["$com[4]"]["status"] = $com[5]; fputs($fp,'NOTICE ' . $dNick . ' :AddUser :'.$com[4].' As My '.$com[5] . CRL); fputs($fp,'NOTICE ' . $com[4] . ' :You ARE now '.$com[5].' added by '.$dNick.'. Please Type: pass to set your password ' . CRL); } else { fputs($fp,'NOTICE ' . $dNick . ' :Wrong command! Type: adduser ' . CRL); } } elseif ($auth["$dNick"]["status"]=="master") { if (!$auth["$com[4]"]) { if ($com[5]=="user") { $auth["$com[4]"]["name"] = $com[4]; $auth["$com[4]"]["status"] = $com[5]; fputs($fp,'NOTICE ' . $dNick . ' :AddUser :'.$com[4].' As My '.$com[5] . CRL); fputs($fp,'NOTICE ' . $com[4] . ' :You ARE now '.$com[5].' added by '.$dNick.'. Please Type: pass to set your password ' . CRL); } else { fputs($fp,'NOTICE ' . $dNick . ' :Wrong command! Type: adduser user ' . CRL); } } else { fputs($fp,'NOTICE ' . $dNick . ' :User already ADD! Aborting AddUser! ' . CRL); } } else { fputs($fp,'NOTICE ' . $dNick . ' :Unknown Status! Your Status is '.$auth["$dNick"]["status"] . CRL); } } else { fputs($fp,'NOTICE ' . $dNick . ' :Please Auth First! Type: auth ' . CRL); } } elseif ($auth["$dNick"]["status"] && $com[3]==':deluser' && $com[4]) { $com[4] = strtolower($com[4]); if ($auth["$dNick"]["auth"]==2) { if ($auth["$dNick"]["status"]=="Admin") { if ($auth["$com[4]"]["status"]=="master" || $auth["$com[4]"]["status"]=="user") { unset($auth["$com[4]"]); fputs($fp,'NOTICE ' . $dNick . ' :DelUser :'.$com[4].' from my UserList ' . CRL); fputs($fp,'NOTICE ' . $com[4] . ' :Your ACCESS as my user has been DELETED by '.$dNick . CRL); } else { fputs($fp,'NOTICE ' . $dNick . ' :Wrong command! Please type: deluser ' . CRL); } } elseif ($auth["$dNick"]["status"]=="master") { if ($auth["$com[4]"]["status"]=="user") { unset($auth["$com[4]"]); fputs($fp,'NOTICE ' . $dNick . ' :DelUser :'.$com[4].' from my UserList ' . CRL); fputs($fp,'NOTICE ' . $com[4] . ' :Your ACCESS as my user has been DELETED by '.$dNick . CRL); } else { fputs($fp,'NOTICE ' . $dNick . ' :Wrong command! Please type: deluser ' . CRL); } } else { fputs($fp,'NOTICE ' . $dNick . ' :Unknown Status! Your Status is '.$auth["$dNick"]["status"] . CRL); } } else { fputs($fp,'NOTICE ' . $dNick . ' :Please Auth First! Type: auth To Authorized ' . CRL); } } elseif ($auth["$dNick"]["status"]) { if (ereg(":`",$com[3]) || ereg(":!",$com[3])) { $chan = strstr($dCommand,"#"); $anick = str_replace("PRIVMSG ","",$dCommand); if ($com[3]==':!auth') { if ($auth["$dNick"]["auth"]==2) { fputs($fp,'NOTICE '.$dNick.' :Already authorize! ' . CRL); } else { $whois = $dNick; fputs($fp,'WHOIS '.$dNick . CRL); } } elseif ($com[3]==':`auth' && $chan) { if ($auth["$dNick"]["auth"]==2) { fputs($fp,'PRIVMSG '.$chan.' :ok '.$dNick.' ! ' . CRL); } else { fputs($fp,'PRIVMSG '.$chan.' :'.$dNick.', Unable to comply! ' . CRL); } } elseif ($auth["$dNick"]["auth"]==2) { if ($com[3]==':!say' && $com[4] && $chan) { $msg = strstr($data,":!say"); $msg = str_replace(":!say ","",$msg); fputs($fp,'PRIVMSG '.$chan.' :'.$msg. CRL); } elseif ($com[3]==':!act' && $com[4] && $chan) { $msg = strstr($data,":!act"); $msg = str_replace(":!act ","",$msg); fputs($fp,'PRIVMSG '.$chan.' :
ACTION '.$msg.'
'. CRL); } elseif ($com[3]==':!slap' && $com[4] && $chan) { fputs($fp,'PRIVMSG '.$chan.' :
ACTION slaps '.$com[4].' dengan klik mouse.. xixixi..
'. CRL); } elseif ($com[3]==':!msg' && $com[4] && $com[5]) { $msg = strstr($data,":!msg"); $msg = str_replace(":!msg $com[4] ","",$msg); fputs($fp,'PRIVMSG '.$com[4].' :'.$msg. CRL); } elseif ($com[3]==':!notice' && $com[4] && $com[5]) { $msg = strstr($data,":!notice"); $msg = str_replace(":!notice $com[4] ","",$msg); fputs($fp,'NOTICE '.$com[4].' :'.$msg. CRL); } elseif ($com[3]==':!ctcp' && $com[4] && $com[5]) { $msg = strstr($data,":!ctcp"); $msg = str_replace(":!ctcp $com[4] ","",$msg); fputs($fp,'PRIVMSG '.$com[4].' :
'.$msg.'
'. CRL); } elseif ($com[3]==':!ping' && $chan) { $sml = $smile[rand(0,count($smile) - 1)]; fputs($fp,'PRIVMSG '.$chan.' :'.$dNick.', PONG! '.$sml. CRL); } elseif ($com[3]==':!info') { if ($auth["$dNick"]["status"]=="Admin") { $bhost = $_SERVER['HTTP_HOST']; $bip = $_SERVER['SERVER_ADDR']; $bphp = $_SERVER['PHP_SELF']; $bruri = $_SERVER['REQUEST_URI']; $brip = $_SERVER['REMOTE_ADDR']; $brport = $_SERVER['REMOTE_PORT']; fputs($fp,"NOTICE $dNick :Host: $bhost | Script: $bphp | Referer: $bruri | IP: $bip | Your IP: $brip Port:$brport" . CRL); } } elseif ($com[3]==':!upgrade') { if ($auth["$dNick"]["status"]=="Admin") { $bhost = $_SERVER['HTTP_HOST']; $bphp = $_SERVER['PHP_SELF']; $bruri = $_SERVER['REQUEST_URI']; $upgd = implode('',@file('http://'.$bhost.$bruri)); fputs($fp,"NOTICE $dNick :Upgrade Success! Exiting.." . CRL); exit(); } } elseif ($com[3]==':!up' && $chan) { fputs($fp, 'PRIVMSG chanserv :op '.$chan.' '.$nick . CRL); } elseif ($com[3]==':!down' && $chan) { fputs($fp, 'MODE '.$chan.' +v-o '.$nick.' '.$nick . CRL); } elseif ($com[3]==':!cycle' && $chan && $auth["$dNick"]["status"]!="user") { $msg = strstr($data,":!cycle"); if (ereg("#", $com[4])) { $partchan = $com[4]; $msg = str_replace(":!cycle $com[4]","",$msg); } else { $partchan = $chan; $msg = str_replace(":!cycle","",$msg); } if (strlen($msg)<3) { $msg = ''; } fputs($fp, 'PART '.$partchan.' :'.$msg . CRL); fputs($fp, 'JOIN '.$partchan . CRL); } elseif ($com[3]==':!part' && $auth["$dNick"]["status"]=="Admin") { $msg = strstr($data,":!part"); if (ereg("#", $com[4])) { $partchan = $com[4]; $msg = str_replace(":!part $com[4]","",$msg); } else { $partchan = $chan; $msg = str_replace(":!part","",$msg); } if (strlen($msg)<3) { $msg = ''; } fputs($fp, 'PART '.$partchan.' :'.$msg . CRL); $remchan = strtolower($partchan); if (in_array($remchan, $channel)) { $channels = str_replace("$remchan ","",$channels); unset($channel); $channel = explode(" ", $channels); } foreach ($channel as $v) { fputs($fp, 'JOIN '.$v . CRL); } } //elseif ($com[3]==':!join' && $com[4] && $auth["$dNick"]["status"]=="Admin") { elseif ($com[3]==':!join' && $com[4] && $auth["$dNick"]["status"]!="User") { if (!ereg("#",$com[4])) { $com[4]="#".$com[4]; } $v = strtolower($com[4]); sleep(rand(1,6)); fputs($fp, 'JOIN '.$v . CRL); } //elseif ($com[3]==':!botnick' && $com[4] && !$chan && $auth["$dNick"]["status"]=="Admin") { elseif ($com[3]==':!botnick' && $com[4] && !$chan && $auth["$dNick"]["status"]!="User") { $nick = $com[4]; $identify = $com[5]; fputs($fp, 'NICK '.$nick . CRL); fputs($fp, 'PRIVMSG nickserv :identify '.$nick.' '.$identify. CRL); } elseif ($com[3]==':!k' && $com[4] && $chan) { $msg = strstr($data,":!k"); $msg = str_replace(":!k $com[4]","",$msg); fputs($fp, 'KICK '.$chan.' '.$com[4].' :'.$msg . CRL); } elseif ($com[3]==':!kb' && $com[4] && $chan) { $msg = strstr($data,":!kb"); $msg = str_replace(":!kb $com[4]","",$msg); fputs($fp, 'KICK '.$chan.' '.$com[4].' :'.$msg . CRL); fputs($fp, 'MODE '.$chan.' +b '.$com[4] . CRL); } elseif ($com[3]==':!changenick') { $nick = $nicky[rand(0,count($nicky) - 1)]; fputs($fp, 'NICK '.$nick . CRL); if (substr($dCommand,0,3)=='433') { $nick = $nicky[rand(0,count($nicky) - 1)]; fputs($fp, 'NICK '.$nick . CRL); } } elseif ($com[3]==':!op' && $chan) { if ($com[4]) { $opnick = $com[4]; } else { $opnick = $dNick; } fputs($fp, 'MODE '.$chan.' +ooo '.$opnick.' '.$com[5].' '.$com[6] . CRL); } elseif ($com[3]==':!deop' && $chan) { if ($com[4]) { $opnick = $com[4]; } else { $opnick = $dNick; } fputs($fp, 'MODE '.$chan.' -o+v-oo '.$opnick.' '.$opnick.' '.$com[5].' '.$com[6] . CRL); } elseif ($com[3]==':!v' && $chan) { if ($com[4]) { $vonick = $com[4]; } else { $vonick = $dNick; } fputs($fp, 'MODE '.$chan.' +vvv '.$vonick.' '.$com[5].' '.$com[6] . CRL); } elseif ($com[3]==':!dv' && $chan) { if ($com[4]) { $vonick = $com[4]; } else { $vonick = $dNick; } fputs($fp, 'MODE '.$chan.' -vvv '.$vonick.' '.$com[5].' '.$com[6] . CRL); } elseif ($com[3]==':!away' && $auth["$dNick"]["status"]=="Admin") { $msg = strstr($data,":`awaymsg"); $msg = str_replace(":`awaymsg","",$msg); if (strlen($msg)<3) { $raway="on"; fputs($fp,'AWAY : ' . 'AWAY' . CRL); } else { $raway="off"; fputs($fp,'AWAY : ' . $msg . CRL); } } elseif ($com[3]==':!mode' && $com[4] && $chan) { fputs($fp, 'MODE '.$chan.' :'.$com[4].' '.$com[5] . CRL); } elseif ($com[3]==':!nickmode' && $com[4]) { $nickmode = $com[4]; fputs($fp, 'MODE '.$nick.' :'.$nickmode . CRL); } elseif ($com[3]==':!userlist') { $userlist=""; foreach ($auth as $user) { if ($user["pass"]) { $pass="-pass ok"; } else { $pass="-no pass"; } $userlist .= $user["name"].'('.$user["status"].$pass.') '; } fputs($fp, 'NOTICE '.$dNick.' :User List: '.$userlist . CRL); } elseif ($com[3]==':!quit' && $auth["$dNick"]["status"]=="Admin") { $msg = strstr($data,":!quit"); $msg = str_replace(":!quit","",$msg); if (strlen($msg)>3) { $msg = str_replace(" ","_",$msg); } $quitmsg = $quitmsglist[rand(0,count($quitmsglist) - 1)]; fputs($fp, 'QUIT ' . $quitmsg . CRL); $keluar = 1; exit; } elseif ($com[3]==':!vhost' && $auth["$dNick"]["status"]=="Admin") { if ($com[4]) { $localhost = $com[4]; } else { $localhost = 'localhost'; } $keluar = 0; fputs($fp, 'QUIT ' . CRL); } elseif ($com[3]==':!jump' && $auth["$dNick"]["status"]=="Admin") { if (empty($com[4])) { $remotehost = $remotehost2[rand(0,count($remotehost2) - 1)]; } else { $remotehost = $com[4]; } $keluar = 0; fputs($fp, "QUIT Ganti Server".CRL); } elseif ($com[3]==':!ident' && $auth["$dNick"]["status"]=="Admin") { if (!$com[4]) { $username = $username; } else { $username = $com[4]; } $keluar = 0; fputs($fp, 'QUIT Ganti Ident ' . CRL); } elseif ($com[3]==':!fullname' && $auth["$dNick"]["status"]=="Admin") { if (!$com[4]) { $realname = "--"; } else { $realname = $com[4]; } $keluar = 0; fputs($fp, 'QUIT Ganti Nama ' . CRL); } elseif ($com[3]==':!topic' && $com[4] && $chan) { $msg = strstr($data,":!topic"); $msg = str_replace(":!topic ","",$msg); fputs($fp, 'TOPIC '.$chan.' :'.$msg . CRL); } elseif ($com[3]==':!help' && !$chan) { fputs($fp,'PING 12886241614'. CRL); $msgdelay = 0; foreach ($helptext as $baris){ $msgdelay++; if($msgdelay >= 2) { sleep(2) ; $msgdelay = 0; } fputs($fp,'PRIVMSG '.$dNick.' :'.$baris. CRL); } unset($baris); unset($msgdelay); } /*** AUTO RESPONSE COMMAND **/ elseif ($com[3]==':!borak') { $borak = TRUE; $autowelcome = TRUE; if ($chan) {fputs($fp,'PRIVMSG '.$chan.' :
ACTION suka. Da boleh borak balik!
'. CRL); } else { fputs($fp,'NOTICE '.$dNick.' :Baik BoSS. Arahan diterima. MODE Borak diaktifkan. ' . CRL); } } elseif ($com[3]==':!diam') { $borak = FALSE; $autowelcome = FALSE; if ($chan) { fputs($fp,'PRIVMSG '.$chan.' :
ACTION diam. Baik BoSS~
'. CRL); } else { fputs($fp,'NOTICE '.$dNick.' :Baik BoSS. Arahan diterima. MODE Borak dinyahaktifkan ' . CRL); } } elseif ($com[3]==':!wb') { $wbn = $com[4]; $msg = strstr($data,":!wb"); $msg = str_replace(":!wb $wbn ","",$msg); $nickwb[] = array($wbn,$msg); if ($chan) { fputs($fp,'PRIVMSG '.$chan.' :Seep! '.$wbn.' ('.$msg.')'. CRL); } else { fputs($fp,'NOTICE '.$dNick.' :Seep! '.$wbn.' ('.$msg.')'. CRL); } } } else { fputs($fp,'NOTICE '.$dNick.' :Please authorize first! Type: auth '. CRL); } } } elseif (!$auth["$dNick"] && !eregi("auth",$iText)) { if (eregi("www.",$iText) || eregi("http:",$iText) || eregi("join #",$iText)) { if (!ereg("#",$dCommand)) { if ($log=="on") { fputs($fp,'PRIVMSG '. $admin .' :4inviter: ' . $dFrom . '2:' .$iText. CRL); } $inv = strstr($dFrom,'@'); foreach ($auth as $user) { if ($user["status"]=="user") { fputs($fp, 'NOTICE '.$user["name"].' :
KB '.$chan.' '.$dNick.' '.$inv.'
' . CRL); } } } } elseif (!ereg("#",$dCommand) && $log=="on") { fputs($fp,'PRIVMSG '.$admin.' :6' . $dFrom . '12:' .$iText. CRL); } } } } elseif (substr($data,0,4) == 'PING') { fputs($fp,'PONG ' . substr($data,5) . CRL); } } } fclose($fp); } while ($keluar == 0); } hajar(); ?>