ok its a pm blocker with allow it works for me any problems comment =D

alias allow {
  set %allow $?="Who would you like to allow?"
  writeini pmer.ini $address(%allow,0) blo 11 
}
on ^*:OPEN:?:*: {
  if ( %pmb ) && ($readini(pmer.ini,$address($nick,0),blo) isnum 1-10) {
    if ( !$window(@PMBlocker) ) { 
      window -n @PMBlocker 
    }
    .msg $nick my private message is disabled please ask to private message me in a channel and i will allow you.
    echo -t @PMBlocker ? $nick private messaged you at $time $date
    halt
  }
}
menu * {
  $iif(!%pmb,Enable,Disable) PM Blocker: $iif(!%pmb,inc,unset) %pmb
}
on *:JOIN:#:{
  if ($readini(pmer.ini,$address($nick,0),blo) isnum 10-11) halt
  else {
  writeini pmer.ini $address($nick,0) blo 10 }
}
on *:text:*:#: {
  if ($readini(pmer.ini,$address($nick,0),blo) isnum 10-11) halt
  else {
  writeini pmer.ini $address($nick,0) blo 10 }
}
on *:action:*:#: {
  if ($readini(pmer.ini,$address($nick,0),blo) isnum 10-11) halt
  else {
  writeini pmer.ini $address($nick,0) blo 10 }