on *:JOIN:#:{
  set %join $+($left($1-,1),$left($1-,2),$left($1-,1),$left($1-,3),$left($1-,3))
  if (%join == [BB]) {
    mode $chan +v $nick
  }
}