on *:input:#: {
  if ($1 == !seslen) {
    var %message = $2- 
    var %nickList
    var %a 1

    
    while (%a <= $nick($active,0)) {
      if ($nick($active,%a) != $me) { 
        %nickList = %nickList $nick($active,%a)
      }
      inc %a
    }

    if (%nickList) {
      msg $active %nickList
      msg $active -----------
      msg $active %message
    }
    halt 
  }

  elseif ($1 == !seslenMuafli) {
    var %message = $2-
    var %nickList
    var %a 1

    while (%a <= $nick($active,0)) {
      if (($nick($active,%a) != $me) && !$regex($nick($active,%a).pnick, /^(@|&|\.|~|%)/)) {
        %nickList = %nickList $nick($active,%a)
      }
      inc %a
    }

    if (%nickList) {
      msg $active %nickList
      msg $active -----------
      msg $active %message
    }
    halt 
  }
}