very simple random script

[Pitchat]

Hi ,

I`ve look at the tutorial on how to work with files but i still can`t get my simple script to work ( maybe it is too simple and i do something wrong)

here`s what i want to do

and a trigger like !random i want my eggdrop to read a random line in a file call random.txt and say it on channel

that`s all

thank for any help like always

[demond]

Code: Select all

if ![catch {set f [open file.txt]}] {
  while {![eof $f]} {lappend t [gets $f]}
  bind pub - !random foo; close $f
}
proc foo {n u h c t} {
  puthelp "privmsg $c :[lindex $::t [rand [llength $::t]]]"
}

[Pitchat]

works perfectly thanks a lot !