alias nxtq {
  inc %i
  set %base $read(q.txt)
  set %q $token(%base,1,38)
  set %ans $token(%base,2,38)
  msg #zzz $+($c1(%i),$c2(..),%q)
  timerQues 1 10 msg # You failed to find the answer in time, it was %ans $+ ! 
  timerQuesi 1 10 nxtq
}

alias halttriv {
msg # $me has stopped the trivia.
  timerques* off 
}

on $*:text:/^[!@](answer)/Si:#:{
  if ($2- = %ans) { msg # Well done $+($nick,!) You got it correct, the answer was $+(%ans,!) | timerQues* off | nxtq }
  else { msg # Sorry $nick Thats an incorrect answer! }
}