Uyarı Eklemek İstiyorum - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

MeGaBytE · 30 Haziran 2007, 17:43

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(1 - (%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) >= 8 {  
    samode # +b $nick   }  
  } 
}

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

detay · 30 Haziran 2007, 17:53

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.

MeGaBytE · 01 Temmuz 2007, 01:10

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

detay · 01 Temmuz 2007, 01:15

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

MeGaBytE · 01 Temmuz 2007, 01:22

Caps Korumasini Denedim Şöyle Bir Şey Yapıyor..

Alıntı:

01:19:34] <asasasa> DVSDLSDFSDKFSDKFKSDFSDKFSDKFKSDFKSDFSDFD
[01:19:34] <Guest29698> UYARI: DVSDLSDFSDKFSDKFKSDFSDKFSDKFKSDFKSDFSDFD, Lütfen Büyü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 ?

MeGaBytE · 01 Temmuz 2007, 01:25

Bir de Harf Uzatmada Herhangi Bir Etki Göstermıyor ?

Kodda Bir Sorun Mu Var Acaba..

SaW · 01 Temmuz 2007, 01:35

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

detay · 01 Temmuz 2007, 01:37

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üz haliyle deneyin. uyarilarda sorun yok kanımca

MeGaBytE · 01 Temmuz 2007, 01:55

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

MeGaBytE · 03 Temmuz 2007, 02:54

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 ?

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

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

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.