bot php feelcomz

/***********************************
/* FeeLCoMz AI PHPBot v1.6 By RoNz *
/* Copyleft April 2008 *
/* #CyBeRz @ irc.allnetwork.org *
/***********************************
/* Perhatian:
/* Joinkan hanya satu FeeLCoMz AI PHPBot dalam satu channel untuk menghindari terjadinya saling sapa antar bot.
/*
/* Perintah Dasar:
/* auth - 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 = '#gendeng'; //Pisahkan tiap channel dengan spasi

$showresponse = 0; //1, Nampilin respon dari server irc
$localtest = 0; //1, Coba di localhost. 0, connect ke server irc
$ngomong = TRUE; //TRUE, Ngomong. FLASE, Diem.
$autowelcome = TRUE; //TRUE, AutoWelcome On. FLASE, AutoWelcome off.
$versi = "v1.6";

//Nick Bot
$nicklist = array(
"Ce_CyBeRzs",
"Ce_BeLiak",
"Cute_GirLsz",
"Ce_BaNgeTzs",
"Sweety_GirLsz",
"SimPLe_GirLzs",
"DreaMy_GirLsz",
"Ce_Creatives",
"VioLay",
"Ce_iMouetz"
);
$identify = "MasteR"; //Password Nick Bot
$identlist = array(
"NurulJadid",
"AnakStt",
"caem",
"cantik",
);
$namabot = array(
"Icha",
"icha",
"chaca",
"IchA",
"Caca",
);
$aslbot = array(
"17f pdg","17f jkt","18f sby","19f sby","16f bna","16f jmb","19f plg"
);
/*** Server IRC ***/
if ($localtest == 1) { $remotehost2 = array("localhost"); }
else {
$remotehost2 = array(
"irc.lumajangcrew.co.cc"

);
}
$port = "6667";

/*** IDENTITAS BOT ***/
$namaku = $namabot[rand(0,count($namabot) - 1)];
$aslku = $aslbot[rand(0,count($aslbot) - 1)];

/*** AUTO WELCOME ***/
$wbmsg = array(
"wb :)",
"Selamat Datang ",
"Welcome ",
"Baru OL ya ?",
"Met datang di , ",
"Hello !",
"hai !",
"Wah.. Master dateng nih..",
" dah mandi blom?",
"baru join y ?",
", ada yg nyariin tuh..",
", td kemana aja?",
"ngpn aja barusan ?",
" dah makan blom?",
"hmm.. udah mulai beraksi ne kayaknya",
"kamu baik deh ",
", kamu cakep deh..",
"aku seneng liat .. orgnya ramah, baik, cakep lagi.",
"nick kamu bagus ..",
", senyummu bikin hatiku berdebar..",
"wow.. ini salah satu dedengkot IRC neh..",
"asyiik.. master datang..",
"awas, adalah hacker yg pernah jatuh cinta sama cracker",
"hati2, ini sempet bikin down server Allnetwork neh",
", gmn caranya register nick nih?",
"wah.. dimana-mana ada ",
"gmn kabarnya ?",
"dah maem blom ?",
"Asyiik.. si dateng",
", kenalin gw $namaku",
"blom bobo toh ?",
"Btw, ini adalah Carder terkaya didunia..",
" ini pernah menyaingi Kevin Midnick dlm soal hacking",
"Waduh, kok baru join?",
", ada yg bilang km jago hacking y?",
"wah.. td dicari locop tuh",
"!! Tolong donk.. gimana nich? ga bisa dibuka nih..",
"tolooong.. nyari aku sampai ke ..",
"Leh nalan ga ?",
", asl donk..",
", nm km siapa seh?",
"chan jd rame klo ada si ",
"kpn neh ketemuannya ?",
"maaf ya , aku td ga sengaja ngintip kamu..",
"btw, udah kul apa masih skul?",
"wb , km anak mana neh?",
"tmn2 semua dah kenal , kan?",
"siapa yg g knal ma ?",
", kok dah lama ga OL?",
"udah nyuci piring td ?",
", ada yg lebih bagus dari HIT ga?",
"ngapain aja di pasar tadi ?",
"kayaknya km blom bruntung deh ",
" blom ngantuk y?",
"weleh2, udah beraksi nih..",
"hai boss , bagi2 donk pulsanya!",
"leh nalan ga ?",
"hihi,, lucu deh..",
"hayah,, baru OL ya ?",
);
$jawabsapa = array(
"ada apa sayang?",
"iya sayang",
"yup $namaku ada disini lagi ngupil!",
"ada apa cakep?",
"males ah,emmoh",
"nanti aja y",
"bentar dulu ya",
"wegah ",
"ga jadi deh ",
"hm.. mo tau ajah",
"capee deh.. ",
"oke deh ",
"sebel ah ",
"$namaku cape dipanggil mulu dari tadi"
);

/** AUTO RESPONSE ***/
/*** Mood Lists ***/
$rmales = "lg males nih ..";
$rmau = "aku mau koq !";
$rsanggup = "bisa kok ";
$rboleh = "boleh kok ";
$rsetuju = "iya ";
$rthx = "makacih ..";
$rbingung = "hmm..$namaku ga tau jg nih ..";
$rgenit = "ih.. genit";

$respon_umum = array(
array("add","seep deh honey,entar lagi aku add koq"),
array("sekarang","walah koq nafsuan banget sih honey... -_-"),
array("jorok ","emang kotor tha aku??"),
array("semua ","hi .."),
array("traktir",", aku jg ditraktir donk"),
array("lapar","lho..? blom makan y?"),
array("pamit","silahkan , ati2 y"),
array("pamet","oke , ati2 y"),
array("pamed","seep , ati2 y"),
array("ngantuk"," dah ngantuk y? tidur sana gih"),
array("bobo ","oke deh , mimpiin aku y"),
array("bubu ","silahkan , moga mimpi indah y"),
array("assalam","Wa'alaikumsalam "),
array("padang","km anak padang y ?"),
array("kerinci","kerinci? di kerinci juga yach ?"),
array("pagi ","pagi "),
array("sore ","sore "),
array("malam ","malam "),
array("siang ","siang "),
array("mandi ","aku ikut donk "),
array("nunggu ","ga nunggu kok "),
array("hayah","hayah?? napa ?"),
array("hadeh","hadeh jg dah .."),
array("hadah","hadah? hadiah kali.."),
);

$respon_pesan = array(
//Sapaan
array("hai ","hai jg "),
array("halo ","halo jg "),
array("alow","alow jg "),
array("kabar","baik, km gmn ?"),
array("kbr","baik, km gmn ?"),
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 .. u 1st"),
//Identitas
array("asl ",", aku $aslku"),
array("umur",", klo aq $aslku"),
array("nama",", aku $namaku .. u?"),
array("skul ","yup , aku skul."),
array(" kul ",", ga kul neh.."),
array("alamat","hmm.. rahasia donk .."),
array("nak mana","aQ $aslku "),
array(" tinggal ",", aku di rumah"),
array("cowok","blom, klo ?"),
array("cwok","blom, klo gmn?"),
array("pcr","blom, hihi.. klo ?"),
array("pacaran","emangnya mau y pacaran ma $namaku?"),
array("pacar ","blom, ndiri gmn?"),
//Ajakan
array("pv","$rmales"),
array("ngomong","ngomong ttg apa ?"),
array("curhat","mangnya mo curhat masalah apa ?"),
array("nikah ","nikah? ih.. boro2 nikah ma "),
array("kawin ","kawin? ih.. boro2 kawin ma "),
array("kencan","boleh , kpn neh kencannya?"),
array("besok","boleh .."),
array("mau ","$rmau"),
//Tuduhan
array("bohong","bohong? ngpn Q bohong.. kali yg bohong.."),
array("boong","boong? tuh yg boong.."),
array("males","yaa.. lagi males aja nih "),
array("lain","yg lain gmn ?"),
array("laen","yg laen gmn ?"),
array("GR "," tuh yg ke-GR-an.."),
array("nyambung","nya aja yg ga nyambung.. xixi"),
array("bot","bot itu apa? kaya ya?"),
array(" aneh","aneh gmn ?"),
array("nipu","idih.. siapa jg yg nipu ?"),
//Kegiatan
array("mandi","klo aku udah mandi "),
array("makan","udah koq , klo ?"),
array("maem","udah koq , klo ?"),
array("mkn","udah neh, klo ?"),
array("belanja","belanja dmn ?"),
array("bobo ","$rmales"),
array("tidur ","$rmales"),
array("ngantuk ","blom neh .. xixi"),
array("ngpn","lg chat aja neh "),
array("ngapa","lg chat aja neh "),
//Pertanyaan
array("salam kenal ","salam kenal jg "),
array("kenal ","$namaku ga kenal tuh.. xixi"),
array("tau ","$namaku ga tau tuh.. xixi"),
array("napa","aq ga knp2 koq "),
array("knp","aq ga knp2 koq "),
array("kemana","disini aja tuh "),
array("lupa","aq ga lupa koq "),
array(" mana ","$rbingung"),
//Persetujuan
array("maaf","$rsetuju"),
//Mood
array("cinta","ih.. gombal deh.."),
array("love","I love u too, "),
array("jodoh","jodoh kalee "),
array("kangen","aku jg kangen km, "),
array("muach","muach .."),
array("uaach","idih, ga malu apa nyium2 aku didepan umum.."),
array("kiss","mo permen kiss ya ?"),
array("cium","$rgenit"),
array("eluk ","$rgenit"),
array("elonin","jgn donk , kan malu.."),
//Additional
array("hihihi","kok ngetawain aku seh?"),
array("xixi","ngetawain aku y ?"),
array("slap","auw !"),
array("masuk","ih ngerezz"),
);

//Special Words
$badwordlist = array(
"jancu","janco","pantek","pepek","kontol","anjrit","fuck","kentot","ngentot","taek","kelamin",
"ngesex"," ml ","anjenk","anjink","jajuk","torok"," keat ","dobol ");
$pujianlist = array("cantik","baik","baek","cakep","ramah","pengertian","hebat","bagus","indah");
$cacianlist = array("bego","jelek","jelex","gendeng","edan","gilo","gila","sinting","dudul","dodol","jahat","goblok","geblek","sialan");

//Responses to Special Words
$rjorok = array(
"om..! ngomong jorok nih.. kick dunk pliss!",
"guys..! ini ga sopan banget.. kick dunk pliss!"
);
$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"
);
$rflood = "aduh!! ngeflood nih..";
$maxkar = 350; //Maksimal karakter di channel

$awaymsg = " 3,9/ 9,3\ 0,1 ? D punk Bot $versi ? 3,9/ 9,3\ ";
$quitmsglist = array("GooD Bye");

/*** Admin ***/
$admin = 'dopunk';
$bot_password = 'cancer'; //Password untuk auth bot

$judul = " 3,9/ 9,3\ 0,1 ? D opunk C oon ? 3,9/ 9,3\ ";

$helptext = array(
"",
" 3,9/ 9,3\ 0,1 ? D punk Bot $versi Help ? 3,9/ 9,3\ ",
"-",
" 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!pong - Meminta bot untuk membalas dg ping (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!chanlist - Melihat daftar channel bot"," 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","-"," 3,9/ 9,3\ 0,1 ?Edited By Dopunk - Lumajangcrew ? 3,9/ 9,3\ ",);/*** Replacement ***/$nick = $nicklist[rand(0,count($nicklist) - 1)];$realname = $namaku;$remotehost = $remotehost2[rand(0,count($remotehost2) - 1)];$channels = str_replace("CNL","#",$channels);$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"); //Carriage Return$counterfp = 0;$raway = "on";$log = "off";$saway = "1";$keluar = 0;$akill = 1;$katime = 0;$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 "