Mine

Alias TriviaOff {
  msg $1 $logo $c1(No one has answered the question in) $c2(60) $c1(seconds. Here is a new question)
  Trivia $1
}
Alias TriviaYes {
  Trivia $1
  writeini Trivia.ini $network $1 $+ Ttl $calc($readini(Trivia.ini,$network,$1 $+ Ttl) + 1 )
  writeini Trivia.ini $network $1 $+ $address($2,3) $calc($readini(Trivia.ini,$network,$1 $+ $address($2,3)) + 1 )
  .timer $+ Trivia1 $+ $1 off
  msg $1 $logo $c1(Correct answer) $c2($2) $c3(-) $c1(You have won) $&
    $c2($floor($calc(  $readini(Trivia.ini,$network,$1 $+ $address($2,3))/$readini(Trivia.ini,$network,$1 $+ Ttl) * 100)) $+ %) $c1(of the games)
}
Alias Trivia {
  .timer $+ Trivia1 $+ $1 1 60 TriviaOff $1
  writeini Trivia.ini $network $1 $+ Question $read(Trivia.txt)
  writeini Trivia.ini $network $1 $+ Status On
  writeini Trivia.ini $network $1 $+ Answer $gettok($readini(Trivia.ini,$network,$1 $+ Question),2,124)
  .timer 1 1 msg $1 $c1($gettok($readini(Trivia.ini,$network,$1 $+