Code: Select all
# set your main channel message here
variable yourmainmessage "\002PPEPARE TO FEEL THE POWER OF VOICE!\002"
# set your voice message here
variable yourvoicemessage "I've noticed you have voice. Feel privileged, but no power, sorry.. heh"
# set your channel here
variable yourvoicechannel "#yourchan"
# set your timer delay here
variable yourvoicetimer "1440"
# message
proc voicemessage { } {
# channel
putserv "privmsg $::yourvoicechannel :$::yourmainmessage"
foreach nick [chanlist $::yourvoicechannel] {
if {[isvoice $nick $::yourvoicechannel]} {
# voiced nick
puthelp "notice $nick :$::yourvoicemessage"
}
}
# re-invoke timer to keep procedure running
timer $::yourvoicetimer voicemessage
}
# invoke timer to initially start the procedure
timer $yourvoicetimer voicemessage