on *:text:*:#:{
if *hotmail* iswm $1- || *sik* iswm $1- { mode # +b $nick | msg #ops $nick # kanalında banlandı. }
elseif *#* iswm $1- { msg # Lütfen kanallarda reklam yapmayınız. | msg haha $nick uyarıldı. }
elseif $prot(repeat,#,$nick,$1-,2,5) { kick # $nick Tekrar etme! }
elseif $prot(flood,#,$nick,3,4) { kick # $nick Flood yapma }
elseif $prot(caps,$1-,80) { kick # $nick Büyük harf kullanma! }
elseif $prot(long,$1-,20) { kick # $nick Uzun yazı yazma! }
}
on !*:join:#manisa:{ mode # +v $nick | notice $nick Merhaba $nick $+ , # kanalına hoşgeldiniz. }
on !*:part:#manisa:{ if *Left all channels* iswm $1- { gline $nick Tro } | else { msg $nick # kanalımıza yine bekleriz. } }
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)
}