alias bl {
  if (*@* iswm $1) && ($readini(blacklist.ini,blacklist,$1) != $null) && ($readini(blacklist.ini,reason,$1) != $null) {
    echo 3 -ta * $1 is allready blacklisted.
  }
  if (*@* iswm $1) && (!$2) { echo 3 -ta * You need to specify a person to kick. }
  elseif (*@* iswm $1) && ($2) {
    writeini blacklist.ini blacklist $1 blacklisted
    writeini blacklist.ini reason $1 $iif($2 == $null,No reason,$2-)    
    var %i 0 
    while ($chan(%i)) {
      mode $chan(%i) +b $$1
      kick $chan(%i) $$2
      echo 3 -ta * Succesfully blacklisted $$2 $+ .     
      inc %i
    }
  }
  elseif ($readini(blacklist.ini,Blacklist,$address($1,2)) != $null) && ($readini(blacklist.ini,reason,$address($1,2)) != $null) {
    echo 3 -ta * $1 $chr(91) $+ $address($1,1) $+ $chr(93) is allready blacklisted.
  }
  elseif ($address($1,2) == $null) {
    echo 3 -ta * Cannot find $1 $+ 's address, please specify it.
  }
  else {
    writeini blacklist.ini blacklist $address($1,2) blacklisted
    writeini blacklist.ini reason $address($1,2) $iif($2 == $null,No reason,$2-)
    var %i 0 
    while ($chan(%i)) {
      mode $chan(%i) +b $address($1,2) 
      kick $chan(%i) $1 $2- [Blacklisted]
      inc %i
      echo 3 -ta * Successfully blacklisted $1 $+ .   
    }
  }
}
alias unbl { 
  if (*@* iswm $1) && ($readini(blacklist.ini,blacklist,$1) == $null) {
    echo 3 -ta * $1 is not blacklisted.
  }
  elseif (*@* iswm $1) {
    remini blacklist.ini blacklist $1
    remini blacklist.ini reason $1
    var %i 0
    while ($chan(%i)) {
      mode $chan(%i) -b $1
      inc %i
      echo 3 -ta * $1 successfully unblacklisted.
    }
  }
  if ($readini(blacklist.ini,blacklist,$address($1,2)) == $null) {
    echo 3 -ta * $1 is not blacklisted. 
  }
  else {
    remini blacklist.ini blacklist $1
    remini blacklist.ini reason $1
    var %i 0
    while ($chan(%i)) {
      mode $chan(%i) -b $address($1,2)
      inc %i
      echo 3 -ta * Successfuly unblacklisted $address($1,2)
    }
  }
}
on *:JOIN:#:{ if ($me isop $chan) || ($me ishop $chan) ($readini(blacklist.ini,blacklist,$address($nick,2) != $null) {
  mode $chan +b $address($nick,2)
  kick $chan $nick $iif($readini(blacklist.ini,reason,$address($nick,2)) == $null,[Blacklisted],$readini(blacklist.ini,reason,$address($nick,2)) [Blacklisted])
  echo 3 -ta * Blacklisted $nick $chr(91) $+ $address($nick,2) $+ $chr(93) joined $chan $+ .
  }
}