Something

on *:KICK:#: {
  if ($knick == $me) {
    inc %kicks [ $+ [ $chan ] ]
  }
}
on *:INVITE:#: {
  if (%kicks [ $+ [ $chan ] ] < 5) {
    join $chan
    msg $chan  Thanks for inviting me $nick $+ . I have been kicked %kicks [ $+ [ $chan ] ] times.  5 kicks will result in Perm Blacklist!
  }
  else {
    notice $nick $chan is blacklisted. To have the blacklist removed, Join #curtbot and ask Op/Hop.
  }
}
on *:TEXT:!unblacklist*:#:{
  if (($nick isop #curtbot) || ($nick ishop #curtbot)) {
    set %kicks [ $+ [ $2 ] ] 0
    notice $chan $nick $2 Has been taken off the blacklist.
  }
}
on *:TEXT:!blacklist*:#: {
  if (($nick isop #curtbot) || ($nick ishop #curtbot)) {
    set %kicks [ $+ [ $2 ] ] 5
    msg $chan $2 Has been blacklisted
    part $2
  }
}
on *:TEXT:!blistinfo*:#:{
  if (($nick isop #curtbot) || ($nick ishop #curtbot)) {
    .timer 1 1 notice $nick  Blacklist Information For: $2
    .timer 1 2 notice $nick Times kicked %kicks [ $+ [ $2 ] ]
    .timer 1 3 notice $nick Status: $iff(%kicks [ $+ [ $2 ] ] < 5 Blacklisted, Not blacklisted)
  }
}