Stuff

Ctcp 100:*:*:{
  if ( $1 == comeinplease ) { 
    join $2
    inc %triviachannels
    msg $2 7,1W10,1elcome to ShockServ Trivia! To begin the game type .trivia! 
    msg $2 7,1W10,1hen you are done type 6,1.10,1done and to stop the trivia type 6,1.10,1strivia 
    timertr [ $+ [ %triviachannels ] ] 1 150 part $2 If you would like to continue type .shocktrivia
  }
}
on *:TEXT:*:#:{
  if ($chan != #shockserv) && ($chan != #shockserv-staff) && ($left($nick,5) != Shock) && ($nick !ison #shockserv-staff) {
    triviachannelsearch $chan
  }
}
on *:PART:#:{
  if ($nick != $me) {
    if ($chan != #shockserv) && ($chan != #shockserv-staff) && ($left($nick,5) == Shock) && ($nick ison #shockserv-staff) {
      part $chan Sorry, your channels bot has left. You may not do trivia without the bot.
      triviachannelsearch.2 $chan
      set %dontdecrease. $+ $chan on
      .timer 1 2 dec %triviachannels
      .timer 1 4 unset %dontdecrease. $+ $chan
    }
  }
  elseif ($nick == $me) && (%dontdecrease. [ $+ [ $chan ] ] != on) dec %triviachannels
}

alias triviachannelsearch { 
  var %tcs 1 
  while (%tcs <= %triviachannels) { 
    if ($chan(%tcs) == $1) {
      timertr [ $+ [ %tcs ] ] off
      timertr [ $+ [ %tcs ] ] 1 150 part $1 If you would like to continue type .shocktrivia
      halt
    }
    else inc %tcs
  }
}

alias triviachannelsearch.2 { 
  var %tcs2 1 
  while (%tcs2 <= %triviachannels) { 
    if ($chan(%tcs2) == $1) {
      timertr [ $+ [ %tcs2 ] ] off
      halt
    }
    else inc %tcs2
  }
}