Something

alias blacklist {
  if ($readini(black.ini,$($+(*!*,$2)),blacklisted) == YES) {
    echo -a $1 - $($+(*!*,$2)) is already blacklisted $iif(($readini(black.ini,$1,msg)),For the Reason: $readini(black.ini,$1,msg),$null) 
  }
  else {
    /writeini black.ini $1 blacklisted YES
    /writeini black.ini $($+(*!*,$2)) blacklisted YES
    /writeini black.ini $1 msg $3-
    notice $1 blacklisted
    var %x = 1
    while (%x <= $chan(0)) {
      mode $chan(%x) +b $2
      kick $chan(%x) $1 4»0,4»5»4,5»1»5,1»0 Blacklisted - $iif($3-,Reason: $3- -,$null) Nubs ownt: %kickcounter 5«1,5«4«5,4«0«4,0«
      /timer 1 2 /msg $chan(%x) $b3 $+ $1 $b2 $+ aka7 $2 $+ $b1 Has been Globally Banned & Blacklisted. $b3 $+ Reason: $+ $b1 $3- : by $b3 $me ; $b1 $+ If I am not 4op/hop $+ $b1 please $b3 $+ /mode $chan(%x) +b $($+(*!*,$2)) | inc %x
    }
  }
}
alias unblacklist {
  if ($readini(black.ini,$1,blacklisted) == YES) || ($readini(black.ini,$2,blacklisted) == YES) {
    /remini black.ini $1
    /remini black.ini $($+(*!*,$2))
    var %x = 1
    while (%x <= $chan(0)) {
      mode $chan(%x) -b $($+(*!*,$2))
      /timer 1 2 /msg $chan(%x) $b3 $+ $1 $b2 $+ aka $($+($b3,*!*,$2)) $b2 $+ Has been Unblacklisted : by $me ; If I am not op/hop please /mode $chan(%x) -b $($+(*!*,$2)) | inc %x
    }
  }
}
on *:JOIN:#: {
  if ($readini(black.ini,$address($nick,2),blacklisted) == YES) || ($readini(black.ini,$nick,blacklisted) == YES) {
    /mode $chan -qaohv $nick $nick $nick $nick $nick
    inc %kickcounter
    mode $chan +b $address($nick,2)
    kick $chan $nick 4»0,4»5»4,5»1»5,1»0 Blacklisted - $iif(($readini(black.ini,$nick,msg)),Reason: $readini(black.ini,$nick,msg) -,$null) Nubs ownt: %kickcounter 5«1,5«4«5,4«0«4,0«
  }
}
alias b1 { return $+(2,$1-) } 
alias b2 { return $+(14,$1-) }
alias b3 { return $+(7,$1-) }