alias qask { 
set %var $rand(1,5) 
msg $1 Question $read(Questions.txt,s,%var) 
set %answer $read(Answers.txt,s,%var)
}

on *:text:*:#: { 
if ($nick = Ascended_PK) && ($1 == !trivia) { 
.timer 1 1 qask $chan
}
if ($1 == %answer) { msg $chan $nick got it right! }
}