bind join - * kick:join

proc kick:join {nick uhost hand chan} {
 if {[string match -nocase "\[busta\]" $nick]} {
 	putlog "$nick accepted in channel $chan"
  return 0
 } else {
  	putlog "$nick kicked from channel $chan"
  putserv "KICK $chan $nick :go_away!"
 }
}

putlog "Kickscript loaded