Untitled

[script]

; ignore hints and remembers
on 1:text:$(*hint*):#trivia:halt
on 1:text:$(*Remember*):#trivia:halt

; this line contains an answer
on 1:text:$(*The answer was *):#trivia: {
  if (%answer == $null) {
    %someBlueText = $calc($pos($1-,10,0))
    if (%someBlueText != 0) {
      ;nobody got the answer
      %astart = $calc($pos($1-,04,1)+3)
      %afinish = $calc($pos($1-,10,3))
      %alength = $calc((%afinish)-(%astart))
      %answer = $lower($mid($1-,%astart,%alength))
      /write answers.txt %qnum %answer
      /write output.txt I now know $lines(answers.txt) answers
    } 
    %somePurpleText = $calc($pos($1-,06,0))
    if (%somePurpleText != 0) {
      ;somebody got the answer
      %astart = $calc($pos($1-,04,2)+3)
      %afinish = $pos($1-,06,3)
      %alength = $calc((%afinish)-(%astart))
      %answer = $lower($mid($1-,%astart,%alength))
      /write answers.txt %qnum %answer
      /write output.txt I now know $lines(answers.txt) answers
    }
  }
}

; if line contains a question
on 1:text:$(*===== Question *):#trivia: {
  %qnum = $3
  %answer = $read(answers.txt, s, %qnum)
  %length = $len(%answer)
  %fastresponse = $int($calc(%length / 4)) + 4
  %slowresponse = $int($calc(%length / 4)) + 8
  %trim = $left(%answer,$len(%answer)-1)

  ; if we know the answer
  if (%answer != $null) {
    %rnd = $rand(0,10)
    ; write the answer 20% of the time
    if %rnd >= 8 {
      /timer1 1 $rand(%fastresponse,%slowresponse) /msg #trivia $left(%answer,$calc($len(%answer)-0))
    }
    else {
      /write output.txt The answer to question %qnum is $left(%answer,$calc($len(%answer)-0))
    }
  }
}