mIRC script -> TCL script

XndR · Post by **XndR** » Mon Aug 17, 2009 6:16 pm

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: Select all

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

Thanks.

arfer · Post by **arfer** » Mon Aug 17, 2009 6:20 pm

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

XndR · Post by **XndR** » Mon Aug 17, 2009 8:15 pm

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.

arfer · Post by **arfer** » Tue Aug 18, 2009 1:58 am

Code: Select all

# text input channel
set vRelayChanInput "#eggtcl"

# text output channel
set vRelayChanOutput "#tcl"

# text word/phrase to match
set vRelayText "myspace"

bind PUBM - * pRelayCheckText

proc 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
}

XndR · Post by **XndR** » Tue Aug 18, 2009 3:25 pm

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.