Era Trivia Script *U

on *:text:!triviaon:#:{
  if (%trivia.status [ $+ [ $chan ] ] == on) {
    notice $nick 12Trivia 4Error 1-12 Trivia is 4already running12 in4 $chan $+ 12! | halt
  }
  else {
    set %trivia.chan [ $+ [ $chan ] ] $chan
    set %trivia.status [ $+ [ $chan ] ] on
    msg $chan 12Trivia has been turned 4on12 by4 $nick $+ 12! If you want it 4off12 please type4 "!triviaoff"12.
    aliasstrivia
} }

on *:text:!triviaoff:#:{
  if (%trivia.chan [ $+ [ $chan ] ] == off || %trivia.chan [ $+ [ $chan ] ] == $null) {
    notice $nick 12Trivia 4Error 1-12 Trivia is already 4off12 in4 $chan $+ 12! | halt
  }
  else {
    msg $chan 12Trivia has been turned 4off12 by4 $nick $+ 12! If you want it 4on12 please type4 "!triviaon"12.
    set %trivia.status [ $+ [ $chan ] ] off    
    unset %trivia.chan [ $+ [ $chan ] ]
    unset %trivia.hint.1 [ $+ [ $chan ] ]
    unset %trivia.hint.2 [ $+ [ $chan ] ]
    unset %trivia.hint.3 [ $+ [ $chan ] ]
} }
on *:text:!atq*:#:{ if ($nick isop #TAOMB) {
    write tqs.txt $2-
    notice $nick The Question*Answer; $2- ;Has Been Added To The Question List
} }
alias randhint {
  var %x .8 * $len($1),%y $1
  while (.8 < %x) dec %x $regsub(%y,(.{ $+ $r(0,950) $+ })[^_],\1_,%y)
  return %y
}
alias aliasstrivia {
  set %trivia.q [ $+ [ $chan ] ] $gettok($read(tqs.txt),1,42)
  set %trivia.qa [ $+ [ $chan ] ] $gettok($read(tqs.txt,$readn),2,42)
  set %trivia.hint.1 [ $+ [ $chan ] ] $randhint($gettok($read(tqs.txt,$readn),2,42)) $+ 
  set %trivia.hint.2 [ $+ [ $chan ] ] $randhint($gettok($read(tqs.txt,$readn),2,42)) $+ 
  set %trivia.hint.3 [ $+ [ $chan ] ] $randhint($gettok($read(tqs.txt,$readn),2,42)) $+ 
  msg %trivia.chan [ $+ [ $chan ] ] 4 $+ $readn $+ 7.12 %trivia.q [ $+ [ $chan ] ] $+ 
  msg %trivia.chan [ $+ [ $chan ] ] 12Random Hint:4 %trivia.hint.1 [ $+ [ $chan ] ] $+ 
  .timertrivhi $+ $chan 1 30 msg %trivia.chan [ $+ [ $chan ] ] 12Random Hint:4 %trivia.hint.2 [ $+ [ $chan ] ] $+ 
  .timertrivhi2 $+ $chan 1 60 msg %trivia.chan [ $+ [ $chan ] ] 12Random Hint:4 %trivia.hint.3 [ $+ [ $chan ] ] $+ 
  .timertrivia $+ $chan 1 110 msg %trivia.chan [ $+ [ $chan ] ] 12Trivia has been turned 4off12 due to 4innactivity12.
  .timertrivia2 $+ $chan 1 50 unset %trivia.chan [ $+ [ $chan ] ]
  .timertrivia3 $+ $chan 1 50 set %trivia.status [ $+ [ $chan ] ] off
  .timertrivia4 $+ $chan 1 50 unset %trivia.hint.1 [ $+ [ $chan ] ]
  .timertrivia5 $+ $chan 1 50 unset %trivia.hint.2 [ $+ [ $chan ] ]
  .timertrivia6 $+ $chan 1 50 unset %trivia.hint.3 [ $+ [ $chan ] ]
}
on *:text:*:#:{
  if (%trivia.status [ $+ [ $chan ] ] == on) {
    if $timer($+(trivia,$chan)) {
      if (%trivia.qa [ $+ [ $chan ] ] iswm $1-) {
        inc %trivia.win [ $+ [ $nick ] ] 1
        msg $chan 1|Winner| 1-12 Nick:4 $nick 1- 12Answer:4 %trivia.qa [ $+ [ $chan ] ] 1-12 $nick $+ 's Wins:4 %trivia.win [ $+ [ $nick ] ] 1-
        .timertrivhi $+ $chan off
        aliasstrivia
} } } }