egghelp/eggheads community

addchannel on allvoive.tcl

2006-08-19T08:08:11-04:00

thank you caesar. now everything is working fine.
thank all of you for quick responding and nice ideas.

Statistics: Posted by ein7opf — Sat Aug 19, 2006 8:08 am

addchannel on allvoive.tcl

2006-08-19T08:07:00-04:00

@caesar: Nice one (Makes me wonder why I did'nt think of that myself)

2ein7opf: Well, think you've stumbled across a possible new utf-8 bug :/
Do you get any coredumps when it crashes? Any context-backtraces?

Statistics: Posted by nml375 — Sat Aug 19, 2006 8:07 am

addchannel on allvoive.tcl

2006-08-19T07:48:31-04:00

i am running eggdrop V1.6.17

Statistics: Posted by ein7opf — Sat Aug 19, 2006 7:48 am

addchannel on allvoive.tcl

2006-08-17T16:50:41-04:00

I would go for something less complicated than having to edit the .tcl file each time I want either to add or remove a channel from the *allvoice* channels list. I'd go for a user defined channel setting, like allvoice for instance, that can be enabled/disabled via dcc chat or telnet with the eggdrop.

Code:

setudef flag allvoicebind join - * avjoinproc avjoin {nick uhost hand chan} {  if {[isbotnick $nick] || ![channel get $chan allvoice] || ![botisop $chan]} {    return  }  pushmode $chan +v $nick}

Just ".chanset #channel +allvoice" to enable the *all voice* on a specific channel and to disable it.

Statistics: Posted by caesar — Thu Aug 17, 2006 4:50 pm

addchannel on allvoive.tcl

2006-08-17T11:16:05-04:00

To summarize then; using list-commands on "broken" lists with extended charset crashes your bot. This means you've stumbled across a bug in either eggdrop or tcl.

Could you post some info on which version of eggdrop and tcl you're using. Also, if your bot generates any debug-info on crash, that would also be nice..

Statistics: Posted by nml375 — Thu Aug 17, 2006 11:16 am

addchannel on allvoive.tcl

2006-08-17T07:39:12-04:00

when i use "allvoice.tcl" and try to add the channel #°o°.gn (in both ways of tryn to put in "chan1" "chan2" or "chan1 chan2") my my whole eggdrop chrashes down. when i use your script everything is fine but nothing happens on #°o°.gn when somebody joins. on every other channel it works fine.

Statistics: Posted by ein7opf — Thu Aug 17, 2006 7:39 am

addchannel on allvoive.tcl

2006-08-17T06:18:06-04:00

Does the script crash, or does your whole eggdrop crash?

Extended character-sets have been an issue with eggdrop possibly since the beginning of times (well, sorta). Some older eggies had some seriuos issues with utf-8 and tcl, tho that's supposed to be somewhat solved now.

Unfortunately, I can't think of a quick-fix right now.

Statistics: Posted by nml375 — Thu Aug 17, 2006 6:18 am

addchannel on allvoive.tcl

2006-08-16T20:26:19-04:00

hey, thank you for responding so fast.
both ways to put the channels in are causing a crashed down eggdrop.
your scipt works fine! thx for this great idea!
i think the problem is the name of one channel it have to work on.
the channelname includes specieal characters the channelname is #°o°.gn
and your postet script work on every channel except #°o°.gn
is there a way to make it work with these characters used in the channelname?

so long i allvoice all my channel.

Statistics: Posted by ein7opf — Wed Aug 16, 2006 8:26 pm

addchannel on allvoive.tcl

2006-08-16T14:42:40-04:00

Something like this would be better:

Code:

set avchat [list "#channel1" "#channel2"]

foreach really works much better on lists than strings..
Also, think lsearch would be faster than manually scanning through the whole list using foreach

Code:

set avchan [list]#set avchan [list [string tolower "#mychan"] [string tolower "#mychan2"]]bind join - * avjoinproc avjoin {nick uhost hand chan} { global avchan botnick if {$nick == $botnick} {return 0} set chan [string tolower $chan] if {[botisop $chan] && ([llength $avchan] == 0 || [lsearch $avchan $chan] >= 0)} {  pushmode $chan +v $nick  return 0 }}

Anyway, using list when setting avchan would be mandatory (unless you really got a fetish of building valid list-structures manually ), rewritten code is purely optional, guppy's original code should work fine I guess (or well, "string tolower" should'nt damage the list-structure, but that's just my guess..)

Statistics: Posted by nml375 — Wed Aug 16, 2006 2:42 pm

addchannel on allvoive.tcl

2006-08-16T13:42:30-04:00

I guess you just leave a space between two inserted chans.

Code:

set avchan "#channel1 #channel2"

GRTZ

Statistics: Posted by dusk — Wed Aug 16, 2006 1:42 pm

addchannel on allvoive.tcl

2006-08-16T12:36:26-04:00

sorry. here is the script i`m talkin abot.

Code:

## allvoice.tcl##  - voices everyone in a channel when they join# What channels should this work on?#  - note, "" is for all channelsset avchan "" ## Begin the codebind join - * avjoinproc avjoin {nick uhost hand chan} { global avchan botnick if {$nick == $botnick} {return 0} if {$avchan == "" && [botisop $chan]} {  pushmode $chan +v $nick  return 0 } set chan [string tolower $chan] foreach i [string tolower $avchan] {  if {$i == $chan && [botisop $chan]} {   pushmode $chan +v $nick   return 0  } }}putlog "Loaded allvoice.tcl by guppy"

Statistics: Posted by ein7opf — Wed Aug 16, 2006 12:36 pm

addchannel on allvoive.tcl

2006-08-16T12:08:26-04:00

and we don't know what allvoice.tcl is

Statistics: Posted by demond — Wed Aug 16, 2006 12:08 pm

addchannel on allvoive.tcl

2006-08-16T09:34:13-04:00

hi,
i have got a question about allvoice.tcl
the option is:

set avchan "" /// this means that allvoice is enabled on all channels.
set avchan "#channel" /// works only on inserted channel.

i want that autovice is enabled for 2 channels.
how can i add more than 1 channel?

i don`t know what i have to put in there to make it work.

Statistics: Posted by ein7opf — Wed Aug 16, 2006 9:34 am