alias 1amsg {
  if (!$isid && $server) {
    var %x = $comchan($me,0)
    var %c = $nick($comchan($me, %x),0)
    while (%x) {
      if (!$istok(#mSL #IRChelp #Help #stats #bot, $comchan($me,%x), 32)) {
        if ($me == stonedbot) echo $comchan($me, %x) worked $comchan($me, %x)
        else {
          while (%c) {
            if ($regex($nick($comchan($me, %x),%c),/^(\[..\])?stonedbot$/i) && $nick($comchan($me, %x),%c) != $me) set %a active
            dec %c
            if (!%a && !%c) { echo $comchan($me, %x) worked. $comchan($me, %x) }
            unset %a
          } 
        }
      }
      dec %x
    }
  }
}