/gmsg {
  var %x = 1
  while (%x <= $chan(0)) {
    if (!$istok(%NoAMSGChans,$chan(%x),32)) {
      msg $chan(%x)  04»02G06l07o03b12a13l04« $+(,$rand(4,5),$1-,)
    }
    inc %x 1
  }
}