[script]
n0=;# Global Blacklist v0.01
n1=;# Commands
n2=;
n3=;# $gb [nick] (If the nick is on that channel.)
n4=;# $add gb $address([nick],2)
n5=;# $scan gb (Just incase they got past the blacklist if the bot wasn't opped.)
n6=;# $removegb $address([nick],2)
n7=;# $gblist (Shows you the blacklisted addresses.)
n8=;# $cleargb (Removes all blacklisted addresses.)
n9=
n10=
n11=;#The Code.
n12=
n13=ON *:TEXT:$($!gb*):#:{
n14=  if ($Nick isop #fusionbot) {
n15=    if ($istok(%gb, $address($2,2), 32)) { msg #FusionBot-Admins [Blacklist]: That user/host was found in the blacklist database. | halt }
n16=    set %gb $addtok(%gb, $address($2,2), 32)
n17=    var %a = $comchan($2,0) 
n18=    while (%a) {
n19=      if ($me isop $comchan($2,%a)) { 
n20=        ban -k $comchan($2,%a) $2 [Blacklisted] User/host was found in the blacklist database. 
n21=      } 
n22=      dec %a 
n23=    }
n24=  }
n25=}
n26=ON *:TEXT:$($!add gb*):#:{
n27=  if ($Nick isop #fusionbot) {
n28=    if ($istok(%gb, $3, 32)) { msg #FusionBot-Admins [Blacklist]: That user/host was found in the blacklist database. | halt }
n29=    set %gb $addtok(%gb, $3, 32)
n30=    msg #FusionBot-Admins [Blacklist]: Added  $+ $3 $+  to the blacklist database. | halt
n31=  }
n32=}
n33=ON *:TEXT:$($!scan gb):#:{
n34=  if ($Nick isop #fusionbot) {
n35=    .quote WHO $+(:,$chan)
n36=    var %i = $nick($chan,0) 
n37=    while (%i) { 
n38=      if ($istok(%gb,$address($nick($chan,%i),1),32)) { 
n39=        inc %banned
n40=        ban -k $chan $nick($chan,%i) 2 [Blacklist]: User/host was found in the blacklist database.
n41=      } 
n42=      dec %i 
n43=    }
n44=  } 
n45=}
n46=on me:*:JOIN:#:.quote WHO $+(:,$chan)
n47=on *:OP:#: { 
n48=  if ($opnick == $me) { 
n49=    var %i = $nick($chan,0) 
n50=    while (%i) { 
n51=      if ($istok(%gb,$address($nick($chan,%i),1),32)) { 
n52=        inc %banned
n53=        ban -k $chan $nick($chan,%i) 2 [Blacklist]: User/host was found in the blacklist database.
n54=      } 
n55=      dec %i 
n56=    }
n57=  } 
n58=}
n59=ON *:JOIN:#:{
n60=  if ($istok(%gb, $address($nick,2), 32)) {
n61=    ban -k $chan $nick [Blacklist]: User/host was found in the blacklist database.
n62=  } 
n63=}
n64=ON *:TEXT:$($!cleargb):#:{
n65=  if ($Nick isop #fusionbot) {
n66=    unset %gb
n67=    msg #FusionBot-Admins [Blacklist]: All blacklisted users/hosts were cleared. Blacklist database status: N/A.
n68=  }
n69=}
n70=ON *:TEXT:$($!viewgb):#:{
n71=  if ($Nick isop #fusionbot) {
n72=    if (!%gb) { msg #FusionBot-Admins [Blacklist]: (Error) No hosts/users were found in the blacklist database. Blacklist database status: N/A. | halt }
n73=    else {
n74=      msg #FusionBot-Admins [Blacklist]: Blacklisted users/hosts: %gb
n75=    }
n76=  }
n77=}
n78=ON *:TEXT:$($!removegb*):#:{
n79=  if ($Nick isop #fusionbot) {
n80=    if (!$istok(%gb, $2, 32)) { msg #FusionBot-Admins [Blacklist]: That user/host was found in the blacklist database. | halt }
n81=    else {
n82=      set %gb $remtok(%gb, $2, 32)
n83=      msg #FusionBot-Admins [Blacklist]: $2 was removed from the blacklisted hosts/users.
n84=    }
n85=  }
n86=}