egghelp/eggheads community

try: bind MSG -|- "join" msg:join bind MSG -|- "part" msg:part proc msg:join {nick uhost handle text} { set chan [lindex [split $text] 0] channel add $chan putserv "PRIVMSG $chan :Invited by $nick" } proc msg:part {nick uhost handle text} { set chan [lindex [split $text...

14:07:42 <tomekk> bword add hello\? 14:07:42 <botty> word/pharse: 'hello\?' has been added [tomekk@zonk]:~/eggdrop# grep hello badwords.db/words_bank.db hello\? 14:08 < franek> hello? 14:08 -!- franek was kicked from #thechan by botty [bad word! - kick] did you supply the channel name? set bdw_chan...

I have similar scripts. I wrote it for my friends clan forum (IPB 2.3.3), they are based on two files, one TCL (eggdrop side) and one PHP (IPB side). PHP script is an external script which is getting information directly from the forum database. You have to copy this PHP script to one of your dirs a...

simple example: string: <mark> something here lala </mark> #!/usr/bin/tclsh set mystr "<mark> something here lala </mark>" regsub {<mark>(.+)<\/mark>} $mystr {\1} mystr puts $mystr output: [tomekk@zonk]:/home# ./zonk.tcl something here lala its all based on simple regular expressions and r...

You have to look into fmylife page source code and fix the regexps in TCL script.
I can't fix that because if i do this, i will stuck with this script to end of my days.

I hate scripts based on parsing web source code, it was my last.

cheers !

the source code of fmylife has changed

This looks very sketchy and amateur. Nah, it's just other way of doing the same action. Both are working OK, but of course there are diffrent words in text. User's proc is simple and working great. Mabus4444 choose one, i fixed it for you. Thanks speechles. # tomekk, http://forum.egghelp.org/viewto...

try: # tomekk, http://forum.egghelp.org/viewtopic.php?t=16942 # commands channels set file_web_channels {#channel #channel2} # max "words" per line (it means: test test on. <- space separator, "test" "test" "on.", 3 "words" here) set max_per_line 30 ...

works for me even with 20k chars in one line, but of course on irc see only IRC max in one line,

could you pm me with this file? i will look into it, maybe its something else

can be without #channel2, its example: set file_web_channels {#mabusbottest} and use: !rule <line number> example, i used your host in my script ("!rule|http://www.dalnetdebates.com/rules.txt"): 09:22:59 <@tomekk> !rule 1 09:23:01 < botty> rules file line 1 09:23:03 <@tomekk> !rule 2 09:23...

try: # tomekk, http://forum.egghelp.org/viewtopic.php?t=16942 # commands channels set file_web_channels {#channel #channel2} # syntax: "channel_command_name|http://address/somefile" set file_web_links { "!rule|http://localhost/rules.txt" "!test|http://localhost/test.txt"...

you can make second file in the same directory or something, text file with rules 1 by 1 rules.txt 1. rule /1st line 2 .rule /2nd line 3. rule /3rd line n. rule /n line I can write TCL for you if want, but with txt file (its less work for me and for sure that will always work, 2nd thing, you can mod...

One thing strikes me, last_file_mod is not initialized upon startup, making the comparison "$last_file_mod != $file_mtime" possibly fail. I'd consider adding something like this to the script: if {![info exists ::last_file_mod]} {set ::last_file_mod 0} it is initialized, before timer proc...

A suggestion, don't join the result from your lindex operation, as you're working on a list of strings (lindex returns the contained item, not a single-entity list). yeah, lame, my bad :) i took again part of the source from the another script, there was [join [lrange .... ]] and i forgot, anyway t...

script is checking file mod time every X seconds, try it: # tomekk, http://forum.egghelp.org/viewtopic.php?t=16929 # output channel set out_chan "#channel" # file set txt_file "myfile.txt" # check interval (seconds) set check_interval 10 ##########################################...