Konuya cevap cer

Mesaj

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

[QUOTE="Che, post: 100, member: 1"] [CODE]# 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..."[/CODE] [/QUOTE]

Adı

İnsan doğrulaması

Konuya cevap cer

Dost Sitelerimiz

Radyo TrendFm Dinle

mIRCForum.Org.TR

Anahtar Kelimelerde Biz