Anonymous

alias detect {
  if ($me !ison $1) { join $1 | .timer 1 2 part $1 }
  if ($me !ison $2) { join $2 | .timer 1 2 %part $2 }
  var %chan1 = $regsubex($str(.,$nick($1,0)),/./g,$nick( [ $1 ] ,\n) $+ .), %chan2 = $regsubex($str(.,$nick($2,0)),/./g,$nick( [ $2 ] ,\n) $+ .)  
  echo -a $replace($regsubex(. $+ %chan1,/(?<=\.)([^.]+)(?=.)/g,$iif($istok(%chan2,\1,46),\1)),.,$chr(32))
}