egghelp/eggheads community

problem with qnet.tcl

2003-11-19T10:42:18-04:00

thanks guys, much appreciated

Statistics: Posted by MrT — Wed Nov 19, 2003 10:42 am

problem with qnet.tcl

2003-11-19T09:34:53-04:00

also in the auth proc, the regnick and password are not called globaly, then the variables won't exist.

Statistics: Posted by Sir_Fz — Wed Nov 19, 2003 9:34 am

problem with qnet.tcl

2003-11-19T02:27:39-04:00

If you want script just for auto and seting mode +x, you can use this one:

Code:

bind evnt - init-server my:connectproc my:connect init-server {  putquick "PRIVMSG Q@CServe.quakenet.org :AUTH Username Pass"  putquick "MODE $::botnick +x"}

Where is username out your username, and where is pass put your pass...

Statistics: Posted by ]Kami[ — Wed Nov 19, 2003 2:27 am

problem with qnet.tcl

2003-11-18T19:24:16-04:00

You have two procs named "auth". The second one will overwrite the first one and that's what's causing this error. Either rename one of the procs (and change the calls to it) or remove the first one and change the argument part of the second one to only contain one argument called "args"

Statistics: Posted by user — Tue Nov 18, 2003 7:24 pm

problem with qnet.tcl

2003-11-18T17:23:00-04:00

hi, just downloaded and installed qnet.tcl, and it will auth my bot with q fine when the bot joins but i get an error from it which i believe is part of the function to check it is authed at given intervals...

Code:

bind dcc m authset alltimers [timers]for {set i 0} {$i < [llength $alltimers]} {incr i} {  set this [lindex $alltimers $i]  if {[lindex $this 1]=="auth"} {    killtimer [lindex $this 2]  }}timer 1 authproc auth {} {global authtime regnick password    putserv "PRIVMSG Q@cserve.quakenet.org :AUTH $regnick $password"  timer $authtime auth}proc do_auth {nick uhost hand chan} { global regnick password if {$nick != "Q"} {  return 0 } putserv "MODE $chan +o $nick" putserv "PRIVMSG Q@cserve.quakenet.org :AUTH $regnick $password" putserv "PRIVMSG Q :OP $chan"} proc auth {hand idx args} {putserv "PRIVMSG Q@cserve.quakenet.org :AUTH $regnick $password"}set init-server {  putserv "PRIVMSG Q@cserve.quakenet.org :AUTH $regnick $password" }

the error i get is:

Tcl error in script for 'timer47':
no value given for parameter "hand" to "auth"

the "timer47" part seems to increment each time the error occurs

i'd be grateful for any help you can offer.

Statistics: Posted by MrT — Tue Nov 18, 2003 5:23 pm