set sex "./sex.txt" bind pub - !sex sex:msg proc sex:msg {nick uhost hand chan arg} { global sex set sexmsg [string range [randomline $sex] 0 end] puthelp "privmsg $chan :$sexmsg" } proc randomline f { set data [split [read [set file [open $f]]][close $file] \n] set position [ra...