Mine

on 1:TEXT:!bl*:#: {
  if ($nick isop $chan) {
    if ($istok(%gb, $address($2,1), 32)) { msg # ( $+ $2 $+ ) Is already Blacklisted With Me. | halt }
    set %gb $addtok(%gb, $address($2,1), 32)
    var %a = $comchan($2,0) 
    while (%a) { 
      if ($me isop $comchan($2,%a)) { 
        ban -k $comchan($2,%a) $2 Blacklisted. 
      } 
      dec %a 
    }
  }
}

on 1:TEXT:!add bl*:#:{
  if ($nick isop $chan) {
    if ($istok(%gb, $3, 32)) { msg # ( $+ $3 $+ ) Is allready Blacklisted With Me. | halt }
    set %gb $addtok(%gb, $3, 32)
    msg # Successfully Added ( $+ $3 $+ ) To Blacklist. | halt
  }
}

on 1:TEXT:!bl scan*:#: {
  if ($nick isop $chan) {
    msg # Scanning For Blacklisted.
    timergb 1 5 msg # Scan Complete, Total Found %banned | set %banned 0
    .quote WHO $+(:,$chan)
    var %i = $nick($chan,0) 
    while (%i) { 
      if ($istok(%gb,$address($nick($chan,%i),1),32)) { 
        inc %banned
        ban -k $chan $nick($chan,%i) 1 Global Blacklisted 
      } 
      dec %i 
    }
  } 
}


on me:*:JOIN:#:.quote WHO $+(:,$chan)
on *:OP:#: { 
  if ($opnick == $me) {
    timer 1 1 msg $chan Scanning For Globally Blacklisted.
    timergb 1 6 msg $chan Scan Complete, Total Found %banned | set %banned 0
    var %i = $nick($chan,0) 
    while (%i) { 
      if ($istok(%gb,$address($nick($chan,%i),1),32)) { 
        inc %banned
        ban -k $chan $nick($chan,%i) 1 Global Blacklisted 
      } 
      dec %i 
    }
  } 
}
on 1:JOIN:#: {
  if ($istok(%gb, $address($nick,1), 32)) {
    ban -k $chan $nick Global Blacklisted.
  } 
}

on *:connect: { /mode $me +B }

on 1:TEXT:!clearbl:#: {
  if ($nick == Airsoft4405) {
    unset %gb
    msg # Global Blacklist Clear.
  }
}

on 1:TEXT:!banned global:#: {
  if ($nick isop $chan) {
    if (!%gb) { msg # Error: Global Blacklist Is Empty. | halt }
    else {
      msg # Users Globally Blacklisted: %gb
    }
  }
}
on 1:TEXT:!removebl*:#: {
  if ($nick isop $chan) {
    if (!$istok(%gb, $2, 32)) { msg # ( $+ $2 $+ ) Isn't Blacklisted With Me. | halt }
    else {
      set %gb $remtok(%gb, $2, 32)
      msg # ( $+ $2 $+ ) Removed.
    }
    else notice $nick access denied.
  }