egghelp/eggheads community

what`s wrong ??

2003-06-25T21:48:53-04:00

héhé
egghead was right it doesnt work and display a different error

[21:42] Tcl error [time:devoice]: invalid channel: 05

for the record this script is suppose to voice user known from the bot when they say something and devoice them after a period of idle (15 min)

i found a script that almost do that (av.pubmsg.tcl) but it voices everybody when the talk instead of only people with certain flags

i`m open to any suggestions

Pitchat

Statistics: Posted by Pitchat — Wed Jun 25, 2003 9:48 pm

what`s wrong ??

2003-06-25T17:19:12-04:00

oh ok tried my luck, lol

Statistics: Posted by Sir_Fz — Wed Jun 25, 2003 5:19 pm

what`s wrong ??

2003-06-25T16:34:47-04:00

[snip]
I think this should make it work

I think the opposite

(the whole script initially posted is kind of strange)

Statistics: Posted by egghead — Wed Jun 25, 2003 4:34 pm

what`s wrong ??

2003-06-25T15:52:48-04:00

Replace :

Code:

proc time:devoice {m h d o y} {    # Listage des usager du canal    foreach list [chanlist $channel] {       # Validation de la néssecité de dévoicer       if {[getchanidle $list $list] > 5} {putserv "Mode $chan -v $nick"}    }    return 0 }

with

Code:

proc time:devoice {nick host hand chan rest} {    # Listage des usager du canal    foreach list [chanlist $chan] {       # Validation de la néssecité de dévoicer       if {[getchanidle $list $list] > 5} {putserv "Mode $chan -v $nick"}    }    return 0 }

I think this should make it work

Statistics: Posted by Sir_Fz — Wed Jun 25, 2003 3:52 pm

what`s wrong ??

2003-06-25T15:35:28-04:00

yeah i`ts seems obvious

but the problem is that i dont know how to fix it , i`ve tried to change the $channel to $chan and chan to channel and so on but i always end up with that error

so now i just go round and round and i dont know how to just fix it

Pitchat

Statistics: Posted by Pitchat — Wed Jun 25, 2003 3:35 pm

what`s wrong ??

2003-06-25T15:22:53-04:00

channel isn't defined.. looks like somebody changed the var names around in the proc definition maybe.

Statistics: Posted by stdragon — Wed Jun 25, 2003 3:22 pm

what`s wrong ??

2003-06-25T14:55:49-04:00

Hi i have a simple tcl script and it keeps sending me errors like

[14:54] Tcl error [time:devoice]: can't read "channel": no such variable

any help will be appreciated

Code:

# Sur quel canal cette fonction prendra effetset channel "#protect"# Manipulation ...set $channel [string tolower $channel]# Déclanchement événementielbind msgm  - * msgm:revoicebind time - "* % % % %" time:devoice# Procédure redonnant le +vproc msgm:revoice {nick host hand text} {# Validation du canalif {[string tolower $channel] != $channel} {return 0}putquick "MODE $chan +v $nick"}# Procédure enlevant le +vproc time:devoice {m h d o y} {# Listage des usager du canalforeach list [chanlist $channel] {# Validation de la néssecité de dévoicerif {[getchanidle $list $list] > 5} {putserv "Mode $chan -v $nick"}}return 0}

thanks and dont stop helping poor people like me

Statistics: Posted by Pitchat — Wed Jun 25, 2003 2:55 pm