Script Bot Channel IRC

[[C]LoSe-]

Code: [Select]

on 1:join:#channel Anda: Clan{
/msg $nick Untuk melihat command bot user anda, ketik /w GHOST !help
/writeini -n login.ini ID: $nick - Status: login }

on 1:text:*!help*:?: {
/msg $nick Command bot user yang anda miliki adalah
/msg $nick Untuk melihat list admin GHOST, ketik /w GHOST !admin
/msg $nick Untuk melihat list operator GHOST, ketik /w GHOST !op
/msg $nick Untuk melihat list voice operator GHOST, ketik /w GHOST !vop
/msg $nick untuk melihat forum GHOST, ketik /w GHOST !forum
/msg $nick Untuk reload dari GHOST, ketik -relog }

on 1:text:*!admin*:?: {
/msg $nick List administrator GHOST adalah
/msg $nick marijan, sendal }

on 1:text:*!op*:?: {
/msg $nick List operator GHOST adalah
/msg $nick bawuk, bawik }

on 1:text:*!vop*:?: {
/msg $nick List voice operator GHOST adalah
/msg $nick Hitman, [Freak]-cLose }

on 1:text:*!forum*:?: {
/msg $nick Forum GHOST adalah
/msg $nick Masih dalam tahap proses }

on 1:text:*-relog*:#: {
/kill $nick }

on 2:join:#GHOSTWorld: {
/raw voice $nick
/msg $nick Untuk melihat command bot vop anda, ketik /w GHOST !cmd-vop }

on 2:text:*!cmd-vop*:?: {
/msg $nick Command bot vop yang anda miliki adalah
/msg $nick Untuk Announcement, ketik /w GHOST !ann (Info)
/msg $nick Untuk mengenai war, ketik /w GHOST !war (Versus) (Info) (Contact)
/msg $nick Untuk Info say dichannel, ketik /w GHOST !say (Info)
/msg $nick Untuk Kick ID dari channel, ketik /w GHOST !kick (ID) }

on 3:join:#GHOSTWorld: {
/msg $nick Untuk melihat command bot op anda, ketik /w GHOST !cmd-op }

on 3:text:*!cmd-op*:?: {
/msg $nick Command bot op yang anda miliki adalah
/msg $nick Untuk Announcement, ketik /w GHOST !ann (Info)
/msg $nick Untuk mengenai war, ketik /w GHOST !war (Versus) (Info) (Contact)
/msg $nick Untuk Info say dichannel, ketik /w GHOST !say (Info)
/msg $nick Untuk Kick ID dari channel, ketik /w GHOST !kick (ID)
/msg $nick untuk Ban id, ketik /w GHOST !ban (iD) (Lama) (Alasan)
/msg $nick untuk Unban id, ketik /w GHOST !unban (ID) }

on 4:join:#GHOSTWorld: {
/msg $nick Untuk melihat command bot admin anda, ketik /w GHOST !cmd-adm }

on 4:text:*!cmd-adm*:?: {
/msg $nick Command bot admin yang anda miliki adalah
/msg $nick Untuk Announcement, ketik /w GHOST !ann (Info)
/msg $nick Untuk mengenai war, ketik /w GHOST !war (Versus) (Info) (Contact)
/msg $nick Untuk Info say dichannel, ketik /w GHOST !say (Info)
/msg $nick Untuk Kick ID dari channel, ketik /w GHOST !kick (ID)
/msg $nick untuk Ban id, ketik /w GHOST !ban (iD) (Lama) (Alasan)
/msg $nick untuk Unban id, ketik /w GHOST !unban (ID) }

on 2:text:*!war*:?: {
/raw ann Butuh lawan : $2 vs $2 . Info : $3 . Hubungi $4 ( From VOP : $nick ) }
on 3:text:*!war*:?: {
/raw ann Butuh lawan : $2 vs $2 . Info : $3 . Hubungi $4 ( From OP : $nick ) }
on 4:text:!war*:?: {
/raw ann Butuh lawan : $2 vs $2 . Info : $3 . Hubungi $4 ( From Admin : $nick ) }

on 2:text:!ann*:?: {
/raw ann $2- ( From VOP : $nick ) }
on 3:text:!ann*:?: {
/raw ann $2- ( From OP : $nick ) }
on 4:text:!ann*:?: {
/raw ann $2- ( From Admin : $nick ) }

on 2:text:!kick*:?: {
/raw kick $2 Alasan : $3- ( From VOP : $nick ) }
on 3:text:!kick*:?: {
/raw kick $2 Alasan : $3- ( From OP : $nick ) }
on 4:text:!kick*:?: {
/raw kick $2 Alasan : $3- ( From Admin : $nick ) }

on 2:text:!say*:?: {
/raw me $2- ( From VOP : $nick ) }
on 2:text:!say*:?: {
/raw me $2- ( From OP : $nick ) }
on 3:text:!say*:?: {
/raw me $2- ( From Admin : $nick ) }

on 3:text:!ban*:?: {
/raw ban $2 (Lama : $3 ) ( Alasan : $4 ) ( Tgl: $date(dd/mm/yy)) ( From OP: $nick )
/raw lockacct $2
/raw kill $2
/msg $nick ID Telah Di banned
/writeini -n mIRC\\data\\lockunlock.txt ID: $2 Status: Banned Tgl: $date(dd/mm/yy) From Operator: $nick Keterangan: ID Anda telah diBan (Alasan : $3 ) ( Lama : $4 ) }

on 3:text:!unban*:?: {
/raw unban $2
/raw unlockacct $2
/writeini -n mIRC\\lockunlock.txt ID: $2 Status: Unbaned Tgl: $date(dd/mm/yy) From Operator: $nick Keterangan: Masa Ban Sudah Lewat (Alasan : $3 )
/msg $nick ID Telah Di Unbaned }

on 4:text:!ban*:?: {
/raw ban $2 (Lama : $3 ) ( Alasan : $4 ) ( Tgl: $date(dd/mm/yy)) ( From Admin: $nick )
/raw lockacct $2
/raw kill $2
/msg $nick ID Telah Di banned
/writeini -n mIRC\\data\\lockunlock.txt ID: $2 Status: Banned Tgl: $date(dd/mm/yy) From Admin: $nick Keterangan: ID Anda telah diBan (Alasan : $3 ) ( Lama : $4 ) }

on 4:text:!unban*:?: {
/raw unban $2
/raw unlockacct $2
/writeini -n mIRC\\lockunlock.txt ID: $2 Status: Unbaned Tgl: $date(dd/mm/yy) From Admin: $nick Keterangan: Masa Ban Sudah Lewat (Alasan : $3 )
/msg $nick ID Telah Di Unbaned }


on 1:TEXT:*bapaklo*:#: {
/raw kick $nick jangan bawa bawa ortu disini inget bos. !!!! }
on 1:TEXT:*biji*:#: {
/raw kick $nick Ihhh ni anak mulutnya gw cabein nanti. !!!! }
on 1:TEXT:*peler*:#: {
/raw kick $nick Ihhh ni anak mulutnya gw cabein nanti. !!!! }
on 1:TEXT:*kroco*:#: {
/raw kick $nick yang kroco jangan disini ah. !!!! }
on 1:TEXT:*sampah*:#: {
/raw kick $nick Ehhh berani beraninya ngomong sampah disini, Kick dolo ah }
on 1:TEXT:*bangsat*:#: {
/raw kick $nick Kaga perlu pake Badword disini . inget ya !!!! }
on 1:TEXT:*asu*:#: {
/raw kick $nick Muka lo tuh yang kaya asu, ngomong gak jelas }
on 1:TEXT:*susu*:#: {
/raw kick $nick Muka lo tuh yang kaya susu kali? }
on 1:TEXT:*bangsad*:#: {
/raw kick $nick Kaga perlu pake Badword disini . inget ya !!!! }
on 1:TEXT:*melsa*:#: {
/raw kick $nick Jangan bahas Server Lain disini!!! }
on 1:TEXT:*mgi*:#: {
/raw kick $nick Jangan bahas Server Lain disini!!! }
on 1:TEXT:indogamers*:#: {
/raw kick $nick Jangan bahas Server Lain disini!!! }
on 1:TEXT:*nusa*:#: {
/raw kick $nick Jangan bahas Server Lain disini!!! }
on 1:TEXT:*m1cq*:#: {
/raw kick $nick Jangan bahas Server Lain disini!!! }
on 1:TEXT:*skyzone*:#: {
/raw kick $nick Jangan bahas Server Lain disini!!! }

on 1:TEXT:!status*:?: {

if ( $nick != %mrp.nick ) { set -u15 %mrp.nick $nick }

if ( $2 == $null ) { set %mrp.status $readini mIRC\\lockunlock.txt ID: %mrp.nick }

if ( %mrp.status == $null ) {

/msg $nick %mrp.nick $+ , }
else {

/msg $nick %mrp.nick $+ , %mrp.status }

else { set %mrp.status $readini mIRC\\lockunlock.txt ID: $2 }

if ( %mrp.status == $null ) {

/msg $nick %mrp.nick $+ , $2 }

else {
/msg $nick %mrp.nick $+ , $2 %mrp.status } }
}





on *:TEXT:*:#GhostWorld:{
if (%protections == on) {
if ($nick isop $chan) { halt }
if (%flood2. [ $+ [ $wildsite ] ] == $null) {
set -u2 %flood2. [ $+ [ $wildsite ] ] 2
}
elseif (%flood2. [ $+ [ $wildsite ] ] >= 2) {
/raw kick $chan $nick Do Not Flood In $chan Again, $nick .
unset %flood2. [ $+ [ $wildsite ] ]
}
else { inc -u2 %flood2. [ $+ [ $wildsite ] ] }
}
}
on *:text:*:#GhostWorld:{
if (%protections == on) {

if ($nick isop $chan) { halt }
if ( $len($1-) >= 3 ) {
if ( $calc($regex($1-,/[A-Z]/g) / $regex($1-,/[A-Z]/gi) * 100) >= 70 ) /raw kick # $nick $v1 $+ % Caps $nick . Lower them please! | //write KickLogs.txt ( $+ $date $+ - $+ $time $+ ) $nick $address $chan $+ , Kicked for Caps. [Caps]: $1- }
}
}
alias Protections {
if ($2 == on) { set %protections on | echo -a Protection is now on }
if ($2 == off) { set %protections off | echo -a Protection is now off. }
}

on 4:text:!ping:?: {
/whois $nick }

#caps On
on @*:TEXT:*:#:{
var %n 4
if ($nick isreg $chan) {
var %percentage 60
if ($calc($regex($1-,/[A-Z]/g) / $len($1-) * 100) > %percentage) {
if (%n < 3) {
inc $+(%,caps,.,$nick,.,$wildsite)
var %i $($+(%,caps,.,$nick,.,$wildsite),2)
if (%i < %n) {
msg $chan You are currently using too many captial letters. This is the $ord(%i) time that you have broken this rule. Please stop this conduct or immidiate action will be taken against you.
}
if (%i = 3) {
/raw kick -ku120 # $nick You are using $calc($regex($1-,/[A-Z]/g) / $len($1-) * 100) percent caps. You have been warned before, you will now be banned.
unset $+(%caps,.,$nick,.,$wildsite)
}
}
}
}
}

on @*:ACTION:*:#:{
var %n 4
if ($nick isreg $chan) {
var %percentage 60
if ($calc($regex($1-,/[A-Z]/g) / $len($1-) * 100) > %percentage) {
if (%n < 3) {
inc $+(%,caps,.,$nick,.,$wildsite)
var %i $($+(%,caps,.,$nick,.,$wildsite),2)
if (%i < %n) {
/msg msg $chan You are currently using too many captial letters. This is the $ord(%i) time that you have broken this rule. Please stop this conduct or immidiate action will be taken against you.
}
if (%i = 3) {
/raw kick -ku120 # $nick You are using $calc($regex($1-,/[A-Z]/g) / $len($1-) * 100) percent caps. You have been warned before, you will now be banned.
unset $+(%caps,.,$nick,.,$wildsite)
}
}
}
}
}
#caps end

menu channel {
caps kicker $group(#caps).status:
.On/off:$iif($group(#caps).status = on, enable #caps, disable #caps)
}
Tar Saya Coba buat Bot Clan sendiri ah 

Sumber http://www.plasagame.com/showthread.php?181-Belajar-membuat-script-Bot-Channel-warcraft...

[-R-]

Wah mantap ne , tapi sayangnya kalo mw pake Irc harus tau dulu Port Servernya , suka pada pelit adminnya wkakwak 

[[Pro]-Whitez]

apaan tuh gw ga ngerti