egghelp/eggheads community

/names $chan

2009-09-23T13:50:17-04:00

Thank you too ^^

Statistics: Posted by Zio_ruo — Wed Sep 23, 2009 1:50 pm

/names $chan

2009-09-22T16:16:28-04:00

find it at

http://www.tcl.tk/man/tcl8.5/TclCmd/contents.htm
for tcl 8.5

or
http://www.tcl.tk/man/tcl8.4/TclCmd/contents.htm
for tcl 8.4

nevertheless its almost the same

Statistics: Posted by raider2k — Tue Sep 22, 2009 4:16 pm

/names $chan

2009-09-22T16:50:28-04:00

Thank you so much *_*
It works but there is a little problem:

(21:06:44) [Part] Zio_ruo (-@stfu.omfgwtfbbq.org)
(21:06:44) [Join]: Ora sei in #humanature
(21:06:46) <@Jagannath> Jagannath @ #humanature :@Zio_ruo @Hanky_Panky @Jagannath
(21:06:47) <@Jagannath> Jagannath @ #humanature :@Zio_ruo @Hanky_Panky @Jagannath

However i have stupid domand °°:

Code:

        if {[string equal -nocase $chan #humanature]} {

Can i find stuff like this in eggdrop /doc or in tcl tutorials ?_?

Statistics: Posted by Zio_ruo — Tue Sep 22, 2009 3:41 pm

/names $chan

2009-09-22T14:41:16-04:00

Your bot is receiving the RAW 353 as an automatic response from the server when joining a channel, and not as a consequence of the code within your join proc. Your join proc does not work for any user INCLUDING the bot.

Code:

if {$chan == "humannature"} {  # code here}

In the above statement, there is no # in front of the channel name and in any case it is inadvisable to use such an equality test because it does not allow for differences in case. For example, the bot may know the channel as #Humanature rather than #humanature.

The following equality test is better

Code:

if {[string equal -nocase $chan #humanature]} {  # code here}

You might also want to prevent the code from triggering when the bot joins, since it will receive the RAW 353 automatically anyway.

The following code should work

Code:

bind JOIN - * pUserJoinbind RAW - 353 pRaw353proc pUserJoin {nick uhost hand chan} {    if {![isbotnick $nick]} {        if {[string equal -nocase $chan #humanature]} {            putserv "NAMES $chan"         }    }    return 0}proc pRaw353 {from keyword text} {    putserv "PRIVMSG #humanature :$text"    return 0} putlog "\037BlaBOh tcl  by Zio_ruo\037"

Alternatively you could have put the channel name in the JOIN bind mask. If I am not mistaken this is not case sensitive. There is good reason for this. The command 'string equal' is from the Core Tcl language where there is no concept of what an IRC channel is. However, a JOIN bind and associated mask is from Eggdrop TCL where the mask is expected to begin with an IRC channel name, for which case is irrelevant.

Code:

bind JOIN - "#humanature *" pUserJoinbind RAW - 353 pRaw353proc pUserJoin {nick uhost hand chan} {    if {![isbotnick $nick]} {        putserv "NAMES $chan"     }    return 0}proc pRaw353 {from keyword text} {    putserv "PRIVMSG #humanature :$text"    return 0} putlog "\037BlaBOh tcl  by Zio_ruo\037"

Statistics: Posted by arfer — Tue Sep 22, 2009 2:41 pm

/names $chan

2009-09-22T10:42:59-04:00

Hi all, i wrote this script for make a /names $chan when a user join a specific chan:

Code:

bind join - * join:rawbind raw - 353 RAW:blaproc join:raw { nick host hand chan } {        if { $chan == "humanature" } {                putserv "NAMES $chan"                return 1}                }proc RAW:bla { from keyword text } {                putserv "PRIVMSG #humanature :$text"                }putlog "\037BlaBOh tcl  by Zio_ruo\037"

But it works only when the bot is joining the chan (i think because the eggdrop make a right /names $chan when it joins a chan)

Statistics: Posted by Zio_ruo — Tue Sep 22, 2009 10:42 am