daily pastebin goal
0%
SHARE
TWEET

Untitled

a guest Sep 10th, 2018 124 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. alias pmon {
  2.   if (%pm == on) {
  3.     echo -a 4The PM-blocker is off already.
  4.     halt
  5.   }
  6.   echo -a 4PMblocker turned off.
  7.   set %pm on
  8. }
  9. alias pmoff {
  10.   if (%pm == off) {
  11.     echo -a 4The PM-blocker is on already.
  12.     halt
  13.   }
  14.   echo -a 4PMblocker turned on.
  15.   set %pm off
  16. }
  17. alias allowpm {
  18.   if ($1 == $null) {
  19.     echo -a 4Give me a nickname to allow PM's from.
  20.    halt
  21.  }
  22.  echo -a 4I have added $1 to my PM allow list.
  23.  set %apm. [ $+ [ $1 ] ] $true
  24. }
  25. alias blockpm {
  26.  if ($1 == $null) {
  27.    echo -a 4Give me a nickname to block PM's from.
  28.     halt
  29.   }
  30.   echo -a 4I have added $1 to my PM block list.
  31.   set %bpm. [ $+ [ $1 ] ] $true
  32. }
  33. on *:TEXT:*:?: {
  34.   if (%bpm. [ $+ [ $nick ] ] == $true) {
  35.     if (%pmsg. [ $+ [ $nick ] ] == $null) {
  36.       msg $nick 4(15PMBLOCKER4)5 Your PM has been blocked, this is because you are on my blacklist.
  37.     }
  38.     set -z %pmsg. [ $+ [ $nick ] ] 10
  39.     window -k0 @Blocked
  40.     aline @Blocked 11[7BLOCKED.6ignored11]7 $nick 11PMed me at7 $date 11-7 $time $+ 11:7 $1-
  41.     close -m $nick
  42.     write PMs.log (IGNORE) $date $+ - $+ $time $nick $+ : $1-
  43.     halt
  44.   }
  45.   if (%pm == off) {
  46.     if (%apm. [ $+ [ $nick ] ] == $true) {
  47.       write PMs.log $date $+ - $+ $time $nick $+ : $1-
  48.       halt
  49.     }
  50.     if (%pmsg. [ $+ [ $nick ] ] == $null) {
  51.       msg $nick 4(15PMBLOCKER4)5 Your PM has been blocked, $me is busy at the moment, please try again some other time.
  52.     }
  53.     set -z %pmsg. [ $+ [ $nick ] ] 10
  54.     window -k0 @Blocked
  55.     aline @Blocked 11[7BLOCKED.6pmblocker11]7 $nick 11PMed me at7 $date 11-7 $time $+ 11:7 $1-
  56.     close -m $nick
  57.     write PMs.log (BLOCKED) $date $+ - $+ $time $nick $+ : $1-
  58.     halt
  59.   }
  60.   write PMs.log $date $+ - $+ $time $nick $+ : $1-
  61.   halt
  62. }
  63. alias pmfile {
  64.   run PMs.log
  65.   echo -a 4The file in wich all PMs are being stored will be run:5 $+($iif(!$regex(pms.log,/^[A-Z]:/i), $mircdir), pms.log) $+ 4.
  66. }
  67. alias pmhelp {
  68.   echo -a 5Thank you for using Stajo's PMblocker, this is the help section.
  69.  echo -a 6Commands:
  70.  echo -a 4/pmoff - Turn the pmblocker on.
  71.  echo -a 4/pmon - Turn the pmblocker off.
  72.  echo -a 4/blockpm - Block pm's from one user, pm's from this person will also be blocked when the pmblocker is off.
  73.  echo -a 4/allowpm - Enable an user of sending you pm's when the pmblocker is on.
  74.   echo -a 4/pmfile - All pm's received will be stored in this file.
  75.  echo -a 4/pmhelp - run this command again to view the help section.
  76.  echo -a 7This was the help section.
  77. }
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top