Unnamed

dialog pmad* {
  title "spxscript"
  size -1 -1 160 97
  option dbu
  box "PM Message", 1, 14 11 125 56
  button "Accept", 2, 14 69 37 12
  button "Deny", 3, 58 69 37 12
  button "Ignore", 9, 165 87 37 12
  button "More...", 5, 102 69 37 12
  text "", 6, 5 3 66 8
  text "", 7, 16 18 121 47
}
on *:OPEN:?:{
  set %pm.n $nick
  set %pm.m $strip($1-,burcm)
  inc %pm.c
  msg $nick 4,1«14«0 Hello4 $nick $+ 0, 0I have recieved your query and will choose whether to Accept or Deny it. 14»4»
  msg $nick 4,1«14«0 I currently have $query(0) $iif($query(0) == 1,query,queries) open and I have been idle for $duration($idle) $+ . 14»4»
  msg $nick 4,1«14«0 If there is no response I am simply not here... 14»4»
  msg $nick 4,1«14«0 You are the $ord(%pm.c)person to PM me! 14»4»
  msg $nick 4,1«14«0 Your private message has been saved at $time ( $date ) 14»4»
  dialog -m pmad $+ $nick pmad $+ $nick
}

on *:TEXT:*:?:{ if ($1 == .status) { if (!$away) { msg $nick 4,1«14«0 Status: 9ONLINE 14»4» } | else { msg $nick 4,1«14«0 Status: 4OFFLINE0 14»
}

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) 4,1«14«0 Your Query has been $chr(2) $+ 9ACCEPTED0 please wait... $+ $chr(2) $+ 14»4»
    dialog -x pmad $+ $did(6) pmad $+ $did(6)
  }
  if ($did == 3) {
    msg $did(6) 4,1«14«0 Your Query has been $chr(2) $+ 4DENIED 14 $+ $chr(2) $+ 14»4»
    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 "Private Message Control"
  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
  }
}