| View previous topic :: View next topic |
| Author |
Message |
ORATEGOD Voice
Joined: 08 Jun 2020 Posts: 32
|
Posted: Mon Dec 21, 2020 11:53 pm Post subject: Mrc -> TCL !!! Plis !!!! |
|
|
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: | | on *:text:*New*Releases*:#Chan1: {/msg #Chan2 $1- } |
|
|
| Back to top |
|
 |
ComputerTech Master

Joined: 22 Feb 2020 Posts: 393
|
Posted: Tue Dec 22, 2020 3:05 am Post subject: |
|
|
Something like this Perhaps?
| Code: |
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  _________________ ComputerTech |
|
| Back to top |
|
 |
CrazyCat Revered One

Joined: 13 Jan 2002 Posts: 1032 Location: France
|
Posted: Tue Dec 22, 2020 4:52 am Post subject: |
|
|
$1- means the line which binds the trigger.
So the script might be:
| Code: | 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"
} |
_________________ https://www.eggdrop.fr - French IRC network
Offer me a coffee - Do not ask me help in PM, we are a community. |
|
| Back to top |
|
 |
ORATEGOD Voice
Joined: 08 Jun 2020 Posts: 32
|
Posted: Tue Dec 22, 2020 9:48 am Post subject: |
|
|
| Thank you very much for your help ... you are geniuses !! |
|
| Back to top |
|
 |
|