Code: Select all
bind time - "00 * * * *" clock
proc time:clock {min hour day month year} {
set tell_time [lindex $args 0]
set tower_time [ctime $tell_time]
if {$tower_time == 12:00} {
putquick "PRIVMSG $channel :\00306The clocktower tolls the Noon Bell."
}
elseif {$tower_time == 13:00} {
putquick "PRIVMSG $channl :\00306The clocktower tolls the First Bell."
}
}
Code: Select all
Tcl error [clock]: unknown or ambiguous subcommand "00": must be add, clicks, format, microseconds, milliseconds, scan, or seconds