SHOW:
|
|
- or go back to the newest paste.
| 1 | - | proc loadText{} { set f [open file.txt r]; set fdata [read $f]; set i 0;foreach $line [split $fdata "\n"] { putserv "PRIVMSG #.hm. :Line ${i}: $line"; incr i; }; } |
| 1 | + | set AnnounceChannel "#yourchannel"; |
| 2 | ||
| 3 | proc runFileLift {{file "file.txt}} {
| |
| 4 | set f [open $file r]; | |
| 5 | set fdata [read $file]; | |
| 6 | foreach {line} [split $fdata "\n"] {
| |
| 7 | putserv "PRIVMSG $AnnounceChannel :$line" -next; | |
| 8 | } | |
| 9 | } | |
| 10 | ||
| 11 | timer 600 [list runFileLift] |
