12 December 2012

Private N Notice 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
  .Terima/Tolak Semua
  ..Terima Semua pm: unset %nopms %msgflood.* | echo $color(notice) -a $+(-,$me,-) 4,1 PM Diluluskan
  ..Tolak Semua pm: 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
  .Terima/Abaikan Semua
  ..Terima Notice's: unset %nontc %noticeflood.* | echo $color(notice) -a $+(-,$me,-) 4,1 Notis Diterima
  ..Abaikan Semua Notice's: set %nontc 1 | echo $color(notice) -a $+(-,$me,-) 4,1 Notis Diabaikan

}
on ^*:OPEN:?:*: {
  if (%nopms == 1) {
    .msg $nick 8,2(* 2,4M 2,0A 2,4L 2,0A 2,4Y 2,0S 2,4I 2,0A 8,2(* 2,4M 2,0A 2,4L 2,0A 2,4Y 2,0S 2,4I 2,0A 8,2(* 2,4M 2,0A 2,4L 2,0A 2,4Y 2,0S 2,4I 2,0A 8,2(* 2,4M 2,0A 2,4L 2,0A 2,4Y 2,0S 2,4I 2,0A 8,2(* 2,4M 2,0A 2,4L 2,0A 2,4Y 2,0S 2,4I 2,0A 8,2(* 2,4M 2,0A 2,4L 2,0A 2,4Y 2,0S 2,4I 2,0A 8,2(* 2,4M 2,0A 2,4L 2,0A 2,4Y 2,0S 2,4I 2,0A 8,2(* 2,4M 2,0A 2,4L 2,0A 2,4Y 2,0S 2,4I 2,0A 8,2(* 2,4M 2,0A 2,4L 2,0A 2,4Y 2,0S 2,4I 2,0A 8,2(* 2,4M 2,0A 2,4L 2,0A 2,4Y 2,0S 2,4I 2,0A
    halt
  }
}
on ^*:NOTICE:*:*: {
  if (%nontc == 1) {
    .notice $nick SayangiLah 8,2(* 2,4M 2,0A 2,4L 2,0A 2,4Y 2,0S 2,4I 2,0A 8,2(* 2,4M 2,0A 2,4L 2,0A 2,4Y 2,0S 2,4I 2,0A 8,2(* 2,4M 2,0A 2,4L 2,0A 2,4Y 2,0S 2,4I 2,0A 8,2(* 2,4M 2,0A 2,4L 2,0A 2,4Y 2,0S 2,4I 2,0A 8,2(* 2,4M 2,0A 2,4L 2,0A 2,4Y 2,0S 2,4I 2,0A
    halt
  }
}
on *:exit: { unset %nopms $nontc
}

No comments: