
bind pub - !sing pub_sing

set file "/eggdrop/scripts/bottalk/sing.txt"
set fid [open $file r]
set ransings [split [read $fid] \n]
close $fid

proc pub_sing {nick uhost hand chan text} {
if {[llength [split $text]] == 0} {
puthelp "PRIVMSG $chan :\001ACTION [lindex [rand [llength $::ransings]]]"
}
return 1
}

