/bmsg {
  %except = #feds,#feds.staff,#feds.scripting,#booze/narcs.dm,#translation,#translation.nl,#crew,#services,#oper,#crew.irc,#crew.oper,#crew.services,#help.irc,#omerta,#omerta.nl,#usergroup,#ug.members,#ug.meeting
  %n = $chan(0)
  %i = 1
  while ( %i <= %n ) {
    if ( $chan(%i) !isin %except ) {
      /msg $chan(%i) $1-
    }
    /inc %i
  }
}
/bme {
  %except = #feds,#feds.staff,#feds.scripting,#booze/narcs.dm,#translation,#translation.nl,#crew,#services,#oper,#crew.irc,#crew.oper,#crew.services,#help.irc,#omerta,#omerta.nl,#usergroup,#ug.members,#ug.meeting
  %n = $chan(0)
  %i = 1
  while ( %i <= %n ) {
    if ( $chan(%i) !isin %except ) {
      /describe $chan(%i) $1-
    }
    /inc %i
  }
}