alias automsg {
  if ($nick == $me) { 
    Var %x = 1, %y = $Chan(0)
    Var %z = #chan1,#chan2,#chan3,#chan4
    While (%x <= %y) {
      If ($Chan(%x) !isin %z) {
        Msg $Chan(%x) $2-
      }
      Inc %x
    }
  }
}