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
}