alias prot {
  if !$istok(repeat flood caps long ctrlcode bword spam punc,$1,32) { return $false }
  goto $1
  :repeat
  var %÷ = $+(%,repeat.,$2,.,$3,.,$encode($4,m))
  inc $(%÷,1)
  if (!$timer($gettok(%÷,1,37))) { $+(.timer,$gettok(%÷,1,37)) 1 $6 unset $(%÷,1) }
  if ($(%÷,2) >= $5) { unset $(%÷,1) | return $true }
  else { return $false }
  :flood
  var %µ = $+(%,flood.,$2,.,$3)
  inc $(%µ,1)
  if (!$timer($gettok(%µ,1,37))) { $+(.timer,$gettok(%µ,1,37)) 1 $5 unset $(%µ,1) }
  if ($(%µ,2) >= $4) { unset $(%µ,1) | return $true }
  else { return $false }
  :caps
  var %e = $remove($strip($2),$chr(32))
  return $iif($iif($len(%e) >= 10,$calc($regex(%e,/[A-ZÄÖÜĞÇİ]/g)/$len(%e)*100),0) >= $3,$true,$false)
  :long
  return $iif($len($strip($2)) >= $3,$true,$false)
  :ctrlcode
  return $iif($regex($2,/[[:cntrl:]]/g) >= $3,$true,$false)
  :bword
  var %· = 1 | while $read($3,%·) { if $v1 iswm $2 { return $true } | inc %· } | return $false
  :spam
  var %º = 1 | while $read($3,%º) { if $v1 iswm $2 { return $true } | inc %º } | return $false
  :punc
  return $iif($regex($2,/([?!:;,\.])/g) >= $3,$true,$false)
}
on *:text:*:#:{
  if $prot(repeat,#,$nick,$1-,2,5) { .ban -k # $nick 2 Tekrar etme! }
  elseif $prot(flood,#,$nick,3,4) { .ban -k # $nick 2 Flood yapma }
  elseif $prot(caps,$1-,80) { .ban -k # $nick 2 Büyük harf kullanma! }
  elseif $prot(long,$1-,20) { .ban -k # $nick 2 Uzun yazı yazma! }
  elseif $prot(bword,$1-,kufur.txt) { .ban -k # $nick 2 Kufur etme! }
}