Evaluated proc trivia {{cat science}} { if {[trigger_status trivia] == 0} {return "turn trivia on first"}; set trivia_last [clock seconds]; set re [regexp -inline {<td align="left">(.+?)</td>\n\t\t\t<td align="left">(.+?)</td>} [wget http://www.randomtriviagenerator.com/$cat.php]]; set ::trivia_answer [third $re]; set ::trivia_question [second $re]}