Script Caps Lock auto Kick

Script Caps Lock Auto Kick berguna untuk user yang apabila mengetik dengan tulisan CAPSLOCK / tulisan BESAR dengan banyak huruf didalam chanel dimana anda adalah op dalam chanel tersebut, secara otamatis script anda akan berjalan melanjalankan tugasnya berupa mengkick caps lock tersebut.

Kode script Caps Lock autokick seperti dibawah ini:

on @*:TEXT:*:#:{
if (%caps-kick == on) {
if ($nick isop $chan) || ($nick isvo $chan) { halt }
if ($len($1-) >= %max.caps) {
unset %caps
unset %loc
:caps
if ($asc($mid($1-,%loc,%loc)) isnum 65-90) { inc %caps 1 }
if (%loc < $len($1-)) { inc %loc 1 | goto caps }
if (%caps >= %max.caps) { goto kick }
else { goto end }
:kick
ban -u60 $chan $nick 2
kick $chan $nick Caps Lock is Forbidden
:end
}
}
}
on @*:ACTION:*:#:{
if (%caps-kick == on) {
if ($nick isop $chan) || ($nick isvo $chan) { halt }
if ($len($1-) >= %max.caps) {
unset %caps
unset %loc
:caps
if ($asc($mid($1-,%loc,%loc)) isnum 65-90) { inc %caps 1 }
if (%loc < $len($1-)) { inc %loc 1 | goto caps }
if (%caps >= %max.caps) { goto kick }
else { goto end }
:kick
ban -u60 $chan $nick 2
kick $chan $nick Caps Lock is Forbidden
:end
}
}
}
on @*:NOTICE:*:#:{
if (%caps-kick == on) {
if ($nick isop $chan) || ($nick isvo $chan) { halt }
if ($len($1-) >= %max.caps) {
unset %caps
unset %loc
:caps
if ($asc($mid($1-,%loc,%loc)) isnum 65-90) { inc %caps 1 }
if (%loc < $len($1-)) { inc %loc 1 | goto caps }
if (%caps >= %max.caps) { goto kick }
else { goto end }
:kick
ban -u60 $chan $nick 2
kick $chan $nick Caps Lock is Forbidden
:end
}
}
}
menu status,menubar,channel {
Caps Lock Kick
.ON:/set %caps-kick on | echo 3 *** The caps Auto kick is now ON
.OFF:/set %caps-kick off | echo 3 *** The caps Auto kick is now OFF
.-
.Max Caps %max.caps:/set %max.caps $$?="Max Caps (Defualt 70)"
}

Silahkan anda Copy kode di atas dan Paste kode kedalam table Script Editor ( Alt + R ) dan OK.
Selesai.

Terima Kasih atas kunjungan dan kepercayaan anda dalam mengunjungi situs ini.
Semoga Bermanfaat buat anda dan selamat hari yang indah
Best Regard,

OrLaNd