Something

on ^*:OPEN:?:*: {
  if ($nick == -psyBNC) {
    query -psyBNC
    echo -t -psyBNC $1+
  }
  if ( %pmb ) {
    if ( !$window(@Watch) ) {
      window -axnk0 @Watch -ds Verdana 16
      echo @Watch $str( * ,10)  * PM Blocker and Highlights catcher *  $str( * ,10)
      renwin @Watch @Watch $str(-,10) * PM Blocker and Highlights catcher * $str(-,10)
      aline @Watch -
    }
    .msg $nick Please; if you want to PM me tell me.  This PM Has been ignored.
    echo @Watch PRIVATE MESSAGE $nick on $network pm'd you at $fulldate
    beep 2 1
    halt
  }
}

on *:TEXT:*geo*:#: {
  if ( !$window(@Watch) ) {
    window -axnk0 @Watch -ds Verdana 16
      echo @Watch $str( * ,10)  * PM Blocker and Highlights catcher *  $str( * ,10)
    aline @Watch 
    renwin @Watch @Watch $str(-,10) * PM Blocker and Highlights catcher * $str(-,10)
  }
  echo @Watch HIGHLIGHTED $nick said: $1- in $chan
  beep 2 1
}

on ^*:NOTICE:*:?: {
  who services@swiftirc.net
  if ($address($nick, 5) != services@swiftirc.net) {
    if ( !$window(@Watch) ) {
      window -axnk0 @Watch -ds Verdana 16
      echo @Watch $str( * ,10) * PM Blocker and Highlights catcher * $str( * ,10)
      aline @Watch 
      renwin @Watch @Watch $str(-,10) * PM Blocker and Highlights catcher * $str(-,10)
    }
    echo @Watch NOTICE $nick noticed you saying: $1-
    beep 2 1
  }
}

menu @Watch {
  -
  Clear: /clear | /aline @Watch       echo @Watch $str( * ,10)  * PM Blocker and Highlights catcher *  $str( * ,10) |  /aline @Watch -
  Close: /window -c @Watch
  -
  $iif(!%pmb,Enable,Disable) PM Blocker: $iif(!%pmb,inc,unset) %pmb
  -
}

menu query {
  -
  $iif(!%pmb,Enable,Disable) PM Blocker: $iif(!%pmb,inc,unset) %pmb
  -
}