Trivia Bot

on *:text:!trivia:#clockcrewtrivia:{ /set %triviamode 1 | {
    /set %trivia.rand $rand(1, [ $+ [ %questions [ $+ ] ] ] ) | /set %timerhint3 0 | 
    :one
    { msg #clockcrewtrivia Question [ %trivia.rand [ $+ [ / [ $+ [ %questions ] ] ] ] ] | msg #clockcrewtrivia $chr(2) $+ Question $+ $chr(2) $+ : %question. [ $+ [ %trivia.rand ] ]
      } /timerhint1 0 20 { 
      msg #clockcrewtrivia $chr(2) $+ Hint One $+ $chr(2) $+ : %question [ $+ [ %trivia.rand [ $+ [ .h1 ] ] ] ] | /timerhint2 0 20 { 
        msg #clockcrewtrivia $chr(2) $+ Hint Two $+ $chr(2) $+ : %question [ $+ [ %trivia.rand [ $+ [ .h2 ] ] ] ] | /timerhint3 0 20 {
          msg #clockcrewtrivia $chr(2) $+ Hint Three $+ $chr(2) $+ : %question [ $+ [ %trivia.rand [ $+ [ .h3 ] ] ] ] | /timerhint4 0 20 { if ( %timerhint3 < 5 ) {
              msg #clockcrewtrivia Time's up. The answer was %answer. [ $+ [ %trivia.rand ] ] | unset %trivia.rand | inc %timerhint3 1 | set %trivia.rand $rand(1, [ $+ [ %questions [ $+ [ ) ] ] ] ] 
            | /timerhint4 off } else { msg #clockcrewtrivia It seems no one is alive. The bot is now automatically shutting down. Type $chr(2) $+ !trivia $+ $chr(2) to start a new game. | /dec %triviamode 1 | /timerhint4 off }
          }
        | /timerhint3 off }
      | /timerhint2 off }
    | /timerhint1 off } if ( %timerhint3 < 5 ) { goto one } else { unset %timerhint3 }
  }
}

on *:text:*:#clockcrewtrivia:{ if ( %triviamode == 1 ) {
    if ( $1- == %answer. [ $+ [ %trivia.rand ] ] ) {
      inc %score. [ $+ [ $nick ] ] | msg #clockcrewtrivia The correct answer was $chr(2) $+ %answer. [ $+ [ %trivia.rand [ $+ [ . ] ] ] ] $nick was the first (if not only) to get it right. $nick now has %score. [ $+ [ $nick ] ] points. | goto one
    }
  } else halt
}

on *:text:~stat:#clockcrewtrivia:{ if ( %score. [ $+ [ $nick ] ] != $null ) {
msg #clockcrewtrivia $nick $+ , your score is %score. [ $+ [ $nick [ $+ [ . ] ] ] ]
} else msg #clockcrewtrivia I'm sorry, $nick $+ , but your nick is not in my database.
}