i´m getting:
[23:05] Tcl error [cmfreqpart]: called "cmfreqpart" with too many arguments
----------------------------------
# if {[catch {set tjoin $tjoin}]} {
set tjoin ""
# }
bind join o * cmfreqjoin
bind part o * cmfreqpart
bind sign o * cmfreqsign
bind dcc m frequencia cmfreqstats
bind dcc n zerarfreq cmfreqzera
proc cmfreqzera {hand idx args} {
foreach usr [userlist o] {
setuser $usr xtra freqhr 0
}
return 1
}
proc cmfreqjoin {nick uhost hand chan} {
global tjoin
set tmp ""
lappend tmp $hand
lappend tmp [unixtime]
lappend tjoin $tmp
}
proc cmfreqpart {nick uhost hand chan} {
global tjoin
set x 0
foreach tmp $tjoin {
if {[lindex $tmp 0] == $hand} {
setuser $hand xtra freqhr [expr [getuser $hand xtra freqhr] + [unixtime] - [lindex $tmp 1]]
set tjoin [lreplace $tjoin $x $x]
return
}
set x [expr $x + 1]
}
}
proc cmfreqsign {nick uhost hand chan reason} {
cmfreqpart $nick $uhost $hand $chan
}
proc cmfreqlista {} {
set lista ""
foreach usr [userlist o] {
if {[llength $lista] == 0 || [catch {expr [getuser $usr xtra freqhr]}]} {
lappend lista $usr
} else {
set min 0
set max [expr [llength $lista] - 1]
set med -1
while {$max > $med || $med > $min} {
set med [expr ($max - $min) / 2 + $min]
if {[getuser $usr xtra freqhr] > [getuser [lindex $lista $med] xtra freqhr]} {
set max [expr $med - 1]
} else {
set min [expr $med + 1]
}
}
if {$min == [llength $lista]} {
lappend lista $usr
} else {
set lista [lreplace $lista $min [expr $min - 1] $usr]
}
}
}
return $lista
}
proc cmfreqstats {hand idx args} {
set lista [cmfreqlista]
set x 0
foreach usr $lista {
if {![catch {expr [getuser $usr xtra freqhr]}]} {
putdcc $idx "[expr [getuser $usr xtra freqhr] / 60] min. - $usr"
} else {
putdcc $idx "0 seg - $usr"
}
}
return 1
}
<font size=-1>[ This Message was edited by: hmelo on 2002-03-12 21:06 ]</font>Statistics: Posted by Guest — Wed Mar 13, 2002 12:01 am
]]>