egghelp/eggheads community

tcl script that refuses to work

2004-03-15T14:47:53-04:00

That's the problem then -- you are running it wrong. It expects arguments and you are giving it none. Try:

.tcl identify_notc somenick uhost hand text dest

Statistics: Posted by stdragon — Mon Mar 15, 2004 2:47 pm

tcl script that refuses to work

2004-03-15T13:59:36-04:00

dcc chat
i try to run the proc mannually too and still same error
.tcl identify_notc

but all i get is that tcl error message

Statistics: Posted by Syntax — Mon Mar 15, 2004 1:59 pm

tcl script that refuses to work

2004-03-15T13:53:11-04:00

When do you get the error? Where do you see the error?

Statistics: Posted by stdragon — Mon Mar 15, 2004 1:53 pm

tcl script that refuses to work

2004-03-15T13:45:44-04:00

gah still
Tcl error: wrong # args: should be "identify_notc nick host hand text dest"

Tcl version: 8.4.2 (header version 8.4.2)
running eggdrop v1.6.15

Statistics: Posted by Syntax — Mon Mar 15, 2004 1:45 pm

tcl script that refuses to work

2004-03-15T10:07:20-04:00

This code must work:

Code:

bind notc - "*This nickname is registered and protected*" identify_notcproc identify_notc {nick host hand text dest} {   global botnick nickserv identcmd identpass   if {[string match -nocase "$nick" "$nickserv"]} {    putserv "PRIVMSG $nickserv :$identcmd $identpass"     putlog "Identifying: $nickserv (as $botnick)"   } }

Statistics: Posted by Xpert — Mon Mar 15, 2004 10:07 am

tcl script that refuses to work

2004-03-15T09:35:44-04:00

Tcl error: wrong # args: should be "identify_notc nick uh hand text dest"

Statistics: Posted by Syntax — Mon Mar 15, 2004 9:35 am

tcl script that refuses to work

2004-03-15T08:57:11-04:00

Code:

proc identify_notc {nick uh hand text dest} {

Statistics: Posted by Papillon — Mon Mar 15, 2004 8:57 am

tcl script that refuses to work

2004-03-15T08:42:58-04:00

bind notc - "*This nickname is registered and protected*" identify_notc

Statistics: Posted by Syntax — Mon Mar 15, 2004 8:42 am

tcl script that refuses to work

2004-03-15T07:23:01-04:00

Where is the bind of the code?

Statistics: Posted by Xpert — Mon Mar 15, 2004 7:23 am

tcl script that refuses to work

2004-03-15T07:20:35-04:00

Nope still refuses to work

Statistics: Posted by Syntax — Mon Mar 15, 2004 7:20 am

Re: tcl script that refuses to work

2004-03-15T07:11:32-04:00

Code:

proc identify_notc { nick uh hand text } {

Should be:

Code:

proc identify_notc {nick uh hand text} {

also, you can change this line:

Code:

if {[string match [string tolower $nick] [string tolower $nickserv]]} {

to:

Code:

if {[string match -nocase "$nick" "$nickserv"]} {

Statistics: Posted by Xpert — Mon Mar 15, 2004 7:11 am

tcl script that refuses to work

2004-03-15T06:49:37-04:00

Code:

proc identify_notc { nick uh hand text } {  global botnick nickserv identcmd identpass if {[string match [string tolower $nick] [string tolower $nickserv]]} {  putserv "PRIVMSG $nickserv :$identcmd $identpass"  putlog "Identifying: $nickserv (as $botnick)" }}

it refuses to work all i get is

Code:

Tcl error: wrong # args: should be "identify_notc nick uh hand text"

Statistics: Posted by Syntax — Mon Mar 15, 2004 6:49 am