Anonymous

      while %x <= $scid(0) {
        scid %x
        var %i = 1
        while (%i <= $chan(0)) {
          var %c = 1
          while (%c <= $lines($_doc(MP3Advertise))) {
            if ($gettok($read($_doc(MP3Advertise), %c),1,42) = $chan(%i)) && ($gettok($read($_doc(MP3Advertise), %c),2,42) = $network) && ($me ison $chan(%i)) {
              scid %x describe $chan(%i) $iif($cwc(MP3,AdvMsg) = predefined,$fmod_advstring(1),$fmod_advstring(2))
            }
            inc %c
          }
          inc %i
        }