egghelp/eggheads community

Wrong args error

2003-03-23T10:53:51-04:00

aha, thank u v much. I only started learning TCL yesterday so I'm not yet familer with all the functions/procs and stuff :p

Statistics: Posted by Massacre — Sun Mar 23, 2003 10:53 am

Wrong args error

2003-03-23T10:47:22-04:00

Code:

incr count

This is the simplest approach.

Statistics: Posted by ppslim — Sun Mar 23, 2003 10:47 am

Wrong args error

2003-03-23T09:05:32-04:00

also

Code:

set count $count + 1

this does the same thing... and tcl does not work as php... you have to do something like

Code:

set count [expr $count + 1]

Statistics: Posted by Papillon — Sun Mar 23, 2003 9:05 am

Wrong args error

2003-03-23T08:57:51-04:00

See the line

Code:

set ws_extras $ws_extras [lindex $ws_info $count]

This is sending 3 seperate arguments to the set command.

If you are looking to add the information using a space, the enclose it in quotes

Code:

set ws_extras "$ws_extras [lindex $ws_info $count]"

Statistics: Posted by ppslim — Sun Mar 23, 2003 8:57 am

Wrong args error

2003-03-23T06:18:58-04:00

I'm currently making a small script to remember and repeat information about our next war to other clan members. My problem is I keep getting this error generated in my logs:

Tcl error [setwarinfo]: wrong # args: should be "set varName ?newValue?"

but I can't find the part of my proc that's the problem. Can anyone help plz? Below is the bind and proc:

Code:

bind pub - !setwar setwarinfoproc setwarinfo { nick uhost hand chan arg } {global ws_clanglobal ws_mapsglobal ws_playersglobal ws_timeglobal ws_dayglobal ws_extrasif {!([string match -nocase $arg ""])} {set ws_info [split $arg]set count 0while {!([string match -nocase [lindex $ws_info $count] ""])} { if {$count == 0} {set ws_players [lindex $ws_info  $count]} elseif {$count == 1} {set ws_day [lindex $ws_info $count]} elseif {$count == 2} {set ws_clan [lindex $ws_info $count]} elseif {$count == 3} {set ws_time [lindex $ws_info $count]} elseif {$count == 4} {set ws_maps [lindex $ws_info $count]} else {set ws_extras $ws_extras [lindex $ws_info $count]}set count $count + 1}if {$count < 5} {putquick "PRIVMSG $chan :!setwar usage is: !setwar      "} else {putquick "PRIVMSG $chan :War set: $ws_players war $ws_day vs $ws_clan @ $ws_time on $ws_maps \[{$ws_extras}\]: 12\[USAGE\] Use !av, !ma, and !na to set ur status."}} else {putquick "PRIVMSG $chan :!setwar usage is: !setwar      "}}

I'd be very greatful for any help as I have tried many things including putting checkpoints throughout the proc but as non of them were called I'm assuming the error occurs when the tcl parser, if u like, does its pre-execution checks. (The proc did work before I put the while loop in).

Statistics: Posted by Massacre — Sun Mar 23, 2003 6:18 am