Mine

on *:OPEN:?:{ 
  set %pm.nick $nick | set %pm.message $1- | inc %pmtoday 1 | inc %pmall 1
  msg %pm.nick 13,1(0,1 Hey13,1 $nick $+ 0,1, Your message has been logged 13,1)
  msg %pm.nick 13,1(0,1 13,1I0dle3:0,1 $duration($idle) 13Q0ueries13O0pen3:0 $query(0) 13O0nline13T0ime3:0 $uptime(server,1) 13,1)
  msg %pm.nick 13,1(0,1 13,1U0p13T0ime3:0,1 $uptime(system,1) 13Q0ueries13T0oday3:0 $+($chr(2),%pmtoday,$chr(2)) 13Q0ueries13S0ince 3/14/073:0 $+($chr(2),%pmall,$chr(2)) 13,1)

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

dialog -m TrioNspm $+ $nick TrioNspm $+ $nick }
dialog TrioNspm* {
  title "TrioN'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 *:dialog:TrioNspm*:sclick:*:{
  if ($did == 3) {
    msg $did(1) 13,1(0,1 Your Query has been 9,1ACCEPTED 13,1)
    dialog -x TrioNspm $+ $did(1) TrioNspm $+ $did(1)
  }
  if ($did == 4) {
    msg $did(1) 13,1(0,1 Your Query has been 4DENIED0,1 13,1)
    close -m $did(1)
    dialog -x TrioNspm $+ $did(1) TrioNspm $+ $did(1)
  }
  if ($did == 5) {
    msg $did(1) 13,1(0,1 Your Query has been 4IGNORED.0,1 You have been Ignored for 60 Seconds 13,1)
    ignore -u60 %pm.nick 2
    close -m $did(1)
    dialog -x TrioNspm $+ $did(1) TrioNspm $+ $did(1)  
  }
  if ($did == 6) {
    msg $did(1) 13,1(0,1 Your Query has been PERMANENTLY IGNORED 
    ignore %pm.nick 2
    close -m $did(1)
    dialog -x evasionpm $+ $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)
}

on *:KICK:#: {
  if ($knick == ChanServ) { halt }
  if ($knick == $me) {
    inc %kiks 1
    /cs $chan delban $me
    /cs inviteme $chan
    timer 1 3 kick $chan $nick Kicking me is just wrong! : %kiks :    
    timer 1 4 ban -u600 $chan $address($nick,2)
    /timer 1 3 join $chan
  }
}
on *:BAN:#: {
  if ($bnick == $me) {
    mode $chan -b $bnick
    inc %kiks 1
    ban -k $chan $address($nick,2) Banning me is just wrong! : %kiks :    
    join $chan
  }
}