ßuyrun Serverinizdeki Global Kanallariniz Icin Ideal ßir Kanal Sayac Tcl si


#DESCRIPTION Kanal Sayacı

# Sayacın hangi kanallarda calışmasını istiyorsunuz?
set count_chans "#diyalog #Zurna"
# Sayac kaydının tutulacağı dosya.
set count_file "soner.data"
#Aşağıdaki satırlarda herhangi bir değişiklik yapmayınız.....
proc join_count
set count_date [lindex $count_data($chan) 0]
set count_ppl [expr [lindex $count_data($chan) 1] + 1]
set count_data($chan)[list $count_date $count_ppl]
putserv "NOTICE $nick :Merhaba Dostum Kanala Giris Yapan $count_ppl ci Kişisiniz."
if fileid]}
}
close $fileid
} else
}
}

bind join - * join_count

if

putlog "*** Kanal Sayac Tcl"
__________________