Code:
namespace eval talkIsCheap { # When a person has spoken 500 words without being idle # for more than 10 minutes, he/she is rewarded a voice. # The voice is lost if idle for more than 10 minutes. # - Unless you change the following settings: variable limit 500;# words variable idle 10;# minutes # change the mask or add more binds if you need it to # work in other channels: bind pubm - "*" [namespace current]::count # public command to get the number of words left for # yourself or the given person: bind pub - !words [namespace current]::wordsLeft # the timer checking for idlers bind time - * [namespace current]::devoice # variable for keeping track of user counts variable count # the counting proc (called when someone speaks) proc count {n u h c s} { variable limit variable count if {[isvoice $n $c]||[isop $n $c]} { if {[info exists count($c,$u)]} {set count($c,$u) [clock sec],$limit} return } if {[info exists count($c,$u)]} {scan $count($c,$u) %*i,%i a} {set a 0} set a [expr {$a+1+[regexp -all {[ \t,]+} $s]}] if {$a>=$limit} { set count($c,$u) [clock sec],$limit pushmode $c +v $n } { set count($c,$u) [clock sec],$a } } # the devoice proc (run once every minute) proc devoice args { variable idle variable count set t [expr {[clock sec]-$idle*60}] foreach {e v} [array get count] { if {[scan $v %i]<$t} { unset count($e) scan $e {%[^,],%s} c u if {![validchan $c]} continue foreach n [chanlist $c] { if {[getchanhost $n $c]==$u&&[isvoice $n $c]&&![isop $n $c]} { pushmode $c -v $n } } } } } # the public counter display (by user request) proc wordsLeft {n u h c a} { if {$a!=""} { if {[onchan $a $c]} { set n $a set u [getchanhost $n $c] } else return } variable count if {![isvoice $n $c]&&[info exists count($c,$u)]} { variable limit set words [expr {$limit-[scan $count($c,$u) %*i,%i]}] set s [expr {$words==1?"":"s"}] puthelp "PRIVMSG $c :$n has to speak $words more word$s to get voiced." } } }
do.