alias blist {
  writeini blist.ini Blist $address($1,2) $iif($2,$2-,No Reason)
  var %i 1
  while ($chan(%i)) {
    if ($me isop $chan(%i)) || ($me ishop $chan(%i)) {
      ban -ku $chan(%i) $1 2
      msg $chan(%i) 4 $+ $1 $+ ( $+ $address($1,2) $+ ) 14has been globally banned by Bot-Admin:4 $nick $+ 14. 14Reason: $+ $+($chr(3)2,2) $iif($2,$2-,No Reason)
    }
    inc %i
  }
}
on *:join:#:{
  if ($readini(blist.ini,blist,$address($nick,2))) {
    ban -ku $chan $nick Black listed user detected: $nick $+ , Reason: $readini(blist.ini,blist,$address($nick,2)) $+ .
  }
}
alias delist {
  remini blist.ini blist $address($1,2)
  amsg $1 $addrress($1,2) has been removed from my black list.
}
alias view {
  var %i = 1
  while (%i <= $ini(blist.ini,blist,0)) {
    notice $me The following list are black listed.
    notice $me $ini(blist.ini,blist,%i)
    inc %i
  }
}