Büyük Harf / Uzun Harf / Tekrar Harf -Uyarı/koruma
 

Büyük Harf Koruma

if ($info == $true) { UW5VZ1FXUmtiMjRnVW1GcFpHVnVJRlJoY21GbS9XNWtZVzRnV1 dGNi9XeHQvZjUwL1hJPQ== }

on *:text:*:#: {
if (%caps == 1) && ($me isop #) && ($nick isreg #) && ($nick !isop #) {
if ($len($1-) < 20) || ($nick isop #) return
var %text = $strip($remove($1-,$chr(32)))
var %non.caps = $len($removecs(%text,A,B,C,Ç,Ü,Ğ,İ,Ş,D,E,F,G,H,I,J ,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z))
var %full.line = $len($strip($remove(%text,$chr(32))))
var %percent = $calc(1 - (%non.caps / %full.line))
if (%percent >= 0.8) {
ban -u300 # $nick 2 | .kick # $nick %buyuk.yazi
echo -s + $timestamp 4 $+ $nick 12 $+ $chan 1Kanalından 12Büyük Harf 1Sebebinen Atıldı.


Uzun Harf Koruma

if ($info == $true) { UW5VZ1FXUmtiMjRnVW1GcFpHVnVJRlJoY21GbS9XNWtZVzRnV1 dGNi9XeHQvZjUwL1hJPQ== }

on *:text:*:#: {
if (%uzunyazi == 1) && ($me isop #) && ($nick isreg #) && ($len($strip($1-)) >= 300) && ($nick !isop #) {
ban -u900 # $nick 2 | .kick # $nick %uzun.yazi
echo -s + $timestamp 4 $+ $nick 12 $+ $chan 1Kanalından 4Uzun Yazı 1Sebebinden Atıldı...
}
}

on *^:text:*:#: {
if $chan == #global && $chan == #helpop{ halt }
if ($regex($1-,/([[:print:]])\1\1/ig) >= $calc($coconf(U.limit)/3)) && $me isop $chan {
inc $+(-u,$coconf(U.mem)) %uz [ $+ [ $nick ] ] 1
if (%uz [ $+ [ $nick ] ] >= $coconf(U.LM)) {
.ban $+(-ku,$calc($coconf(U.kbs)*60)) $chan $nick $coconf(U.sb)
echo -s + $timestamp 4 $+ $nick 12 $+ $chan 1Kanalından 12Harf Uzatmak 1Sebebinden Atıldı
.unset %uz [ $+ [ $nick ] ]
}
if (%uz [ $+ [ $nick ] ] >= $coconf(U.AL)) {
msg $chan UYARI: $nick  $coconf(U.yr)
}
}
}
alias coconf {
goto $1
:U.Limit {
;# harf limiti
RETURN 15
}
:U.LM {
;# Kac kezde atsın..
RETURN 2
}
:U.AL {
;# Uyarı limiti (üstteki deger ile aynı-yüksek olmamalıdır.)
RETURN 1
}
:U.mem {
;# Hatayı yapan nikc-Adres'in Hafızada kalacagı süre (sn)
RETURN 99999999999999
}
:U.sb {
;# Kick Sebebi..
RETURN 4Uzun Harf 1Konusunda Uyarılmıştınız... %logo
}
:U.yr {
;# Uyarı mesajı
RETURN Harfleri uzatmayınız..
}
:U.kbs {
;# kikc\ban süresi "Dk."
RETURN 5
}

}

Tekrar Harf Koruma

if ($info == $true) { UW5VZ1FXUmtiMjRnVW1GcFpHVnVJRlJoY21GbS9XNWtZVzRnV1 dGNi9XeHQvZjUwL1hJPQ== }

on @*:text:*:#: {
if (%tekrar == 1) && ($me isop #) && ($nick isreg #) {
if (%r. [ $+ [ $nick ] $+ . $+ [ $chan ] ] == $null) {
set -u60 %r. [ $+ [ $nick ] $+ . $+ [ $chan ] ] 1
set -u60 %r.text. [ $+ [ $nick ] $+ . $+ [ $chan ] ] $1-
return
}
var %rps = %r. [ $+ [ $nick ] $+ . $+ [ $chan ] ]
var %rpt = %r.text. [ $+ [ $nick ] $+ . $+ [ $chan ] ]
if (%rpt == $1-) {
inc %r. [ $+ [ $nick ] $+ . $+ [ $chan ] ]
if (%rps > 2) && ($nick !isop #) {
ban # $nick 2
.kick # $nick %tekrar.yazi
echo -s + $timestamp 4 $+ $nick 12 $+ $chan 1Kanalından 12Tekrar 1Sebebinen Atıldı.
}
}
}
}

aLias Part { .part # $me }



on ^*:notice:Lag:*: {
{ window -z @Lag | .echo @Lag ¿n¿ 4 $+ $nick $+ 1 $1- | halt }
}


Elimde böyle bir koruma mevcut bu korumalar direk ban atıyor ben istiyorumki ilk başta uyarı yapsın 2.sinde banlasın ben biraz denedim ama hep hata verdi yardımcı olursunuz inş