Advertisement
illpastethat

Trivia Winner - v2

Apr 6th, 2011
494
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 1.77 KB | None | 0 0
  1. on *:exit: {
  2.   /hsave -o Trivia Trivia.hsh
  3.   /hfree Trivia
  4. }
  5. on *:start: /hload -s Trivia Trivia.hsh
  6. Off *:text:*:#: {
  7.   if ($nick == Trivia) {
  8.     if ($remove($1,.) isnum) {
  9.       if ($me != nick1) {
  10.         if ($readini(C:\Users\Adam\AppData\Roaming\mIRC\Trivia.ini,$remove($2-,$chr(32)),answer)) {
  11.           $iif(!$window(@Trivia),window @trivia,noop)
  12.           aline 4 @Trivia Auto Answer Used In $chan $+ ... Said: $readini(C:\Users\Adam\AppData\Roaming\mIRC\Trivia.ini,np,$remove($2-,$chr(32)),answer)
  13.           $iif($r(1,2) == 2,timer 1 $r(0,2) msg $chan $iif($replace($lower($readini(C:\Users\Adam\AppData\Roaming\mIRC\Trivia.ini,np,$remove($2-,$chr(32)),answer)),1,2,9,8,a,s,u,y,m,n,q,w,c,v) != $lower($readini(C:\Users\Adam\AppData\Roaming\mIRC\Trivia.ini,np,$remove($2-,$chr(32)),answer)),$replace($lower($readini(C:\Users\Adam\AppData\Roaming\mIRC\Trivia.ini,np,$remove($2-,$chr(32)),answer)),a,s,u,y,m,n,q,w,c,v),hmm i know this one),noop)
  14.           .timer 1 $r(3,6) msg $chan $lower($readini(C:\Users\Adam\AppData\Roaming\mIRC\Trivia.ini,np,$remove($2-,$chr(32)),answer))
  15.         }
  16.       }
  17.       set -u85 $+(%,question,.,$chan) $2-
  18.       writeini -n C:\Users\Adam\AppData\Roaming\mIRC\Trivia.ini $remove($($+(%,question,.,$chan),2),$chr(32)) Question on
  19.     }
  20.     elseif ($1 == Hint:) {
  21.       halt
  22.     }
  23.     elseif (($1 == Time's) && ($($+(%,question,.,$chan),2))) {
  24.       writeini -n C:\Users\Adam\AppData\Roaming\mIRC\Trivia.ini $remove($($+(%,question,.,$chan),2),$chr(32)) Answer $remove($1-,Time's up! The answer was:)
  25.     }
  26.     elseif (($1 == Winner:) && ($($+(%,question,.,$chan),2))) {
  27.       tokenize 59 $1-
  28.       writeini -n C:\Users\Adam\AppData\Roaming\mIRC\Trivia.ini $remove($($+(%,question,.,$chan),2),$chr(32)) Answer $remove($2,Answer: )
  29.     }
  30.   }
  31. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement