Ç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ışı

&#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.

 

Ç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&#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..

 

Çevrimdışı

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 }

 

Çevrimdışı

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!*@* *!*@********

 

Ç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&#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.

 

Çevrimdışı

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 }
}