PM/Query Decline Accept Script

By Jude on May 21, 2010

Just A Little Code That I Had But I Edited.
The Original Script Wasn't Created By Me.
I Just Edited The Saying's To Make It Different.

menu channel,menubar,status {
  PM
  .PMs Off:/set %pmstat OFF | /echo -a 4 PM SYSTEM OFF
  .PMs On:/unset %pmstat | /echo -a 9 PM SYSTEM ON
  .PM Confirm Without Reason:/set %pmstat NR | /echo -a 7 PM SYSTEM SET TO CONFIRM WITHOUT REASON
  .PM Confirm With Reason:/set %pmstat R | /echo -a 13 PM SYSTEM SET TO CONFIRM WITH REASON 
}

on ^*:OPEN:?: {
  if (%genericAway != $null) {
    /query $nick 4**1 $me is currently away. Please leave a message 4**
  }
  else {
    if (%pmstat == OFF) {
      /query $nick **$me has PMs/Querys currently turned off**
      /close -m $nick
      /echo -a 9 $nick tried to PM/Query you on $network
      /halt
    }
    else {
      .timer 1 1 .pmal $nick $network
    }
  }
}

alias pmal {
  if (%pmstat == NR) {
    /query $1 ***12[-] I'll Be With You Soon Please Leave Me A Brief Discription And I Shall Get Back To You [-]***
    /set %pmvar $input($1 wants to PM you on $2. Accept this PM?,y,PM)
    if (%pmvar == $false) {
      /query $1 ***4Your PM/Query Request Has Been Rejected. You Have Been Ignored For 500 Seconds.***
      /ignore $1
      .timer 1 500 /ignore -r $1
      /close -m $1
      /halt
    }
    else {
      /query $1 ***9[-] Yes, We May Now Communicate [-]***
    }
  }
  elseif (%pmstat == R) {
    /query $nick ***[-] Please Be Patient I Shall Be With You Shortly [-] ***
    /set %pmvar $input($1 wants to PM you on $2. Accept this PM?,y,PM)
    if (%pmvar == $false) {
      /set %reason $?="What is your reason?"
      /query $1 ***4Your PM/Query Request Has Been Rejected. You Have Been Ignored For 500 Seconds.7Reason: %reason***
      /ignore $1
      .timer 1 500 /ignore -r $1
      /close -m $1
      /halt
    }
    else {
      /query $1 ***9[-] Your PM has Been Acepted You May Now Speak [-] ***
    }
  }
  unset %pmvar
}

Comments

Sign in to comment.
Gummo   -  May 31, 2010

At least we have phil to thank for the base of the script. :P

 Respond  
Jethro   -  May 31, 2010

Gummo, just so you know "he's not alone." I wouldn't be surprised since MSL is so prevalently open sourced. :P

 Respond  
Gummo   -  May 31, 2010

http://paste.pchowtos.co.uk/view/raw/20171522
also PM.mrc at http://phils-mirc-scripts.googlecode.com/svn/trunk/
That seems to be the original, but it has been modified code-wise since then, so I don't know. :|

 Respond  
Gummo   -  May 26, 2010

You should probably tell us who DID make it, if you only changed the text.

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.