Unnamed

on *:TEXT:!blacklist *:#:{
  if ($nick($chan,$nick,ho)) {
    var %host = $address($2,2)
    if ($hget(blacklistexempt,%host)) msg $chan User matches except.
    elseif ($hget(blacklist,%host)) msg $chan User with host %host already exists on the blacklist.
    elseif (*!* iswm $2) msg  $chan I don't think so!
    elseif (!$3) msg $chan Syntax error: ( $+ $re(!blacklist nick reason) $+ )
    else bl.add %host $2 $nick $chan $3-
  }
}
on 1000:TEXT:!blistdel *:#:{
  var %m
  if (*!*@* iswm $2) %m = $2
  elseif ($address($2,2)) %m = $v1
  else {
    userhost $2
    set %bl.delnick $2
    set %bl.nick
    halt
  }
  if ($hget(blacklist,%m)) {
    hdel blacklist %m
    msg #thepc $qt($or(%m)) was removed from the blacklist by $or($nick) $+ .
  }
  else msg $chan User $or($2) was not found in the blacklist.
}
raw 302:*:{
  if (!$2) {
    msg #thepc User $or(%bl.delnick) is not online.
    halt
  }
  else var %m = $+(*!*@,$gettok($2,2,64))
  if ($hget(blacklist,%m)) {
    hdel blacklist %m
    msg #thepc $qt($or(%m)) was removed from the blacklist by $or(%bl.nick) $+ .
  }
  else {
    msg #thepc User $or(%bl.delnick) was not found in the blacklist.
  }
}
alias bl.add {
  hadd -ms blacklist $1 User has been blacklist under nick:07 $2 with reason:07 $5- (Added by:07 $3 on07 $fulldate $+ )
  msg $4 $or($2) has been added to the blacklist (Under host: $or($1) $+ )
  ban -k $4 $2 2 12[7Blacklist12]: $hget(blacklist,$1)
}
alias or { return $+(07,$1-,) }
alias re { return $+(04,$1-,) }