Miscellany

dialog pmad* {
  title "spXscript 1.0"
  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 "Cancel", 4, 58 83 37 12, cancel
  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 9,1(0 Hey $nick $+ , Your query has been saved at $time and I will accept it only if its important 9)
  msg $nick 9,1(0 I currently have $query(0) $iif($query(0) == 1,query,queries) Open $gtd(Queries today) %queriestoday 9)
  msg $nick 9,1(0 You are the $ord(%pm.c)person to pm me 9)
  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) 9,1(0 Your Query has been $chr(2) $+ 9ACCEPTED14 $+ $chr(2) $+ 9 )
    dialog -x pmad $+ $did(6) pmad $+ $did(6)
  }
  if ($did == 3) {
    msg $did(6) 9,1(0 Your Query has been $chr(2) $+ 4DENIED14 at $time $+ $chr(2) $+ 9 )
    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
  }

  menu nicklist,channel { 
    .msgnick:msg $snick($chan,1) Hello $snick($chan,1)
  }