random line

[zleppy]

Hey, i'm trying to make my own triviascript (only found buggy ones that would crash my bot), and i want the script to count the lines in a file, and then choose a random line...anyone know how i could do this?

-zleppy-

[KrzychuG]

Should work:

Code: Select all

proc show:random { file } {
  set fname [open $file r]
  set num 0
  while {![eof $fname]} {
    incr num
    set line($num) [gets $fname]
  }
  putloglev o * "All lines in $file: $num"
  if {$num > 0} then {
    putloglev o * "Random line: $line([rand $num])
  }
} ;# show:random

[egghead]

Another way is to determine the file size, set a pointer to a random value between 0 and that file size, open the file, read the line at the random pointer and close the file.

[Ofloo]

to get number of lines try this

Code: Select all

proc length {file} {
  set rf [open $file r]
  set length [llength [split [read $rf] \n]]
  close $rf
  return $length
}

like this you can use it in rand mutch more easyer ..

then do

Code: Select all

proc getline {file} {
  set rf [open $file r]
  foreach x [split [read $rf] \n] {
    if {[info exists i]} {
      incr i
    } else {
      set i 0
    }
    if {[string equal $i [rand [length $file]]]} {
      set getline [join [lrange $x 0 end]]
      if {[string equal {} [lindex $x 0]]} {
        getline $file
        break
      } else {
        break
        return $getline
      }
    }
  }
  close $rf
}

not tested it tho could be an problem with the if {} string .. second one.. when u restart the proc ..

[greenbear]

this is also covered in the faq section on this forum

http://forum.egghelp.org/viewtopic.php?t=6885

[caesar]

and had been discussed before.

[zleppy]

sorry for taking it up again then..just so much work searching the old posts...
i got it fixed now...now only thing is to set the a globa variable with "the answer", so i can check it laters...
would 'set answer "mytxt"' work?

[Ofloo]

sorry for taking it up again then..just so much work searching the old posts...

hmm don't wana be a pain but if u don't bother reading old posts why should we bohter answering ??

would 'set answer "mytxt"' work?

if up put it in the proc yes if not u need to use global to import it !!

[zleppy]

ok..thanks...sorry, dont mean to be rude when saying that i dont "bother", but earlier when i have searched, i have found like 1500 posts, and not found anything helpfull....
but thanks for answering =)