Kanal Kelime İstatistiği - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Feragat · 06 Mayıs 2014, 15:00

Kullanımı: !kelime #kanal veya .kelime #kanal
mIRC'in herhangi bir aktif penceresinde Sağ tık yaparak, Kelime İstatistiği menüsünden Aç - Kapat - Durum bilgilerine ulaşabilirsiniz. #kanal kısmına kanal belirtin.

- Kanalda en fazla yazan ilk 10 kişiye kadar; Nickleri ve kelime sayılarını birlikte listeler. Ayrıca o kanaldaki toplam kullanılan kelime sayısını da verir.
- Kullanım amacınıza ve isteğinize göre ekleme/silme/değiştirme yapabilirsiniz.

Not: Eğer aynı mirc üzerinden (/server -n) 1 den fazla sunucuya giriş yapıyorsanız, text event'ında sunucu koşulu belirtin. (if $server == irc.sunucuadı.com) gibi. Yoksa tüm sunucularda ki event'ta belirtilen kanalları (Örneğin: on *:text:*:#Sohbet: gibi) üst üste kaydeder.

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 *:input:#: { if $regex($1-,/^[.!]kel[iİı]me\s+[#]\S+$/Si) { 
    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(ciao,$replace($sorttok(%see,32,rn),$chr(11),:-),/(\d+)\x3A\x2D(\S+)/g,$+($chr(40),Nick:\2,$chr(32),Kelime:\1,$chr(41)))
msg # $+(,$qt($2),) Kanalında Toplam Yazılan Kelime Sayısı: $+(,$$hget(konusma,$2),) } }
on *:text:*:#kanal:!.hinc -m konusma $chan $numtok($1-,32) | !.hinc -m konusma $+($chan,$chr(11),$nick) $numtok($1-,32) 
#kelime end

Sonuç:

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

[03:09] <Feragat> En Fazla Kelime Yazan İlk 10 Kişi: (Nick:srjn Kelime:259) (Nick:Soğuk Kelime:40) (Nick:Toprak Kelime:29) (Nick:iLKeR Kelime:20) (Nick:ibrahim Kelime:19) (Nick:LaTahzeN Kelime:13) (Nick:Goemon Kelime:10) (Nick:ChatFox6472 Kelime:9) (Nick:JoKai Kelime:8) (Nick:aRmoR Kelime:1)
[03:09] <Feragat> "#ms" Kanalında Toplam Yazılan Kelime Sayısı: 649

Lociz · 08 Mayıs 2014, 17:44

Listede 10 kisiden az olunca soyle bir sorun olusuyor:

[17:32:14] <TEST> En Fazla Kelime Yazan İlk 1 Kişi: (Nick:Lociz Kelime:18) :

Sondaki iki nokta, tamam cok abartilacak bir sorun degil fakat goruntu kirliligi yapiyor.
10 kisi olunca boyle olmuyor.

Feragat · 08 Mayıs 2014, 19:03

Evet listede 10 kişiye kadar gösterir. Kodu başlattığında ilk 10 kişi oluşana kadar o anki sayıyı verir. 10 a ulaşınca 10 olarak gösterir. Ben uzun süre test ettim sonunda iki nokta göremedim. Örnek görüntüde de gözükmüyor. Ama bazı durumlarda bi hata oluşmuş olabilir bilemiyorum (10 kişi öncesi çıkarıyor olabilir). Görsellik kısmı beni alakadar etmiyor açıkcası. Benim ki sadece fikri paylaşmak. Görüntü konusunda kullanmak isteyen dilediği gibi editleyebilir. Fikrini belirttiğin için teşekkür ederim. İyi forumlar.

Feragat · 09 Mayıs 2014, 02:16

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 *:input:#: { if $regex($1-,/^[.!]kel[iİı]me\s+[#]\S+$/Si) { 
    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),) } }
on *:text:*:#kanal:!.hinc -m konusma $chan $numtok($1-,32) | !.hinc -m konusma $+($chan,$chr(11),$nick) $numtok($1-,32) 
#kelime end

İlk 10 kişiye ulaşana kadar ki zaman diliminde, sonuçların sonunda : işaretini göstermez artık.

Dangerous123 · 09 Mayıs 2014, 16:02

Feragat 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!

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 *:input:#: { if $regex($1-,/^[.!]kel[iİı]me\s+[#]\S+$/Si) { 
    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),) } }
on *:text:*:#kanal:!.hinc -m konusma $chan $numtok($1-,32) | !.hinc -m konusma $+($chan,$chr(11),$nick) $numtok($1-,32) 
#kelime end

İlk 10 kişiye ulaşana kadar ki zaman diliminde, sonuçların sonunda : işaretini göstermez artık.

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

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

12 Eylül 2014, 00:16

Eline Sağlık @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Joseph · 05 Haziran 2018, 19:34

Eline sağlık @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] bana ne yapacaksın

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
O ses kayıtları kelime kelime analiz edildi	Amelia	Haber Arşivi	0	25 Şubat 2014 17:16
Bu kodu kanaL Kick+ban kanal opLarı icin nasıl düzenleriz	Tinba	mIRC Scripting Sorunları	4	12 Mart 2013 07:19
!kanalekle global #kanal-adı yazınca ßot Kanal.txt'ye kaydetsin	Smith	mIRC Scripting Sorunları	10	20 Mart 2009 13:14
kanal a /cs access #kanal list çekinde services gidiyor neden ola bilir :(	EEkreMM	Servisler	3	07 Ocak 2008 17:39

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.