count.tcl

# count.tcl
# version 0.1
# caesar <cezarica@prietenii.com>
# #eggdrop @ Undernet.org
# www.geocities.com/caesartcl/

# En que archivo hacen usted quiere que las junturas sean almacenadas?
set joins "joins.dat"

# Pon aqui la fecha donde usted quiere comenzar contar?
set date "14 de Julio del año 2018"

# canal donde estara activa la tcl
# recuerde que la tcl es sencible y reconoce mayusculas y minusculas eg: #cHaNnEl y #channel.
set counting "#Radio-OndaMix"

### ANY EDITING AND/OR MODIFICATIONS MADE BEYOND THIS IS YOUR OWN RISK! ###

bind join - "*" the:counting

proc the:counting {nick uhost handle chan} {
if {[string tolower $nick] == [string tolower $::botnick] || [string tolower $chan] != [string tolower $::counting] } { return }

if {![file exists $::joins]} {
putlog "$::joins el archivo no existe, creando nuevo archivo..."
set file [open $::joins w]
puts $file "0"
catch {close $file}
}

set file [open $::joins r]
set tilnow "[gets $file]"
catch {close $file}

set file [open $::joins w]
puts $file "[expr $tilnow + 1]"
set tilnow [expr $tilnow + 1]
catch {close $file}

putserv "NOTICE $nick :Bienvenido Bounjour Alo Welcome Eres El Oyente N° \002$tilnow\002 Que Visita Radio-OndaMix en Nuestra Sala Oficial $chan Desde el dia $::date."
}

putlog "counter.tcl is loaded.. tcl Subida por el staff de #tcls en DALnet"