on *:OPEN:?:{
  set %pm.n $nick
  set %pm.m $strip($1-,burcm)
  inc %pm.c
  msg $nick <AScript> Hello $nick, I currently have $query(0) $iif($query(0) == 1,query,queries) open and my idle time is $duration($idle) $+ . <AScript> 
  msg $nick <AScript> For any question about LINEXEN service, please join #linexen and ask in it. <AScript> 
  dialog -m pmad $+ $nick pmad $+ $nick
}
on *:dialog:pmad*:init:*: {
  did -ra pmad $+ %pm.n 6 %pm.n
  did -ra pmad $+ %pm.n 7 %pm.m
}
on *:dialog:pmad*:sclick:*: {
  if ($did == 2) {
    msg $did(6) <AScript> Your Query has been $chr(2) $+ ACCEPTED $+ $chr(2) $+ ! <AScript> 
    dialog -x pmad $+ $did(6) pmad $+ $did(6)
  }
  if ($did == 3) {
    msg $did(5) <AScript> Your Query has been $chr(2) $+ DENIED $+ $chr(2) $+ ! <AScript> 
    close -m $did(6)
    dialog -x pmad $+ $did(6) pmad $+ $did(6)
  }
  if ($did == 5) {
    set %pm.mn $did(6)
    set %pm.mm $did(7)
    dialog -m pmc pmc
    dialog -x pmad $+ $did(6) pmad $+ $did(6)
  }
}
dialog pmc {
  title "Anthony's Script Query MSG"
  size -1 -1 275 250
  option dbu
  tab "PM Message", 1, 1 1 273 247
  text "", 4, 58 16 78 8, tab 1
  box "PM Message", 5, 70 29 141 57, tab 1
  text "", 6, 72 35 137 36, tab 1
  button "Accept", 7, 79 87 37 12, tab 1
  button "Deny", 8, 122 87 37 12, tab 1
  button "Ignore", 9, 165 87 37 12, tab 1
  button "Cancel", 10, 122 106 37 12, tab 1 cancel
  text "Nick:", 28, 199 129 13 8, tab 1
  edit "", 31, 213 127 50 11, tab 1
  button "Whois", 32, 220 143 37 12, tab 1
  button "Ignore List", 33, 220 155 37 12, tab 1
  button "Ping", 34, 220 175 37 12, tab 1
  button "Time", 35, 220 187 37 12, tab 1
  button "Version", 36, 220 199 37 12, tab 1
  button "DCC Send", 37, 220 219 37 12, tab 1
  button "DCC Chat", 38, 220 231 37 12, tab 1
  text "", 39, 47 118 43 8, tab 1
  edit "", 40, 25 130 172 113, tab 1 read multi autovs vsbar
  text "", 22, 72 71 137 13, tab 1
  tab "Channel Control", 2
  list 11, 211 67 62 176, tab 2 size vsbar
  list 12, 211 24 62 42, tab 2 size vsbar
  text "Common Channels:", 13, 214 16 53 8, tab 2
  box "", 14, 3 34 206 212, tab 2
  edit "", 15, 5 51 202 171, tab 2 read multi autovs vsbar
  edit "", 16, 154 18 50 9, tab 2
  text "Nick:", 17, 141 18 12 8, tab 2
  button "Check", 18, 164 28 28 8, tab 2
  edit "", 19, 4 230 175 12, tab 2 read return autohs
  text "Message Here:", 20, 5 222 37 8, tab 2
  text "", 3, 7 42 198 8, tab 2
  button "Send", 21, 180 230 27 12, tab 2
}
on *:dialog:pmc:init:*: {
  did -ra pmc 4 Last PM Nick: %pm.mn
  did -ra pmc 31 %pm.mn
  did -ra pmc 16 %pm.mn
  did -ra pmc 6 %pm.mm
  var %x 1 | while (%x <= $comchan($did(pmc,16),0)) {
    did -a pmc 12 $comchan($did(pmc,16),%x)
    inc %x
  }
}
on *:TEXT:*:*:{
  if ($dialog(pmc)) {
    if ($chan == $did(pmc,14)) {
      did -a pmc 15 $timestamp < $+ $nick($did(pmc,14),$nick).pnick $+ > $1- $crlf
    }
  }
}
on *:INPUT:*:{
  if ($dialog(pmc)) {
    if ($chan == $did(pmc,14)) {
      did -a pmc 15 $timestamp < $+ $nick($did(pmc,14),$me).pnick $+ > $1- $crlf
    }
  }
}
on *:CTCPREPLY:PING*:{
  if ($dialog(pmc)) {
    did -a pmc 40 From $me to $did(pmc,31) $crlf
    did -a pmc 40 -------------------- $crlf
    did -a pmc 40 $me $+ : %pm.ping $crlf
    did -a pmc 40 $did(pmc,31) $+ : $remove($2,$chr(1)) $crlf
    did -a pmc 40 -------------------- $crlf
    did -a pmc 40 $calc($remove($2,$chr(1)) - %pm.ping) seconds $crlf
    unset %pm.ping
  }
}
on *:CTCPREPLY:TIME*:{
  if ($dialog(pmc)) {
    did -a pmc 40 The Time is: $crlf
    did -a pmc 40 $2- $crlf
  }
}
on *:CTCPREPLY:VERSION*:{
  if ($dialog(pmc)) {
    did -a pmc 40 User $did(pmc,31) is using: $crlf
    did -a pmc 40 $2- $crlf
  }
}
on *:dialog:pmc:sclick:*: {
  if ($did == 12) {
    if ($did(12).seltext) {
      if ($did(14) != $did(12).seltext) {
        did -r pmc 15
        did -n pmc 19
      }
      did -ra pmc 14 $did(12).seltext
      did -r pmc 11
      var %x 1 | while (%x <= $nick($did(12).seltext,0)) {
        did -a pmc 11 $nick($did(12).seltext,%x).pnick
        inc %x
      }
    }
  }
  elseif ($did == 7) {
    if ($query($gettok($did(pmc,4),4,32)) == $null) {
      did -ra pmc 22 Accept Deny and Ignore Commands will not work because this query does not exist! | .timer 1 3 did -r pmc 22
    }
    else {
      msg $gettok($did(4),4,32) <AScript> Your Query has been $chr(2) $+ ACCEPTED $+ $chr(2) $+ ! <AScript>
      dialog -x pmc pmc
    }
  }
  elseif ($did == 8) {
    if ($query($gettok($did(pmc,4),4,32)) == $null) {
      did -ra pmc 22 Accept Deny and Ignore Commands will not work because this query does not exist! | .timer 1 3 did -r pmc 22
    }
    else {
      msg $gettok($did(4),4,32) <AScript> Your Query has been $chr(2) $+ DENIED $+ $chr(2) $+ ! <AScript>
      close -m $gettok($did(4),4,32)
      dialog -x pmc pmc
    }
  }
  elseif ($did == 9) {
    if ($query($gettok($did(pmc,4),4,32)) == $null) {
      did -ra pmc 22 Accept Deny and Ignore Commands will not work because this query does not exist! | .timer 1 3 did -r pmc 22
    }
    else {
      msg $gettok($did(4),4,32) <AScript> Your Query has been IGNORED and all further messages will be ignored for the next 15 minutes! <AScript>
      ignore on
      ignore -pu900 $address($gettok($did(4),4,32),2)
      close -m $gettok($did(4),4,32)
      dialog -x pmc pmc
    }
  }
  elseif ($did == 33) {
    did -r pmc 40
    did -a pmc 40 Ignore List: $crlf
    did -a pmc 40 -------------------- $crlf
    did -a pmc 40 Ignored Users: $crlf $crlf
    if ($ignore(0)) {
      var %x 1
      while (%x <= $ignore(0)) {
        did -a pmc 40 $ord(%x) Ignored User: $crlf
        did -a pmc 40 Nick/Address: $ignore(%x) $crlf
        did -a pmc 40 Type: $ignore(%x).type $crlf
        did -a pmc 40 Network: $ignore(%x).network $crlf
        did -a pmc 40 Time Left: $duration($ignore(%x).secs) $crlf $crlf
        inc %x
      }
    }
    else {
      did -a pmc 40 No Ignored Users!
    }
  }
  elseif ($did == 18) {
    did -r pmc 12
    var %x 1 | while (%x <= $comchan($did(16),0)) {
      did -a pmc 12 $comchan($did(16),%x)
      inc %x
    }
  }
  elseif ($did == 21) {
    if ($did(19)) {
      msg $did(14) $did(19)
      did -a pmc 15 $timestamp < $+ $nick($did(pmc,14),$me).pnick $+ > $did(19) $crlf
      did -r pmc 19
    }
  }
  elseif ($did == 34) {
    .msg $did(31) $chr(1) $+ PING $ctime $+
    set %pm.ping $ctime
    did -r pmc 40
    did -a pmc 40 Ping Results: $crlf
    did -a pmc 40 -------------------- $crlf
  }
  elseif ($did == 35) {
    .msg $did(31) $chr(1) $+ TIME
    did -r pmc 40
    did -a pmc 40 Time Results: $crlf
    did -a pmc 40 -------------------- $crlf
  }
  elseif ($did == 36) {
    .msg $did(31) $chr(1) $+ VERSION
    did -r pmc 40
    did -a pmc 40 Version Results: $crlf
    did -a pmc 40 -------------------- $crlf
  }
  elseif ($did == 32) {
    whois $did(31)
    did -r pmc 40
    did -a pmc 40 Whois Results: $crlf
    did -a pmc 40 -------------------- $crlf
  }
}
raw 311:*:{ if ($dialog(pmc)) { did -a pmc 40 Whois: From $1 to $2 $crlf } }
raw 319:*:{ if ($dialog(pmc)) { did -a pmc 40 Channels: $3- $crlf | var %pm.wcomc | var %x 1 | while (%x <= $comchan($did(pmc,31),0)) { set %pm.wcomc %pm.wcomc $comchan($did(pmc,31),%x) | inc %x } | did -a pmc 40 Common Channels: %pm.wcomc $crlf } }
raw 312:*:{ if ($dialog(pmc)) { did -a pmc 40 Network: $4- $crlf } }
raw 330:*:{ if ($dialog(pmc)) { did -a pmc 40 AuthServ Account: $3 $crlf } }
raw 338:*:{ if ($dialog(pmc)) { did -a pmc 40 $1- $crlf } }
raw 317:*:{ if ($dialog(pmc)) { did -a pmc 40 $1- $crlf } }
raw 318:*:{ if ($dialog(pmc)) { did -a pmc 40 $2- $crlf } }
alias pmc {
  dialog -m pmc pmc
}