Stuff

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
      mode $chan(%x) -Q
      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) $1 (Host: $($+(*!*,$2)) $+ ) added to blacklist. Reason: $3- Please do /mode $chan(%x) +b $($+(*!*,$2)) if i am not op/hop | 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) $1 (Host: $($+(*!*,$2)) $+ ) has been deleted from blacklist - /mode $chan(%x) -b $($+(*!*,$2)) if i am not op/hop | 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)
    mode $chan -Q
    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-) }