Bagi yang sering chating di mIRC apalagi bagi anda yang menjadi Operator chanel di Irc pastilah anda perlu memodifikasi mIRC anda dengan script - script yang dapat membantu memudahkan anda sebagi operator chan yang melayani berbagai user chat irc.Kali ini saya mau berbagi sedikit script mIRC yang dulu pernah di pake waktu sering - seringnya maenan mIRC dan ada sedikit tambahan dari editan teman yang mungkin bisa anda gunakan untuk memodifikasi mIRC anda. Banyak diantaranya seperti antiban, anti banned, anti spam, antideop, antispam, anti slap atau balas slaps, seen, unban lock, autojoin, proteksi query, war, dan lain lain.
Langsung saja berikut Script mIRC buat Operator dan User Irc:
Caranya copy paste script di bawah ini ke mIRC anda kedalam script editor:
Langsung saja berikut Script mIRC buat Operator dan User Irc:
caranya copy paste script di bawah ini ke mIRC anda
1. ANTIBANNED Script:
#antiban on
on *:BAN:#:{
if (($banmask iswm $address($me,5)) && ($nick != $me)) {
if ($me isop $chan) {
kick $chan $nick 2[ 8,1- 14,1Don`t Ban 9 $me 8,1- 2 ] 4¿ artinYa Hati² dijalan ¿ | /notice $nick 4Don`t Ban 9 $me 4¿ artinYa Hati² dijalan ¿
raw -q mode $chan -b+b $banmask $Nick
}
else {
raw -q cs unban $chan $me
chanserv kickban $chan $nick 2[ 8,1- 14,1Don`t Ban 9 $me 8,1- 2 ] 4¿ artinYa Hati² dijalan ¿
notice $nick 4Don`t Ban 9 $me 4¿ artinYa Hati² dijalan ¿
}
}
}
2. ANTI CAPSLOCK
#caps on
alias allowedcaps { return 70 }
on @*:TEXT:*:#:{
if ($len($1-) < 10) { return }
var %caps.letters = $calc($len($1-) + 1 - $len($removecs(A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z)))
var %caps = $calc($len($1-) - $len($removecs($1-,($1-),A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z)))
var %caps.percent = $round($calc(%caps / %caps.letters * 100),0)
if ((%caps.percent > $allowedcaps) && ($nick !isop #)) {
/kick # $nick 2[ 8,1- 14,1Jangan Pake CAPSLOCK 9 $nick 8,1- 2 ]
}
}
#caps end
#ascii off
alias allowedcaps { return 70 }
on @*:TEXT:*:#:{
if ($len($1-) < 10) { return }
var %caps.letters = $calc($len($1-) + 1 - $len($removecs(Ç,ä,ê,î,É,ö,ó,Œ,Ð,ø,ë,ì,æ,ò,ƒ,ú,ú,š,þ,Ø,é,è,Ä,Æ,û,á,ß,œ,£,ý,â,ç,ç,ï,Å,ù,Ñ,í,¥,Š,×,Ý,Ž)))
var %caps = $calc($len($1-) - $len($removecs($1-,($1-),Ç,ä,ê,î,É,ö,ó,Œ,Ð,ø,ë,ì,æ,ò,ƒ,ú,ú,š,þ,Ø,é,è,Ä,Æ,û,á,ß,œ,£,ý,â,ç,ç,ï,Å,ù,Ñ,í,¥,Š,×,Ý,Ž)))
var %caps.percent = $round($calc(%caps / %caps.letters * 75),0)
if ((%caps.percent > $allowedcaps) && ($nick !isop #)) {
/kick # $nick 2[ 8,1- 14,1Drop Ascii Font 9 $nick 8,1- 2 ]
}
}
#ascii end
#antiinvite on
on 1:notice:* come to #*:#:ban # $nick $$1 3 | /kick # $nick 2[ 8,1- 14,1Don't Invite 8,1- 2 ] !
on 1:notice:* join #*:#:ban # $nick $$1 3 | /kick # $nick 2[ 8,1- 14,1Don't Invite 8,1- 2 ] !
on 1:notice:* /join #*:#:ban # $nick $$1 3 | /kick # $nick 2[ 8,1- 14,1Don't Invite 8,1- 2 ] !
on 1:notice:come to #*:#:ban # $nick $$1 3 | /kick # $nick 2[ 8,1- 14,1Don't Invite 8,1- 2 ] !
on 1:notice:join #*:#:ban # $nick $$1 3 | /kick # $nick 2[ 8,1- 14,1Don't Invite 8,1- 2 ] !
on ^*:open:?: {
if (*#* iswm $1- ) {
var %c $comchan($nick,0)
while (%c) {
msg $nick 2[ 8,1- 14,1Don't Invite 8,1- 2 ] !
if ($me isop $comchan($nick,%c)) { ban $comchan($nick,%c) $nick 5 | kick $comchan($nick,%c) $nick 2[ 8,1- 14,1Don't Invite 8,1- 2 ] ! }
ignore -u120 $nick
dec %c
}
haltdef
}
}
on 1:invite:#:{
if $level($maddress($address($nick,5))) == 10 { goto end }
set %comchan 1
:check
if %comchan > $comchan($nick,0) { goto end }
if $me isop $comchan($nick,%comchan) { goto invkick }
; if $me isop $comchan($nick,%comchan) && $nick !isop $comchan($nick,%comchan) { goto invkick }
inc %comchan 1
goto check
:invkick
/ban $comchan($nick,%comchan) $nick 5
kick $comchan($nick,%comchan) $nick 2[ 8,1- 14,1Don't Invite 8,1- 2 ] !
inc %comchan 1
goto check
:end
unset %comchan
}
#antiinvite end
dialog kh {
title "kick + kick"
size -1 -1 117 72
option dbu
tab "info", 1, 4 3 108 51
text "mengkick", 5, 12 23 31 8, tab 1
edit %kick.count, 6, 44 21 16 10, tab 1 center
text "kali", 7, 62 23 15 8, tab 1
button "reset", 8, 9 37 20 10, tab 1
text "counter", 9, 32 39 21 8, tab 1
tab "option", 2
check "tampilkan jumlah kick", 10, 12 23 93 10, tab 2
button "msg", 11, 9 37 20 10, tab 2
text "msg ke channel ?", 12, 31 38 79 8, tab 2
button "ok", 4, 93 59 20 10, ok
}
On *:Dialog:kh:sclick:8:{ if ($did == 8) { set %kick.count 0 } | if ($did == 8) did -ra kh 6 %kick.count }
On *:Dialog:kh:sclick:10:{ if ($did(10).state == 1) { set %show.kc On } | else { set %show.kc Off } }
On *:Dialog:kh:sclick:11:{ if ($active = Status Window) { halt } | else msg $active 4 $me udah ngekick 4 %kick.count kali! }
On *:Dialog:kh:init:*:{ if (%show.kc == On) { did -c kh 10 } }
alias kick {
if (!%kick.count == $null) {
set %kick.count 0
}
inc %kick.count
if (%show.kc == On) { raw -q kick $1 $2 : $+ $3- [No: $+ %kick.count $+ ] }
else { raw -q kick $1 $2 : $+ $3- }
}
3. ANTI SLAPS atau BALAS SLAPS
#ACTION on
on 1:ACTION:$(* $+ $me $+ *):*: {if ($me isin $1-) { describe $target juga $replace($1-,$me,$nick)
}
4. ANTI DEOP
on @*:join:#sundux:{
if (User* iswm $nick) {
mode # +b User*!*@*
kick # $nick 2[ 8,1- 14,1Gåñtî ñî©Kñ¥å ÐøñG 8,1- 2 ] | /notice $nick 2Cara Ganti nick ketik--> /nick nickkamu contoh --> /nick BuDi
}
}
on 1:NICK:{
if (User* iswm $newnick) {
if ($newnick ison #sundux) { mode #sundux +b $newnick | kick #sundux $newnick 2[ 8,1- 14,1Gåñtî ñî©Kñ¥å ÐøñG 8,1- 2 ] | /notice $newnick 2Cara Ganti nick ketik--> /nick nickkamu contoh --> /nick BuDi }
if ($newnick ison #sundux) { mode #sundux +b $newnick | kick #sundux $newnick 2[ 8,1- 14,1Gåñtî ñî©Kñ¥å ÐøñG 8,1- 2 ] | /notice $newnick 2Cara Ganti nick ketik--> /nick nickkamu contoh --> /nick BuDi }
if ($newnick ison #sundux) { mode #sundux +b $newnick | kick #sundux $newnick 2[ 8,1- 14,1Gåñtî ñî©Kñ¥å ÐøñG 8,1- 2 ] | /notice $newnick 2Cara Ganti nick ketik--> /nick nickkamu contoh --> /nick BuDi }
}
}
#kick on
on *:kick:#:{ if $knick iswm $me && $nick isop $chan {
cs kick # $nick 2[ 8,1- 14,1JåñGåñ Kî©K 9 $me 8,1- 2 ] !
}
}
on *:DEOP:#:{
if (($opnick == $me) && ($nick != $me)) {
ChanServ op $chan $me | /chanserv kick $chan $nick 2[ 8,1- 15,1JåñGåñ DeOp 9 $me 8,1- 2 ] ! } }
}
#deop end
Caranya copy paste script di bawah ini ke mIRC anda kedalam script editor:
Langsung saja berikut Script mIRC buat Operator dan User Irc:
caranya copy paste script di bawah ini ke mIRC anda
1. ANTIBANNED Script:
#antiban on
on *:BAN:#:{
if (($banmask iswm $address($me,5)) && ($nick != $me)) {
if ($me isop $chan) {
kick $chan $nick 2[ 8,1- 14,1Don`t Ban 9 $me 8,1- 2 ] 4¿ artinYa Hati² dijalan ¿ | /notice $nick 4Don`t Ban 9 $me 4¿ artinYa Hati² dijalan ¿
raw -q mode $chan -b+b $banmask $Nick
}
else {
raw -q cs unban $chan $me
chanserv kickban $chan $nick 2[ 8,1- 14,1Don`t Ban 9 $me 8,1- 2 ] 4¿ artinYa Hati² dijalan ¿
notice $nick 4Don`t Ban 9 $me 4¿ artinYa Hati² dijalan ¿
}
}
}
2. ANTI CAPSLOCK
#caps on
alias allowedcaps { return 70 }
on @*:TEXT:*:#:{
if ($len($1-) < 10) { return }
var %caps.letters = $calc($len($1-) + 1 - $len($removecs(A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z)))
var %caps = $calc($len($1-) - $len($removecs($1-,($1-),A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z)))
var %caps.percent = $round($calc(%caps / %caps.letters * 100),0)
if ((%caps.percent > $allowedcaps) && ($nick !isop #)) {
/kick # $nick 2[ 8,1- 14,1Jangan Pake CAPSLOCK 9 $nick 8,1- 2 ]
}
}
#caps end
#ascii off
alias allowedcaps { return 70 }
on @*:TEXT:*:#:{
if ($len($1-) < 10) { return }
var %caps.letters = $calc($len($1-) + 1 - $len($removecs(Ç,ä,ê,î,É,ö,ó,Œ,Ð,ø,ë,ì,æ,ò,ƒ,ú,ú,š,þ,Ø,é,è,Ä,Æ,û,á,ß,œ,£,ý,â,ç,ç,ï,Å,ù,Ñ,í,¥,Š,×,Ý,Ž)))
var %caps = $calc($len($1-) - $len($removecs($1-,($1-),Ç,ä,ê,î,É,ö,ó,Œ,Ð,ø,ë,ì,æ,ò,ƒ,ú,ú,š,þ,Ø,é,è,Ä,Æ,û,á,ß,œ,£,ý,â,ç,ç,ï,Å,ù,Ñ,í,¥,Š,×,Ý,Ž)))
var %caps.percent = $round($calc(%caps / %caps.letters * 75),0)
if ((%caps.percent > $allowedcaps) && ($nick !isop #)) {
/kick # $nick 2[ 8,1- 14,1Drop Ascii Font 9 $nick 8,1- 2 ]
}
}
#ascii end
#antiinvite on
on 1:notice:* come to #*:#:ban # $nick $$1 3 | /kick # $nick 2[ 8,1- 14,1Don't Invite 8,1- 2 ] !
on 1:notice:* join #*:#:ban # $nick $$1 3 | /kick # $nick 2[ 8,1- 14,1Don't Invite 8,1- 2 ] !
on 1:notice:* /join #*:#:ban # $nick $$1 3 | /kick # $nick 2[ 8,1- 14,1Don't Invite 8,1- 2 ] !
on 1:notice:come to #*:#:ban # $nick $$1 3 | /kick # $nick 2[ 8,1- 14,1Don't Invite 8,1- 2 ] !
on 1:notice:join #*:#:ban # $nick $$1 3 | /kick # $nick 2[ 8,1- 14,1Don't Invite 8,1- 2 ] !
on ^*:open:?: {
if (*#* iswm $1- ) {
var %c $comchan($nick,0)
while (%c) {
msg $nick 2[ 8,1- 14,1Don't Invite 8,1- 2 ] !
if ($me isop $comchan($nick,%c)) { ban $comchan($nick,%c) $nick 5 | kick $comchan($nick,%c) $nick 2[ 8,1- 14,1Don't Invite 8,1- 2 ] ! }
ignore -u120 $nick
dec %c
}
haltdef
}
}
on 1:invite:#:{
if $level($maddress($address($nick,5))) == 10 { goto end }
set %comchan 1
:check
if %comchan > $comchan($nick,0) { goto end }
if $me isop $comchan($nick,%comchan) { goto invkick }
; if $me isop $comchan($nick,%comchan) && $nick !isop $comchan($nick,%comchan) { goto invkick }
inc %comchan 1
goto check
:invkick
/ban $comchan($nick,%comchan) $nick 5
kick $comchan($nick,%comchan) $nick 2[ 8,1- 14,1Don't Invite 8,1- 2 ] !
inc %comchan 1
goto check
:end
unset %comchan
}
#antiinvite end
dialog kh {
title "kick + kick"
size -1 -1 117 72
option dbu
tab "info", 1, 4 3 108 51
text "mengkick", 5, 12 23 31 8, tab 1
edit %kick.count, 6, 44 21 16 10, tab 1 center
text "kali", 7, 62 23 15 8, tab 1
button "reset", 8, 9 37 20 10, tab 1
text "counter", 9, 32 39 21 8, tab 1
tab "option", 2
check "tampilkan jumlah kick", 10, 12 23 93 10, tab 2
button "msg", 11, 9 37 20 10, tab 2
text "msg ke channel ?", 12, 31 38 79 8, tab 2
button "ok", 4, 93 59 20 10, ok
}
On *:Dialog:kh:sclick:8:{ if ($did == 8) { set %kick.count 0 } | if ($did == 8) did -ra kh 6 %kick.count }
On *:Dialog:kh:sclick:10:{ if ($did(10).state == 1) { set %show.kc On } | else { set %show.kc Off } }
On *:Dialog:kh:sclick:11:{ if ($active = Status Window) { halt } | else msg $active 4 $me udah ngekick 4 %kick.count kali! }
On *:Dialog:kh:init:*:{ if (%show.kc == On) { did -c kh 10 } }
alias kick {
if (!%kick.count == $null) {
set %kick.count 0
}
inc %kick.count
if (%show.kc == On) { raw -q kick $1 $2 : $+ $3- [No: $+ %kick.count $+ ] }
else { raw -q kick $1 $2 : $+ $3- }
}
3. ANTI SLAPS atau BALAS SLAPS
#ACTION on
on 1:ACTION:$(* $+ $me $+ *):*: {if ($me isin $1-) { describe $target juga $replace($1-,$me,$nick)
}
4. ANTI DEOP
on @*:join:#sundux:{
if (User* iswm $nick) {
mode # +b User*!*@*
kick # $nick 2[ 8,1- 14,1Gåñtî ñî©Kñ¥å ÐøñG 8,1- 2 ] | /notice $nick 2Cara Ganti nick ketik--> /nick nickkamu contoh --> /nick BuDi
}
}
on 1:NICK:{
if (User* iswm $newnick) {
if ($newnick ison #sundux) { mode #sundux +b $newnick | kick #sundux $newnick 2[ 8,1- 14,1Gåñtî ñî©Kñ¥å ÐøñG 8,1- 2 ] | /notice $newnick 2Cara Ganti nick ketik--> /nick nickkamu contoh --> /nick BuDi }
if ($newnick ison #sundux) { mode #sundux +b $newnick | kick #sundux $newnick 2[ 8,1- 14,1Gåñtî ñî©Kñ¥å ÐøñG 8,1- 2 ] | /notice $newnick 2Cara Ganti nick ketik--> /nick nickkamu contoh --> /nick BuDi }
if ($newnick ison #sundux) { mode #sundux +b $newnick | kick #sundux $newnick 2[ 8,1- 14,1Gåñtî ñî©Kñ¥å ÐøñG 8,1- 2 ] | /notice $newnick 2Cara Ganti nick ketik--> /nick nickkamu contoh --> /nick BuDi }
}
}
#kick on
on *:kick:#:{ if $knick iswm $me && $nick isop $chan {
cs kick # $nick 2[ 8,1- 14,1JåñGåñ Kî©K 9 $me 8,1- 2 ] !
}
}
on *:DEOP:#:{
if (($opnick == $me) && ($nick != $me)) {
ChanServ op $chan $me | /chanserv kick $chan $nick 2[ 8,1- 15,1JåñGåñ DeOp 9 $me 8,1- 2 ] ! } }
}
#deop end
Untuk Script mIRC yang lainnya mudahnya dan lengkapnya and bisa download Script mIRC for Operator Kumpulan saya di bawah ini
