A decent old blacklist script. has some modes and functions i probably forgotten by now, enjoy!

    alias bl {
      if ($1 == $null) {
        echo -a $timestamp <BL> Welcome to the blahklist help
        echo -a $timestamp <BL> Commands:
        echo -a $timestamp <BL> /bl add <nick> <reason> - Add a nick to the blacklist with or without reason
        echo -a $timestamp <BL> /bl del <nick> - deletes a nick from the blahklist
        echo -a $timestamp <BL> /bl creason <nick> <new reason> - change the blisted reason
        echo -a $timestamp <BL> /bl qadd <nick> <reason> - Add a nick on emediate pwnage
        echo -a $timestamp <BL> /bl aadd <address> <reason> - Blahklist an hostmask
        echo -a $timestamp <BL> /bl adel <address> - Remove an address Blahklist
        echo -a $timestamp <BL> /bl status - Show BL status (blahklisted, kicks, persons blahklisted etc.)
        echo -a $timestamp <BL> -----------
        echo -a $timestamp <BL> Note that the normal blahklist add will just start working on victems text, action or a join
        echo -a $timestamp <BL> Use the qadd to furfill your dream of immediate pwnage!
        echo -a $timestamp <BL> The're are 2 menu's! 1 for quick pwning and a more advanced menu
        echo -a $timestamp <BL> For more info visit us at IRC at irc.revpermin.com or forums at www.revpermin.com/forums/
      }

      if ($1 == add) {
        if ($2 == $null) {
          echo -n $timestamp <BL> Enter a victem!
          halt
        }
        if ($readini(bl.ini, $nick, listed) == 1) {
          echo -a $timestamp <BL> Already in the list!
          halt
        }
        if ($3 == $null) {
          writeini -n bl.ini main total $calc($readini(bl.ini, main, total) + 1)
          writeini -n bl.ini list $readini(bl.ini, main, total) $2
          writeini -n bl.ini $2 listed 1
          writeini -n bl.ini $2 reason No Reason
          if ($2 ison $chan) {
            writeini -n bl.ini $2 host $address($2, 2)
            writeini -n bl.ini address $address($2,2) 1
          }
          echo -a $timestamp <BL> $2 has been added!
          halt
        }
        writeini -n bl.ini main total $calc($readini(bl.ini, main, total) + 1)
        writeini -n bl.ini list $readini(bl.ini, main, total) $2
        writeini -n bl.ini $2 listed 1
        writeini -n bl.ini $2 reason $3-
        if ($2 ison $chan) {
          writeini -n bl.ini $2 host $address($2, 2)
          writeini -n bl.ini address $address($2,2) 1
        }
        echo -a $timestamp <BL> $2 has been added! Reason: $3-
      }
      if ($1 == qadd) {
        if ($2 == $null) {
          echo -n $timestamp <BL> Enter a victem!
          halt
        }
        if ($readini(bl.ini, $nick, listed) == 1) {
          echo -a $timestamp <BL> Already in the list!
          halt
        }
        if ($3 == $null) {
          writeini -n bl.ini main total $calc($readini(bl.ini, main, total) + 1)
          writeini -n bl.ini list $readini(bl.ini, main, total) $2
          writeini -n bl.ini $2 listed 1
          writeini -n bl.ini $2 reason No Reason
          if ($2 ison $chan) {
            writeini -n bl.ini $2 host $address($2, 2)
          }
          echo -a $timestamp <BL> $2 has been added!
          writeini -n bl.ini main kicks $calc($readini(bl.ini, main, kicks) + 1)
          writeini -n bl.ini kicks $2 $calc($readini(bl.ini, kicks, $2) +1)
          mode $chan +bbbbb $address($2, 1) $address($2, 2) $address($2, 3) $address($2, 4) $address($2, 5)
          kick # $2 Blahklisted! No Reason - Total kicks: $bytes($readini(bl.ini, main, kicks), b) Yours: $bytes($readini(bl.ini, kicks, $2), b )
          halt
        }
        writeini -n bl.ini main total $calc($readini(bl.ini, main, total) + 1)
        writeini -n bl.ini list $readini(bl.ini, main, total) $2
        writeini -n bl.ini $2 listed 1
        writeini -n bl.ini $2 reason $3-
        if ($2 ison $chan) {
          writeini -n bl.ini $2 host $address($2, 2)
        }
        writeini -n bl.ini main kicks $calc($readini(bl.ini, main, kicks) + 1)
        writeini -n bl.ini kicks $2 $calc($readini(bl.ini, kicks, $2) +1)
        mode $chan +bbbbb $address($2, 1) $address($2, 2) $address($2, 3) $address($2, 4) $address($2, 5)
        kick # $2 Blahklisted! No Reason - Total kicks: $bytes($readini(bl.ini, main, kicks), b) Yours: $bytes($readini(bl.ini, kicks, $2), b )
        echo -a $timestamp <BL> $2 has been added! Reason: $3-
      }
      if ($1 == creason) {
        if ($2 == $null || $3 == $null) { echo -a $timestamp <BL> ERROR! Enter a nick/reason! | halt }
        if ($readini(bl.ini, $2, listed) == 1) {
          writeini -n bl.ini $2 reason $3-
          echo -a $timestamp <BL> Changed Reason for $2 into: $3-
        }
      }
      if ($1 == aadd) {
        if ($2 == $null || $3 != $null) { echo -a $timestamp <BL> ERROR! Enter a victem! No reason | halt }
        writeini -n bl.ini main totala $calc($readini(bl.ini, main, totala) + 1)
        writeini -n bl.ini lista $readini(bl.ini, main, totala) $2
        writeiin -n bl.ini address $2 1
        echo -a $timestamp <BL> $2 has been blisted
      }
      if ($1 == del) {
        if ($2 == $null) { echo -a $timestamp <BL> Enter a victem! | halt }
        if ($readini(bl.ini, $2, listed) == 1) {
          writeini -n bl.ini $2 listed 0
          echo -a $timestamp <BL> $2 has been removed from the blahklist!
        }
      }
      if ($1 == adel) {
        if ($2 == $null) { echo -a $timestamp <BL> Enter a victem! | halt }
        if ($readini(bl.ini, $2, listed) == 1) {
          writeini -n bl.ini address $2 0
          echo -a $timestamp <BL> $2 has been removed from the blahklist!
        }
      }
      if ($1 == status) {
        echo -a $timestamp <BL> Blahklist Status:
        echo -a $timestamp <BL> Blahklisted so far: $bytes($readini(bl.ini, main, total), b)
        echo -a $timestamp <BL> Kicks: $bytes($readini(bl.ini, main, kicks), b)
        echo -a $timestamp <BL> Listed:
        set %blist 0
        while (%blist < $readini(bl.ini, main, total)) {
          inc %blist
          if ($readini(bl.ini, $readini(bl.ini, list, %blist), listed) == 1) {
            echo -a $timestamp <BL> $readini(bl.ini, list, %blist) Reason: $readini(bl.ini, $readini(bl.ini, list, %blist), reason) - Pwned: $bytes($readini(bl.ini, kicks, $readini(bl.ini, list, %blist)), b)
          }
        }
        echo -a $timestamp <BL> Address blahklist:
        set %blist2 0
        while (%blist2 < $readini(bl.ini, main, totala)) {
          inc %blist2
          if ($readini(bl.ini, adress, $readini(bl.ini, lista, %blist2)) == 1) {
            echo -a $timestamp <BL> $readini(bl.ini, lista, %blist2)

          }
        }
      }
    }

    menu nicklist {
      QBLMenu:
      .Help:/bl
      .add:/bl add $1
      .del:/bl del $1
      .Qadd:/bl qadd $1
      Blahklist:
      .help:/bl
      .Add:/bl add $$?="Nick:" $$?="Reason:"
      .Qadd:/bl qadd $$?="Nick:" $$?="Reason:"
      .Aadd:/bl aadd $$?="Address:(@adress.com)"
      .del:/bl del $$?="Nick:"
      .Adel:/bl adel $$?="Address:"
      .Creason:/bl creason $$?="Nick:" $$?="New Reason:"
      .Status:/bl status

    }
    ON *:JOIN:#:{
      if ($readini(bl.ini, $nick, listed) == 1) {
        writeini -n bl.ini main kicks $calc($readini(bl.ini, main, kicks) + 1)
        writeini -n bl.ini kicks $nick $calc($readini(bl.ini, kicks, $nick) +1)
        mode $chan +bbbbb $address($nick, 1) $address($nick, 2) $address($nick, 3) $address($nick, 4) $address($nick, 5)
        kick # $nick Blahklisted! Reason: $readini(bl.ini, $nick, reason) - Total kicks: $bytes($readini(bl.ini, main, kicks), b) Yours: $bytes($readini(bl.ini, kicks, $nick), b )
      }
      if ($readini(bl.ini, address, $address($nick, 2)) == 1) {
        writeini -n bl.ini main kicks $calc($readini(bl.ini, main, kicks) + 1)
        writeini -n bl.ini kicks $nick $calc($readini(bl.ini, kicks, $nick) +1)
        mode $chan +bbbbb $address($nick, 1) $address($nick, 2) $address($nick, 3) $address($nick, 4) $address($nick, 5)
        kick # $nick Blahklisted! Total kicks: $bytes($readini(bl.ini, main, kicks), b) Yours: $bytes($readini(bl.ini, kicks, $nick), b )
      }
    }
    ON *:TEXT:*:#:{
      if ($readini(bl.ini, $nick, listed) == 1) {
        writeini -n bl.ini main kicks $calc($readini(bl.ini, main, kicks) + 1)
        writeini -n bl.ini kicks $nick $calc($readini(bl.ini, kicks, $nick) +1)
        mode $chan +bbbbb $address($nick, 1) $address($nick, 2) $address($nick, 3) $address($nick, 4) $address($nick, 5)
        kick # $nick Blahklisted! Reason: $readini(bl.ini, $nick, reason) - Total kicks: $bytes($readini(bl.ini, main, kicks), b) Yours: $bytes($readini(bl.ini, kicks, $nick), b )
      }
      if ($readini(bl.ini, address, $address($nick, 2)) == 1) {
        writeini -n bl.ini main kicks $calc($readini(bl.ini, main, kicks) + 1)
        writeini -n bl.ini kicks $nick $calc($readini(bl.ini, kicks, $nick) +1)
        mode $chan +bbbbb $address($nick, 1) $address($nick, 2) $address($nick, 3) $address($nick, 4) $address($nick, 5)
        kick # $nick Blahklisted! Total kicks: $bytes($readini(bl.ini, main, kicks), b) Yours: $bytes($readini(bl.ini, kicks, $nick), b )
      }
    }
    ON *:ACTION:*:#:{
      if ($readini(bl.ini, $nick, listed) == 1) {
        writeini -n bl.ini main kicks $calc($readini(bl.ini, main, kicks) + 1)
        writeini -n bl.ini kicks $nick $calc($readini(bl.ini, kicks, $nick) +1)
        mode $chan +bbbbb $address($nick, 1) $address($nick, 2) $address($nick, 3) $address($nick, 4) $address($nick, 5)
        kick # $nick Blahklisted! Reason: $readini(bl.ini, $nick, reason) - Total kicks: $bytes($readini(bl.ini, main, kicks), b) Yours: $bytes($readini(bl.ini, kicks, $nick), b )
      }
      if ($readini(bl.ini, address, $address($nick, 2)) == 1) {
        writeini -n bl.ini main kicks $calc($readini(bl.ini, main, kicks) + 1)
        writeini -n bl.ini kicks $nick $calc($readini(bl.ini, kicks, $nick) +1)
        mode $chan +bbbbb $address($nick, 1) $address($nick, 2) $address($nick, 3) $address($nick, 4) $address($nick, 5)
        kick # $nick Blahklisted! Total kicks: $bytes($readini(bl.ini, main, kicks), b) Yours: $bytes($readini(bl.ini, kicks, $nick), b )
      }
    }
    ON *:UNBAN:*:{
      if ($readini(bl.ini, address, $banmask) == 1) {
        mode $chan +b $banmask
      }
    }