Stuff

on *:OPEN:?:{ set %pm.nick $nick | set %pm.message $1- | inc %pmtoday | inc %pmall
  msg $nick 5,1›4› 0,10,1Hey4 $nick $+ 0,1, Your message has been logged 4,1›5›
  msg $nick 5,1›4› 0,14I0dle5:0,1 $duration($idle) 4Q0ueries4O0pen5:0 $query(0) 4,1›5›
  msg $nick 5,1›4› 0,14U0p4T0ime5:0,1 $uptime(system,1) 4,1O0nline4T0ime5:0 $uptime(server,1) 4,1›5›

dialog -m evasionpm $+ $nick evasionpm $+ $nick }
dialog evasionpm* {
  title "Evasion PM System"
  size -1 -1 127 45
  option dbu
  box "", 1, 0 0 127 45
  edit "", 2, 3 7 119 22, read autovs
  button "Accept", 3, 12 30 37 12
  button "Deny", 4, 68 30 37 12
  button "Ignore", 5, 68 30 37 12

}
on *:dialog:evasionpm*:sclick:*:{
  if ($did == 3) {
    msg $did(1) 5,1›4›  0,1Your Query has been ACCEPTED 4,1›5›

    dialog -x evasionpm $+ $did(1) evasionpm $+ $did(1)
  }
  if ($did == 4) {
    msg $did(1) 5,1›4›  0,1Your Query has been DENIED 4,1›5›

    close -m $did(1)
    dialog -x evasionpm $+ $did(1) evasionpm $+ $did(1)
  }
  if ($did == 5) {
    msg $did(1) 5,1›4›  0,1Your Query has been IGNORED 4,1›5›

    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)
}