IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Tekil Mesaj gösterimi

Feragat · 09 Mayıs 2014, 16:36

Dangerous123 Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

öncelikle eline sağlık Feragat uzun zamandır ben dahil çok fazla kişinin aradıgı bir kod bu..
sorunsuz tam senin anlattıgın gibi çalışıyor. Yalnız ben buna bir eklenti rica etsem düzenleyebilirmisin,
kanalda Nomercy nicki listeye alınmayacak muaf olcak, bir dieri ise bota eklemek adına input ewentini text ewentine cevirebilirmiyiz..

şimdiden tşk edrm. hoş paylaşımlar..

Normalde edit/düzenleme işine karışmak istemiyordum ama bu defalık kısa bir düzenleme yapayım.

Düzenlemede ki mantık şöyle olabilir;
1- !kelime #kanal komutu kullanacağın bir kanal ayarlamak
Örnek:

Kod: Kodu kopyalamak için üzerine çift tıklayın!

if $chan == #opers && $regex($1-,/^[.!]kel[iİı]me\s+[#]\S+$/Si) {

Eğer komut #opers kanalında kullanılıyorsa sonuçları #opers kanalına yansıt.

2- Kelime istatistik kaydını belirttiğin kanallarda, belirttiğin nickler dışındaki nicklere yapması(yani muaf olayı.)

Kod: Kodu kopyalamak için üzerine çift tıklayın!

 elseif $istok(#kanal1 #kanal2 #kanal3, $chan, 32) && !$istok(NoMercy Nick1 Nick2 Nick3, $nick, 32) {

Örnekteki gibi istatistik tutulacak kanal ve muaf tutulacak nick ayarlayabilirsin.

Not: Kodun bu halini kısaca denedim, bir problem gözüme çarpmadı. Seninde problem yaşamamanı dilerim.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

menu * { 
  .Kelime İstatistiği
  ..Aç:!if $group(#kelime).status = on { echo 4 -tgae Kelime Sayacı Zaten AÇIK } | else { /.enable #kelime | echo 4 -tgae Kelime Sayacı AÇILDI }
  ..Kapat:!if $group(#kelime).status = off { echo 4 -tgae Kelime Sayacı Zaten KAPALI } | else { /.disable #kelime | echo 4 -tgae Kelime Sayacı KAPATILDI }
  ..Durum < $replace($group(#kelime).status, off, Kapalı, on, Açık) >:.
}
#kelime on
on *:text:*:#:{ 
  if $chan == #opers && $regex($1-,/^[.!]kel[iİı]me\s+[#]\S+$/Si) {
    if $hget(konusma,$2) { 
      var %rvl 1 | while %rvl <= 10 { var %see = $addtok(%see,$regsubex(is,$+($hmatch(konusma,$+($2,$chr(11),*),%rvl),:,$hget(konusma,$+($2,$chr(11),$gettok($hmatch(konusma,$+($2,$chr(11),*),%rvl),2,11)))),/^\x23\S+\xB(\S+)\x3A(\d+)$/,$+(\2,$chr(11),\1)),32) | inc %rvl } 
      msg # En Fazla Kelime Yazan İlk $iif($numtok(%see,11) < 10, $calc($v1 - 1), $v2) Kişi: $regsubex(cl,$regsubex(ciao,$replace($sorttok(%see,32,rn),$chr(11),:-),/(\d+)\x3A\x2D(\S+)/g,$+($chr(40),Nick:\2,$chr(32),Kelime:\1,$chr(41))),/(.+)[:]$/,\1)
      msg # $+(,$qt($2),) Kanalında Toplam Yazılan Kelime Sayısı: $+(,$hget(konusma,$2),) 
    } 
    else { msg # $+(,$qt($2),) Kanalına Ait İstatistik Yok! }
  }
  elseif $istok(#deney #deney1, $chan, 32) && !$istok(NoMercy, $nick, 32) { !.hinc -m konusma $chan $numtok($1-,32) | !.hinc -m konusma $+($chan,$chr(11),$nick) $numtok($1-,32) }
}
#kelime end