HELP!! auto message code

[inxs]

can anyone help me out!!.. i need a code that auto message channel every 5minutes to read text from text.db.

am just a newbies so i cant do it my own

[awyeah]

Why do you want it to read from a database? If you make list and read random replies from there it would be more easier.

Code: Select all

#Set the channel for this script to work on
set my_channel "#channel"

#Set the list of messages you want to display randomly
set my_list {
{ I am away }
{ Don't bother me. }
{ Go away }
{ Be back later }
{ Gone for dinner! }
}

#Set the interval delay of each message in minutes
set my_timer "5"


proc send:message {} {
 global my_list my_channel my_timer
  putserv "PRIVMSG $my_channel :[lindex $my_list [rand [llength $my_list]]]"
  timer $my_timer send:message
}

timer $my_timer send:message

[inxs]

thx, awyeah
coz i want each lines to read within 5minutes.. line by line in 5minutes

[Sir_Fz]

You might want to tweak it a bit, so you won't have several timers runnin when you rehash:

Code: Select all

#Set the channel for this script to work on 
set my_channel "#channel" 

#Set the list of messages you want to display randomly 
set my_list { 
{ I am away } 
{ Don't bother me. } 
{ Go away } 
{ Be back later } 
{ Gone for dinner! } 
} 

#Set the interval delay of each message in minutes 
set my_timer "5" 

proc send:message {} { 
 global my_list my_channel my_timer 
  putserv "PRIVMSG $my_channel :[lindex $my_list [rand [llength $my_list]]]" 
  timer $my_timer send:message 
} 

if {[timerexists send:message]!=""} { killtimer [timerexists send:message] }
timer $my_timer send:message