on *:text:*:#opers,#kanal,%bilgikanal: {
  if $regex($1,/[!.]seslen/i) {
    var %:cc 1 
    while %:cc <= $nick(#,0) { 
      if !$istok(Subzero Nomercy,$nick(#,%:cc),32) {
        .set %:ccc $iif(%:ccc,%:ccc $+ $chr(32) $+ $nick($chan,%:cc),$nick(#,%:cc)) 
      }
      inc %:cc 
    }     
    msg # %:ccc 
    .unset %:ccc 
  }
}