Anonymous

bind pub -|- !test test:proc
proc test:proc {nick host hand chan {arg}} {
global c0 c1 c2 c3 c4 c5 d0 d1 d2 d3 d4 d5
set varlist [d0 d1 d2 d3 d4 d5]

foreach chan [channels] { if [channel get $chan servplus] {
set list [set [lindex $varlist [rand [llength $varlist]]]]
set fi [open $list r]
set data [read $fi]

        foreach {c} [split $data \n] {
        putserv "PRIVMSG $nick :\002$c\002"
        }
  }
 }
close $fi
}