Quizz

on *:text:*indice*:#casa-quizz: {
  set %hint- [ $+ [ $nick ] ] $replace($strip($4),*,?)
  echo $color(notify text) -t # * [H] %hint- [ $+ [ $nick ] ]
  if ($len(%answer- [ $+ [ $nick ] ]) > 0) {
    .timer 1 3 msg # %answer- [ $+ [ $nick ] ]
    unset %answer- [ $+ [ $nick ] ]
  }
}

on *:text:15*:#casa-quizz: {
  var %query = $strip($2-)
  while ($right(%query, 1) isin .?) {
    %query = $left(%query, $calc($len(%query) - 1))
  }
  echo $color(notify text) -t # * [Q] %query
  %query = %query $+ *\*
  var %line = $read(questions.txt, w, %query)
  if (%line != $null) {
    tokenize 92 %line
    set %answer- [ $+ [ $nick ] ] $lower($2)
    echo $color(notify text) -t # * 00,04[A] 00,04 $2 
    ;.timer 1 0 msg # %answer- [ $+ [ $nick ] ]
  }
}