alias c1 { return $+(,$1-) } 
alias c2 { return $+(,$1-) } 
alias c3 { return $+(,$1-) } 
alias -l Allowlist { return #prayer #BoomBot} 
  alias -l Moreusers { return 3 } 
  alias -l Notopicchans { return } 
  alias -l Leavemsg { return Sorry, I Require At Least 3 Users To Be In Any Channel, Unless Its On The Exeptions List. You don't have the sufficent number, please try again when you get the right amount.. } 

  on *:kick:#: { 
    if ($knick == $me) { 
      inc $+(%,kick.,$chan) 
      if ($($+(%,kick.,$chan),2) > 4) { 
        /writeini black.ini bans $chan banned 
        unset $+(%,kick.,$chan) 
      } 
    } 
  } 
  on me:*:join:#: { 
    if $ini(black.ini,bans,$chan) { 
      part $chan $c1 This channel has Been blacklisted To have this removed please contact $c2 ukbadboy in the channel #BoomBot. 
    } 
    if ($istok($Notopicchans,$Chan,32)) { HALT } 
    if ($($+(%,kick.,$chan),2)) var %left = $+($calc(5 - $v1),/5) 
    else var %left = 5/5 
    msg $chan $c1 [WARNING] This is the betabot. If i am kicked $c2 5 $c1 Times this channel will be blacklisted. $c2 %left kicks left . To make me part: ~LEAVE $me.    
    if ($istok($Allowlist,$Chan,32)) { HALT } 
    else { 
      .timer 1 5 PplCheck $Chan 
    } 
  } 
  alias -l PplCheck { 
    if ($nick($1,0) < $moreusers ) { 
      part $1 $leavemsg 
    } 
    else { HALT } 
  } 

  on *:!PART:#:{ 
    if ($istok($allowlist,$Chan,32)) { HALT } 
    if ($nick != $me) && ($nick(#,0) <= $Moreusers) { 
      part $chan $leavemsg 
    } 
  }