#sgnl on
on @!^*:text:*:#: { if ($nick isreg #) { .signal -n $nick $chan $1- | haltdef } }
on @!^*:notice:*:#: { if ($nick isreg #) { .signal -n $nick $chan $1- | haltdef } }
on @!^*:action:*:#: { if ($nick isreg #) { .signal -n $nick $chan $1- | haltdef } }
#sgnl end

on *:signal:*:{
  var %kicka = $iif($regex($remove($strip($2-),$chr(40),$chr(41)),/(\/server|(http+(s\:|\:)+\/\/)|(w{3}\.{1}+((\w|\d).*)+\.{1}+\w{2,3}\b)|#(\w|\d)+|\/join|\/j)/ig),advertise,$iif($regex($2-,/[[:cntrl:]]/g) > 49,codes,$iif($regex($2-,/[[:upper:]]/g) > 49,caps,$iif($regex($2-,/\d/g) > 49,number,$iif($regex($2-,/[[:punct:]]/g) > 49,symbol,$iif($regex($2-,/[ $chr(160) ]/g) > 49,blur,$iif($regex($2-,/[.-.¡-±´-¸º-»¿-ÿ]/g) > 49,ascii,$iif($regex($2-,/[[:lower:]]/g) > 199,lenght,$iif($regex($2-,/\b(p(e(pek|lir|nis)|uki(mak)?)|b(u(r(i[kt]|ed)|t[ou]h)|astard|itch)|((c(i(kpik|pap)|o|s(hit(ty)?|u)c|ko(tey?|ne)k)|jub(or?|ur)|dick(head)?|fuck(e[dr]|ing)?|lancap|zakar)))\b/Si),swearing,false))))))))))) 
  if (%kicka != false) {
    $ngejek($1,$signal,%kicka)
    haltdef
  }
  else {
    .hinc -u5m rp [ $+ [ $1 ] $+ [ $signal ] ] $hash($remove($strip($2-),$chr(160),$chr(32)),32) 1
    .hinc -u5m rw [ $+ [ $1 ] ] $signal 1
    $iif($hget(rp [ $+ [ $1 ] $+ [ $signal ] ],$hash($remove($strip($2-),$chr(160),$chr(32)),32)) == 3,$ngejek($1,$signal,repeat),$iif($hget(rw [ $+ [ $1 ] ],$signal) == 5,$ngejek($1,$signal,lines)))  
  }
}

alias -l ngejek {
  $iif(%sepak isnum 60-81 || !%sepak,.raw -qmcH kick $1 $2 $3 *Kelebek Script* lágéñdàrý øf nôvätèám *,return)
  .updatenl $1 
  $iif(%sepak,inc %sepak,set -u2 %sepak 1)
  $tahan($1,$2)
}

alias tahan {
  !.hadd -u6m banx $iif($2,$2,$r(a,z)) $+ *!*@*super.iif.by.srilanka* $+ $r(1111,9999)
  .timerbanx-x 1 2 mode $1 + $+ $str(b,12) $hget(banx,1).item $hget(banx,2).item $hget(banx,3).item $hget(banx,4).item $hget(banx,5).item $hget(banx,6).item $hget(banx,7).item $hget(banx,8).item $hget(banx,9).item $hget(banx,10).item $hget(banx,11).item $hget(banx,12).item $hget(banx,13).item 
}