Evaluated proc trivia {{cat science}} { if {[trigger_status trivia] == 0} {. 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 [strip_html [second $re]]}