You could use text files to downsize the snippet and allow it to run optimally. Have a text file holding all the truths another with dare and a 3rd one with gifts. and call them using $read(), eliminating 100 lines of code in exchange for one line.
Example:
on *:TEXT:*!truth*:#:{ msg $chan 14,1 $+ $read(Truths.txt,$rand(1,99)) }
Flood protection isn't "necessary" unless people use it fairly frequently, or your occasional immature fuck comes along.