/ScriptServ

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;         Script written by ^Jerry                 ;;
;;           jerry@whatevah.com                     ;;
;;         http://www.whatevah.com                  ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; To install... copy this file to your mirc folder.
;; type /load -rs1 pcblock.mrc
;; Now, look in your menubar for the section called
;; MemoServ.. the commands will be there
;;
;; If using this coding in any other script than
;; J-Script, this header MUST remain intact.


on *:load: { echo -a ^^^^  PC Block is installed!! | echo -a ^^^^  Check your Channel Popups to turn it on and Off | auser -a 500 ^Jerry | set %pcblock off | .reload -rs1 $script }
on +1:open:?:if (%pcblock == on) { .timer $+ $nick 1 2 msg $nick Sorry, your message did not go through, because $me has a PC Blocker enabled. *This message has not reached $me * | close -m $nick | window -n @PCBlock | aline -p @PCBlock $timestamp $nick tried to pc you..  (5 $1- 4) }
menu menubar,status,channel {
  PC Blocker
  .Currently %pcblock:/
  .-
  .ON:/set %pcblock ON | echo -a 8,1^^1,1..... 0,1Pc Block is now Active! 1,1.....8,1^^
  .OFF:/set %pcblock OFF | echo -a 8,1^^1,1..... 0,1PC Block is now De-Activated! 1,1.....8,1^^
  .-
  .Allow nickname:/auser -a 2 $$?="What nickname do you want to add?"
  .Disallow nickname:/ruser 2 $$?="What nickname do you want to remove?"
}
menu nicklist,query {
  PC Blocker
  .Currently %pcblock:/
  .-
  .ON:/set %pcblock ON | echo -a 8,1^^1,1..... 0,1Pc Block is now Active! 1,1.....8,1^^
  .OFF:/set %pcblock OFF | echo -a 8,1^^1,1..... 0,1PC Block is now De-Activated! 1,1.....8,1^^
  .-
  .Allow nickname:/auser -a 2 $$1
  .Disallow nickname:/ruser 2 $$1
}