Afroman xD

alias blist { 
  writeini -n blist.ini Blacklist $address($1,2) $2- 
  amsg 7Added12 $blue($1) 15« »7 Host: $blue($address($1,2)) 7To Blacklist 15« » 7Reason: $blue($2-) 
  var %x 1 
  while (%x <= $chan(0)) { 
    inc %blacklists 
    if ($me isop $chan(%x)) || ($me ishop $chan(%x)) { 
      mode $chan(%x) +bb $1 $address($1,2) 
      kick $chan(%x) $1 $chr(164) Blacklist $chr(164) $2- $chr(164) %blacklists $chr(164) 
      inc %x 
    } 
    elseif ($me isvoice $chan(%x)) || ($me isreg $chan(%x)) { 
      halt 
      inc %x 
    } 
  } 
} 
on *:JOIN:#: { 
  if ($me isop $chan) || ($me ishop $chan) && ($readini(blist.ini, Blacklist, $address($nick,2))) { 
    ban -k # $nick 7Boom! Headshot!12 $nick 7 was Found ony my Blacklist. Reason:12 $readini(blist.ini, Blacklist, $address($nick,2)) 
  } 
} 
alias unblist { 
  if ($readini(blist.ini, Blacklist, $address($1,2))) { 
    amsg  $blue(7Deleted:) $blue $blue($1) $red(7From my BlackList Script. Was initially Banned because:) $blue($readini(blist.ini, Blacklist, $address($1,2))) 
    remini blist.ini Blacklist $address($1,2) 
    var %x 1 
    while (%x <= $chan(0)) { 
      if ($me isop $chan(%x)) || ($me ishop $chan(%x)) { 
        mode $chan(%x) -bb $1 $address($1,2) 
        inc %x 
      } 
      elseif ($me isvoice $chan(%x)) || ($me isreg $chan(%x)) { 
        halt
        inc %x 
      } 
    } 
  } 
} 
alias red { return $+($chr(3),04,$1-)) } 
alias blue { return $+($chr(3),12,$1-)) }