mIRC Shitlist

on *:ban:#:{
  if ($banmask iswm $address($me,5)) && ($me isop $chan) && ($nick != $me) {
    kick # $nick Shitlisted | mode # +b $mask($fulladdress,5) | .auser shit $nick | mode # -b $banmask | return
    .msg cs unban # $me
    .msg cs op all
  }
  else /halt
}
on shit:join:#:{
  kick # $nick Shitlisted
  mode # +b $mask($fulladdress,5)
  .guser shit $nick
}
on *:OP:#:{
  if ($opnick == $me) { .check | return }
}
alias check {
  set %ob6toshit $nick(%cchan,0)
  :start
  inc %lines
  if (%lines =< $calc(%ob6toshit + 1)) goto end
  if ($level($nick(%cchan,%lines)) == shit) && ($nick(%cchan,%lines) != $me) {
    kick %cchan $nick(%cchan,%lines) Shitlisted
  }
  goto start
  :end
  unset %lines
  unset %ob6toshit
}
on shit:unban:#:{
  if ($nick == $me) { halt | return }
  if ($nick != CS) { mode # +b $2- | kick # $nick Shit? | mode # +b $address($nick,5) | return }
  else { if ($me isop #) { .ban # $banmask | return } }
}