Anonymous

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