Çevrimdışı

[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)

 

Çevrimdışı

Kullanabilirsin Daha Kısa Daha Kolay

Kod sahibi L4roXyL

 

Çevrimdışı

öncelikle yardım iç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.

 

Çevrimdışı

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

 

Çevrimdışı

bu daha iyi olsu tşkler..

 

Çevrimdışı

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

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

 

Çevrimdışı

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

 

Çevrimdışı

Alıntı:

on *:text:*:#:{ if $regex($1-,/([[:print:]])\1\1/gi) >= 3 { var %< = $+(%,harf.,#,.,$nick) | inc $(%<,1) if $(%<,2) == 1 { Harfleri Uzattığın İç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 Örn:

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

 

Çevrimdışı

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üyük Harf Yasaktır! capsban $nick unset %CAPS. $+ $nick } } #caps end

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

 

Çevrimdışı

bende de var bi tane denemek istersen buyur

on @*:text:*:#: {
var %< = $remove($strip($1-),$chr(32)),%> = $int($calc(($regex(%<,/[A-ZÖÜŞİÇĞ]/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ütfen CapsLock Tuşunu kapatarak yazınız. }
if %' == 2 { msg $chan UYARI: $nick Lü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 }
}