19 July 2012

PM Blocker

menu nicklist {
  GT`crew Pm Blocker
  .Ignore user(s)
  ..Ignore P.M's from $$1 :/ignore -p $$1
  ..Unignore P.M's from $$1 :/ignore -rp $$1
  ..Clear ignore list: /ignore -rp
  .Accept/decline all
  ..Accept all pm's: unset %nopms %msgflood.* | echo $color(notice) -a $+(-,$me,-) 4,1 PM Diluluskan
  ..Decline all pm's: set %nopms 1 | echo $color(notice) -a $+(-,$me,-) 4,1 PM DiTolak
  GT`crew notice blocker
  .Ignore user(s)
  ..Ignore Notice's from $$1 :/ignore -n $$1
  ..Unignore Notice's from $$1 :/ignore -rn $$1
  ..Clear ignore list: /ignore -rn
  .Accept/decline all
  ..Accept all Notice's: unset %nontc %noticeflood.* | echo $color(notice) -a $+(-,$me,-) 4,1 Notis Diterima
  ..Decline all Notice's: set %nontc 1 | echo $color(notice) -a $+(-,$me,-) 4,1 Notis Diabaikan

}
on ^*:OPEN:?:*: {
  if (%nopms == 1) {
    .msg $nick 8,3hahaha aku x Malaeh Nak terima pm
    halt
  }
}
on ^*:NOTICE:*:*: {
  if (%nontc == 1) {
    .notice $nick 8,3hahaha aku x kan terima Sebarang Notice
    halt
  }
}
on *:exit: { unset %nopms $nontc
}