Something

alias ml {
  if ($1) {
    var %f = 1
    while (%f <= $comchan($me,0)) { 
      if ($comchan($me,%f) != $1) {
        msg $comchan($me,%f) [AMSG] $2-
        inc %f
      }
      else inc %f
    }
  }
}