egghelp/eggheads community

mIRC script -> TCL script

2009-08-18T15:25:44-04:00

Thanks, it works great. Only question I have is: does eggdrop support foreign characters or no? Sometimes the string will end early if it encounters specific characters.

Statistics: Posted by XndR — Tue Aug 18, 2009 3:25 pm

mIRC script -> TCL script

2009-08-18T01:58:44-04:00

Code:

# text input channelset vRelayChanInput "#eggtcl"# text output channelset vRelayChanOutput "#tcl"# text word/phrase to matchset vRelayText "myspace"bind PUBM - * pRelayCheckTextproc pRelayCheckText {nick uhost hand chan text} {    global vRelayChanInput vRelayChanOutput vRelayText    if {[string equal -nocase $vRelayChanInput $chan]} {        if {[string match -nocase *${vRelayText}* $text]} {            if {[isop $nick $chan]} {                if {[validchan $vRelayChanOutput]} {                    if {[botonchan $vRelayChanOutput]} {                        putserv "PRIVMSG $vRelayChanOutput :$nick said $text in $chan"                    }                }            }        }    }    return 0}

Statistics: Posted by arfer — Tue Aug 18, 2009 1:58 am

mIRC script -> TCL script

2009-08-17T20:15:29-04:00

It checks every line of text in chan1. If any part of it matches phrase1 and is said by an op then it will echo the text in chan2.

Statistics: Posted by XndR — Mon Aug 17, 2009 8:15 pm

mIRC script -> TCL script

2009-08-17T18:20:17-04:00

mIRC scripting is complete jibberish. Wouldn't it be easier simply to tell us what it does?

Statistics: Posted by arfer — Mon Aug 17, 2009 6:20 pm

mIRC script -> TCL script

2009-08-17T18:16:52-04:00

I wrote a mIRC script awhile back and am now looking to add it to an eggdrop so I don't have to be online 24/7 for the script to be active.

I have no experience with TCL scripting so I was hoping someone could just translate this real quick.

Code:

On *:Text:*:#chan1:{  if (phrase1 isin $1-) {    if ($nick isop #chan1) {      msg #chan2 $1-    }  }}

Thanks.

Statistics: Posted by XndR — Mon Aug 17, 2009 6:16 pm