v5.1.9
http://www.snype.us/iotrial/
- oops forgot to change line for !passed.
!trials command.
paste this into iotrial.tcl
Code:
bind pub -|- [set cmdtrial]trials trials
proc trials {nick uhost hand chan args} {
global binary
set result [exec $binary(ioTRIAL) irc info trial all]
foreach line [split $result \n] {
if { ! [info exists newline($line)] } { set newline($line) 0 } else { set newline($line) [expr $newline($line) + 1] }
puthelp "PRIVMSG $chan :$line\0030,$newline($line)"
}
}