on *:text:!boobs*:#chick3n:{ msg # $read(boobs.txt) nsfw } ==  bind pub - !boobs do_boobs ; proc do_boobs {n u h c t} { if {[string equal -nocase $c #chick3n]} { set fh [open "boobs.txt" r] ; set data [split [read -nonewline $fh] \n] ; putserv "privmsg $c :[lindex $data [rand [llength $data]]] \002nsfw\002" } }

bind pub - !10boobs 10_boobs ; proc 10_boobs {n u h c t} { if {[string equal -nocase $c #chick3n]} { set fh [open "boobs.txt" r] ; set data [split [read -nonewline $fh] \n] ; for {set x 0} {x<11} {incr x} { puthelp "privmsg $c :[lindex $data [rand [llength $x]]] \002nsfw\002" } }