Guest User

PiyoniR

a guest
Apr 11th, 2012
61
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  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]
Advertisement
Add Comment
Please, Sign In to add comment