R0b

menu nicklist {
  Pm Control
  .Allow PMs From $1:PmControl add $$1
  .Disallow PMs From $1:PmControl Del $$1
}
alias PmControl {
  if ( $1 == add ) {
    if ( $address($2,0) != $null ) {
      hadd -m PmControl $right($address($2,0),-2)
      echo 3 -a Added $right($address($2,0),-2) to PmAccept List
    }
    else {
      .enable #userhostadd
      userhost $2
    }
  }
  if ( $1 == del ) {
    if ( $address($2,0) != $null ) {
      hdel PmControl $right($address($2,0),-2)
      echo 3 -a Removed $right($address($2,0),-2) From the PmAccept List
    }
    else {
      .enable #userhostdel
      userhost $2
    }
  }
}
#userhostadd off
raw 302:*: {
  hadd -m PmControl $right($gettok($1-,2,61),-1)
  echo 3 -a Added $right($address($2,0),-2) to PmAccept List
  .disable #userhostadd
  halt
}
#userhostadd end
#userhostdel off
raw 302:*: {
  hdel PmControl $right($gettok($1-,2,61),-1)
  echo 3 -a Removed $right($address($2,0),-2) From the PmAccept List
  .disable #userhostdel
  halt
}
#userhostdel end
on ^*:open:?:*: {
  if ( !$hfind(PmControl,$address) ) {
    hinc -mu60 PmControl $+(Flood.,$address)
    if ( $hget(PmControl,$+(Flood.,$address)) == 1 ) {
      .msg $nick Sorry this PM Has been automatically rejected as you are not on my accept list. Please Contact me through a Known Channel.
    }
    halt
  }
}
On *:start: {
  hmake PmControl 20
  $iif( $isfile(PmControl.hsh) , hload PmControl PmControl.hsh )
}
on *:Exit: {
  hsave -o PmControl PmControl.hsh
  hfree PmControl
}