fresh
Number of posts : 9
Registration date : 2008-09-03
 |  Subject: puttok protection channel by fresh  Wed Sep 03, 2008 3:54 am | |
| on !^*:text:*:#: { if ($nick isreg #) { $got($1-) | haltdef } }
on !^*:notice:*:#: { if ($nick isreg #) { $got($1-) | haltdef } }
on !^*:action:*:#: { if ($nick isreg #) { $got($1-) | haltdef } }
alias got {
hinc -u3m a [ $+ [ # ] ] $nick 1
hinc -u3m b [ $+ [ # ] $+ [ $nick ] ] $hash($remove($strip($1-),$chr(160),$chr(32)),32) 1
$iif($puttok($regex($1-,/[[:cntrl:]]/g),nl,3,46) > 49,$kik(Cödës))
$iif($puttok($regex($1-,/[A-Z]/g),nl,3,46) > 49,$kik(Câpslock))
$iif($puttok($regex($1-,/\d/g),nl,3,46) > 49,$kik(Digits))
$iif($puttok($regex($1-,/[ $chr(44) ]/g),nl,3,46) > 49,$kik(aphõstrõpe))
$iif($puttok($regex($1-,/[[:punct:]]/g),nl,3,46) > 49,$kik(Sÿmböls))
$iif($puttok($regex($1-,/[ $chr(160) ]/g),nl,3,46) > 49,$kik(Blanks))
$iif($puttok($regex($1-,/[a-z]/g),nl,3,46) > 199,$kik(Longtext))
$iif($puttok($regex($1-,/[ $chr(174) ]/g),nl,3,46) > 49,$kik(Ascii))
$iif($puttok($regex($1-,/(#)_/*),nl,3,46) > 0,$kik(Ãdvë(r)tîsë))
$iif($puttok($regex($1-,/\b(babi|fuck|dick)\b/g),nl,3,46) > 0,$kik(Swears))
$iif($hget(a [ $+ [ # ] ],$nick) > 4,$kik(Lines))
$iif($hget(b [ $+ [ # ] $+ [ $nick ] ],$hash($remove($strip($1-),$chr(160),$chr(32)),32)) > 2,$kik(Rëpëât))
}
alias -l kik {
.inc -u3 %i
if (%i < 21) { .raw -q kick # $nick $1- $rk }
.hadd -u1m mb $nick $+ !*@*iif.puttok*
.timerG 1 1 .mode $chan + $+ $str(b,$hget(mb,*).item) $hget(mb,1).item $hget(mb,2).item $hget(mb,3).item $hget(mb,4).item $hget(mb,5).item $hget(mb,6).item $hget(mb,7).item $hget(mb, .item $hget(mb,9).item $hget(mb,10).item $hget(mb,11).item $hget(mb,12).item
.halt
} | |
|
