Stuff

on *:OPEN:?:{ 
  set %pm.nick $nick | set %pm.message $1- | inc %pmtoday 1 | inc %pmall 1
  if (-psybnc isin %pm.nick) || (Bot isin %pm.nick ) || (serv isin %pm.nick) { halt } 
  msg %pm.nick Hello  $+ $nick $+ , Your message has been logged 
  msg %pm.nick Idle: $duration($idle) QueriesOpen: $query(0) OnlineTime:  $uptime(server,1) 
  msg %pm.nick UpTime: $uptime(system,1) QueriesToday:  $+($chr(2),%pmtoday,$chr(2)) QueriesSince 7/18/07:  $+($chr(2),%pmall,$chr(2)) 

dialog -m TrioNspm $+ $nick TrioNspm $+ $nick }

dialog TrioNspm* {
  title "Anthony's 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 -i 0 86400 set %pmtoday 0
}

on *:dialog:TrioNspm*:sclick:*:{
  if ($did == 3) {
    msg $did(1) Your Query has been ACCEPTED
    dialog -x TrioNspm $+ $did(1) TrioNspm $+ $did(1)
  }
  if ($did == 4) {
    msg $did(1) Your Query has been DENIED
    close -m $did(1)
    dialog -x TrioNspm $+ $did(1) TrioNspm $+ $did(1)
  }
  if ($did == 5) {
    msg $did(1) Your Query has been IGNORED. You have been Ignored for 60 Seconds 
    ignore -u60 %pm.nick 2
    close -m $did(1)
    dialog -x TrioNspm $+ $did(1) TrioNspm $+ $did(1) 
  }
  if ($did == 6) {
    msg $did(1) Your Query has been PERMANENTLY IGNORED. You have been added to the Ignore List 
    ignore %pm.nick 2
    close -m $did(1)
    dialog -x TrioNspm $+ $did(1) evasionpm $+ $did(1)
  }
}
on *:dialog:TrioNspm*:init:*:{
  did -ra TrioNspm $+ %pm.nick 1 %pm.nick
  did -ra TrioNspm $+ %pm.nick 2 $strip(%pm.message,bmurc)
}