Someone

alias testitl {
  var %x = 1, %names = $regsubex($str(.,$nick(#thetitans,0,voh)),/./g,$nick(#thetitans,\n,voh) $chr(32))
  while (%x < $chan(0)) {
    var %namesout, %namesloop = 0
    while (%namesloop < $nick($chan(%x),0)) {
      if (($istok(%names,$nick($chan(%x),%namesloop),32)) && ($nick($chan(%x),%namesloop) != $me)) {
        var %namesout = $addtok(%namesout,$nick($chan(%x),%namesloop), 32)
      }
      inc %namesloop
    }
    if ($len(%namesout) != 0) {
      .msg + $+ $chan(%x) %namesout
    }
    inc %x
  }
}