Code:

if {![file exists usersbny]} { close [open usersbny w+] }  if {![info exists usersbny]} {    set file [open usersbny r]    set usersbny [gets $file]    close $file      if {$usersbny == ""} { set usersbny 0 }  }    bind join - * bny_voice  proc bny_voice { nick uhost hand chan } {  global usersbny  incr usersbny  putquick "notice $nick :Hi $nick. There are $usersbny joins since 30.01.2006. Welcome to $chan!"  set file [open counter.txt w]puts $file $usersbny  close $file}