--------------- CHAN BLACKLIST ------------------------------------------------

alias cbl {
  dialog -ma cbl cbl
}
alias abl {
  if ($1 == $null) {
    if ($readini(cbl.ini,chans,$chan) == $null) {
      writeini cbl.ini chans $chan $chan
    }
  }
  elseif ( $left($1,1) == $chr(35)) {
    if ($readini(cbl.ini,chans,$1) == $null) {
      writeini cbl.ini chans $1 $1
    }
  }
  else {
    if ($readini(cbl.ini,chans,$chr(35) $+ $1) == $null) {
      writeini cbl.ini chans $chr(35) $+ $1 $chr(35) $+ $1
    }
  }
}
dialog cbl {
  title "BLIST"
  size -1 -1 73 40
  option dbu
  text "AlternativeNick", 1, 130 57 30 5
  check "Add Channels on Kick", 4, 6 3 65 10
  text "Kicks Before Added", 5, 4 14 46 8
  edit "", 6, 54 13 13 10
  button "Close", 7, 43 25 27 12, ok
  button "Channels", 2, 3 25 37 12
}
dialog viewbadchannelsthingy {
  title "BChan"
  size -1 -1 76 90
  option dbu
  list 1, 2 1 71 73, size
  button "Add", 2, 38 75 34 12
  button "Remove", 3, 2 75 34 12
}
on *:DIALOG:cbl:init:*:{
  did -a $dname 6 $readini(cbl.ini,setup,kicklimit)
  if ($readini(cbl.ini,setup,kick) == 1) { did -c $dname 4 }
}
on *:DIALOG:cbl:sclick:2:{
  dialog -ma viewbadchannelsthingy viewbadchannelsthingy
}
on *:DIALOG:cbl:close:*:{
  writeini cbl.ini setup kicklimit $did($dname,6).text
  writeini cbl.ini setup kick $did($dname,4).state
}
on *:DIALOG:viewbadchannelsthingy:init:*:{
  var %i = 0
  while (%i < $ini(cbl.ini,chans,0)) {
    inc %i 1
    did -a $dname 1 $readini(cbl.ini,chans,$ini(cbl.ini,chans,%i))
  }
}
on *:DIALOG:viewbadchannelsthingy:sclick:2:{
  .echo -q $$?="Channel to Add"
  if ( $left($!,1) == $chr(35)) {
    if ($readini(cbl.ini,chans,$!) == $null) {
      writeini cbl.ini chans $! $!
      did -a $dname 1 $!
    }
  }
  else {
    if ($readini(cbl.ini,chans,$chr(35) $+ $!) == $null) {
      writeini cbl.ini chans $chr(35) $+ $! $chr(35) $+ $!
      did -a $dname 1 $chr(35) $+ $!
    }
  }
}
on *:DIALOG:viewbadchannelsthingy:sclick:3:{
  if ($did($dname,1).seltext != $null) {
    var %var = $did(viewbadchannelsthingy,1).seltext
    did -d viewbadchannelsthingy 1 $ini(cbl.ini,chans,%var)
    remini cbl.ini chans %var
  }
}
on *:KICK:#:{
  if ($knick == $me) && ($readini(cbl.ini,setup,kick) == 1) {
    writeini cbl.ini kicks $chan $calc($readini(cbl.ini,kicks,$chan) + 1)
    if ($readini(cbl.ini,kicks,$chan) >= $readini(cbl.ini,setup,kicklimit)) {
      writeini cbl.ini chans $chan $chan
      remini cbl.ini kicks $chan
    }
  }
}
on *:JOIN:#:{
  if ($nick == $me) {
    if ($readini(cbl.ini,chans,$chan) != $null) {
      part $chan 4Channel Blacklisted
      msg #erabot 1|Part|4 Blacklist 1-4 $chan 
      halt
    }
  }
}
on *:INVITE:#:{
  if ($readini(cbl.ini,chans,$chan == $null)) {
    join $chan
  }
  else {
    halt
  }
}
on *:TEXT:!abl *:#:{
  writeini cbl.ini chans $iif($2 == $null,$chan $chan,$chr(35) $+ $remove($2,$chr(35)) $chr(35) $+ $remove($2,$chr(35)))
  remini cbl.ini kicks $iif($2 == $null,$chan,$chr(35) $+ $remove($2,$chr(35))))
} 

--------------------- END CHAN BLACKLIST ----------------------------------------------------------------------------


#################################################################################################################
#################################################################################################################
######################################### The Ultimate Trivia Script ############################################
#################################################################################################################
#################################################################################################################

;TUTS Information

;Made by Eragonj
;Last Update: Sunday, December 03, 2006
;Lines Long: 161
;Copyright (C) 2006 Eragonj All Rights Reserved
;Do not use without Eragonj's permission!

;Files:
;Staff List: triviastaff.txt
;Question List: tqs.txt

########################################### TUTS BEGIN ##########################################################


------------------------------------------------- Turn On -------------------------------------------------------

on *:text:!triviaon:#:{
  if ($chan != #erabot) { notice $nick 12Error4 Trivia 1-12 Trivia is temporarily disabled - Reason:4 Polishing & Testing | halt
  }
  else {
    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
} } }


------------------------------------------------- Turn Off ------------------------------------------------------

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.
    unset %trivia.status [ $+ [ $chan ] ]
    unset %trivia.chan [ $+ [ $chan ] ]
    unset %trivia.hint.1 [ $+ [ $chan ] ]
    unset %trivia.hint.2 [ $+ [ $chan ] ]
    unset %trivia.hint.3 [ $+ [ $chan ] ]
    timertrivia $+ $chan off
    timertrivia2 $+ $chan off
    timertrivhi $+ $chan off
    timertrivhi2 $+ $chan off
} }

------------------------------------------------- Add Question --------------------------------------------------

on *:text:!atq*:#:{ if ($read(triviastaff.txt,w,$nick)) {
    write tqs.txt $2-
    notice $nick The Question*Answer; $2- ;Has Been Added To The Question List
  }
  else {
    notice $nick 12Trivia 4Error 1-12 You are not a 4Trivia Staff Member12.
} }

-------------------------------------------- Trivia Information -------------------------------------------------

on *:text:!trivinfo:#:{ if (!$read(triviastaff.txt,w,$nick)) {
    notice $nick 12Your staff status is being checked. 4Please hold...
    timer 1 6 notice $nick 12Your staff status has been 4declined12.
  }
  else {
    notice $nick 12Your staff status is being checked. 4Please hold...
    timer 1 6 notice $nick 12Your staff status has been 4approved12. 4Please wait for the list to be retrieved...
    timer 1 10 notice $nick 1| Trivia Information |
    timer 1 10 notice $nick 12Commands:4 !trivcomms
    timer 1 10 notice $nick 12Script:4 Made by Eragonj
    timer 1 10 notice $nick 12Last Updated:4 Tuesday, December 26rd, 2006
    timer 1 10 notice $nick 12 $+ $chr(35) Of Questions:4 $lines(tqs.txt)
    timer 1 10 notice $nick 12 $+ $chr(35) Of Trivia Staff:4 $lines(triviastaff.txt)
} }

------------------------------------------------- Commands List -------------------------------------------------

on *:text:!trivcomms:#:{ if (!$read(triviastaff.txt,w,$nick)) {
    notice $nick 12Your staff status is being checked. 4Please hold...
    timer 1 6 notice $nick 12Your staff status has been 4declined12.
  }
  else {
    notice $nick 12Your staff status is being checked. 4Please hold...
    timer 1 6 notice $nick 12Your staff status has been 4approved12. 4Please wait for the list to be retrieved...
    timer 1 10 notice $nick 1| Trivia Command List |
    timer 1 10 notice $nick 12Add A User:4 !addts Nick 12( Op #EraBot/#TAOMB )
    timer 1 10 notice $nick 12Delete A User:4 !delts Nick 12( Op #EraBot/#TAOMB )
    timer 1 10 notice $nick 12Command Lists:4 !trivcomms
    timer 1 10 notice $nick 12Information:4 !trivinfo
    timer 1 10 notice $nick 12Add Question:4 !atq Question*Answer
} }

--------------------------------------------- Add Staff Member --------------------------------------------------

on *:text:!addts*:#:{
  if ($nick isop #EraBot) {
    if ($read(triviastaff.txt,w,$2)) {
      notice $nick 12Trivia 4Error 1-12 The nickname4 $2 12is already 4in12 the4 Trivia Staff File12.
    }
    else {
      if (!$read(triviastaff.txt,w,$2)) {
        write triviastaff.txt $2
        notice $nick 12The nickname4 $2 12has successfully been 4added12 to the4 Trivia Staff File12.
} } } }

--------------------------------------------- Delete Staff Member -----------------------------------------------

on *:text:!delts*:#:{
  if ($nick isop #EraBot) {
    if (!$read(triviastaff.txt,w,$2)) {
      notice $nick 12Trivia 4Error 1-12 The nickname4 $2 12is already 4not in12 the4 Trivia Staff File12.
    }
    else {
      if ($read(triviastaff.txt,w,$2)) {
        write -dw $+ $2 triviastaff.txt
        notice $nick 12The nickname4 $2 12has successfully been 4added12 from the4 Trivia Staff File12.
} } } }

------------------------------------------------- Random Hint Alias ---------------------------------------------

alias randhint {
  var %x .8 * $len($1),%y $1
  while (.8 < %x) dec %x $regsub(%y,(.{ $+ $r(0,950) $+ })[^_],\1_,%y)
  return %y
}

------------------------------------------ Question & Hint Run-Through ------------------------------------------

alias aliasstrivia {
  :trivs
  set %trivia.chan [ $+ [ $chan ] ] $chan
  .timertrivia $+ $chan 1 110 msg %trivia.chan [ $+ [ $chan ] ] 7Time is up!2 Answer:4 %trivia.qa [ $+ [ $chan ] ]
  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 ] ] $+ 
  .timertrivia2 $+ $chan 1 110 goto :trivs
}

.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 ] ]

----------------------------------------- Right Checker & Win Tracker -------------------------------------------

on *:text:*:#:{
  if (%trivia.status [ $+ [ $chan ] ] == on) {
    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
} } }

############################################ TUTS ENDS ##########################################################