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

3Beğeni(ler)
  • 3 Post By saywhat

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 22 Eylül 2014, 12:14   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Kullanıcı İstatistiği




halen üzerinde çalıştığım kodun bir kısmıdır. geliştirmeye açık uzuuun olması beklenebilecek bir kodun deneme aşaması denebilir.

kanalda aktif etmek için : .chanset #kanal +istatistik

komutla kanaldaki kişinin toplamda kaç kelime yazdığı ve yazdığı toplam karakter sayısını verir. (en azından bu şimdi paylaştığım kısmı bunu yapar.listeleme prosedürü tamamlanmak üzereyken artık gözlerim yorulduğundan bıraktım öylece... ilerki sürüm/leri,olursa kickleri,banları,ctcp,/me,smiley'leri vs vs kullanıcı istatistiği çıktısına eklemeyi düşünüyorum.olur yada olmaz artık günler ne getirirse.)

Dikkat : bu script Tcl8.5.x ve üstü Tcl sürümleri gerektirir.daha eski sürümlere uyumlu değildir.*

script dict Tcl komutunun kazandırdığı özellikleri kullanarak yazılmıştır ki bu Tcl8.5 ve daha sonraki sürümlerin komutlarından biridir.
bunun "tam anlamıyla dengi" sayılabilecek (en yakın akrabası array'dir.) ,yerine konabilecek birşey yoktur ki daha eski sürümler de desteklesin...


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!
# komutlara erişimi olacak kullanıcı flagları: set istflag "-|-" # komut başına gelecek işaret: set isttrig "." # komut: set istkomut "stat" # kanal/lar üstünde aktif etmek için : .chanset #kanal +istatistik # ayarlar sonu... proc stat_say {nick uhost hand chan text} { if {![channel get $chan istatistik]} { return } set kelime [llength $text] set karakter [string length [regsub -all " " $text ""]] if {![info exists ::keli($nick)] && ![info exists ::kara($nick)]} { set ::keli($nick) [dict create] set ::kara($nick) [dict create] } dict incr ::keli($nick) $chan $kelime dict incr ::kara($nick) $nick $karakter } setudef flag istatistik proc stat_cmd {nick uhost hand chan text} { if {![channel get $chan istatistik]} { return } set hedef [lindex [split $text] 0] if {[llength $hedef] eq "0"} { puthelp "notice $nick :Kullanımı : $::lastbind < rumuz >" return 0 } if {[info exists ::keli($nick)] && [info exists ::kara($nick)]} { putserv "privmsg $chan :$hedef : [lindex [dict get $::keli($nick)] 0] kanalında ; \ [lindex [dict get $::keli($nick)] 1] kelime ,[lindex [dict get $::kara($nick)] 1] karakter kullanmış." return 0 } else { putserv "privmsg $chan :$hedef ile ilgili bir kayıt bulunmuyor." } } bind pubm - "*" stat_say bind pub $istflag $isttrig$istkomut stat_cmd putlog "ok..."


 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Cevapla

Etiketler
eggdrop, istatistik, kullanıcı, stat, statistics, stats, tcl, İstatistiği


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
Kanal Kelime İstatistiği Feragat mIRC Parça Kodlar 7 05 Haziran 2018 19:34
VIP Kullanıcı toXic Services Hazır Kodlar 45 17 Mayıs 2016 14:12
Kullanıcı Modeleri Kan Servisler 0 26 Ocak 2007 00:34
Bir Kullanıcı Burak Komik Loglar 10 18 Mart 2006 19:17