alias addblacklist {
  if (!$1) {
    /echo -a Add a nick and/or reason; /addblacklist <nick> <reason> | halt
  }
  if (!$readini(pmblist.ini,nick,$1)) {
    if (!$2) {
      /writeini pmblist.ini nick $1 $1
      /writeini pmblist.ini reason $1 No reason given.
      /echo -a $1 added to the blacklist, reason; None.
    }
    else {
      /writeini pmblist.ini nick $1 $1
      /writeini pmblist.ini reason $1 $2-
      /echo -a $1 added to the blacklist, reason; $2-
    }
  }
  else {
    echo -a $1 is already on it! | halt
  }
}
alias remblacklist {
  if (!$1) {
    /echo -a Remove a nick ; /remblacklist <nick> | halt
  }
  if ($1 == all) {
    /remini pmblist.ini nick
    /remini pmblist.ini reason
    echo -a The blacklist has been cleared. | halt
  }
  if ($readini(pmblist.ini,nick,$1)) {
    if (!$2) {
      /remini pmblist.ini nick $1
      /remini pmblist.ini reason $1
      /echo -a $1 removed from the blacklist
    }
    else {
      /remini pmblist.ini nick $1
      /remini pmblist.ini reason $1
      /echo -a $1 removed from the blacklist
    }
  }
  else {
    echo -a They're not on it! | halt
  }
}
on *:TEXT:*:?:{
  if (!$readini(pmblist.ini,nick,$nick)) { halt }
  else {
    msg $nick 13[14PM BLOCKED13]14 You are currently on my blacklist. Reason; $+(13,$readini(pmblist.ini,reason,$nick),.)
    msg $nick 13[14PM BLOCKED13]14 If you require my needs, ask me on a channel we're both in (if any); $+(13,$samechans($nick),14.)
    .close -m $nick
    /ignore -pntu600 $nick
    echo -a $nick tried to pm me, sentence; $1-
  }
}
Alias samechans {
  if (!$1) { halt }
  if (!$comchan($1,0)) halt
  else {
    var %c 1, %l
    while (%c <= $comchan($1,0)) {
      var %l %l $comchan($1,%c)
      inc %c
    }
    return %l
  }
}
alias blists {
  //say 13[14PM BLACKLIST13]14 I have a total of13 $ini(pmblist.ini,nick,0) 14people on my blacklist.
}