Posted to tcl by never at Sun Dec 02 16:28:35 GMT 2007view raw
- bind pub n|n .auth auth
- bind pub n|n !auth auth
- bind pub n|n -auth auth
- proc auth {nick host hand text} {
- global botnick
- putquick "PRIVMSG X@channels.undernet.org :Login username password"
- putquick "MODE $botnick +x"
- }