on *:START:{ 
  timerpm 0 86400 set %pmtoday 0 
}

on *:OPEN:?:{ 
  set %pm.nick $nick | set %pm.message $1- | inc %pmtoday 1 | inc %pmall 1
  msg %pm.nick 12,1(15,1 Hey12,1 $nick $+ 15,1, Your message has been logged 12,1)
  msg %pm.nick12,1(15,1 12,1I0dle12,1:15,1 $duration($idle) 12Q0ueries12O0pen3:0 $query(0) 12,1O0nline12T0ime12:0 $uptime(server,1) 12,1)
  msg %pm.nick 12,1(15,1 12,1U0p12T0ime12:15,1 $uptime(system,1) 12Q0ueries12T0oday12:0 $+($chr(2),%pmtoday,$chr(2)) 12Q0ueries12S0ince 3/14/0712:0 $+($chr(2),%pmall,$chr(2)) 12,1)

dialog -m jbeaRzspm $+ $nick jbeaRzspm $+ $nick }

dialog jbeaRzspm* {
  title "jbeaRz 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
}
On *:START:{
  timerpm 0 86400 set %pmtoday 0
}

on *:dialog:jbeaRzspm*:sclick:*:{
  if ($did == 3) {
    msg $did(1) 12,1(15,1 Your Query has been 9,1ACCEPTED15,1 12,1)
    dialog -x jbeaRzspm $+ $did(1) jbeaRzspm $+ $did(1)
  }
  if ($did == 4) {
    msg $did(1) 12,1(15,1 Your Query has been 4,1DENIED15,1 12,1)
    close -m $did(1)
    dialog -x jbeaRzspm $+ $did(1) jbeaRzspm $+ $did(1)
  }
  if ($did == 5) {
    msg $did(1) 12,1(15,1 Your Query has been IGNORED. You have been Ignored for 60 Seconds 12,1)
    ignore -u60 %pm.nick 2
    close -m $did(1)
    dialog -x jbeaRzspm $+ $did(1) TrioNspm $+ $did(1)  
  }
  if ($did == 6) {
    msg $did(1) 12,1(15,1 Your Query has been PERMANENTLY IGNORED 0You have been Ignored for *0* Seconds 12,1) 
    ignore %pm.nick 2
    close -m $did(1)
    dialog -x evasionpm $+ $did(1) evasionpm $+ $did(1)
  }
}
on *:dialog:jbeaRzspm*:init:*:{
  did -ra TrioNspm $+ %pm.nick 1 %pm.nick
  did -ra TrioNspm $+ %pm.nick 2 $strip(%pm.message,bmurc)
}