mIRC Scripting Parça Kodlar mIRC Scripting Parça Kodlar |
|
Seçenekler | Stil |
10 Mayıs 2022, 21:56 | #1 |
Kanal Kelime İstatistiği
Yapım Tarihi: 06 Mayıs 2014
Hazırlayan: Feragat 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. Kodmenu * { .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 Kod[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
________________
The Ghost of Christmas Past.. i'm here sometimes |
|
|
20 Ağustos 2022, 06:06 | #2 |
Emeğinize sağlık
|
|
|
27 Şubat 2023, 20:31 | #3 |
Emeginize saglik paylasim icin tesekkur ederiz
________________
No MoRe DramA
|
|
|
27 Şubat 2023, 20:39 | #4 |
Ben de foruma kelime botu koydular sandim.)
Emeginize sağlik. |
|
|
27 Şubat 2023, 22:02 | #5 |
Emeğinize Sağlık , Paylaşım İcin Teşekkürler .
|
|
|
28 Şubat 2023, 07:26 | #6 |
Değerli paylaşımınız için teşekkür ederiz, elinize sağlık.
________________
~ E & B ~ |
|
|
28 Şubat 2023, 07:37 | #7 |
Emeğine sağlık
________________
Vazgeçilmez değilim, değilsin , değilsiniz...
|
|
|
28 Şubat 2023, 10:36 | #8 |
Bilgi paylaşımı için tşkler, emeğinize sağlık
|
|
|
02 Mart 2023, 19:38 | #9 |
Emeğine sağlık kıymetli dostum
________________
Edep; aklın Tercümanıdır. İnsan edebi kadar akıllı, Aklı kadar şerefli, Şerefi kadar Kıymetlidir. Massive.. ~ E & B ~ |
|
|
03 Mart 2023, 00:13 | #10 |
emeğinize sağlık
|
|
|
Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
|
|