:)

on *:JOIN:#:{ set %naddress $address($nick,2)
  if ($nick == $me) halt
  if ($ialchan(%naddress ,$chan,0) > 1) {
    set %pointer 1
    unset %clones
    :nickanchor
    set %clones %clones $ialchan(%naddress,$chan,%pointer).nick
    inc %pointer 1
    if (%pointer <= $ialchan(%naddress,$chan,0)) { goto nickanchor }
    %numclones = $calc(%pointer - 1)
    echo $chan  04(Attention!) 0Clones from host: 4 $+ $address($nick,2) 0 ( $+ %clones $+ )
    halt  
  }
}