Membuat Bot Channel di Warcraft

Ketika anda bermain dota seperti nusa, coba anda menulis kata kata yang berbau sara, porno dan promo server, pasti akan langsung di kick otomatis, nah tanpa banyak bacot, simak cara pembuatannya, asumsikan anda telah mengintall Mirc di komputer anda, copy scrips di bawah ini

on 1:join:#channel anda: {
/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:*maklo*:#: {
/raw kick $nick jangan bawa bawa ortu disini inget bos. !!!! }
on 1:TEXT:*mak lo*:#: {
/raw kick $nick jangan bawa bawa ortu disini inget bos. !!!! }
on 1:TEXT:*bangke*:#: {
/raw kick $nick Ihhh ni anak mulutnya gw cabein nanti. !!!! }
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:*kontol*:#: {
/raw kick $nick Kaga perlu pake Badword disini . inget ya !!!! }
on 1:TEXT:*jancok*:#: {
/raw kick $nick Kaga perlu pake Badword disini . inget ya !!!! }
on 1:TEXT:*jancok*:#: {
/raw kick $nick Kaga perlu pake Badword disini . inget ya !!!! }
on 1:TEXT:*ngentot*:#: {
/raw kick $nick Kaga perlu pake Badword disini . inget ya !!!! }
on 1:TEXT:*sundal*:#: {
/raw kick $nick Kaga perlu pake Badword disini . inget ya !!!! }
on 1:TEXT:*memek*:#: {
/raw kick $nick Kaga perlu pake Badword disini . inget ya !!!! }
on 1:TEXT:*memeq*:#: {
/raw kick $nick Kaga perlu pake Badword disini . inget ya !!!! }
on 1:TEXT:*anjing*:#: {
/raw kick $nick Kaga perlu pake Badword disini . inget ya !!!! }
on 1:TEXT:*anjink*:#: {
/raw kick $nick Kaga perlu pake Badword disini . inget ya !!!! }
on 1:TEXT:*anjink*:#: {
/raw kick $nick Kaga perlu pake Badword disini . inget ya !!!! }
on 1:TEXT:*suek*:#: {
/raw kick $nick Kaga perlu pake Badword disini . inget ya !!!! }
on 1:TEXT:*cibai*:#: {
/raw kick $nick Kaga perlu pake Badword disini . inget ya !!!! }
on 1:TEXT:*pler*:#: {
/raw kick $nick Kaga perlu pake Badword disini . inget ya !!!! }
on 1:TEXT:*bijiQ*:#: {
/raw kick $nick Kaga perlu pake Badword disini . inget ya !!!! }
on 1:TEXT:ewe*:#: {
/raw kick $nick Kaga perlu pake Badword disini . inget ya !!!! }
on 1:TEXT:*suw*:#: {
/raw kick $nick Kaga perlu pake Badword disini . inget ya !!!! }
on 1:TEXT:*ngentot*:#: {
/raw kick $nick Kaga perlu pake Badword disini . inget ya !!!! }
on 1:TEXT:*ngentod*:#: {
/raw kick $nick Kaga perlu pake Badword disini . inget ya !!!! }
on 1:TEXT:*bacok*:#: {
/raw kick $nick Kaga perlu pake Badword disini . inget ya !!!! }
on 1:TEXT:*aso*:#: {
/raw kick $nick Kaga perlu pake Badword disini . inget ya !!!! }
on 1:TEXT:*kanjud*:#: {
/raw kick $nick Kaga perlu pake Badword disini . inget ya !!!! }
on 1:TEXT:*kanjut*:#: {
/raw kick $nick Kaga perlu pake Badword disini . inget ya !!!! }
on 1:TEXT:*babi*:#: {
/raw kick $nick Kaga perlu pake Badword disini . inget ya !!!! }
on 1:TEXT:*monyet*:#: {
/raw kick $nick Kaga perlu pake Badword disini . inget ya !!!! }
on 1:TEXT:*lonte*:#: {
/raw kick $nick Kaga perlu pake Badword disini . inget ya !!!! }
on 1:TEXT:*anjing*:#: {
/raw kick $nick Kaga perlu pake Badword disini . inget ya !!!! }
on 1:TEXT:*anjeng*:#: {
/raw kick $nick Kaga perlu pake Badword disini . inget ya !!!! }
on 1:TEXT:tai*:#: {
/raw kick $nick Kaga perlu pake Badword disini . inget ya !!!! }
on 1:TEXT:tae*:#: {
/raw kick $nick Kaga perlu pake Badword disini . inget ya !!!! }
on 1:TEXT:itil*:#: {
/raw kick $nick Kaga perlu pake Badword disini . inget ya !!!! }
on 1:TEXT:perek*:#: {
/raw kick $nick Kaga perlu pake Badword disini . inget ya !!!! }
on 1:TEXT:fuck*:#: {
/raw kick $nick Kaga perlu pake Badword disini . inget ya !!!! }
on 1:TEXT:*tot*:#: {
/raw kick $nick Kaga perlu pake Badword disini . inget ya !!!! }
on 1:TEXT:*titit*:#: {
/raw kick $nick Kaga perlu pake Badword disini . inget ya !!!! }
on 1:TEXT:*lonthe*:#: {
/raw kick $nick Kaga perlu pake Badword disini . inget ya !!!! }
on 1:TEXT:*tod*:#: {
/raw kick $nick Kaga perlu pake Badword disini . inget ya !!!! }
on 1:TEXT:*jembut*:#: {
/raw kick $nick Kaga perlu pake Badword disini . inget ya !!!! }
on 1:TEXT:*kontol*:#: {
/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:*indoplaygame*:#: {
/raw kick $nick Jangan bahas Server Lain disini!!! }
on 1:TEXT:*indoplaygame*:#: {
/raw kick $nick Jangan bahas Server Lain disini!!! }
on 1:TEXT:*free*:#: {
/raw kick $nick Jangan bahas Server Lain disini!!! }
on 1:TEXT:*public*:#: {
/raw kick $nick Jangan bahas Server Lain disini!!! }
on 1:TEXT:*evolution*:#: {
/raw kick $nick Jangan bahas Server Lain disini!!! }
on 1:TEXT:*junior*:#: {
/raw kick $nick Jangan bahas Server Lain disini!!! }
on 1:TEXT:*idgs*:#: {
/raw kick $nick Jangan bahas Server Lain disini!!! }
on 1:TEXT:*nsr*:#: {
/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 = off, enable #caps, disable #caps)
}

cara memakainya copy scrips di atas dan paste di notepad simpan dengan nama terserah kalian, untuk contoh saya save as bot.txt . selanjutnya buka mirc anda ketik /load -rs bot.txt . bisa juga dengan paste langsung , caranya, buka mirc anda klik scrips editor --pilih tab remote paste scrip di sana , pilih OK

nah sekarang bot anda sudah jadi, turorial di atas masih sangat sederhana, karena saya membuat tutorial ini dengan terburu buru jadi ala kadarnya aja, sebetulnya masih banyak scips yang belum saya bahas disini seperti capslock, flood status banner user auto unbaned autobanned dll, selamay mencoba


oh nya .. sekalian Promo Nih mampir dong ke server saya di ghostworld. ip.dota.ghostworld.us TZ 7 forumnya http://www.ghostworld.us OK saya tungu