egghelp/eggheads community

Matching Text

2013-04-02T11:43:07-04:00

Thank you, speechles!

This works great, really impressive!

Thank you for helping out: Madalin, Spike^^, speechles

Statistics: Posted by BigToe — Tue Apr 02, 2013 11:43 am

Matching Text

2013-04-02T00:48:24-04:00

The problem is both \0034 and \00304 both lead to red. So you need to anticipate both to accurately handle this. The script I wrote below is modified from SpiKe^^'s above. So of course this is a collaboration.

I want to relay from #chanA to #chanB for example, in the scripts config I would set the relaychan to #chanB. I would .chanset #chanA +bigtoetrack on partyline.

** in #chanA **
hi there 4this is red this isnt 04but this is red again then it isnt
** which appears in #chanA **
hi there this is red this isnt but this is red again then it isnt

** moments later in #chanB **
Found results: this is red, but this is red again.

Hopefully this is what you had in mind. Enjoys

Code:

# BigToe Tracker v0.1# Captures all text with a certain color, in channels you want and# relays this to a control channel where you can see it appearnamespace eval big_toe {   variable track   # --> config starts   # what color are we tracking? for colors 0 thru 9 you need to use both   # 0-9 and 00-09. for example red is [list "4" "04"]. the number with the   # leading zero must be last. for colors 10 and onward there is no issue   # like this so you would use a single number for example, pink would   # be [list "13"]   set track(color) [list "4" "04"]   # Which channel are we relay the tracked messages to?   set track(relaychan) #relaychannel   # <-- config ends}bind pubm - * big_toe::tracksetudef flag bigtoetracknamespace eval big_toe {   proc track {nick uhost hand chan text} {      if {![channel get $chan bigtoetrack]} { return 1 }      variable track      set stext [split $text \003]      set matches [lsearch -glob -all -inline $stext [lindex $track(color) 0]*]      if {[llength $track(color)] > 1} {         set morematches [lsearch -glob -all -inline $stext [lindex $track(color) 1]*]         set iterate [list matches 1 morematches 2]      } else {         set iterate [list matches 1]      }      foreach {n v} $iterate {         foreach r [set $n] {            lappend result [string range [string trim $r] $v end]         }      }      if {[info exists result]} {         putserv "privmsg $track(relaychan) :Found results: [join $result ", "]."      }      return 1   }}putlog "*** BigToeTracker v0.1 Loaded."#eof

Edit: Conversely, if you get this far.. Here is another way to do it. This one is more straight forward, no config, this should do exactly what you desire...

Code:

bind pubm - "#froglegs *" big_toe::tracknamespace eval big_toe {   proc track {nick uhost hand chan text} {      set text [split $text \003]      foreach sentence $text {         if {[string match 4* $sentence]} {            set addme [string range $sentence 1 end]         } elseif {[string match 04* $sentence]} {             set addme [string range $sentence 2 end]         }         if {[info exists addme]} {            lappend result [string trim $addme]            unset addme         }      }      if {[info exists result]} {         putserv "privmsg #goahead :#Froglegs: <$nick> [join $result " "]"      }   }}

*** in #Frogslegs ***
blsh nlssdfhi there this is red again this isnt but this is red andnow its cyan then its red again :D

*** moments later in #goahead ***
#Froglegs: this is red again but this is red and then its red again :D

The first way, gives priority to 4* appearing first in the result list. This may be a problem if the red text isn't given back in the order it was in the text. If this is a problem, the second way alleviates this issue and is a more simple approach to the exact same idea. Hopefully combined you gain a better grasp of tcl by exposing you to several ways to accomplish this.

Statistics: Posted by speechles — Tue Apr 02, 2013 12:48 am

Matching Text

2013-04-01T13:02:36-04:00

Maybe something more like this...

Code:

bind PUBM - "#from *" bigtoe:pubm set bigtoetx(chan) "#to" proc bigtoe:pubm {nick uhost hand chan arg} {    if {[string match "*\0034*" $arg]} {       set start [expr {[string first "\0034" $arg]+2}]      set x [string first "\003" $arg $start]      if {$x>"-1"} {  set end [incr x -1]  } else {  set end "end"  }      set arg [string range $arg $start $end]       putserv "PRIVMSG $::bigtoetx(chan) :Found $arg on chan $chan"    } }

Statistics: Posted by SpiKe^^ — Mon Apr 01, 2013 1:02 pm

Matching Text

2013-04-01T12:50:35-04:00

hi

That does not return the whole text in red, just the first word

Statistics: Posted by BigToe — Mon Apr 01, 2013 12:50 pm

Matching Text

2013-04-01T12:25:28-04:00

Try this

Code:

bind PUBM - "#from *" bigtoe:pubmset bigtoetx(chan) "#to"proc bigtoe:pubm {nick uhost hand chan arg} {foreach a $arg {if {[string match "*\0034*" $a]} {set a [string map [list "\0034" ""] $a]putserv "PRIVMSG $::bigtoetx(chan) :Found $a on chan $chan"}}}

Statistics: Posted by Madalin — Mon Apr 01, 2013 12:25 pm

Matching Text

2013-04-01T12:21:14-04:00

Hey,

thank you for ur work Madalin and Spike

this works Spike^^ but it does not display just the text in red - it displays the whole sentence..

I wrote earlier..

I need a script that when someone writes a text on channel #Froglegs and all of it or part of it is colored in red - it will return only the part of the string that is colored

[/code]

Statistics: Posted by BigToe — Mon Apr 01, 2013 12:21 pm

Matching Text

2013-04-01T11:53:27-04:00

Some other script is using the var name 'temp' as a scalar variable name.
Try changing the array name to something less generic...

Code:

bind PUBM - "#from *" bigtoe:pubm set bigtoetx(chan) "#to" proc bigtoe:pubm {nick uhost hand chan arg} {    if {[string match "*\0034*" $arg]} {       set arg [string map [list "\0034" ""] $arg]       putserv "PRIVMSG $::bigtoetx(chan) :Found $arg on chan $chan"    } }

Statistics: Posted by SpiKe^^ — Mon Apr 01, 2013 11:53 am

Matching Text

2013-04-01T08:00:31-04:00

I have and it still does not work..

Statistics: Posted by BigToe — Mon Apr 01, 2013 8:00 am

Matching Text

2013-04-01T07:50:35-04:00

I have tested that version that is currently posted and works as it should i really don`t know why it doesnt work at you. Try copy paste the script and restart the eggdrop

Statistics: Posted by Madalin — Mon Apr 01, 2013 7:50 am

Matching Text

2013-04-01T07:46:38-04:00

Same error..

Statistics: Posted by BigToe — Mon Apr 01, 2013 7:46 am

Matching Text

2013-04-01T06:13:57-04:00

Edited the post try again

Statistics: Posted by Madalin — Mon Apr 01, 2013 6:13 am

Matching Text

2013-04-01T02:27:26-04:00

can't set "temp(chan)": variable isn't array
while executing
"set temp(chan) "#to" "
(file "scripts/redtext.tcl" line 3)

Statistics: Posted by BigToe — Mon Apr 01, 2013 2:27 am

Matching Text

2013-04-01T07:49:53-04:00

Try this

Code:

bind PUBM - "#from *" bigtoe:pubmset temp(chan) "#to"proc bigtoe:pubm {nick uhost hand chan arg} {if {[string match "*\0034*" $arg]} {set arg [string map [list "\0034" ""] $arg]putserv "PRIVMSG $::temp(chan) :Found $arg on chan $chan"}}

Statistics: Posted by Madalin — Sun Mar 31, 2013 12:15 pm

Matching Text

2013-03-31T11:36:41-04:00

Hey, need your help

I need a script that when someone writes a text on channel #Froglegs and all of it or part of it is colored in red - it will return only the part of the string that is colored and red and will strip it from codes (so it won't return red, it will return just as a regular non-colored text) and will message that matching red text to #goahead

help please?

Statistics: Posted by BigToe — Sun Mar 31, 2013 11:36 am