; To set an alert word or phrase use: /alert

on *:OPEN:?:alert $1-
on *:TEXT:*:*:alert $1-
on *:ACTION:*:*:alert $1-
on *:NOTICE:*:*:alert $1-
alias alert {
  var %msg $strip($1-)
  if !$chan || $nick = $me || $count(%msg,$me,%alert) {
    if !$tip($nick) && !$istok(NickServChanServ,$nick,7) && (!$appactive || $activewid != $window($iif(#,#,$iif($nick,$v1,$active))).wid) {
      flash -b1r2
      %msg = $iif($len(%msg) < 333,%msg,$left(%msg,330) $+ ...)
      noop $tip($nick,$iif(#,#,Private Message), $nick  %msg,17,,,window -ax # $iif($window($nick),$nick,$iif($comchan($nick,1),$v1,"status window")))
    }
  }
  if (!$nick) $iif($input(Enter Alert Text,toe,Alert!,%alert),set %alert $!,unset %alert)
}