egghelp/eggheads community

random line help needed

2001-11-28T19:35:00-04:00

Thanks. That fixed it!

Statistics: Posted by Guest — Wed Nov 28, 2001 7:35 pm

random line help needed

2001-11-28T11:49:00-04:00

For a start, there is no need to loop through a for loop, just to setup a time bind. The time bind matches by a mask, so as long as a * is there, it will run once a min.

Again, there is no need fore the for loop inside the proc, this will only confuse you.

the following should work

Code:

bind time - "*" reandlineproc randline {min hour day month year} {  set fp [open "C:/Inetpub/wwwroot/botads.txt" e]  set temp [split [read $fp] n]  close $fp  puthelp "PRIVMSG #channel :[lindex $temp [rand [llength $temp]]]"}

Statistics: Posted by ppslim — Wed Nov 28, 2001 11:49 am

random line help needed

2001-11-28T02:38:00-04:00

I am trying to get a random line from a txt file to play every hour, but am stumped on what to change in the following code to make that happen. Any help would be appreciated.

# randline.tcl - read a random line to an IRC dest. every minute
for {set i 0} {$i < 60} {incr i} {bind time - "$i * * * *" readline}
proc readline {minutes hour day month year} {
set fp [open "c:/Inetpub/wwwroot/botads.txt" r]
for {set i 0} {![eof $fp]} {incr i} {set data($i) "[gets $fp]"}
close $fp

putserv "PRIVMSG #channel :$data([rand $i])"
}

Statistics: Posted by Guest — Wed Nov 28, 2001 2:38 am