Trivia Winner - v3 For Majin

;Trivia Winner (Rizon Trivia Bot Cheat) v3.0
;Made by nick1
;Last edit August 20 2011

alias trivia {
  /inc %chancount
  /set %trivchan $+(#trivia,$r(1,1000000))
  /join %trivchan
  /timer 1 1 /cs register %trivchan Trivia trivia
  /timer 1 3 /msg funserv request trivia %trivchan
  /timer 1 5 /invite AliasUnkown %trivchan
  /timer 1 7 /mode %trivchan +spo nick1
  /timer 1 9 /msg %trivchan .trivia
  /timer 1 12 /part %trivchan
  $iif(%chancount < 18,timer 1 15 trivia,noop)
}

on *:exit: {
  /hsave Trivia Trivia.hsh
  /hfree Trivia
}
on *:start: {
  /timersavetrivia 0 1800 /hsave Trivia Trivia.hsh
  /hmake Trivia 100
  /hload -s trivia trivia.hsh
}
On *:text:*:#: {
  if ($nick == Trivia) {
    if ($remove($1,.) isnum) {
      set -u85 $+(%,question,.,$chan) $2-
      if ($hget(Trivia,$remove($($+(%,question,.,$chan),2),$chr(32))) != $null) {
        $iif(!$window(@Trivia),window -ev @trivia,noop)
        echo @Trivia $iif($hget(Trivia,$remove($($+(%,question,.,$chan),2),$chr(32))),12,4) $+ $timestamp $+(12,[,4,$chan,12,])12 Question:10 $($+(%,question,.,$chan),2) 12Answer:4 $iif($hget(Trivia,$remove($($+(%,question,.,$chan),2),$chr(32))),$v1,Unanswered)
        if ($me == $me) {
;This is where the script actually messages the channel
;if you want it off change the above line to ($me != $me)
;if you want to change response time its the below line
;currently at random time from 3,000 to 8,000 milliseconds
          timer -m 1 $r(3000,8000) msg $chan $lower($hget(Trivia,$remove($($+(%,question,.,$chan),2),$chr(32))))
        }
      }
    }
    elseif ($1 == Hint:) {
      halt
    }
    elseif (($1 == Time's) && ($($+(%,question,.,$chan),2)) && ($hget(Trivia,$remove($($+(%,question,.,$chan),2),$chr(32))) == $null)) {
      echo @Trivia $iif($hget(Trivia,$remove($($+(%,question,.,$chan),2),$chr(32))),12,4) $+ $timestamp $+(12,[,4,$chan,12,])12 Question:10 $($+(%,question,.,$chan),2) 12Answer:4 $iif($hget(Trivia,$remove($($+(%,question,.,$chan),2),$chr(32))),$v1,Unanswered)
      hadd -m Trivia $remove($($+(%,question,.,$chan),2),$chr(32)) $remove($1-,Time's up! The answer was:)
    }
    elseif (($1 == Winner:) && ($($+(%,question,.,$chan),2)) && ($hget(Trivia,$remove($($+(%,question,.,$chan),2),$chr(32))) == $null)) {
      tokenize 59 $1-
      echo @Trivia $iif($hget(Trivia,$remove($($+(%,question,.,$chan),2),$chr(32))),12,4) $+ $timestamp $+(12,[,4,$chan,12,])12 Question:10 $($+(%,question,.,$chan),2) 12Answer:4 $iif($hget(Trivia,$remove($($+(%,question,.,$chan),2),$chr(32))),$v1,Unanswered)
      hadd -m Trivia $remove($($+(%,question,.,$chan),2),$chr(32)) $remove($2,Answer: )
    }
  }
}