On text Script

[Football]

Hey, I need quite a simple, yet configurable script that relays when 'on text' messages match on one room to one/more other rooms.

Example

Text matching: *hello* Love* *Spear
* The text matching can be infinte and added via pub message or on the .tcl script itself.

* To what room(s) relay?
* Configure: #Alan, #Tony

<Someone> good morning people. What a lovely day

* bot will relay the whole sentence to #Alan & #Tony

Another example:
<Someone> Spear

Will relay it to #Alan & #Tony

Help please. thanks.

[Madalin]

You can add as many channels you want and as many texts to watch. If any text is found it will be relayed to the other channels from temp(chans)

Code: Select all

bind PUBM - * relay:pubm

set temp(chans) {
	"#channel1"
	"#channel2"
}

set temp(msg) {
	"im here"
	"no im there"
}

proc relay:pubm {nick uhost hand chan arg} {
	global temp


	foreach w [split $temp(msg)] {
		if {[string match "*$w*" $arg]} {
			foreach c $temp(chans) {
				putserv "PRIVMSG $c :$arg"
			}
		}
	}
}