egghelp/eggheads community

MSG in a chan, MSG -> other chan

2007-06-18T14:13:26-04:00

Think you've missed a space between the target (channel), and the start of the message:

Code:

putserv "privmsg #mychan:test $text abc"

Most likely, it should be

Code:

putserv "privmsg #mychan :test $text abc"

Also, the if-statement within the proc is kinda pointless, as it will (almost) always match when the binding triggers (unless "word" is part of the channelname)

Statistics: Posted by nml375 — Mon Jun 18, 2007 2:13 pm

MSG in a chan, MSG -> other chan

2007-06-18T13:48:14-04:00

just to note, setting comando and comando2 to the same is wrong, and also why set comando2 to text when you can just use $text itself...

Statistics: Posted by r0t3n — Mon Jun 18, 2007 1:48 pm

MSG in a chan, MSG -> other chan

2007-06-17T13:35:13-04:00

pub doesn't allow a wildcard, use pubm.

Well, i did that, but unluckily no luck yet.

Been searching in threads for more than a while, but no way.

I did modify the proc many times, doing various test, though. What i did, or at least, one of the many tries.

Code:

bind pubm - "*word*" proceduraproc procedura { nick host hand keyword text} {  if {[string match "*word*" $text]} {putserv "privmsg #mychan:test $text abc"}      }

Still doesn't work.

Statistics: Posted by Redento — Sun Jun 17, 2007 1:35 pm

MSG in a chan, MSG -> other chan

2007-06-13T12:22:58-04:00

pub doesn't allow a wildcard, use pubm.

Statistics: Posted by metroid — Wed Jun 13, 2007 12:22 pm

MSG in a chan, MSG -> other chan

2007-06-13T09:03:37-04:00

Hi all

I've been learning TCL for a few times, but not as much as i can complete my first little tcl of my own.

Aim is simple: when a *text* is typed in a chan, eggdrop has to report it, as it is, in another chan.

What i did so far is this:

Code:

bind pub - * proceduraproc procedura {nick host handle chan text} {  set comando [lindex [split $text " "] 0]  set comando2 [lindex [split $text " "] 0]  if {($comando == "TEST") && ($nick == "mynick") && ($chan == "#mychan")} {set $comando2 == $text    putquick "privmsg #otherchan: $comando2 $nick $text test123"    return 0    }

I've even tried creating a temporary txt file, but it's still too much for my actuals knowledge. If someone can point me out for a example tcl where i might learn from, or to help me with above one.

Thanks in advance.

Statistics: Posted by Redento — Wed Jun 13, 2007 9:03 am