# Pastebin Xo54CgfF
alias globalmsg {
  if ($istok($1-,-c,32)) {
    var %tochans = $gettok($1-,$calc($findtok($1-,-c,1,32) + 1),32)
    tokenize 32 $remove($1-,-c,%tochans)
  }
  var %x = $scon(0)
  while (%x) {
    scon %x
    if (!%tochans) {
      amsg $iif($1 != -n, $+($chr(03),03,GLOBAL MSG,$chr(03),15,:) $1-, $2-)
    }
    elseif (%tochans) {
      var %t = $numtok(%tochans,44)
      if (%t > 1) {
        while (%t) {
          var %s = $gettok(%tochans,%t,44)
          if ($me ison %s) {
             msg %s $iif($1 != -n, $+($chr(03),03,%tochans GLOBAL MSG,$chr(03),15,:) $1-, $2-)

          }
          dec %t
        }
      }
      if (%t == 1) {
        if ($me ison %tochans) {
          var %realtochans = %tochans
        }
      }


    }
    dec %x
  }
}

alias globaldesc {
  if ($istok($1-,-c,32)) {
    var %tochans = $gettok($1-,$calc($findtok($1-,-c,1,32) + 1),32)
    tokenize 32 $remove($1-,-c,%tochans)
  }
  var %x = $scon(0)
  while (%x) {
    scon %x
    if (!%tochans) {
      ame $iif($1 != -n, $+($chr(03),03,GLOBAL MSG,$chr(03),15,:) $1-, $2-)
    }
    elseif (%tochans) {
      var %t = $numtok(%tochans,44)
      if (%t > 1) {
        while (%t) {
          var %s = $gettok(%tochans,%t,44)
          if ($me ison %s) {
           describe %realtochans $iif($1 != -n, $+($chr(03),03,%tochans GLOBAL MSG,$chr(03),15,:) $1-, $2-)

          }
          dec %t
        }
      }
      if (%t == 1) {
        if ($me ison %tochans) {
          var %realtochans = %tochans
        }
      }

    }
    dec %x
  }
}