egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2007-02-09T23:49:08-04:00 https://forum.eggheads.org/app.php/feed/topic/13095 2007-02-09T23:49:08-04:00 2007-02-09T23:49:08-04:00 https://forum.eggheads.org/viewtopic.php?p=70358#p70358 <![CDATA[hello :) i have question about tcl]]> Statistics: Posted by Sir_Fz — Fri Feb 09, 2007 11:49 pm

]]> 2007-02-09T23:05:47-04:00 2007-02-09T23:05:47-04:00 https://forum.eggheads.org/viewtopic.php?p=70353#p70353 <![CDATA[hello :) i have question about tcl]]>

and can you make BASEBALL SOCCER too ?

please if you can :)

thx again :)

Statistics: Posted by rhrudrhs — Fri Feb 09, 2007 11:05 pm

]]> 2007-02-09T22:53:58-04:00 2007-02-09T22:53:58-04:00 https://forum.eggheads.org/viewtopic.php?p=70351#p70351 <![CDATA[hello :) i have question about tcl]]>
i want [NEWS] [ANYTHING]

Code: 

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

Statistics: Posted by user — Fri Feb 09, 2007 10:53 pm

]]> 2007-02-09T22:44:56-04:00 2007-02-09T22:44:56-04:00 https://forum.eggheads.org/viewtopic.php?p=70349#p70349 <![CDATA[hello :) i have question about tcl]]>

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

please make for me :) thank you :)

Statistics: Posted by rhrudrhs — Fri Feb 09, 2007 10:44 pm

]]> 2007-02-09T11:51:19-04:00 2007-02-09T11:51:19-04:00 https://forum.eggheads.org/viewtopic.php?p=70321#p70321 <![CDATA[Re: hello :) i have question about tcl]]> Statistics: Posted by user — Fri Feb 09, 2007 11:51 am

]]> 2007-02-09T11:24:30-04:00 2007-02-09T11:24:30-04:00 https://forum.eggheads.org/viewtopic.php?p=70320#p70320 <![CDATA[hello :) i have question about tcl]]>

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 :)

Statistics: Posted by rhrudrhs — Fri Feb 09, 2007 11:24 am

]]>