set rejoindelay 10
set bandelay 1
set banmask 5
set ard_reason "Auto-Rejoin-Script detected \0031\002(\003\002Rejoin-Delay [duration $rejoindelay] \0031\002~\003\002 Banned for [duration $bandelay]\0031\002)\003\002"

bind KICK * autorejoin:kick
proc autorejoin:kick {nick uhost hand chan targ reas} {
  global set autorejoin($nick) [clock seconds]
}

bind JOIN * autorejoin:join
proc autorejoin:join {nick uhost hand chan} {
  global autorejoin
  global bandelay banmask
  if ([expr [clock seconds] - $autorejoin($nick)] < $rejoindelay) { return }
  switch $banmask { 
    1 { set bm $nick!*@* }
    2 { set bm *![lindex [split $uhost "@"] 0]@* }
    3 { set bm *!*@[lindex [split $uhost "@"] 1] }
    4 { set bm $nick![lindex [split $uhost "@"] 0]@* }
    5 { set bm *!$uhost }
    6 { set bm $nick!$uhost }
    default { set bm *!$uhost }
  }
  newchanban "$chan" "$bm" "norejoin" "$reason" "$bandelay" 
}