animation a heure precise

[caline012]

tclcopier

# animation2 v1
# caline
# par caline
# 22/11/2007
 
bind pub - animation2 pub_animation
proc pub_animation2 { nick uhost handle channel arg } {
global animation2 animation2
set animation2 [lindex $arg 0]
if {[lindex [ctime [unixtime]] 3] == "12:00:00"}{
puthelp "privmsg $channel :blabla"
}
}
 
putlog "animation2.tcl v1 par caline - Date: 22-11-07"

voila ceci marche pas lol