# This automatically joins on a channel when you are kicked from it.

# Source: Written by Wizzu <Mikko.Hanninen@hut.fi>, based on the version
#         from the Death script
# Date: 23rd Nov 1995
# Modified: 14-Mar-1996, changed // to ${K}${K}
# Modified: 8-Jun-1996, added "safety catch" and /autorejoin control alias

on -raw_irc "% KICK *" if ([$norejoin]==[]) {
  ^assign kick_chan $strip(: $2)
  if ([$3] == [$N]) {
    ^timer 2 eval echo ### Rejoining $kick_chan automatically. Use ${K}norejoin to disable auto-rejoin.
    ^timer 3 ${K}${K}join $kick_chan
  }
}

alias autorejoin {
  if ([$0]) {
    if ([$0]==[ON]) {
      ^assign -norejoin
      eval xecho -level crap ### Auto-rejoin on kick enabled. Use ${K}autorejoin OFF to disable.
    } {
      if ([$0]==[OFF]) {
        ^assign norejoin ON
        eval xecho -level crap ### Auto-rejoin on kick disabled. Use ${K}autorejoin ON to enable.
      } {
        eval xecho -level crap ### Usage: ${K}rejoin ON to enable or ${K}autorejoin OFF to disable.
      }
    }
  } {
    if ([$norejoin]) {
      eval xecho -level crap ### Auto-rejoin on kick is disabled. Use ${K}autorejoin ON to enable.
    } {
      eval xecho -level crap ### Auto-rejoin on kick is enabled. Use ${K}autorejoin OFF to disable.
    }
  }
}
alias norejoin autorejoin off
alias rejoinon autorejoin on
alias rejoinoff autorejoin off

eval xecho -level crap ### Auto-rejoin on kick by Wizzu, 8-Jun-1996.