hello :) i have question about tcl

[rhrudrhs]

hello please help me if you can

i dont know TCL well

ok start my question

On ^1:TEXT:*:#Channel1:{
if ( $regex($strip($1-,bruc),/\[NEWS\]\s\[([^\s\/\[\]]+)\]\s([^\s\/\[\]]+)\sby\s.+$/gi) ) {
var %text1 = $regml(1) | var %text2 = $regml(2)
if ( %text1 == SOCCER ) { /msg #Channel2 NEWS is %text1 and %text2 by ME | return }
if ( %text1 == BASEBALL ) { /msg #Channel2 NEWS is %text1 and %text2 by ME | return }
}


its from mirc script

that will be use for if someone msged in channel in #Channel1 . then i will msg #Channel2 to like this.

<someone> [NEWS] [SOCCER] Brazil.Vs.France by CNN
<Me> NEWS is SOCCER and Brazil.Vs.France by ME

<someone> [NEWS] [BASEBALL] USA.Vs.JAPAN by ABC
<Me> NEWS is BASEBALL and USA.Vs.JAPAN byMe

i wanna use that script from mirc script to my eggdrop script.
but i dont know TCL scripts.
please make that to like TCL ver.
and dont want this {[string match *NEWS* $text]} {
that string match is cant use same from that mirc script.

please help me

[user]

Do you only want messages starting with [NEWS] [SOCCER] / [BASEBALL] or [NEWS] [ANYTHING]?

[rhrudrhs]

i want [NEWS] [ANYTHING]

and [NEWS] [SOCCER] / [BASEBALL] / [ANOTHER] too

please make for me thank you

[user]

i want [NEWS] [ANYTHING]

Code: Select all

bind pubm - {#channel1 [NEWS] [*] *} relaynews
proc relaynews {n u h c a} {
	if {[regexp {^\[NEWS\] \[(.+?)\] (.+) by [^ ]+$} $a 0 1 2]} {
		puthelp "PRIVMSG #channel2 :NEWS is $1 and $2 by ME"
	}
}

[rhrudrhs]

thanks really

and can you make BASEBALL SOCCER too ?

please if you can

thx again

[Sir_Fz]

BASEBALL & SOCCER belong to ANYTHING