Something

alias pmb { 
  .set %pmb [ $+ [ $1 ] ] On 
  .query $$1 5Congratulations, your PM has been accepted! 
  .echo $$1 %pmb2 
} 
on *:TEXT:*:?:{ 
  if (%pmb == ON) && (%pmb [ $+ [ $nick ] ] != on) { 
    if (%pmb [ $+ [ $nick ] ] == halt) { pmb2 $nick | HALT } 
    set %pmb1 $nick 
    set %pmb2 13 $+ $time(hh:nn:ss TT) 6<14 $+ $nick $+ 6> $1- 
    .msg $nick 5My Pm Blocker Is Currently enabled, I will Accept/Decline your message soon. 
    .timerpmb 1 0 pmb3 $nick 
  } 
} 
on 1:CLOSE:?: { 
  unset %pmb1 
  unset %pmb2 
  unset %pmb [ $+ [ $target ] ] 
} 
alias pmb3 { 
  close -m $1 
  $iif($?!="Accept $1 $+ 's Private Messege?" == $true,pmb $1,pmb2 $1) 
} 
alias pmb2 {    
  close -m $1 
  .set %pmb [ $+ [ $$1 ] ] halt 
  .msg $$1 5Sorry your PM has been declined. This will timeout in 1 minute, if you keep messaging, it will keep resetting. 
  unset %pmb1 
  unset %pmb2 
  .timerhaltpmb 1 60 unset %pmb [ $+ [ $1 ] ] 
} 
alias pmblocker { 
  if ($1 == On) || ($1 == Off) { 
    set %pmb $1 
    echo -a 5[PmBlocker] $iif($1 == on,Enabled!,Disabled.) 
  } 
} 
on *:INPUT:?: { 
  .set %pmb [ $+ [ $1 ] ] On 
}