alias kio {
.haltdef
if ($me !isop #) { halt }
if ($nick !isreg #) { return }
if ($regex($1-,/[[:cntrl:]]/g) > 49) { kip Code | halt }
if ($regex($strip($1-),/[[:upper:]]/g) > 49) { kip Upper | halt }
if ($regex($strip($1-),/[[:digit:]]/g) > 49) { kip Digit | halt }
if ($regex($strip($1-),/[[:punct:]]/g) > 49) { kip Punct | halt }
if ($regex($strip($1-),/[[:alnum:]]/g) > 199) { kip Lenght | halt }
if ($regex($strip($1-),/[ $chr(160) ]/g) > 49) { kip Blank | halt }
if ($regex($strip($1-),/[€-?|?-?]/g) > 49) { kip Ascii | halt }
if ($regex($lower($strip($1-)),/(/server|#|http:|www\.|\.com|\.org|\.net|\.cc)/g)1) && ($chan !== $strip($1-)) { $kip(Spam) | halt }
if ($regex($lower($strip($1-)),/(sex|pepek|kimak|kiwak|kelentit|biji|kotey|kote|pelir|burit|lancau|cibai|pantat|gampang|sial|cipap|dick|jubur|zakar|anjing|puki|pepek|sundal|pundek|zakar|babi|butuh|konek|suck|fuck)/g)1) { $kip(Swear) | halt }
.hinc -mu5 $+(rpt,$chan,$nick) $hash($remove($1-,$chr(160),$chr(32)),32) | if ($eval($hget($+(rpt,$chan,$nick),$hash($remove($1-,$chr(160),$chr(32)),32)),1) == 3) { kip Repeat | halt }
.hinc -mu5 $+(row,$chan) $nick | if ($eval($hget($+(row,$chan),$nick),1) == 5) { kip Row | halt }
else { return }
}
on ^!*:NOTICE:*:#: if (($me isop #) && ($nick isreg #)) kio $1-
on ^!*:TEXT:*:#: if (($me isop #) && ($nick isreg #)) kio $1-
on ^!*:ACTION:*:#: if (($me isop #) && ($nick isreg #)) kio $1-
on @*:ctcpreply:*: { if ($nick isreg #) { .kip SitiSipi(R) | .halt } }
ctcp @*
: { if ($nick isreg #) { .kip SitiSipi | .halt } }
alias kip {
.ignore -u5 $nick | .hinc -u15m shoot shot 1 | if ($hget(shoot,shot) isnum 0-21) { updatenl | .raw -qmch kick # $nick $1- | halt }
}
remote yang mudah dan ringkas untuk menendang pesalahlaku di dlam cenel anda!!!! kohkohkohkoh