All pastes #740051 Raw Edit

Something

public text v1 · immutable
·published 2007-10-17 17:47 UTC
rendered paste body
on ^*:open:?:*: {
  if ( %pmb ) {
    if ( !$window(@Messages) ) {
      window -n @Messages
      echo @Message $str(-=-,5) PM Blocker Logs $str(-=-,5)
    }
    if $nick = %blocked halt
    else  .msg $nick >>Pm Blocker<< please wait to be accepted/denied. | set %pmed $nick
    echo -t @Messages » $nick on $network pm'd you at $time " $1- "
    notice $me » $nick on $network pm'd you at $time " $1- "
    halt
  }
}
alias n { msg %pmed >>Declined<<| set %pmed %blocked | close -m $nick }
alias y { msg %pmed >>1Accepted<< | /query %pmed }

%pmb

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