Unnamed

if ($comchan(%::nick,0) > 0) {
  var %i = 1
  while ($comchan(%::nick,%i)) {
    var %t = $addtok(%t,$+($regsubex($nick($v1,%::nick).pnick,/(?!(?<=^)[~&@%+])./g,),$v1),44), %regex $+(/(?<=^| )[~&@%+]*\Q,$v1,\E(?=$| )/i)
    set -nu %::chan $regsubex(%::chan,%regex,)
    inc %i
  }
}