Miscellany

alias nickcheck { if ($1 == #probot) { halt }
elseif ($nick($1,0) >= 3) { //msg $1 10Thanks for inviting me into your channel! To ask me to leave, 

please type 13!quit10. For commands please type 13!commands10. For further support go to 

13#probot10. } 
else { part $1 Minimum of 2 Users. } 
}

on me:*:join:#:{ 
if ($nick == $me) { 
timer 1 1 nickcheck $chan
}  
elseif $hget(Blacklist,$+($network,.,$chan)) == $null { 
    .hadd -m Blacklist $+($network,.,$chan) 3 
    .hadd -m Blacklist $network $addtok($hget(Blacklist,$network),$chan,44) 
  } 
  elseif $hget(Blacklist,$+($network,.,$chan)) < 1 { 
.msg $chan 10This channel has been blacklisted. Please go to 13#Probot10 to ask to be removed from 

blacklist.
.part $chan Blacklisted }
}

on *:part:#:{ if ($nick == $me) { halt }
elseif ($chan == #probot) { halt }
elseif ($nick($chan,0) >= 2) { halt } 
else { //part $chan Minimum of 2 Users. } 
}

on *:invite:#:{ if ($me == Probot) { //notice $nick 10Searching for an Open bot to join13 $chan $+ 

10. Please Wait... } 
   if ($chan(0) > 30) { msg #Probot join $chan }
elseif ($me == Probot) { join $chan } 
} 

on *:text:join *:?:{ if ($nick != Probot) { halt }
elseif ($2(0) > 30) { msg #Probot join $chan $nick }   
elseif ($nick == Probot) { join $2 }
}

on *:kick:#:{ 
  if $knick == $me { 
    .hdec -m Blacklist $+($network,.,$chan) 1 
    if $hget(Blacklist,$+($network,.,$chan)) { 
    } 
  } 
} 
on *:start:{ 
  if !$hget(Blacklist) { .hmake Blacklist 10 } 
  if $exists(Blacklist.hsh) { .hload Blacklist Blacklist.hsh } 
} 
on *:exit:{ 
  .hsave -o Blacklist Blacklist.hsh 
} 
on *:disconnect:{ 
  .hsave -o Blacklist Blacklist.hsh 
} 

on *:connect:{ 
  if $hget(Blacklist,$network) > 0 { 
    .join $hget(Blacklist,$network) 
  } 
} 

on *:text:!remove*:*:{ 
  if (($nick == Jord|War2) || ($nick == Top)) { 
    if !$2 { 
      .notice $nick 10No network or channel specified. 
    } 
    elseif !$3 { 
      if $hfind(Blacklist,$+($2,.,*),0,w) { 
        .hdel -w Blacklist $+($2,.,*) 
        .notice $nick 10Network13 $2 10removed from blacklist. 
      } 
      elseif $hfind(Blacklist,$+(*,.,$2),0,w) { 
        .hdel -w Blacklist $+(*,.,$2) 
        .notice $nick 10Channel13 $2 10removed from all networks on blacklist. 
      } 
}
}
}

on *:TEXT:!bcheck:#:{ 
.notice $nick 10There are13 $hget(Blacklist,$+($network,.,$chan)) 10kicks of me left before13 $chan 

10is blacklisted.
}

on *:TEXT:!bcheck *:#:{ 
.notice $nick 10There are13 $hget(Blacklist,$+($network,.,$2)) 10kicks of me left before13 $2 10is 

blacklisted.
}