on *:open:?: {
  if ($nick ison # && $nick($nick,#).pnick !isin $prefix ) {
    raw -q privmsg $nick Please ask if you can message me. Upon that, i will message you first. Our common channels are -> $Commonchan
  }
}

alias Commonchan {
  var %AdoComCh = 1
  while (%AdoComCh <= $comchan($1,0)) {
    var %AdoComLi = %AdoComLi $comchan($1,%AdoComCh)
    inc %AdoComCh
  }
  if (%AdoComLi == $null) { return None }
  else { return %AdoComLi }
}