psyloinc remote banjir $hash

#Psyloinc off
On ^*:text:*:#: { $iif($nick isreg # && $me isop #,$h1n1($1-)) }
On ^*:notice:*:#: { $iif($nick isreg # && $me isop #,$h1n1($1-)) }
On ^*:action:*:#: { $iif($nick isreg # && $me isop #,$h1n1($1-)) }
on ^*:ban:#: { halt }
on ^*:unban:#: { halt }
Off ^!*:kick:#: { halt }
on !^@*:join:#:haltdef
on !^@*:part:#:haltdef
alias -l h1n1 {
  hinc -u3m y  [ $+ [ # ] ] $nick 1
  hinc -u3m z [ $+ [ # ] $+ [ $nick ] ] $hash($remove($strip($1-),$chr(160),$chr(32)),32) 1
  hinc -u3m a $regex($1-,/[[:cntrl:]]/g) | $iif($hregex(a,$regex($1-,/[[:cntrl:]]/g)) > 49,$..(Codes))
  hinc -u3m b $regex($1-,/[[:upper:]]/g) | $iif($hregex(b,$regex($1-,/[[:upper:]]/g)) > 49,$..(Caps))
  hinc -u3m c $regex($1-,/[[:digit:]]/g) | $iif($hregex(c,$regex($1-,/[[:digit:]]/g)) > 49,$..(Digits))
  hinc -u3m d $regex($1-,/[ $chr(44) ]/g) | $iif($hregex(d,$regex($1-,/[ $chr(44) ]/g)) > 49,$..(Aphostropes))
  hinc -u3m e $regex($1-,/[[:punct:]]/g) | $iif($hregex(e,$regex($1-,/[[:punct:]]/g)) > 49,$..(Symbols))
  hinc -u3m f $regex($1-,/[ $chr(160) ]/g) | $iif($hregex(f,$regex($1-,/[ $chr(160) ]/g)) > 49,$..(Blanks))
  hinc -u3m g $regex($1-,/[[:alnum:]]/g) | $iif($hregex(g,$regex($1-,/[[:alnum:]]/g)) > 199,$..(Longtext))
  hinc -u3m h $regex($1-,/[ $chr(174) ]/g) | $iif($hregex(h,$regex($1-,/[ $chr(174) ]/g)) > 49,$..(Ascii))
  hinc -u3m i $hget(y [ $+ [ # ] ],$nick) | $iif($hregex(i,$hget(y [ $+ [ # ] ],$nick)) > 4,$..(Lines))
  hinc -u3m j  $hget(z [ $+ [ # ] $+ [ $nick ] ],$hash($remove($strip($1-),$chr(160),$chr(32)),32)) | $iif($hregex(j,$hget(z [ $+ [ # ] $+ [ $nick ] ],$hash($remove($strip($1-),$chr(160),$chr(32)),32))) > 2,$..(Repeats))
  hinc -u3m k $regex($1-,/(#).r{}*)) > 0,$..(Advertise))
  hinc -u3m l $regex($1-,/..b(babi)..b/g) | $iif($hregex(l,$regex($1-,/..b(babi)..b/g)) > 0,$..(Swears))
  haltdef
}
on *:signal:psylo: { $gettok($..raw -q kick # $1 $2-),1,46) }
alias .. {
  hinc -u3m Psylo inç 1
  if ($hget(Psylo,inç)  >= $r(1,14)) {
    inc -u5 %limited
    if (%limited < 21) {
      .signal -n psylo # $nick  ,,8 Action !,,,,,, ,,8 ,,11,15:,,11,14:,,11,1:,,0,6  $1-  Detected  ,,11,1:,,11,14:,,11,15:,, Powered By  $psylo
      .banx
    }
  }
}
alias banx {
  if ($ibl(#,0) > 60) { return }
  .hadd -u1m mb $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ @psyloinc.Ban
  .timerX 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,8).item $hget(mb,9).item $hget(mb,10).item $hget(mb,11).item $hget(mb,12).item
  return
}
alias psylo { .return  ,, ,, ,, ,,,, þ§y£ôîñç,, †èçhñòlógy,, ,, ,, ,, }
#Psyloinc end