help with read/output file, public trigger

[iNFERNiS]

I'm very new to tcl and coding in general. I wanted to make a simple script that reads from a textfile, grabs a random line and outputs it to a channel, with a public trigger.

Suffice to say i failed horribly, i'm kind of stuck now. Can someone point me into the right direction?

bind pub o|o !randtext pub:randtext

proc pub:randtext { } {
putserv "PRIVMSG $channel : randline("randomness.txt")"
}

proc randline {file} {
set fs [open $file r]
set data [read -nonewline $fs]
close $fs
return [lindex $data [expr {int(rand()*[llength $data])}]]
}

[metroid]

Start off with a basic TCL tutorial first, your code doesn't look like TCL to me :p

[rosc2112]

Here's a basic script for reading text and spitting out random lines:
http://members.dandy.net/~fbn/jokes.tcl.txt

[iamdeath]

Start off with a basic TCL tutorial first, your code doesn't look like TCL to me :p

That was rude