On Text Script

[Football]

Hey, I need a rather simple script (I think its simple).

I need a script that will be set on certain channels via flag (lets say .chanset #channel +monitorText)

The script will 'monitor' that channel (a main channel) and will look for:

A Line that contains 10 commas
example:

Alan, Howard, Toni, Joe, Robert, Laurent, Michael, Ronnie, Mounty, Spark, Yellow

AND / OR

A line that contains two ';'

example:

Joe; Robert; Tony

AND / OR

a line that contains the phrase 'XI':

Example: my top XI movies are: Matrix, Harry Potter...

And if it matches one of these conditions, the bot will auto-message that line matching one or more of these conditions to a sub channel, lets say '#subchannel'


Please help

[username]

Try it:

Code: Select all

# Channel flag.
setudef flag monitorText

# Subchannel.
set subchannel #subchannel

# Bind all text in all channels.
bind pubm - * monitorProc
proc monitorProc {nick uhost hand chan text} {
global subchannel

    # Check channel flag.
    if {![channel get $chan +monitorText]} {
        return 0
    }

    # Check text for matching values.
    if {[string match "*,*,*,*,*,*,*,*,*,*,*" $text] || [string match "*;*;*" $text] || [string match "*XI*" $text]} {

        # Send matching text to subchannel.
        putserv "PRIVMSG $subchannel :$text"
    }
}

I didnt text this code.

[Football]

hey username,

Thanks for the reply and the effort & time.

I've tested the script, once with a sentences using 10 times " , "

once with a line containing two times " ; "

and once with a sentence using " XI "


I've set the flag +monitorText on the channel I wanted it to monitor #World

I've set the sub channel as #Staff

And it didn't relay anything from #world to #staff

[Football]

Oh and I did get this error

Code: Select all

[11:52:01] Tcl error [monitorProc]: Unknown channel setting.

[caesar]

replace:

Code: Select all

if {![channel get $chan +monitorText]} { 

with:

Code: Select all

if {![channel get $chan monitorText]} { 

[Football]

yeah that worked, cheers username and caesar! appreciate it very much!