tcl script that refuses to work

[Syntax]

Code: Select all

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: Select all

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

[Xpert]

Code: Select all

proc identify_notc { nick uh hand text } {

Should be:

Code: Select all

proc identify_notc {nick uh hand text} {

also, you can change this line:

Code: Select all

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

to:

Code: Select all

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

[Syntax]

Nope still refuses to work

[Xpert]

Where is the bind of the code?

[Syntax]

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

[Papillon]

Code: Select all

proc identify_notc {nick uh hand text dest} {

[Syntax]

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

[Xpert]

This code must work:

Code: Select all

bind notc - "*This nickname is registered and protected*" identify_notc
proc 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)" 
  } 
}

[Syntax]

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

[stdragon]

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

[Syntax]

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

[stdragon]

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