[Visionic]

[CODE]

alias capsban { if (%ipban == on) { //Ban -u $+ 900 # $nick 2 } | mode # +b $$1 }
#caps off
on @*:TEXT:*:#: {
if $me !isop $chan { halt } | if $nick isop $chan { halt }
if ($len($1-) < 50) || ($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) {
/mode $chan +b $address($nick,2) | /kick $chan $nick13CAPS LOCK/OFF2( $+ % $+ $calc(%percent * 100) $+ )
unset %CAPS. $+ $nick
}
}
#caps end

elimde burdan aldıgım bu sekilde bir CAPS koruması var.Fakat çalışmıyor.Uyarıda hatada vermiyor.Sadece calışmıyor.(SERVER CR)

---------------------------------------------------------------
on @*:text:*:#:{
if $regex($1-,/([[:print:]])\1\1/gi) >= 9 {
var %< = $+(%,harf.,#,.,$nick) | inc $(%<,1)
if $(%<,2) == 2 { ban -k # $nick 3 kez harf uzattığın için kicklendin. | unset $(%<,1) }
else {
msg # 6 $nick 4Harf Uzatmaya devam ederseniz...8Kanaldan uzaklaştırılıcaksanız..
}
}
}
BUDA HARF UZATMA KORUMASI.uyarıları yapıyor fakat adam kanaldan banlanmıyor.5 nci satır problemli diye uyarı veriyor..Biçok sey denedim fakat çözemedim.Yardımcı olursanız sevinirim(server CR)

[deviLqirL]

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

on @*:text:*:#:{
  if $nick isop $chan 
  if ($1- ===  $upper($1-)) && ($len($1-) > 20) {
    .mode $chan +b $nick  
    .kick # $nick BÜYÜK Harf kullanmak yasaktır. }
}

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

on @*:TEXT:*:#:{
  if ($nick isop #) return
  if ($len($strip($1-)) >= 120) {
    ;s
    /mode # +b $nick | /kick # $nick Tek satırda 120 karakter kullanmak yasaktır. }
}

Kullanabilirsin Daha Kısa Daha Kolay

Kod sahibi L4roXyL

[Visionic]

&#246;ncelikle yardım i&#231;in tşk ler...
* /if: insufficient parameters (line 9, Caps)
devilgirl BU CAPS KORUMASININ VERDİGİ HATA...(SENDEN ALDIGIM)

2 ncisine gelince senin verdigin uzun yazı koruması..O var bende.BENİM verdigimse harf uzatma. (aliiiiiiiiiiiiiii gibi ) ...Yani farklı korumalardan bahsediyoruz.

[RapStar]

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

 
;Capslock Koruması!
alias capsban { if (%ipban == on) { //Ban -u $+ 900 # $nick 2 } | mode # +bb-v $$1 $wildsite $nick }
#caps on
on @*:TEXT:*:#: {
if ($nick ison #GlobaL) { halt }
if ($nick ison #Yönetim) { halt }
if ($chan == #Yardim) { halt }
if ($chan == #Helper) { halt }
if ($chan == #YaşGrubu) { halt }
if ($chan == #ilişkilerGrubu) { halt }
if ($chan == #TeamGrubu) { halt }
if ($len($1-) < 15) || ($nick isop #) return
var %text = $strip($remove($1-,$chr(5)))
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) {
/kick $chan $nick Büyük Harf Yasaktır! 
capsban $nick 
unset %CAPS. $+ $nick 
}
}
#caps end

Bunu Bi Denermisin Kardeş ? (Denedim Çalışıyor.) Kırmızı Yeri Kendin Ayarla

[Pit-10]

bu daha iyi olsu tşkler..

[Visionic]

RapstaR verdigin kod calıstı tşk ler kardeşim.Ama su kanal secme olayını nasıl ortadan kaldırabilirim? T&#252;m kanallarda gecerli olsun istiyorum.
if ($nick ison #ss1) { halt }
if ($nick ison #Y&#246;netim) { halt }
if ($chan == #Yardim) { halt }
if ($chan == #Helper) { halt }
SU B&#214;L&#220;M YANİ..kanal belirlemek degilde..Op oldugum t&#252;m kanallarda &#231;alısmasını istiyorum.

NOt:Pit-10 arkadaşım yerime tşk etmezsen sevinirim..

[arananadam1]

kod tum op oldugun kanallardacalisacak ama sadece onlarda calismayacak yani bunlarda
if ($nick ison #ss1) { halt }
if ($nick ison #Y&#246;netim) { halt }
if ($chan == #Yardim) { halt }
if ($chan == #Helper) { halt }

[RapStar]

Alıntı:

on *:text:*:#:{ if $regex($1-,/([[:print:]])\1\1/gi) >= 3 { var %< = $+(%,harf.,#,.,$nick) | inc $(%<,1) if $(%<,2) == 1 { Harfleri Uzattığın İ&#231;in Banlandın | unset $(%<,1) } else { mode $chan +bb $nick $wildsite } } }

Bu Kodunu Sadece Değiştirdim. Farkı Şu Uyarı Yapmıyor Mesela A Harfinden Sonraki Sekizinci A Harfinde Banlıyor &#214;rn:

[23:38] <MVP> Aaaaaaaaa
[23:38] * Efendinn sets mode: +bb MVP!*@* *!*@********

[RapStar]

Alıntı:

;Capslock Koruması! alias capsban { if (%ipban == on) { //Ban -u $+ 900 # $nick 2 } | mode # +bb-v $$1 $wildsite $nick } #caps on on @*:TEXT:*:#: { if ($len($1-) < 15) || ($nick isop #) return var %text = $strip($remove($1-,$chr(5))) 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) { /kick $chan $nick B&#252;y&#252;k Harf Yasaktır! capsban $nick unset %CAPS. $+ $nick } } #caps end

Kırmızı Yer Kick Sebebin. Mavi Yerde B&#252;y&#252;k Harf Sınırın. 14 B&#252;y&#252;k Harf Koyana Bişi Yapmaz 15 İncide Banlar.

[arananadam1]

bende de var bi tane denemek istersen buyur

on @*:text:*:#: {
var %< = $remove($strip($1-),$chr(32)),%> = $int($calc(($regex(%<,/[A-Z&#214;&#220;Şİ&#199;Ğ]/g) / $len(%< 10)) * 100))
if $nick !isop # && %> >= 77 && $len(%< >= 20) {
inc -u70 $+(%,cc.,#,$nick) | var %' = $($+(%,cc.,#,$nick),2)
if %' == 1 { msg $chan UYARI! $nick L&#252;tfen CapsLock Tuşunu kapatarak yazınız. }
if %' == 2 { msg $chan UYARI: $nick L&#252;tfen CapsLock Tuşunu kapatarak yazınız. Aksi Taktirde kanaldan uzaklaştırılıcaksınız. }
if %' == 3 { mode $chan +b $nick | msg $chan  $nick Uyari almistiniz  Buyuk Harf  Kullanmama Konusunda. | timer 1 60 mode $chan -b $nick }
}