egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2006-04-23T18:32:22-04:00 https://forum.eggheads.org/app.php/feed/topic/11721 2006-04-23T18:32:22-04:00 2006-04-23T18:32:22-04:00 https://forum.eggheads.org/viewtopic.php?p=62276#p62276 <![CDATA[Read from .txt file...]]> I know that Notepad shows the squares for the next line command thingy.. (lol). Where in wordpad it converts it so that it is a next line, but when i save it, it seems perfectly happy.

Statistics: Posted by DjBeNNeTT — Sun Apr 23, 2006 6:32 pm

]]> 2006-04-23T17:52:59-04:00 2006-04-23T17:52:59-04:00 https://forum.eggheads.org/viewtopic.php?p=62274#p62274 <![CDATA[Read from .txt file...]]>
Try Notepad++.
Both Wordpad and Word add invisible controls at the end of each carriage return and therefore Tcl code generated with either are prone to error generation/mis-reading. Text editors that leave scripts in Unix format are error free.

Statistics: Posted by Alchera — Sun Apr 23, 2006 5:52 pm

]]> 2006-04-23T13:16:05-04:00 2006-04-23T13:16:05-04:00 https://forum.eggheads.org/viewtopic.php?p=62262#p62262 <![CDATA[Read from .txt file...]]>
Works perfect. Thanks :D

Code: 

set sex "scripts/sex.txt"bind pub - !sex sex:msgproc sex:msg {nick uhost hand chan arg} {  global sex  set sexmsg [string range [randomline $sex] 0 end]  puthelp "privmsg $chan :[subst -nocommands $sexmsg]"}proc randomline f { set data [split [read [set file [open $f]]][close $file] \n] set position [rand [llength $data]] lindex $data $position}

Statistics: Posted by DjBeNNeTT — Sun Apr 23, 2006 1:16 pm

]]> 2006-04-23T13:01:36-04:00 2006-04-23T13:01:36-04:00 https://forum.eggheads.org/viewtopic.php?p=62261#p62261 <![CDATA[Read from .txt file...]]> $sexmsgs are there in that code?

Statistics: Posted by Sir_Fz — Sun Apr 23, 2006 1:01 pm

]]> 2006-04-23T05:29:12-04:00 2006-04-23T05:29:12-04:00 https://forum.eggheads.org/viewtopic.php?p=62255#p62255 <![CDATA[Read from .txt file...]]> where :oops:

LoL sorry :p

Statistics: Posted by DjBeNNeTT — Sun Apr 23, 2006 5:29 am

]]> 2006-04-23T04:40:58-04:00 2006-04-23T04:40:58-04:00 https://forum.eggheads.org/viewtopic.php?p=62250#p62250 <![CDATA[Read from .txt file...]]>

Code: 

[subst -nocommands $sexmsg]
instead of just $sexmsg.

Statistics: Posted by Sir_Fz — Sun Apr 23, 2006 4:40 am

]]> 2006-04-23T03:21:35-04:00 2006-04-23T03:21:35-04:00 https://forum.eggheads.org/viewtopic.php?p=62246#p62246 <![CDATA[Read from .txt file...]]>
Is there a way that if it has $nick in the .txt file it will say the nickname who did the command? Or can that only be done in the code itself to say for each message?.

Statistics: Posted by DjBeNNeTT — Sun Apr 23, 2006 3:21 am

]]> 2006-04-22T20:32:41-04:00 2006-04-22T20:32:41-04:00 https://forum.eggheads.org/viewtopic.php?p=62238#p62238 <![CDATA[Read from .txt file...]]> Notepad++.

Statistics: Posted by Sir_Fz — Sat Apr 22, 2006 8:32 pm

]]> 2006-04-22T20:11:34-04:00 2006-04-22T20:11:34-04:00 https://forum.eggheads.org/viewtopic.php?p=62236#p62236 <![CDATA[Read from .txt file...]]>

And i actually use WordPad for scripts... as Notepad likes to bugger up most the time and not set out the next lines properly making it unreadable... Bugger thing.

Ah well

Thanks both again :D

Statistics: Posted by DjBeNNeTT — Sat Apr 22, 2006 8:11 pm

]]> 2006-04-22T19:48:15-04:00 2006-04-22T19:48:15-04:00 https://forum.eggheads.org/viewtopic.php?p=62234#p62234 <![CDATA[Read from .txt file...]]>

I concur. I should have thought of that in the first place. :lol:
What you mean "using pico"?
pico is a *nix text editor. I was unaware you were using a Windrop in which case you'd be using notepad/EditPlus to edit scripts.

Statistics: Posted by Alchera — Sat Apr 22, 2006 7:48 pm

]]> 2006-04-22T19:48:56-04:00 2006-04-22T19:43:29-04:00 https://forum.eggheads.org/viewtopic.php?p=62233#p62233 <![CDATA[Read from .txt file...]]>

Code: 

set sex "./sex.txt"bind pub - !sex sex:msgproc sex:msg {nick uhost hand chan arg} {  global sex  set sexmsg [string range [randomline $sex] 0 end]  puthelp "privmsg $chan :$sexmsg"}proc randomline f { set data [split [read [set file [open $f]]][close $file] \n] set position [rand [llength $data]] lindex $data $position}
But the best solution would be to read the file into a list and use the list instead of the file everytime the command is called. Try to search the forum about how that can be implemented, it has been implemented 100 times here.

Statistics: Posted by Sir_Fz — Sat Apr 22, 2006 7:43 pm

]]> 2006-04-22T19:39:07-04:00 2006-04-22T19:39:07-04:00 https://forum.eggheads.org/viewtopic.php?p=62232#p62232 <![CDATA[Read from .txt file...]]>
my sex.txt file has:
Ohhh babeh!
Hmmmm!
YES YES YEEESSHHHH!!!!
With You? [censored] off!
Send Me Your Pic First ;)
Get Away From Me With That Filthy Anaconda!
All as it looks there..
What you mean "using pico"?

Statistics: Posted by DjBeNNeTT — Sat Apr 22, 2006 7:39 pm

]]> 2006-04-22T19:27:55-04:00 2006-04-22T19:27:55-04:00 https://forum.eggheads.org/viewtopic.php?p=62231#p62231 <![CDATA[Read from .txt file...]]>

Code: 

set sex "./sex.txt"
to

Code: 

set sex "scripts/sex.txt"
.. making certain the file (sex.txt) actually exists and you have added the lines of text you want (using pico).

I tested on a Windrop and it worked 100%. :)

Statistics: Posted by Alchera — Sat Apr 22, 2006 7:27 pm

]]> 2006-04-22T18:33:15-04:00 2006-04-22T18:33:15-04:00 https://forum.eggheads.org/viewtopic.php?p=62229#p62229 <![CDATA[Read from .txt file...]]> Just the one prob i find atm...

on !sex...
[23:30:51] [BooByBoT] [22:30] Tcl error [sex:msg]: random limit must be greater than zero

I've changed both "set sexmsg [string range [randomline $sex] 0 end] " and "* rand()" to (3) and still nothing...
I'm turning blind (must be tired) lol

Statistics: Posted by DjBeNNeTT — Sat Apr 22, 2006 6:33 pm

]]> 2006-04-22T18:05:38-04:00 2006-04-22T18:05:38-04:00 https://forum.eggheads.org/viewtopic.php?p=62228#p62228 <![CDATA[Read from .txt file...]]>

Code: 

set sex "./sex.txt" bind pub - !sex sex:msgproc sex:msg {nick uhost hand chan arg} {  global sex  set sexmsg [string range [randomline $sex] 0 end]  puthelp "privmsg $chan :$sexmsg"}proc randomline { filename } {  set position [rand [expr [file size $filename] - 1024]]  set fd [open $filename r]  catch {    seek $fd $position    set text [read $fd 1024]  }  close $fd  set lines [split $text \n]  set lineno [randrange 1 [expr [llength $lines] - 1]]  return [lindex $lines $lineno]}proc randrange { lowerbound upperbound } { return [expr {int(($upperbound - $lowerbound + 1) * rand() + $lowerbound)}]}

Statistics: Posted by Alchera — Sat Apr 22, 2006 6:05 pm

]]>