alias pmon {
  if (%pm == on) {
    echo -a 4The PM-blocker is off already.
    halt
  }
  echo -a 4PMblocker turned off.
  set %pm on
}
alias pmoff {
  if (%pm == off) {
    echo -a 4The PM-blocker is on already.
    halt
  }
  echo -a 4PMblocker turned on.
  set %pm off
}
alias allowpm {
  if ($1 == $null) {
    echo -a 4Give me a nickname to allow PM's from.
    halt
  }
  echo -a 4I have added $1 to my PM allow list.
  set %apm. [ $+ [ $1 ] ] $true
}
alias blockpm {
  if ($1 == $null) {
    echo -a 4Give me a nickname to block PM's from.
    halt
  }
  echo -a 4I have added $1 to my PM block list.
  set %bpm. [ $+ [ $1 ] ] $true
}
on *:TEXT:*:?: {
  if (%bpm. [ $+ [ $nick ] ] == $true) {
    if (%pmsg. [ $+ [ $nick ] ] == $null) {
      msg $nick 4(15PMBLOCKER4)5 Your PM has been blocked, this is because you are on my blacklist.
    }
    set -z %pmsg. [ $+ [ $nick ] ] 10
    window -k0 @Blocked
    aline @Blocked 11[7BLOCKED.6ignored11]7 $nick 11PMed me at7 $date 11-7 $time $+ 11:7 $1-
    close -m $nick
    write PMs.log (IGNORE) $date $+ - $+ $time $nick $+ : $1-
    halt
  }
  if (%pm == off) {
    if (%apm. [ $+ [ $nick ] ] == $true) {
      write PMs.log $date $+ - $+ $time $nick $+ : $1-
      halt
    }
    if (%pmsg. [ $+ [ $nick ] ] == $null) {
      msg $nick 4(15PMBLOCKER4)5 Your PM has been blocked, $me is busy at the moment, please try again some other time.
    }
    set -z %pmsg. [ $+ [ $nick ] ] 10
    window -k0 @Blocked
    aline @Blocked 11[7BLOCKED.6pmblocker11]7 $nick 11PMed me at7 $date 11-7 $time $+ 11:7 $1-
    close -m $nick
    write PMs.log (BLOCKED) $date $+ - $+ $time $nick $+ : $1-
    halt
  }
  write PMs.log $date $+ - $+ $time $nick $+ : $1-
  halt
}
alias pmfile {
  run PMs.log
  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.
}
alias pmhelp {
  echo -a 5Thank you for using Stajo's PMblocker, this is the help section.
  echo -a 6Commands:
  echo -a 4/pmoff - Turn the pmblocker on.
  echo -a 4/pmon - Turn the pmblocker off.
  echo -a 4/blockpm - Block pm's from one user, pm's from this person will also be blocked when the pmblocker is off.
  echo -a 4/allowpm - Enable an user of sending you pm's when the pmblocker is on.
  echo -a 4/pmfile - All pm's received will be stored in this file.
  echo -a 4/pmhelp - run this command again to view the help section.
  echo -a 7This was the help section.
}