egghelp/eggheads community

if no variable is set

2004-04-28T22:14:18-04:00

k, I kind of get where you are coming from, but let me go into greater detail to help YOU help ME even easier.

- my variables are in a file called vars.tcl (in the scripts folder)

Here is what the code looks like in my vars.tcl

Code:

# set variableset variwannaset "default set"

Here is how I have it laid out:

Code:

proc saveVars {vars.tcl nick} {    set f [open $file w]    set i 0    foreach var $args {       upvar 1 $var [incr i]       if {[array exists $i]} {          puts $f [list array set $var [array get $i]]       } elseif {[info exists $i]} {          puts $f [list set $var [set $i]]       }    }    close $f }proc loadVars file {uplevel 1 [list source scripts/$file]}

and here is the actual command:

Code:

proc cmd:setvar {nick host handle chan text} { global privchan variwannaset foreach channel $privchan {   if {$chan == "$privchan"} {   loadVars vars.tcl   set variwannaset "$text"   putquick "NOTICE $nick :Variable has been set to: \002$variwannaset\002"   saveVars vars.tcl variwannaset    } }}

The above happens when someone types !setvar < newvariable >

Why is it not saving?

Statistics: Posted by collett9 — Wed Apr 28, 2004 10:14 pm

if no variable is set

2004-04-28T19:16:40-04:00

Code:

proc saveVars {file args} {set f [open $file w]set i 0foreach var $args {upvar 1 $var [incr i]if {[array exists $i]} {puts $f [list array set $var [array get $i]]} elseif {[info exists $i]} {puts $f [list set $var [set $i]]}}close $f}proc loadVars file {uplevel 1 [list source $file]}

usage:
saveVars
loadVars

Statistics: Posted by user — Wed Apr 28, 2004 7:16 pm

if no variable is set

2004-04-28T18:53:57-04:00

to safe it permanently you have to write the var into a file and parse it every time you rehash/restart

how would I do that?

Statistics: Posted by collett9 — Wed Apr 28, 2004 6:53 pm

if no variable is set

2004-04-28T01:42:50-04:00

Code:

# if myvar doesnt exist -> do somethingif {![info exists myvar]} { .... }# if myvar is empty -> do somethingif {$myvar == ""} { ... }

to safe it permanently you have to write the var into a file and parse it every time you rehash/restart

Statistics: Posted by GodOfSuicide — Wed Apr 28, 2004 1:42 am

if no variable is set

2004-04-28T00:47:46-04:00

I have a script that sets a variable on command

i.e.

-set var1 hello

so that when someone says

!greet

the bot says "hello"

the reason I don't set one in my seperate .tcl file that holds all of the variables is because everytime it restarts it resets it to the default variable, so I am hoping someone can help me out on one of two solutions

1- if the variable is blank "" on startup, it returns "not set up"

2- how to save the variable once it is set so that it stays that way through rehashing and restarting

thanks in advanced

Statistics: Posted by collett9 — Wed Apr 28, 2004 12:47 am