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

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 30 Haziran 2007, 17:43   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Uyarı Eklemek İstiyorum




PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
;Tekrar Koruması
 
#tekrar on 
on 1:text:*:#:{ 
  
if $nick isop $chan halt 
  if 
$nick ison #kanal { halt } 
  
if (%>reps_ [ $+ [ $nick ] ] == $1- ) { inc %>repsa_ [ $+ [ $nick ] ] } 
  if (%>
reps_ [ $+ [ $nick ] ] == $null)  { set -u10 %>reps_ [ $+ [ $nick ] ] $1- | inc -u10 %>repsa_ [ $+ [ $nick ] ] } 
  if (%>
repsa_ [ $+ [ $nick ] ] == 3) { 
    
samode $chan +b $nick 
    
unset %*[ $+ [ $nick ] ] |  
  } 

#tekrar end 
 
 
----------------------------------------------- 



PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias capsban { /samode # +b $$1 } 
 
#caps on 
on *:TEXT:*:#: { 
  
if ($nick ison #myops) { halt } 
  
if ($nick ison #mynet) { halt } 
  
if ($chan == #yardim) { halt } 
  
if ($chan == #kanal) { halt } 
  
if ($chan == #admin) { halt } 
  
if ($len($1-) < 30) || ($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(- (%non.caps / %full.line))  
  if (%
percent >= 0.8) { 
    
capsban $nick  
    
unset %CAPS. $+ $nick  
  


 
#caps end 



PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:text:*:#: { 
  
if !$istok(Nick1 Nick2 Nick3 Nick4,$nick,32) { 
    if 
$regex($1-,/([[:print:]])11/gi) >= {  
    
samode # +b $nick   }  
  





ArkadaşLar Bu 3 Korumaya Uyarı Eklemek İstiyorum Önce Bir Kere Uyarsin
Ardindan BanLasin..

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Yazgulu Sohbet
Alt 30 Haziran 2007, 17:53   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Uyarı Eklemek İstiyorum




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
;Tekrar Koruması! #tekrar on on 1:text:*:#:{ if $nick isop $chan { halt } if $nick ison #kanal { halt } if (%>reps_ [ $+ [ $nick ] ] == $1- ) { inc %>repsa_ [ $+ [ $nick ] ] } if (%>reps_ [ $+ [ $nick ] ] == $null) { set -u10 %>reps_ [ $+ [ $nick ] ] $1- | inc -u10 %>repsa_ [ $+ [ $nick ] ] } if (%>repsa_ [ $+ [ $nick ] ] == 3) { hinc -mu tekrar $+($nick,.,$chan) 1 if $hget(tekrar,$+($nick,.,$chan)) == 1 { msg $chan uyari vs.. } if $hget(tekrar,$+($nick,.,$chan)) == 2 { samode $chan +b $nick } unset %*_ [ $+ [ $nick ] ] | } } #tekrar end

3. seferde de baska birşeyler yapabilirsin hepsinde mantik ayni.turuncu renkle belirttigim ayraclarin icine gerekli düzenlemeyi yapmak yani.

 
Alıntı ile Cevapla

Alt 01 Temmuz 2007, 01:10   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Yanıt: Uyarı Eklemek İstiyorum




Ya Kardeş Denedim Ama Problem &#199;ıkardı Tekrar Korumasinda Olduğu Gibi Diğerlerini de Yapabilir Misin Sana Zahmet ?

 
Alıntı ile Cevapla

Alt 01 Temmuz 2007, 01:15   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Uyarı Eklemek İstiyorum




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:text:*:#: { if !$istok(Nick1 Nick2 Nick3 Nick4,$nick,32) { if $regex($1-,/([[:print:]])11/gi) >= 8 { hinc -mu uzat $+($nick,.,$chan) 1 if $hget(uzat,$+($nick,.,$chan)) == 1 { msg $chan uyari sözcükleri uzatmayiniz } if $hget(uzat,$+($nick,.,$chan)) == 2 { samode $chan +b $nick } } } }

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias capsban { /samode # +b $$1 } #caps on on *:TEXT:*:#: { if ($nick ison #myops) { halt } if ($nick ison #mynet) { halt } if ($chan == #yardim) { halt } if ($chan == #kanal) { halt } if ($chan == #admin) { halt } if ($len($1-) < 30) || ($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) { hinc -mu caps $+($nick,.,$chan) 1 if $hget(caps,$+($nick,.,$chan)) == 1 { msg $chan uyari vs.. } if $hget(caps,$+($nick,.,$chan)) == 2 { capsban $nick } unset %CAPS. $+ $nick } } #caps end


 
Alıntı ile Cevapla

Alt 01 Temmuz 2007, 01:22   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Yanıt: Uyarı Eklemek İstiyorum




Caps Korumasini Denedim Ş&#246;yle Bir Şey Yapıyor..

Alıntı:
01:19:34] <asasasa> DVSDLSDFSDKFSDKFKSDFSDKFSDKFKSDFKSDFSDFD
[01:19:34] <Guest29698> UYARI: DVSDLSDFSDKFSDKFKSDFSDKFSDKFKSDFKSDFSDFD, L&#252;tfen B&#252;y&#252;k Harf Kullanmayınız; Aksi Takttirde Kanaldan Uzaklaştırılacaksınız!
[01:19:45] <asasasa> DVSDLSDFSDKFSDKFKSDFSDKFSDKFKSDFKSDFSDFDSDSDSDS
[01:19:45] *** Guest29698 modu değiştirdi: +b asasasa!*@*

Niye Nicki DeğiLde Yazdiğim Şeye Uyarı Veriyor ?

 
Alıntı ile Cevapla

Alt 01 Temmuz 2007, 01:25   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Yanıt: Uyarı Eklemek İstiyorum




Bir de Harf Uzatmada Herhangi Bir Etki G&#246;stermıyor ?

Kodda Bir Sorun Mu Var Acaba..

 
Alıntı ile Cevapla

Alt 01 Temmuz 2007, 01:35   #7
Çevrimdışı
SaW
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Yanıt: Cevap: Uyarı Eklemek İstiyorum




mikrop Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:text:*:#: { if !$istok(Nick1 Nick2 Nick3 Nick4,$nick,32) { if $regex($1-,/([[:print:]])11/gi) >= 8 { hinc -mu uzat $+($nick,.,$chan) 1 if $hget(uzat,$+($nick,.,$chan)) == 1 { msg $chan uyari sözcükleri uzatmayiniz } if $hget(uzat,$+($nick,.,$chan)) == 2 { samode $chan +b $nick } } } }

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias capsban { /samode # +b $$1 } #caps on on *:TEXT:*:#: { if ($nick ison #myops) { halt } if ($nick ison #mynet) { halt } if ($chan == #yardim) { halt } if ($chan == #kanal) { halt } if ($chan == #admin) { halt } if ($len($1-) < 30) || ($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) { hinc -mu caps $+($nick,.,$chan) 1 if $hget(caps,$+($nick,.,$chan)) == 1 { msg $chan uyari vs.. } if $hget(caps,$+($nick,.,$chan)) == 2 { capsban $nick } unset %CAPS. $+ $nick } } #caps end



mikrop if $hget(caps,$+($nick,.,$chan)) == 2 { capsban $nick }
satırından sonra açtığın hashi hfree yapmanı tavsiye ederim.. Çünkü aynı nickin bir sonraki girişinde yaptığı suçun ardından tekrardan hinc olacağı için
if $hget(caps,$+($nick,.,$chan)) değeri 3 e çıkacaktır ve diğer seferlerinde artmaya devam edecektir.. Kod bu değerler için bir komut uygulamayacaktır. Diğer kodlar için de bu geçerli..

 
Alıntı ile Cevapla

Alt 01 Temmuz 2007, 01:37   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Uyarı Eklemek İstiyorum




caps korumasinda msg $chan UYARI: $1- degil UYARI: $nick seklinde deneyin.
$1- yazilan yazidir.

harf uzatmaya gelince kodun kendisinde bir aksaklik olabilir hic uyari eklemeden d&#252;z haliyle deneyin. uyarilarda sorun yok kanımca

 
Alıntı ile Cevapla

Alt 01 Temmuz 2007, 01:55   #9
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Yanıt: Uyarı Eklemek İstiyorum




Caps sorunu da hallettim fakat verdiğim harf uzatma kodu normalde &#231;alışıyor,ama mikrop eklediğin uyarılarla birlikte hi&#231; bir şekilde aktif deil uyarılari tekrar kontrol etme şansın var mi ?

 
Alıntı ile Cevapla

Alt 03 Temmuz 2007, 02:54   #10
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Yanıt: Uyarı Eklemek İstiyorum




Alıntı:
Tekrar Koruması!
#tekrar on
on 1:text:*:#:{
if $nick isop $chan { halt }
if $nick ison #kurul { halt }
if (%>reps_ [ $+ [ $nick ] ] == $1- ) { inc %>repsa_ [ $+ [ $nick ] ] }
if (%>reps_ [ $+ [ $nick ] ] == $null) { set -u5 %>reps_ [ $+ [ $nick ] ] $1- | inc -u5 %>repsa_ [ $+ [ $nick ] ] }
if (%>repsa_ [ $+ [ $nick ] ] == 2) {
hinc -mu tekrar $+($nick,.,$chan) 1
if $hget(tekrar,$+($nick,.,$chan)) == 1 { msg $chan UYARI: $nick $+ , Lütfen Tekrar Yapmayınız; Aksi Taktirde Kanaldan Uzaklaştırılacaksınız!
}
if $hget(tekrar,$+($nick,.,$chan)) == 2 { samode $chan +b $nick }
unset %*_ [ $+ [ $nick ] ] |

}
}
#tekrar end

Sorunum Şu Mesala Birisi 5 saniye içinde 2 kanalda da slm verse ona uyarı atıyor ve tekrar başka bir şeyi 5 saniye içinde 2 kanalda birden yaparsa +b koyuyor bunu nasıl engelleyebilirim ?

 
Alıntı ile Cevapla

Cevapla

Etiketler
eklemek, istiyorum, mirc, mirc download, mirc indir, uyari, uyarı, İstiyorum


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
Kod İStiyorum MaryMy mIRC Scripting Sorunları 3 23 Şubat 2013 16:35
küfür korumasına uyarı eklemek Spectral mIRC Scripting Sorunları 2 26 Aralık 2009 23:20
Bot ıstiyorum ... Davidoff Eggdrop, NeoStats, BNC 5 24 Eylül 2007 01:34
Resmi uyarı! :Microsoftt da web sitesinde tüm kullanıcılara uyarı! CaSt Güvenlik Açıkları 3 06 Nisan 2007 23:06