egghelp/eggheads community

Play text file

2017-03-06T08:41:02-04:00

If someone will want to use it in the future i will make it public. He/She just needs to ask it. Don`t want to post it because maybe im gonna improve it so no need for older version posted here.

Statistics: Posted by Madalin — Mon Mar 06, 2017 8:41 am

Play text file

2017-03-06T04:36:43-04:00

Hey, sorry for the late reply.. Been busy with work and stuff and didn't get the chance to have a look on the code to adapt it to fit the requirements.

If it's done then why not share it?

Statistics: Posted by caesar — Mon Mar 06, 2017 4:36 am

Play text file

2017-02-28T04:43:29-04:00

Its done .. Thanks

Statistics: Posted by Madalin — Tue Feb 28, 2017 4:43 am

Play text file

2017-02-27T13:48:47-04:00

Thats what i tryed to do. I mean i saved everything in array and started from there but i dont know where im getting it wrong.

If you take a closer look at the code i posted is something similar yet not working as it should.

Statistics: Posted by Madalin — Mon Feb 27, 2017 1:48 pm

Play text file

2017-02-27T13:41:04-04:00

When you pause you can save the offset into a channel string, for instance in your code you got:

Code:

setudef str playOffset

and when pausing:

Code:

channel set $chan playOffset $x

where $x is the last index you just pulled. As for when resuming just grab the number from there.

Code:

set last [channel get $chan playOffset]# and play from thisset result [lineRead $filename $index [expr $last + 1] ]

I imagine you use some sort of timed messaging to prevent the bot to flood the server or itself, so this should be easy to implement.

Statistics: Posted by caesar — Mon Feb 27, 2017 1:41 pm

Play text file

2017-02-27T13:31:30-04:00

Its a script im making for a friend .. he wants to play maximum 100 lines. He just wants stop/start/pause/resume commands, so nothing major.

Statistics: Posted by Madalin — Mon Feb 27, 2017 1:31 pm

Play text file

2017-02-27T13:09:08-04:00

Like i said this is binary, so from 0 to 10 is the first line, from 10 to 20 the second and from 20 to 28 the third, or that's how I imagine things are. I had a line with 6 lines and the output of lineindex was 0 8 16 24 32 40 41 and thus my silly explanation makes some sense after all.

You need to alter the second piece of code to "point" it to the opened file:

Code:

proc lineRead {filename index line} {set fp [open $filename]seek $fp [lindex $index $line]set data [gets $fp]close $fpset data}

And then build the index and call the above code to grab whatever line you want.

Code:

set filename "class"# build lines indexset index [lineindex $filename]# read 3rd line from fileset result [lineRead $filename $index 3]

The set res will just return the output, just like a return $res.

How many lines and how long are them in text file you want to read anyway? If this is running on linux I'm sure there are better ways to use the system tools to get the same results at a lower CPU/RAM usage if that's your concern.

Statistics: Posted by caesar — Mon Feb 27, 2017 1:09 pm

Play text file

2017-02-27T12:30:29-04:00

Yeah that would be nice .. i tryed to test the code ... yet i have for three lines

Code:

proc lineindex filename {    set res 0    set fp [open $filename]    while {[gets $fp line]>=0} {lappend res [tell $fp]}    close $fp    set res }

[14:26:55] 0 10 20 28

And why set rest at the end of this proc ?

But i dont know how to use the second proc from the example

Code:

proc lineread {fp index line} {    seek $fp [lindex $index $line]    gets $fp }

I mean .tcl lineread class 0 1, where class is the file it doesnt work.

PS: Starting from this example i can create my own array index and get the numbers from there var(1) "text" and get everything from there.. yet it would increase the memory of the eggdrop for a while

Statistics: Posted by Madalin — Mon Feb 27, 2017 12:30 pm

Play text file

2017-02-27T10:39:41-04:00

What you are looking for is called offset and as far as I know this can be accomplished only with seek, but since this is binary you basically need to make an index of where the each line starts and ends.

Long story told short, have a look at a good example from here and you will easily figure out based on that example how to read any given line.

If stuck drop a reply.

Statistics: Posted by caesar — Mon Feb 27, 2017 10:39 am

Play text file

2017-02-27T07:50:23-04:00

Im trying to make a text file to play on a channel with commands like !start !stop !resume and !pause

!start and !stop no problem ... but !pause and !resume i cant really figure it out i messed the code so far that i didnt know what ive done good or wrong..

This is the code i managed to save upon now..

Code:

bind PUB - !start pub:prestartbind PUB - !pause pub:pausebind PUB - !resume pub:resumebind PUB - !stop pub:stopproc pub:prestart {nick uhost hand chan arg} {global classset class(end) 0set class(numara) -1set class(linie) -1class:start $chan $nick}proc class:start {chan nick} {global classset of [open class]incr class(numara)while {[gets $of line] ne -1} {incr class(linie)if {$class(end)} { close $of; putlog "Ne oprim"; return }if {$class(numara) eq $class(linie)} {putserv "PRIVMSG $chan :$line"close $of}}class:start $chan $nick}proc pub:stop {nick uhost hand chan arg} {global classif {![info exists class(start)]} { putquick "PRIVMSG $chan :\002::\002 Nu ruleaza nimic nu am ce opri"; return }set class(end) 1putquick "PRIVMSG $chan :\002::\002 Am oprit cu succes"}

If someone can give me some HINTS ill apreaciate

Statistics: Posted by Madalin — Mon Feb 27, 2017 7:50 am