Mine

Dialog Pm_Blocker {
  title %pm.nub
  size -1 -1 100 80
  option dbu
  button "Accept",1, 4 4 40 10, ok
  button "Ignore",2, 54 4 40 10, cancel
  edit %texthere,3, 5 16 90 40, center multi read
  text "Time (s) to ignore",5, 3 57 50 10
  edit "",4, 5 64 40 10, center
}
on 1:dialog:PM_Blocker:sclick:2: {
  set %click Ignore 
}
on 1:dialog:PM_Blocker:sclick:1: {
  set %click Accept 
}
on 1:dialog:PM_Blocker:close:4: {
  set %iggy.time $did($dname,4).seltext 
}
On *:open:?: { 
  if ($away == $true) {
    pm.logwin $nick $+ $chr(124) $+ $network -------> $1-
  }
  if ($away == $false) { 
    set %pm.nub $nick
    set %texthere $1-
    msg $nick Please wait for me to either Accept or Decline your PM
    dialog -m PM_Blocker PM_Blocker 
  }
}
on 1:dialog:PM_Blocker:close:*: {
  set %iggy.time $did($dname,4).text 
  if (%click == $null) { halt }
  if (%click == Accept) {
    msg %pm.nub Your PM has been accepted.
    window -a %pm.nub
  }
  if (%click == Ignore) {
    msg %pm.nub Your PM has been DENIED. You have also been added to ignore for ( $+ %iggy.time $+ ) seconds to avoid spam.
    ignore -pu $+ %iggy.time %pm.nub    
    close -m %pm.nub
  }
  unset %click | unset %pm.nub | unset %iggy.time | unset %texthere
}
alias -l Pm.Logwin {
  if (!$window(@Pm.Logs)) window -eknz @Pm.Logs
  echo -ti2 @Pm.Logs $1-
}