Someone

on *:invite:#:{ 
  .join $chan 
} 
on *:text:!join*:#:{ 
  .join $$2 
} 
on *:kick:#: { 
  if ($knick == $me) { 
    inc $+(%,kickcnt.,$chan) 
    if ($($+(%,kickcnt.,$chan),2) > 4) { 
      write banchan.txt $chan 
      unset $+(%,kickcnt.,$chan) 
    } 
  } 
} 
on me:*:join:#:{ 
  if $read(banchan.txt,w,$chan) { 
    .part $chan $chan Has been blacklisted to have this removed please contact iDontPm 
  } 
  else { 
    if ($chan != #bots) { 
      if ($($+(%,kickcnt.,$chan),2)) var %left = $+($calc(5 - $v1),/5) 
      else var %left = 5/5 
      .msg # If I Am Kicked More Than 5 Times This Channel Will Be Blacklisted. Number Of Kicks Left %left 
    } 
  } 
} 
On *:TEXT:!addban &:#: { 
  if ($nick = Yakke) || ($nick = iDontPm) || ($nick = bamby) {
    msg $chan $2  9has been added to Blacklist - by $nick . 
    var %file = banchan.txt 
    if ( !$read(%file,nw,$2) ) write %file $2 
  } 
} 
on *:text:!delban &:#: { 
  if ($nick == iDontPm) { 
    msg $chan $2 has now been removed from Blacklist - by $nick . 
    var %file = banchan.txt 
    if ($read(%file,nw,$2)) write $+(-dl,$readn) %file 
  } 
}