egghelp/eggheads community

Re: how to debug this ?

2004-11-21T12:57:46-04:00

If you launch this script immediately on bind join, then the eggdrop might not detect all users in a chan, it is always best to use a utimer. Say delay it 5-10 secs after the join.
hardly the best

the proper way to do this is to bind raw to End-of-/WHO list:
Code:
bind raw - 315 checkXproc checkX {f k t} {  set chan [lindex [split $t] 1]  if [onchan X $chan] {    # X is on channel  } else {    # X is not on channel  }}
The structure:

if {...} { }
if {...} { }

works as well as

if {...} { }
else {...} { }

or

if {...} { }
elseif {...} { }
else {...} { }

If you have alot of conditions to select from then you might want to use elseif and else, otherwise 'if' is just fine, heh.

I didn't mean the syntax, I meant your timer method.

Timers should never be used if there is an event-driven solution for a particular problem - as in this case.

Your timer method will not work if the timer is set to, say, 10 seconds but there is lag and join sync takes longer than that.

Statistics: Posted by demond — Sun Nov 21, 2004 12:57 pm

Re: how to debug this ?

2004-11-21T12:31:26-04:00

If you launch this script immediately on bind join, then the eggdrop might not detect all users in a chan, it is always best to use a utimer. Say delay it 5-10 secs after the join.
hardly the best

the proper way to do this is to bind raw to End-of-/WHO list:
Code:
bind raw - 315 checkXproc checkX {f k t} {  set chan [lindex [split $t] 1]  if [onchan X $chan] {    # X is on channel  } else {    # X is not on channel  }}

The structure:

if {...} { }
if {...} { }

works as well as

if {...} { }
else {...} { }

or

if {...} { }
elseif {...} { }
else {...} { }

If you have alot of conditions to select from then you might want to use elseif and else, otherwise 'if' is just fine, heh.

Statistics: Posted by awyeah — Sun Nov 21, 2004 12:31 pm

Re: how to debug this ?

2004-11-21T12:33:45-04:00

***EDITED***

Double post.

Statistics: Posted by awyeah — Sun Nov 21, 2004 12:30 pm

how to debug this ?

2004-11-20T12:57:54-04:00

Thanks for the help i will try it asap

i`d like to point this ... before calling somebody a "ripper " you should first check if it`s the case ....

this portion of script is from a script that doesnt work at all and even the author post on this forum a while ago and didn`t receive any answer

i manage to make it work even if tcl is not what i do best except for the part listed above

be sure that when the script will be 100% working and if it can be useful to somebody it will be made available with all credits to the right people

have a nice day

Statistics: Posted by Pitchat — Sat Nov 20, 2004 12:57 pm

how to debug this ?

2004-11-20T12:48:46-04:00

Pitchat, Its quite clear you ripped that part from a different script too :\

Statistics: Posted by metroid — Sat Nov 20, 2004 12:48 pm

Re: how to debug this ?

2004-11-20T11:10:35-04:00

If you launch this script immediately on bind join, then the eggdrop might not detect all users in a chan, it is always best to use a utimer. Say delay it 5-10 secs after the join.

hardly the best

the proper way to do this is to bind raw to End-of-/WHO list:

Code:

bind raw - 315 checkXproc checkX {f k t} {  set chan [lindex [split $t] 1]  if [onchan X $chan] {    # X is on channel  } else {    # X is not on channel  }}

Statistics: Posted by demond — Sat Nov 20, 2004 11:10 am

Re: how to debug this ?

2004-11-20T10:51:19-04:00

If you launch this script immediately on bind join, then the eggdrop might not detect all users in a chan, it is always best to use a utimer. Say delay it 5-10 secs after the join.

utimer [list your:proc]

And try something as simple as this:

Code:

if {[onchan "X" $ref_chan]} { putserv "PRIVMSG $ref_chan :\002X\002 is \002present\002 on \002$ref_chan\002."}if {![onchan "X" $ref_chan]} { putserv "PRIVMSG $ref_chan :\002X\002 is \002*not* present\002 on \002$ref_chan\002."}

Statistics: Posted by awyeah — Sat Nov 20, 2004 10:51 am

how to debug this ?

2004-11-19T17:33:19-04:00

HI

i have a tcl scripts that is suppose tu join a channel and check if theres an X on the channel then say it to another channel everything works fine except that the eggdrop state that there is no X on the channel when there is actually one !!

heres the problem code

Code:

if {[onchan X $req_chan]} { set QLcheck 1 putserv "PRIVMSG $ref_chan :\002X\002 Présent sur le canal ! Demande refusée !" } { set QLcheck 0 putserv "PRIVMSG $ref_chan :Pas de \002X\002 présent sur le canal ! Exigence \002Correcte\002 !" }

thanks in advance for any help

Statistics: Posted by Pitchat — Fri Nov 19, 2004 5:33 pm