#wk.tcl
set wk_chans "#indomie"

##  WK  ##
set Reponden.v "wk respon"
bind pub - .wk wk_speak
set ranwk {
   "2w5K 2w5K 2w5K 2w5K 2w5K 2w5K"
   "3w7K 3w7K 3w7K 3w7K 3w7K 3w7K"
   "4w6K 4w6K 4w6K 4w6K 4w6K 4w6K"
   "5w10K 5w10K 5w10K 5w10K 5w10K 5w10K"
   "1w14K 1w14K 1w14K 1w14K 1w14K 1w14K"
   "1w14K 1w14K 1w14K 1w14K 1w14K 1w14K"
   "2w4K 2w4K 2w4K 2w4K 2w4K 2w4K"
   "5w10K 5w10K 5w10K 5w10K 5w10K 5w10K"
   "3w7K 3w7K 3w7K 3w7K 3w7K 3w7K"
   "2w4K 2w4K 2w4K 2w4K 2w4K 2w4K 2w4K 2w4K"
   "1w11K 1w11K 1w11K 1w11K 1w11K 1w11K 1w11K 1w11K"
   "5w10K 5w10K 5w10K 5w10K 5w10K 5w10K 5w10K 5w10K"
   
}

proc wk_speak {nick uhost hand chan text} {
 global botnick wk_chans ranwk
if {(([lsearch -exact [string tolower $wk_chans] [string tolower $chan]]
!= -1) ||
($wk_chans == "*"))} {
set wks [lindex $ranwk [rand [llength $ranwk]]]
putserv "PRIVMSG $chan :$wks"

 }
}