egghelp/eggheads community

noobie help

2005-04-28T11:18:42-04:00

thats because you didnt make the variable global. I advise to use "set ::[.." to set and $::commands to read.
2 more suggestions:
use at the beginning

Code:

        set arg [split $arg]        set var [string tolower [lindex $arg 0]]

this saves you all the further tolower things, just use $var for the lindex thing and prevents the script from malefunctioning with "incorrect lists".

later for setting the var i would use that

Code:

            set ::$var [join [lrange $arg 1 end]]

Statistics: Posted by De Kus — Thu Apr 28, 2005 11:18 am

noobie help

2005-04-28T11:11:41-04:00

proc command:commands {nick uhost hand chan arg} {
putserv "NOTICE $nick :$commands"
}

you forgot to global the variable. use

Code:

proc command:commands {nick uhost hand chan arg} {    global commands    putserv "NOTICE $nick :$commands"}

Statistics: Posted by ^DooM^ — Thu Apr 28, 2005 11:11 am

noobie help

2005-04-28T10:53:28-04:00

Great! That works, thanks dude! But for some strange reason its not picking up the variable in the next proc, here is what I have to read the commands variable

proc command:commands {nick uhost hand chan arg} {
putserv "NOTICE $nick :$commands"
}

In the channel I type @set commands @blah1 @blah2 , and then it goes putnotc $nick "I set your commands to $commands" therefore I know the variable is set yet when I type @commands to execute the proc commands:commands , it says its not set.

I am getting this error:
[10:52] Tcl error [command:commands]: can't read "commands": no such variable

Statistics: Posted by daltonc — Thu Apr 28, 2005 10:53 am

noobie help

2005-04-28T10:21:40-04:00

Try this.

Code:

proc command:set {nick uhost hand chan arg} {    if {[isop $nick $chan]} {        if {[string tolower [lindex $arg 1]] == ""} {            putnotc $nick "Error(1): Nothing to set variable to."            return        }        if {[string tolower [lindex $arg 0]] == "commands"} {            set [string tolower [lindex $arg 0]] "[lrange $arg 1 end]"            putnotc $nick "Set commands to $commands"        } elseif {[string tolower [lindex $arg 0]] == "roster"} {            set [string tolower [lindex $arg 0]] "[lrange $arg 1 end]"            putnotc $nick "Set roster to $roster"        } elseif {[string tolower [lindex $arg 0]] == "website"} {            set [string tolower [lindex $arg 0]] "[lrange $arg 1 end]"            putnotc $nick "Set website to $website"        } elseif {[string tolower [lindex $arg 0]] == "sponsors"} {            set [string tolower [lindex $arg 0]] "[lrange $arg 1 end]"            putnotc $nick "Set sponsors to $sponsors"        } elseif {[string tolower [lindex $arg 0]] == "record"} {            set [string tolower [lindex $arg 0]] "[lrange $arg 1 end]"            putnotc $nick "Set record to $record"        } else {        putnotc $nick "Error(1): Unable to set [string tolower [lindex $arg 0]], try using: commands,roster,website,sponsors,record"        return        }    } else {    putnotc $nick "Error(1): You lack access to the 'set' command."    putnotc $nick "Error(2): Unable to 'set' [string tolower [lindex $arg 0]]."    return    }}

I haven't tested this tho.

It also helps to properly format your code with the correct indentations to help see whats going on.

HTH.

Statistics: Posted by ^DooM^ — Thu Apr 28, 2005 10:21 am

noobie help

2005-04-28T08:48:56-04:00

Alright, thanks that seemed to get me through that error, here is my whole code:

Code:

proc command:set {nick uhost hand chan arg} {if {[isop $nick $chan]} {if {[string tolower [lindex $arg 1]] == ""} {putnotc $nick "Error(1): Nothing to set variable to."} else {if {[string tolower [lindex $arg 0]] == "commands" || [string tolower [lindex $arg 0]] == "roster" || [string tolower [lindex $arg 0]] == "website" || [string tolower [lindex $arg 0]] == "sponsors" || [string tolower [lindex $arg 0]] == "record"} {  if {[string tolower [lindex $arg 0]] == "commands"} {  set [string tolower [lindex $arg 0]] "[lrange $arg 1 end]"  putnotc $nick "Set commands to $commands" } elseif {[string tolower [lindex $arg 0]] == "roster"} {  set [string tolower [lindex $arg 0]] "[lrange $arg 1 end]"  putnotc $nick "Set roster to $roster" } elseif {[string tolower [lindex $arg 0]] == "website"} {  set [string tolower [lindex $arg 0]] "[lrange $arg 1 end]"  putnotc $nick "Set website to $website" } elseif {[string tolower [lindex $arg 0]] == "sponsors"} {  set [string tolower [lindex $arg 0]] "[lrange $arg 1 end]"  putnotc $nick "Set sponsors to $sponsors" } elseif {[string tolower [lindex $arg 0]] == "record"} {  set [string tolower [lindex $arg 0]] "[lrange $arg 1 end]"  putnotc $nick "Set record to $record" }}} else {putnotc $nick "Error(1): Unable to set [string tolower [lindex $arg 0]], try using: commands,roster,website,sponsors,record"} else {putnotc $nick "Error(1): You lack access to the 'set' command."putnotc $nick "Error(2): Unable to 'set' [string tolower [lindex $arg 0]]."  } }}

I am getting this error, I have done everything, moved brackets around and such. Anyone know:

Tcl error [command:set]: wrong # args: extra words after "else" clause in "if" command

Statistics: Posted by daltonc — Thu Apr 28, 2005 8:48 am

noobie help

2005-04-28T00:12:07-04:00

In comparing:
== when matches
!= when doesn't match

It should be:

Code:

if {([string tolower [lindex $arg 0]] != "commands") || ([string tolower [lindex $arg 0]] != "website")} {

Alternatively you can also use:

Code:

if {![string equal -nocase "commands" [lindex $arg 0]] || ![string equal -nocase "website" [lindex $arg 0]]} {

Or just convert the string into string tolower and removed the -nocase option, like this:

Code:

if {![string equal "commands" [string tolower [lindex $arg 0]]] || ![string equal -nocase "website" [string tolower [lindex $arg 0]]]} {

Statistics: Posted by awyeah — Thu Apr 28, 2005 12:12 am

noobie help

2005-04-27T21:11:13-04:00

if {[string tolower [lindex $arg 0]] !== "commands" || [string tolower [lindex $arg 0]] !== "website"} { , is that correct?

I get this error:

Tcl error [command:set]: syntax error in expression "[string tolower [lindex $arg 0]] !== "commands" || [string t"

Statistics: Posted by daltonc — Wed Apr 27, 2005 9:11 pm