egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2012-02-28T17:48:50-04:00 https://forum.eggheads.org/app.php/feed/topic/18856 2012-02-28T17:48:50-04:00 2012-02-28T17:48:50-04:00 https://forum.eggheads.org/viewtopic.php?p=98901#p98901 <![CDATA[How can we read txt file?]]>
You're the best! Thx for your concerns. My script is workin' with any problems :)

Statistics: Posted by Regex — Tue Feb 28, 2012 5:48 pm

]]> 2012-02-28T14:36:40-04:00 2012-02-28T14:36:40-04:00 https://forum.eggheads.org/viewtopic.php?p=98900#p98900 <![CDATA[How can we read txt file?]]>

Code: 

namespace eval ::welcome {   set welcomefile "/foo/bar/baz.txt"   bind join - * [namespace current]::onjoin   proc onjoin {n u h c} {      variable welcomefile      set fd [open $welcomefile r]      set data [read $fd]      close $fd      set arraydata {}      foreach line [split $data \r\n] {         lappend arraydata [lindex [split $line] 0] [join [lrange [split $line] 1 end]]      }      array set welcomes $arraydata      if {[info exists welcomes($n)]} {         putnotc $n $welcomes($n)      }   }}
Forgot the namespace current

Statistics: Posted by Johannes13 — Tue Feb 28, 2012 2:36 pm

]]> 2012-02-28T13:44:15-04:00 2012-02-28T13:44:15-04:00 https://forum.eggheads.org/viewtopic.php?p=98898#p98898 <![CDATA[How can we read txt file?]]>
Giving this message on the putty.

[19:43:02] Tcl error [onjoin]: invalid command name "onjoin"

Statistics: Posted by Regex — Tue Feb 28, 2012 1:44 pm

]]> 2012-02-28T05:40:13-04:00 2012-02-28T05:40:13-04:00 https://forum.eggheads.org/viewtopic.php?p=98895#p98895 <![CDATA[How can we read txt file?]]>

Code: 

namespace eval ::welcome {set welcomefile "/foo/bar/baz.txt"bind join - * onjoinproc onjoin {n u h c} {variable welcomefileset fd [open $welcomefile r]set data [read $fd]close $fdset arraydata {}foreach line [split $data \r\n] {lappend arraydata [lindex [split $line] 0] [join [lrange [split $line] 1 end]]}array set welcomes $arraydataif {[info exists welcomes($n)]} {putnotc $n $welcomes($n)}}}

Statistics: Posted by Johannes13 — Tue Feb 28, 2012 5:40 am

]]> 2012-02-27T17:19:34-04:00 2012-02-27T17:19:34-04:00 https://forum.eggheads.org/viewtopic.php?p=98894#p98894 <![CDATA[How can we read txt file?]]>
I know, add/del a text to file. But i dont know check it. :)


Like that;

*** Joins: s7e7v7e7n has joined the room.

After user has joined the room, my eggdrop'll open the file. if his/her nick in the text file, my bot'll send a message his/her greet to channel. In file.tx

file.txt (example)

(nick - greet)
s7e7v7e7n7 this is my message :P
RoSe Hi everybody, this is my greet.

*** Joins: s7e7v7e7n has joined the room.
<Eggdrop> [s7e7v7e7n]: this is my message :P
*** Joins: RoSe has joined the room.
<Eggdrop> [RoSe] Hi everybody, this is my greet.

If user has no message in the file, bot'll not send a message.

Thx for your concerns :)

Statistics: Posted by Regex — Mon Feb 27, 2012 5:19 pm

]]>