ON *:OPEN:?: {
  window -h $nick
  .msg $nick Stand By And Wait For Me To Answer This
  dialog -dm query query
  did -ra query 2 Message from $nick $+([,$1-,])
  .timerTL 1 60 msg $nick Sorry I Did Not Get To This Before Time Expired
  .timerx 1 61 dialog -x query query
  .timerc 1 62 window -c $nick
}
dialog query {
  title "Accpect/Decline Query"
  size -1 -1 400 200
  box "Nick/Message" , 1, 7 7 290 40
  edit "", 2, 10 23 285 20,read autohs
  button "Accept" , 15, 7 150 100 40, ok
  button "Decline" , 16,               150 150 100 40         150 150 100 40, cancel
}
on 1:dialog:query*:sclick:15:{
  .timertl off
  .timerx off
  .timerc off
  var %nick = $gettok($did(2),3,32)
  .msg %nick %acceptmsg
  window -w %nick
}
on 1:dialog:query*:sclick:16:{
  .timertl off
  .timerx off
  .timerc off
  var %nick = $gettok($did(2),3,32)
  msg %nick %denymsg
  window -c %nick
}
 
on *:LOAD:{
set %acceptmsg $$?="What do you want to tell people when you accept?"
set %denymsg $$?="What do you want to tell people when you deny?"
echo -a Thanks for loading the PM Blocker Script by Alex
echo -a Contact me on irc.authoritygamer.com:6660-6670.
echo -a You'll be able to find me.. I'm Head Operator there.
echo -a Hope this works for you!
}
 

Commenting Options