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

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 09 Nisan 2007, 22:21   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
caps SORUN




[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)
[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)
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Sohbet
Alt 09 Nisan 2007, 22:29   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
Cevap: caps SORUN




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&#220;Y&#220;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

 
Alıntı ile Cevapla

Alt 09 Nisan 2007, 22:35   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
Cevap: caps SORUN




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

 
Alıntı ile Cevapla

Alt 09 Nisan 2007, 23:06   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
Cevap: caps SORUN




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

 
Alıntı ile Cevapla

Alt 09 Nisan 2007, 23:08   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
Cevap: caps SORUN




bu daha iyi olsu tşkler..

 
Alıntı ile Cevapla

Alt 09 Nisan 2007, 23:14   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
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&#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..

 
Alıntı ile Cevapla

Alt 09 Nisan 2007, 23:38   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
Yanıt: caps SORUN




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 }

 
Alıntı ile Cevapla

Alt 09 Nisan 2007, 23:40   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
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 İ&#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!*@* *!*@********

 
Alıntı ile Cevapla

Alt 09 Nisan 2007, 23:45   #9
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
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&#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.

 
Alıntı ile Cevapla

Alt 09 Nisan 2007, 23:51   #10
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
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&#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 }
}

 
Alıntı ile Cevapla

Cevapla

Etiketler
caps, mirc, mirc download, mirc indir, sorun


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
IF Caps Lcia Komik Gif & Resim & Caps 154 05 Temmuz 2019 03:08
Caps lock Koruması Sorun TİGeR mIRC Scripting Sorunları 4 08 Ağustos 2011 17:26
caps aias mIRC Scripting Sorunları 1 14 Şubat 2006 16:07