All pastes #556962 Raw Edit

PM Blocker for mIRC

public text v1 · immutable
·published 2007-06-10 20:30 UTC
rendered paste body
alias pmblock {
  if ($1 == $null) { 
    echo -a Commands: on, off, status 
  }
  elseif ($1 == on) {
    if (%pmblock == true) {
      echo -a Error: Private Messages already blocked
    }
    else {
      close -m 
      set %pmblock true
      echo -a Private Messages are now being blocked 
    }
  }
  elseif ($1 == off) { 
    if (%pmblock == false) {
      echo -a Error: Private Messages are already not blocked
    }
    else {
      set %pmblock false
      echo -a Private Messages are no longer blocked 
    }
  }
  elseif ($1 == status) {
    if (%pmblock == true) {
      echo -a Current Status: ENABLED
    }
    elseif (%pmblock == false) {
      echo -a Current Status: DISABLED 
    }
    else {
      echo -a Current Status: UNKNOWN
    }
  }
}
on *:OPEN:?:*: {
  if (%pmblock == true) {
    closemsg $nick
    .notice $nick Private Messages are currently being blocked.
  }
}
menu channel,query,menubar {
  PM Blocker
  .Block Private Messages:pmblock on
  .Unblock Private Messages:pmblock off
}