Miscellany

alias -l partmsg { return 4Sorry, I require 5 users in a channel }
alias -l joinmsg { return 12Scanning for blacklist..... }
alias -l exceptchans { return #PDbot #fart #the_shadow #lububot }
alias -l minusers { return 5 }

on *:INVITE:#:{
  join $chan
  if ($istok($exceptchans,$chan,32)) {
    /timer5 1 2 msg $chan Thank you for inviting me. Please visit #PDbot for any errors or just to hang out.
    halt 
  }
  .timer 1 3 pplcheck $chan
}
alias -l pplcheck {
  if ($nick($1,0) < $minusers ) {
    part $1 $partmsg
  }
  else {
    msg $1 $joinmsg
  }
}
on *:PART:#:{
  if ($istok($exceptchans,$chan,32)) { halt }
  if ($nick != $me) && ($nick($chan,0) < $minusers ) {
    part $chan $partmsg
  }
}

alias -l pplcheck {
  if ($nick($1,0) >= $minusers ) {
    /timer1 1 2 msg $1 $joinmsg 
    if ($chan == $readini(blacklist.ini,channels,$chan)) { 
      /timer2 1 5 msg $chan $+ $chan has been blacklisted for: $readini(blacklist.ini,reasons,$chan) $+ 
      /timer1 1 1 /part $chan
      /goto end
    }
    join $chan 
    timer3 1 6  msg $chan PDbot has been invited to $chan by $nick 
    if ($ini(kcount.ini,kickcount,$chan) == $null) {
      halt
    } 
    else { 
      timer4 1 7 msg $chan PDbot has been kicked before, $chan $+ 's kick count is $readini(kcount.ini,kickcount,$chan) $+ / $+ $readini(botsettings.ini,maxkickcount,maxkcount) 
      :end
    }
  } 
}