random line from txt file

[whittinghamj]

Hey guys. I have a script request. I just looked over the forums but could not put my hands on a post that covers this already.

Anyways. I have a text file which is formatted like this.

Code: Select all

Name: info URL: www.url.com
[quote]

What i need is someone to type say !sites and the script goes off and picks randomy a line from the txt file and pastes it to the channel.

No security needed and I am adding the sites already by trigger.

Any help would be great.

Thanks[/quote]

[SaPrOuZy]

Code: Select all

bind pub - !foo bar
proc bar {nick uhost hand chan rest} {
    set file [open "txt_file_path" r] 
    set data [split [read $file] "\n"]
    set line [lindex $data [rand [llength $data]]]
    putserv "privmsg $chan : $line"
    close $file
}

EDIT: Code fixed, thx Sir_Fz

[Sir_Fz]

And don't forget to close the file.