I'm attempting to add another function to my sexword tcl.
I need a timer to automatically trigger the bot to run my procedure without being otherwise triggered, like every 300 minutes?
Here is what I have so far:
bind pub - !word pub_word
bind msg - word msg_word
bind dcc - word dcc_word
proc pub_word { nick mask hand channel args } {
global definitions
putquick "PRIVMSG $channel :[lindex $definitions [rand [llength $definitions]]]"
}
proc msg_word { nick uhost hand rest } {
global definitions
putquick "NOTICE $nick :[lindex $definitions [rand [llength $definitions]]]"
}
proc dcc_word { hand idx rest } {
global definitions
putidx $idx "[lindex $definitions [rand [llength $definitions]]]"
}
set definitions {
"word1 - definition of word1"
"word2 - definition of word2"
}