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

Sayfa 1 Toplam 2 Sayfadan

Konuya ait 40 Mesajı başka Sayfada göster

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)

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

- - Uyarı Eklemek İstiyorum (https://www.ircforumlari.net/mirc-scripting-sorunlari/33317-uyari-eklemek-istiyorum.html)

MeGaBytE

30 Haziran 2007 17:43

Uyarı Eklemek İstiyorum

PHP- Kodu:

   ;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- Kodu:

   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- Kodu:

   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

Cevap: Uyarı Eklemek İstiyorum

Kod:

;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

Yanıt: Uyarı Eklemek İstiyorum

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

detay

01 Temmuz 2007 01:15

Cevap: Uyarı Eklemek İstiyorum

Kod:

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:

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

Yanıt: Uyarı Eklemek İstiyorum

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

Yanıt: Uyarı Eklemek İstiyorum

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

Kodda Bir Sorun Mu Var Acaba..

SaW	01 Temmuz 2007 01:35

Yanıt: Cevap: Uyarı Eklemek İstiyorum

Alıntı:

mikrop Nickli Üyeden Alıntı (Mesaj 227791)

Kod:

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:

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

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

MeGaBytE

01 Temmuz 2007 01:55

Yanıt: Uyarı Eklemek İstiyorum

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

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 ?

Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 17:52.

Sayfa 1 Toplam 2 Sayfadan

Konuya ait 40 Mesajı başka Sayfada göster