bind pub - !fact pub:RandomFact
proc RandomFact {nick uhost hand chan args} {
global factstouse
set randomfacttouse [lindex $factstouse [rand [llength $factstouse]]]
puthelp "PRIVMSG $chan :$randomfacttouse"
return
}
set factstouse {
"'Dog kennel' is redundant The Latin 'canis' (dog) served as the base for the word 'canile' (dog house) This word entered French as 'kenel', which the English changed to kennel Thus, a kennel couldn't technically be for anything else but dogs"
"'E' is the most frequently used letter in the English alphabet, 'Q' the least"
"'Fine turkey' and 'honeycomb' are terms used for different qualities and textures of sponges"
"'Flushable' toilets were in use in ancient Rome."
}
bind pub - !fact RandomFact
proc RandomFact {nick uhost hand chan args} {
global factstouse
set randomfacttouse [lindex $factstouse [rand [llength $factstouse]]]
puthelp "PRIVMSG $chan :$randomfacttouse"
return
}
set factstouse {
"'Dog kennel' is redundant The Latin 'canis' (dog) served as the base for the word 'canile' (dog house) This word entered French as 'kenel', which the English changed to kennel Thus, a kennel couldn't technically be for anything else but dogs"
"'E' is the most frequently used letter in the English alphabet, 'Q' the least"
"'Fine turkey' and 'honeycomb' are terms used for different qualities and textures of sponges"
"'Flushable' toilets were in use in ancient Rome."
I tested the script above and it works fine as is, providing the missing end brace is added to the end of the script (probably just a cut and paste mistake).