egghelp.org community Forum Index
[ egghelp.org home | forum home ]
egghelp.org community
Discussion of eggdrop bots, shell accounts and tcl scripts.
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

hello :) i have question about tcl

 
Post new topic   Reply to topic    egghelp.org community Forum Index -> Script Requests
View previous topic :: View next topic  
Author Message
rhrudrhs
Voice


Joined: 09 Feb 2007
Posts: 3

PostPosted: Fri Feb 09, 2007 11:24 am    Post subject: hello :) i have question about tcl Reply with quote

hello please help me if you can Smile

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. Smile
and dont want this {[string match *NEWS* $text]} {
that string match is cant use same from that mirc script.

please help me Smile
Back to top
View user's profile Send private message
user
 


Joined: 18 Mar 2003
Posts: 1452
Location: Norway

PostPosted: Fri Feb 09, 2007 11:51 am    Post subject: Re: hello :) i have question about tcl Reply with quote

Do you only want messages starting with [NEWS] [SOCCER] / [BASEBALL] or [NEWS] [ANYTHING]?
_________________
Have you ever read "The Manual"?
Back to top
View user's profile Send private message
rhrudrhs
Voice


Joined: 09 Feb 2007
Posts: 3

PostPosted: Fri Feb 09, 2007 10:44 pm    Post subject: Reply with quote

i want [NEWS] [ANYTHING] Smile

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

please make for me Smile thank you Smile
Back to top
View user's profile Send private message
user
 


Joined: 18 Mar 2003
Posts: 1452
Location: Norway

PostPosted: Fri Feb 09, 2007 10:53 pm    Post subject: Reply with quote

rhrudrhs wrote:
i want [NEWS] [ANYTHING]

Code:
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"
   }
}

_________________
Have you ever read "The Manual"?
Back to top
View user's profile Send private message
rhrudrhs
Voice


Joined: 09 Feb 2007
Posts: 3

PostPosted: Fri Feb 09, 2007 11:05 pm    Post subject: Reply with quote

thanks really Very Happy

and can you make BASEBALL SOCCER too ?

please if you can Smile

thx again Smile
Back to top
View user's profile Send private message
Sir_Fz
Revered One


Joined: 27 Apr 2003
Posts: 3793
Location: Lebanon

PostPosted: Fri Feb 09, 2007 11:49 pm    Post subject: Reply with quote

BASEBALL & SOCCER belong to ANYTHING
_________________
Follow me on GitHub

- Opposing

Public Tcl scripts
Back to top
View user's profile Send private message Visit poster's website
Display posts from previous:   
Post new topic   Reply to topic    egghelp.org community Forum Index -> Script Requests All times are GMT - 4 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Forum hosting provided by Reverse.net

Powered by phpBB © 2001, 2005 phpBB Group
subGreen style by ktauber