problem with a variable

[ranny]

Hello,

The first time that one user returns on a chan, the egg writes the number of people who are returns on this chan ==> it'ok. I will want that the second time that it returns the egg writes the number of people who came since her last visit.

If you could guide me,

Thanks

[demond]

bind to JOIN, keeping track of joining users, i.e. increment a counter

also, save that counter, associated with joining user's nick; thus you'll be able to show the difference between current and saved counters (i.e. the number of users joined since then)

[ranny]

Hello,

I have this script

Code: Select all

if ![info exists countinside($nick)] {
set countinside($nick)  [expr $total] 
putserv "privmsg $channel :  $countinside($nick)"
return 0}
putserv "privmsg $channel : [expr $total - $countinside($nick)] news"
set countinside($nick) [expr $total] 

But the egg always writes $countinside($nick) ??

Thanks

[metroid]

Because you always write it after the proc is done?

Code: Select all

#If the variable countinside($nick) does NOT exist, we create it.
if ![info exists countinside($nick)] {
set countinside($nick)  [expr $total]
putserv "privmsg $channel :  $countinside($nick)"
return 0
}
# This will pm the channel with something
putserv "privmsg $channel : [expr $total - $countinside($nick)] news"
# THEN you write it again, and that's why you write it anyway.
set countinside($nick) [expr $total]

[ranny]

Thanks all,

it's ok

[ranny]

It's ok,

but if the egg connection is stopped, it erases the data.
How to make to have this information same if the egg connection is stopped??

Thanks

[Ofloo]

It's ok,

but if the egg connection is stopped, it erases the data.
How to make to have this information same if the egg connection is stopped??

Thanks

dump it in a file, instead of using an array

Code: Select all

if {![catch {open mylogfile.txt a+} af]} {
  puts $af $variable
  close $af
}

or do both, and load it back into an array when you loading the bot..

Code: Select all

if {![catch {open mylogfile.txt r} rf]} {
  foreach {x} [split [read $rf] \n] {
    #here set the array
  }
  close $rf
}