egghelp/eggheads community

help with read/output file, public trigger

2007-11-03T04:46:37-04:00

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

That was rude

Statistics: Posted by iamdeath — Sat Nov 03, 2007 4:46 am

help with read/output file, public trigger

2007-11-02T22:04:16-04:00

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

Statistics: Posted by rosc2112 — Fri Nov 02, 2007 10:04 pm

help with read/output file, public trigger

2007-11-02T20:07:22-04:00

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

Statistics: Posted by metroid — Fri Nov 02, 2007 8:07 pm

help with read/output file, public trigger

2007-11-02T15:29:21-04:00

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])}]]
}

Statistics: Posted by iNFERNiS — Fri Nov 02, 2007 3:29 pm