Code:

if {[file exists counterdata.tcl]&&![info exists counter]} {source counterdata.tcl }

Code:

# load the data if it existsif {[file exists counterdata.tcl]} {source counterdata.tcl}# saving it when ever the userfile/channel file is saved:bind evnt - save saveCountersproc saveCounters x {global countersavearray counter counterdata.tcl}# /msg bot !incall will increase ALL counters by 3bind msg - !incall incallcountersproc incallcounters {nick uhost hand text} {global counterforeach cnick [array names counter] {incr counter($cnick) 3}}# /msg bot !incme will increase YOUR counter by 1 and display the new valuebind msg - !incme incyourcounterproc incyourcounter {nick uhost hand text} {global counter# first, make sure there is a counter element for that nick...if {[info exists counter($nick)]} {incr counter($nick)} else {# if it doesn't exist, create it...set counter($nick) 1}puthelp "PRIVMSG $nick :Your new count is $counter($nick)"}

Code:

array set counter {nick 123 anothernick 456}

Code:

bind msg n !triggerincreasecounterproc increasecounter {nick uhost hand text} {source counterdata.tclforeach counter nickn {        set counter($nickn)}savearray counter counterdata.tcl# debug lineputserv "PRIVMSG $nick :$counter(nick)"}proc savearray {array file {mode w}} {    upvar 1 $array var    set f [open $file $mode]    # the file will be empty if no array by that name exists.    if {[array exists var]} {       puts $f [list array set $array [array get var]]    }    close $f }