Code:
on ^!*:join:#:{
  if %join.clone.scan == on && $len($nick) > 2 {
    var %x_match = ( $+ clone $+ $iif($ialchan($address($nick,2),#,0) > 1,s) $+ :
    var %x = $ialchan($address($nick,2),#,0) , %nicks
    if (%x > 1) { 
      while (%x) { %nicks = $addtok(%nicks,$ialchan($address($nick,2),#,%x).nick,44) | dec %x }
    }
    %xnicks = $replace(%nicks,$chr(44),$chr(44) $+ $char(32)) $+ )
    if $me !isin %xnicks {
      echo -ltc join # * $nick ( $+ $address $+ ) has joined # 5 $+ $iif( $ialchan($address($nick,2),#,0) > 1 , %x_match %xnicks )
      haltdef
    }
  }
}