:D

menu Status,Channel,MenuBar,Query { 
  $iif($group(#qc) == on,$style(1)Disable,$style(0)Enable) Query Control: { 
    var %status = $iif($group(#qc) == on,Disable,Enable) 
    $+(.,%status) #qc 
    echo -a » Query Control has been $+(%status,d) 
  } 
} 

dialog qc { 
  title "Query Control" 
  size -1 -1 130 47 
  option dbu 

  text "From:", 1, 4 7 25 10 center 
  text "Time:", 2, 82 7 15 10 center 
  edit "", 3, 97 6 28 10, read 
  edit "", 4, 30 6 50 10, read 
  text "Message:", 5, 4 19 25 10 left 
  edit "", 6, 30 18 95 10, read 
  box "", 7, 1 1 127 29 

  button "Accept", 8, 4 32 20 10 ok 
  button "Decline", 9, 25 32 20 10 ok 
  button "Ignore", 10, 46 32 20 10 ok 
  box "", 11, 1 27 68 17 

  link "e-mail", 12, 75 34 15 8 
  text "v1.5.6", 13, 95 35 18 8 left 
  box "", 14, 70 27 58 17 
} 

on *:dialog:qc:sclick:8:{ 
  window -w %qc.nick 
  msg %qc.nick $ewrap(Query Accepted. I am reading what you've already said.) 
  dialog -x qc 
  window -a %qc.nick 
  unset %qc.nick 
} 
on *:dialog:qc:sclick:9:{ 
  .msg %qc.nick $ewrap(Private Message Declined. Sorry.) 
  window -c %qc.nick 
  unset %qc.nick 
  dialog -x qc 
} 
on *:dialog:qc:sclick:10:{ 
  .msg %qc.nick $ewrap(Private Message Declined. You have been ignored.) 
  window -c %qc.nick 
  .ignore -pu1200 %qc.nick 
  unset %qc.nick 
  dialog -x qc 
} 
on *:dialog:qc:sclick:12:{ 
  url -na mailto:acethebunny@gmail.com 
} 
#qc on
on *:START:{ echo -st » Script: Query Control script by SyntaxError is loaded and running. } 
on *:INPUT:?:{ 
  if ($me == ^Banana) { halt }
  if ($active != -psyBNC) { 
    .timerclose.query. $+ $active $+ .1 1 600 close -m $active 
    .timerclose.query. $+ $active $+ .2 1 600 notice $active $ewrap(The query window with you has been closed after 10 minutes of inactivity.) 
  } 
} 
on *:TEXT:*:?:{ 
  if ($me == ^Banana) { halt }
  if ($nick == RuRoRul) || ($nick == Aardvark39) || ($nick == $me) { halt }
  if ($nick isop #retri) || ($nick ishop #Retri) { halt }
  if ($nick isop #WG) || ($nick ishop #WG) { halt }
  if ($away) { halt }
  if ($nick != -psyBNC) { 
    .timerclose.query. $+ $nick $+ .1 1 600 close -m $nick 
    .timerclose.query. $+ $nick $+ .2 1 600 notice $nick $ewrap(The query window with you has been closed after 10 minutes of inactivity.) 
  } 
} 
on *:CLOSE:?:{ 
  if ($timer($+(close.query.,$nick,.1))) .timer $+ $eval($+(close.query.,$nick,.*)2) off 
} 
on *:OPEN:?:{ 
  if ($me == ^Banana) { halt }
  if ($nick == -sBNC) { 
    halt 
  }
  elseif ($nick == Femz) || ($nick == $Me) {
    msg $nick $ewrap(-- Auto-Accept -- PM Auto-Accepted from: $nick For Reason: World71 Half-op/Op Accepted By PM Block V2.0 Created by Lancs-ccc.)
    halt
  } 
  elseif ($nick == Lancs-ccc) {
    msg $nick $ewrap(-- Auto-Accept -- PM Auto-Accepted from: $nick For Reason: Exception List Friend Detected by PM Block V2.0 Created by Lancs-ccc.)
    halt
  }
  elseif ($nick isop #Wworld71) || ($NICK ISHOP #world71) {
    msg $nick $ewrap(-- Auto-Accept -- PM Auto-Accepted from: $nick For Reason: World 71 Half-op/Op Detected by PM Block V2.0 Created by Lancs-ccc.) 
    if ($away) {
      notice $nick $ewrap(I am currently away: %Away. [ $+ [ $Me ] ] ~ I have been away for: $duration($calc($ctime - %AwayTime. [ $+ [ $Me ] ] $ctime )))
    }
    halt
  }    
  elseif ($nick isop #Retri) || ($nick ishop #retri) {
    msg $nick $ewrap(-- Auto-Accept -- PM Auto-Accepted from: $nick For Reason: Retribution Staff Detected.) 
    if ($away) {
      notice $nick $ewrap(I am currently away: %Away. [ $+ [ $Me ] ] ~ I have been away for: $duration($calc($ctime - %AwayTime. [ $+ [ $Me ] ] $ctime )))
    }
    halt
  }
  elseif ($away) { 
    notice $nick $ewrap(I am currently away: %reason. [ $+ [ $Me ] ] ~ I have been away for: $duration($calc($ctime - %Atime. [ $+ [ $Me ] ] $ctime ))) 
    halt 
  } 
  elseif ($dialog(qc)) { 
    .msg $nick $ewrap(Sorry $nick $+ , but I am busy with another message. Please try again later. (15 second ignore)) 
    close -m $nick 
    .ignore -pu15 $nick 
  } 
  else { 
    set %qc.nick $nick 
    window -h $nick 
    .msg $nick $ewrap(Please Wait For PM Acceptance/Decline - If im away, Sorry i wont see this until i get back :P) 
    dialog -mdo qc qc 
    did -a qc 3 $asctime(hh:nn:ss)    
    did -a qc 4 $nick 
    did -a qc 6 $1- 
    did -f qc 8 
  } 
} 
ctcp *:version:*:{ ctcpreply $Nick VERSION Query Control v1.5.6 by SyntaxError $chr(2) $+ http://forum.swiftirc.net/viewtopic.php?t=8766 $+ $chr(15) } 
#qc end 

alias ewrap { 
  var %msg 
  var %tok = 1 
  var %word 
  while ($gettok($1-,%tok,32) != $null) { 
    %word = $gettok($1-,%tok,32) 
    %msg = %msg $+($chr(3)) $+ 15 $+ $upper($left(%word,1)) $+ $+($chr(3)) $+ 15 $+ $right(%word,-1) 
    inc %tok 
  } 
  return $+($chr(2),$chr(3)) $+ 12,1{~ $+ $+($chr(2),$chr(3)) $+ 15 $+ %msg $+ $+($chr(2),$chr(3)) $+ 12~} $+ $chr(15) 
}