Alias gban {
  if ($address($1,2) == $readini(Blist.ini,BL,$address($1,2))) { echo -a 02Error:07 Already Blacklisted | halt }  
  else {    
    var %gb = 1
    while (%gb <= $chan(0)) {
      mode $chan(%gb) +b $address($1,2)
      inc %gb
    }
    mkick    
    amsg 07[02GBAN07]07 $address($1,2) 02aka "07 $+ $1 $+ 02" Reason:07 $2-
    writeini -n Blist.ini BL $address($1,2) $2-
  }
}
Alias dgban {
  if ($address($1,2) != $readini(Blist.ini,BL,$address($1,2))) { echo -a 02Error:07 Not Blacklisted | halt }  
  else {
    var %dgb = 1
    while (%dgb <= $chan(0)) {
      mode $chan(%dgb) -b $address($1,2)
      inc %gb
    }  
    amsg 07[02UNGBAN07]07 $address($1,2) 02aka "07 $+ $1 $+ 02" Reason:07 $2-
    remini Blist.ini BL $address($1,2) $2-
  }
}
on *:JOIN:#:{
  if ($address($nick,2) == $readini(Blist.ini,BL,$address($1,2))) {
    tb 5 $nick Blacklisted.
  }
}
Alias mkick {
  var %mk = 1
  while (%mk <= $chan(0)) {
    kick $chan(%mk) $1 Blacklisted
  }
}