remote banjirian oleh masta ---> ni3

on @!^*:text:*:#: { if ($nick isreg #) { $banjirian($1-) | haltdef } }
on @!^*:notice:*:#: { if ($nick isreg #) { $banjirian($1-) | haltdef } }
on @!^*:action:*:#: { if ($nick isreg #) { $banjirian($1-) | haltdef } }

alias banjirian {
if ($regex($1-,/[[:cntrl:]]/g) > 49) $goto.kick codes
if ($regex($1-,/[[:upper:]]/g) > 49) $goto.kick caps
if ($regex($1-,/[[:digit:]]/g) > 49) $goto.kick number
if ($regex($1-,/[[:punct:]]/g) > 49) $goto.kick symbol
if ($regex($1-,/[ $chr(160) ]/g) > 49) $goto.kick blur
if ($regex($1-,/[ $chr(174) ]/g) > 49) $goto.kick ascii
if ($regex($1-,/[[:lower:]]/g) > 199) $goto.kick lenght
if ($regex($1-,/\b(f**k|suck|babi|puki|pregnant dog|thingy)\b/Si)) $goto.kick badword
if ($regex($remove($1-,$chr(40),$chr(41)),/(?:^|(\40|\240))((http+(:|s:)\/\/\S*)|((www\.{1})+(.*)+(\.{1})+(\w{2,3})\S*)|#[^\40]\S*)/Si)) $goto.kick advertise
}

alias banjirian {
hadd -u2m a $nick $regex($1-,/[[:cntrl:]]/g)
if ($hget(a,$nick) > 49) $goto.kick codes
hadd -u2m b $nick $regex($1-,/[[:upper:]]/g)
if ($hget(b,$nick) > 49) $goto.kick caps
hadd -u2m c $nick $regex($1-,/[[:digit:]]/g)
if ($hget(c,$nick) > 49) $goto.kick number
hadd -u2m d $nick $regex($1-,/[[:punct:]]/g)
if ($hget(d,$nick) > 49) $goto.kick symbol
hadd -u2m e $nick $regex($1-,/[ $chr(160) ]/g)
if ($hget(e,$nick) > 49) $goto.kick blur
hadd -u2m f $nick $regex($1-,/[ $chr(174) ]/g)
if ($hget(f,$nick) > 49) $goto.kick ascii
hadd -u2m g $nick $regex($1-,/[[:lower:]]/g)
if ($hget(g,$nick) > 199) $goto.kick lenght
hadd -u2m h $nick $regex($1-,/\b(f**k|suck|babi|puki|pregnant dog|thingy)\b/Si))
if ($hget(h,$nick)) $goto.kick badword
hadd -u2m i $nick $regex($remove($1-,$chr(40),$chr(41)),/(?:^|(\40|\240))((http+(:|s:)\/\/\S*)|((www\.{1})+(.*)+(\.{1})+(\w{2,3})\S*)|#[^\40]\S*)/Si))
if ($hget(i,$nick)) $goto.kick advertise
}

alias banjirian {
if ($regsub($1-,/[[:cntrl:]]/g,,%banjirian)) > 49) $goto.kick codes
if ($regsub($1-,/[[:upper:]]/g,,%banjirian)) > 49) $goto.kick caps
if ($regsub($1-,/[[:digit:]]/g,,%banjirian)) > 49) $goto.kick number
if ($regsub($1-,/[[:punct:]]/g,,%banjirian)) > 49) $goto.kick symbol
if ($regsub($1-,/[ $chr(160) ]/g,,%banjirian)) > 49) $goto.kick blur
if ($regsub($1-,/[ $chr(174) ]/g,,%banjirian)) > 49) $goto.kick ascii
if ($regsub($1-,/[[:lower:]]/g,,%banjirian)) > 199) $goto.kick lenght
if ($regsub($1-,/\b(f**k|suck|babi|puki|pregnant dog|thingy)\b/Si,,%banjirian))) $goto.kick badword
if ($regsub($remove($1-,$chr(40),$chr(41)),/(?:^|(\40|\240))((http+(:|s:)\/\/\S*)|((www\.{1})+(.*)+(\.{1})+(\w{2,3})\S*)|#[^\40]\S*)/Si,,%banjirian))) $goto.kick advertise
}

alias banjirian {
var %dlla = $dll(aircdll.dll,Flood,$+(dlla,$chan,$nick,$ticks $regex($1-,/[[:cntrl:]]/g)) 50 1)
if (+FLOOD* > %dlla) $goto.kick codes
var %dllb = $dll(aircdll.dll,Flood,$+(dllb,$chan,$nick,$ticks $regex($1-,/[[:upper:]]/g)) 50 1)
if (+FLOOD* > %dllb) $goto.kick caps
var %dllc = $dll(aircdll.dll,Flood,$+(dllc,$chan,$nick,$ticks $regex($1-,/[[:digit:]]/g)) 50 1)
if (+FLOOD* > %dllc) $goto.kick number
var %dlld = $dll(aircdll.dll,Flood,$+(dlld,$chan,$nick,$ticks $regex($1-,/[[:punct:]]/g)) 50 1)
if (+FLOOD* > %dlld) $goto.kick symbol
var %dlle = $dll(aircdll.dll,Flood,$+(dlle,$chan,$nick,$ticks $regex($1-,/[ $chr(160) ]/g)) 50 1)
if (+FLOOD* > %dlle) $goto.kick blur
var %dllf = $dll(aircdll.dll,Flood,$+(dllf,$chan,$nick,$ticks $regex($1-,/[ $chr(174) ]/g)) 50 1)
if (+FLOOD* > %dllf) $goto.kick ascii
var %dllg = $dll(aircdll.dll,Flood,$+(dllg,$chan,$nick,$ticks $regex($1-,/[[:lower:]]/g)) 200 1)
if (+FLOOD* > %dllg) $goto.kick lenght
var %dllh = $dll(aircdll.dll,Flood,$+(dllh,$chan,$nick,$ticks $regex($1-,/\b(f**k|suck|babi|puki|pregnant dog|thingy)\b/Si)))
if (+FLOOD* > %dllh) $goto.kick badword
var %dlli = $dll(aircdll.dll,Flood,$+(dlli,$chan,$nick,$ticks $regex($remove($1-,$chr(40),$chr(41)),/(?:^|(\40|\240))((http+(:|s:)\/\/\S*)|((www\.{1})+(.*)+(\.{1})+(\w{2,3})\S*)|#[^\40]\S*)/Si)))
if (+FLOOD* > %dlli) $goto.kick advertise
}

alias banjirian {
.hadd -u2m a $regex($1-,/[[:codes:]]/g)
if ($hregex(a,$regex($1-,/[[:codes:]]/g)) > 49) $goto.kick codes
.hadd -u2m b $regex($1-,/[[:upper:]]/g)
if ($hregex(b,$regex($1-,/[[:upper:]]/g)) > 49) $goto.kick caps
.hadd -u2m c $regex($1-,/[[:digit:]]/g)
if ($hregex(c,$regex($1-,/[[:digit:]]/g)) > 49) $goto.kick number
.hadd -u2m d $regex($1-,/[[:punct:]]/g)
if ($hregex(d,$regex($1-,/[[:punct:]]/g)) > 49) $goto.kick symbol
.hadd -u2m e $regex($1-,/[ $chr(160) ]/g)
if ($hregex(e,$regex($1-,/[ $chr(160) ]/g)) > 49) $goto.kick blur
.hadd -u2m f $regex($1-,/[ $chr(174) ]/g)
if ($hregex(f,$regex($1-,/[ $chr(174) ]/g)) > 49) $goto.kick ascii
.hadd -u2m g $regex($1-,/[[:lower:]]/g)
if ($hregex(g,$regex($1-,/[[:lower:]]/g)) > 199) $goto.kick lenght
.hadd -u2m h $regex($1-,/\b(f**k|suck|babi|puki|pregnant dog|thingy)\b/Si))
if ($hregex(h,$regex($1-,/\b(f**k|suck|babi|puki|pregnant dog|thingy)\b/Si))) $goto.kick badword
.hadd -u2m i $regex($remove($1-,$chr(40),$chr(41)),/(?:^|(\40|\240))((http+(:|s:)\/\/\S*)|((www\.{1})+(.*)+(\.{1})+(\w{2,3})\S*)|#[^\40]\S*)/Si))
if ($hregex(i,$regex($remove($1-,$chr(40),$chr(41)),/(?:^|(\40|\240))((http+(:|s:)\/\/\S*)|((www\.{1})+(.*)+(\.{1})+(\w{2,3 })\S*)|#[^\40]\S*)/Si))) $goto.kick advertise
}

alias banjirian {
var %a = $regex($1-,/[[:cntrl:]]/g)
var %b = $regex($1-,/[[:upper:]]/g)
var %c = $regex($1-,/[[:digit:]]/g)
var %d = $regex($1-,/[[:punct:]]/g)
var %e = $regex($1-,/[ $chr(160) ]/g)
var %f = $regex($1-,/[ $chr(174) ]/g)
var %g = $regex($1-,/[[:lower:]]/g)
var %h = $regex($1-,/\b(f**k|suck|babi|puki|pregnant dog|thingy)\b/Si))
var %i = $regex($remove($1-,$chr(40),$chr(41)),/(?:^|(\40|\240))((http+(:|s:)\/\/\S*)|((www\.{1})+(.*)+(\.{1})+(\w{2,3})\S*)|#[^\40]\S*)/Si))
if ($regsubex(%a,/[[:cntrl:]]/g,\t) > 49) $goto.kick codes
if ($regsubex(%b,/[[:upper:]]/g,\t) > 49) $goto.kick caps
if ($regsubex(%c,/[[:digit:]]/g,\n) > 49) $goto.kick number
if ($regsubex(%d,/[[:punct:]]/g,\t) > 49) $goto.kick symbol
if ($regsubex(%e,/[ $chr(160) ]/g,\t) > 49) $goto.kick blur
if ($regsubex(%f,/[ $chr(174) ]/g,\t) > 49) $goto.kick ascii
if ($regsubex(%g,/[[:lower:]]/g,\t) > 199) $goto.kick lenght
if ($regsubex(%h,/\b(f**k|suck|babi|puki|pregnant dog|thingy)\b/Si,\t)) $goto.kick ascii
if ($regsubex(%i,/(?:^|(\40|\240))((http+(:|s:)\/\/\S*)|((www\.{1})+(.*)+(\.{1})+(\w{2,3})\S*)|#[^\40]\S*)/Si,\t)) $goto.kick lenght
}

alias banjirian {
if ($gettok($regex($1-,/[[:cntrl:]]/g),1,46) > 49) $goto.kick codes
if ($gettok($regex($1-,/[[:upper:]]/g),1,46) > 49) $goto.kick caps
if ($gettok($regex($1-,/[[:digit:]]/g),1,46) > 49) $goto.kick number
if ($gettok($regex($1-,/[[:punct:]]/g),1,46) > 49) $goto.kick symbol
if ($gettok($regex($1-,/[ $chr(160) ]/g),1,46) > 49) $goto.kick blur
if ($gettok($regex($1-,/[ $chr(174) ]/g),1,46) > 49) $goto.kick ascii
if ($gettok($regex($1-,/[[:lower:]]/g),1,46) > 199) $goto.kick lenght
if ($gettok($regex($1-,/\b(f**k|suck|babi|puki|pregnant dog|thingy)\b/Si),1,46)) $goto.kick swear
if ($gettok($regex($remove($1-,$chr(40),$chr(41)),/(?:^|(\40|\240))((http+(:|s:)\/\/\S*)|((www\.{1})+(.*)+(\.{1})+(\w{2,3}) \S*)|#[^\40]\S*)/Si),1,46)) $goto.kick advertise
}

alias goto.kick {
if ($nick !ison #) return
.hinc -u15m dy dx
if ($hget(dy,dx) < 22) {
!kick # $nick $1-
;multiban
.hadd -u2m mb $+($nick,*@*banned*)
.timermb 1 1 .mode $chan $1 $+(+,$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
}
}

alias goto.kick {
if ($nick !ison #) return
.hinc -u10m random $1 1
if ($hget(random,$1) > $r(0,90)) {
.inc -u5m %random.kick
if (%random.kick < 22) { !kick # $nick $1- }
}
;multiban
.hadd -u2m mb $+($nick,*@*banned*)
.timermb 1 1 .mode $chan $1 $+(+,$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
}