how to debug this ?

[Pitchat]

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: Select all

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

[awyeah]

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 <interval> [list your:proc]


And try something as simple as this:

Code: Select all

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."
} 

[demond]

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: Select all

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

[metroid]

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

[Pitchat]

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

[awyeah]

***EDITED***

Double post.

[awyeah]

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: Select all

bind raw - 315 checkX
proc 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.

[demond]

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: Select all

bind raw - 315 checkX
proc 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.