Eggdrop/QuakeAuth

From S23Wiki

TCL scripts to authenticate with Q on the Quakenet IRC network

<+caytchen>

bind pub n !auth authme 

proc authme {nick uhost hand chan text}
{ putquick "privmsg q@cserve.quakenet.org :AUTH <nick> <pass>";putserv "mode $::botnick +x" }

<@BhaaL> so gehts beim connect *g*

bind evnt - init-server sinit

proc sinit {type} {
putserv "MODE $::botnick +x"
putquick "PRIVMSG q@cserve.quakenet.org :auth <nick> <pass>"
}