Mrc -> TCL !!! Plis !!!!

[ORATEGOD]

Someone who can tell me ... if it is possible this MRC pass it to a TCL ...

I already appreciate your response ...

sorry for my bad English.

Code: Select all

on *:text:*New*Releases*:#Chan1: {/msg #Chan2 $1-  }

[ComputerTech]

Something like this Perhaps?

Code: Select all

set catch(words) {
"*New Releases*"                  
}

set catch(message) {
"set your message here"
}

foreach word $catch(words)  {bind pubm -|- "$word" catch:word}

proc catch:word {nick uhost hand chan text} {
global catch
putserv "PRIVMSG $chan :$catch(message)"
}

Untested

[CrazyCat]

$1- means the line which binds the trigger.
So the script might be:

Code: Select all

set catch(words) {
   "*New Releases*"                 
}
set chanin "#chan1"
set chanout "#chan2"

foreach word $catch(words)  {bind pubm -|- "$chanin $word" catch:word}
proc catch:word {nick uhost hand chan text} {
   putserv "PRIVMSG $::chanout :$text"
}

[ORATEGOD]

Thank you very much for your help ... you are geniuses !!