Untitled

on *:OPEN:?:{
  if (!$away) {
    .var %x 1 
    while (%x <= $comchan($nick,0)) {
      .set %cc %cc $comchan($nick,%x) $+ ,
      .inc %x
    }
    .set %pm.nick $nick 
    .set %pm.message $1- 
    .inc %pmtoday 1 
    .inc %pmall 1
    /msg $nick 11,14›12› 11Idle For:1 $duration($idle) 11Queries Open:1 $query(0) 12›11›
    /msg $nick 11,14›12› 11Online Uptime:1 $uptime(server,1) 11System Uptime:1 $uptime(system,1) 12›11› 
    /msg $nick 11,14›12› 1I see you in $iif(%cc == $null,no channels of mine,%cc) 12›11› 
    .unset %cc

    dialog -m evasionpm $+ $nick evasionpm $+ $nick
  }
}
dialog evasionpm* {
  title "coNNect's Evasion PM System"
  size -1 -1 112 62
  option dbu
  box "", 1, 2 0 108 60
  edit "", 2, 5 7 100 20, read autovs
  button "Accept", 3, 12 30 37 12
  button "Deny", 4, 63 30 37 12
  button "Temp Ignore", 5, 12 45 37 12
  button "Perm Ignore", 6, 63 45 37 12
  pmc
}
on *:dialog:evasionpm*:sclick:*:{
  if ($did == 3) {
    msg $did(1) 11,14›12› 1I am now available to answer your Private Message! 12›11›
    dialog -x evasionpm $+ $did(1) evasionpm $+ $did(1)
  }
  if ($did == 4) {
    msg $did(1) 11,14›12› 1Your Private Message has been DENIED 12›11›
    close -m $did(1)
    dialog -x evasionpm $+ $did(1) evasionpm $+ $did(1)
  }
  if ($did == 5) {
    msg $did(1) 11,14›12› 1You have been IGNORED for 60 Seconds from Private Messages 12›11›
    ignore -pu60 %pm.nick 2
    close -m $did(1)
    dialog -x evasionpm $+ $did(1) evasionpm $+ $did(1)
  }
  if ($did == 6) {
    msg $did(1) 11,14›12› 1You have been Permanently IGNORED from Private Messages 12›11›
    ignore -p %pm.nick 2
    close -m $did(1)
    dialog -x evasionpm $+ $did(1) evasionpm $+ $did(1)
  }
}

on *:dialog:evasionpm*:init:*:{
  did -ra evasionpm $+ %pm.nick 1 %pm.nick
  did -ra evasionpm $+ %pm.nick 2 $strip(%pm.message,bmurc)
}