bind time - "14 00 * * *" time:announce
bind time - "16 00 * * *" time:announce
bind time - "18 00 * * *" time:announce
bind time - "20 00 * * *" time:announce
bind time - "22 00 * * *" time:announce
bind time - "00 00 * * *" time:announce


proc time:announce {nick host hand chan arg} {
	foreach c [channels] {
			putserv "PRIVMSG $c :$arg"
		}
}