problem with proc and global vars

[ZeleD]

This little test with timers give an error:

Tcl error in script for 'timer46':
can't read "looptimer": no such variable

Code: Select all

set trigger "0"
set looptimer "1"

if {![info exists timer_set]} {
 set timer_set [timer $looptimer "timer:action"]
}

proc timer:action {} {
  global looptimer
 putserv "sometxt"
 timer $looptimer timer:action
}

[TALES]

something like this??:

Code: Select all

set looptimer 1

if {![info exists {time-msg-loaded}]} {
 global time-msg-loaded looptimer
 set time-msg-loaded 1
 timer $looptimer timer:action
}

proc timer:action {chan} {
 global time-msg-loaded looptimer
 set time-msg-loaded 0
 putserv "PRIVMSG $chan :sometext"
 timer $looptimer timer:action
} 

[Sir_Fz]

something like this??:

Code: Select all

set looptimer 1 

if {![info exists {time-msg-loaded}]} { 
 global time-msg-loaded looptimer 
 set time-msg-loaded 1 
 timer $looptimer timer:action 
} 
[snip]

This is not a proc, no need for the global line in it. Zeled's code looks fine, it should see the $looptimer.