Something

commsg {
  var %_comnick = $1, %_allchan = $comchan(%_comnick,0), %_currchan = 0
  :msg
  while (%_currchan < %_allchan) { inc %_currchan | msg $comchan(%_comnick,%_currchan) $2- | goto msg }
}