kokaine

;ALIAS--
bpm {
  set %blocktext $?="PM Blocker Message:" 
  if (%blocktext != $null) { echo -a 4,1••• PM Block Message set to: %blocktext }
  else { unset %blocktext | set %blocktext I am currently not accepting private messages. Please try again later or use ingame ticket system. | echo -a 4,1••• PM Block Message set to: %blocktext }
}
;REMOTES--
menu nicklist {
  -
  [PM Blocker] %pmblockstatus
  ;  .[Status] %pmblockstatus
  ;  .-
  .Accept PMs: unset %nopms | set %pmblockstatus Accepting PMs | echo -a 9,1  $+(-,$me,-) Now accepting PMs
  .Block PMs: set %nopms 1 | set %pmblockstatus Blocking PMs | echo -a 4,1  $+(-,$me,-) Now blocking PMs
  .-
  .Set Message: bpm
}
on ^*:OPEN:?:*:  { 
  if (%nopms) { 
    ;    .msg $nick [PM Blocker] I am currently not accepting private messages. Please try again later or use ingame ticket system.
    .msg $nick [PM Blocker] %blocktext
    echo -a 4,1 ••• $timestamp < $+ $nick $+ > tried to PM you. Attempt blocked.
    halt 
  } 
}
on *:exit:{
  unset %nopms
  set %pmblockstatus Accepting PMs
}