on *:DIALOG:Bls:sclick:4: { 
  set %reason Reason: $did(9) 
  set %nick $did(7) 
  writeini mybls.ini Blacklisted %nick nick
  writeini mybls.ini Reason %reason reason 
  amsg I just Globally banned %nick %reason 
  var %a 1 
  while ($chan(%a)) { 
    if ($me isop $chan(%a)) || ($me ishop $chan(%a)) { 
      ban -k $chan(%a) %nick 2 %reason (global kickban) 
    } 
    elseif ($me isreg $chan(%a) || $me isvoice $chan(%a)) { 
      msg $v2 I do not have enough power to ban $address(%nick,2) but I suggest you do. $chr(91) Mode $chan(%a) +b $address(%nick,2) $chr(93)  
    } 
    inc %a 
  } 
  did -r $dname 14 
  filter -fo mybls.ini $dname 14 
}
on *:DIALOG:Bls:sclick:5: { 
  set %unbanreason $did(13) 
  set %unbannick $did(11) 
  amsg I Just Globally Unbanned %unbannick Reason: %unbanreason 
  remini mybls.ini Blacklisted %unbannick
  remini mybls.ini reason %unbanreason
  var %a 1 | while ($chan(%a)) { if ($Me isop $chan(%a)) || ($me ishop $chan(%a)) { ban -r $chan(%a) %unbannick 2 %reason } | inc %a } 
  did -r $dname 14
  filter -fo mybls.ini $dname 14
}