on 1:join:#:{
  ;A simple clone detector by JesseR.  Thanks to ThunderHeart for telling me to make one.
  unset %i %numclones %clonelist
  set %numclones $ialchan( [ *!*@ $+ [ $site ] ] ,$chan,0))
  if ( %numclones < 2 ) { halt }
  :loop
  inc %i
  if ( %i > %numclones ) { goto done }
  set %clone $ialchan( [ *!*@ $+ [ $site ] ] ,$chan,%i))
  set %clone $gettok(%clone,1,$asc(!))
  set %clonelist %clonelist %clone
  goto loop
  
  :done
  echo 12 $chan Clones detected from $site $+ :1 %clonelist
}