IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - caps SORUN (https://www.ircforumlari.net/mirc-scripting-sorunlari/29998-caps-sorun.html)

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

Cevap: caps SORUN

Kod:

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:

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

Cevap: caps SORUN

ö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.

Cevap: caps SORUN

Kod:

 

;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

Cevap: caps SORUN

bu daha iyi olsu tşkler..

Cevap: caps SORUN

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

Yanıt: caps SORUN

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 }

Cevap: caps SORUN

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

Cevap: caps SORUN

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.

Yanıt: caps SORUN

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