i need tcl script

fryda · Post by **fryda** » Wed Oct 29, 2003 6:09 am

Hy, i need a tcl script that will have a chanset command. This script will autovoice all people who joins the channel. Like .chanset +autovoice

duofruo · Post by **duofruo** » Wed Oct 29, 2003 6:11 am

bind join - * autovoice
setudef flag autovoice
proc autovoice {nick uhost hand chan} {
if {![string match *+autovoice* [channel info $chan]]} {return 0}
putserv "MODE $chan +v $nick"
}

This should work, i haven`t tested. U must set .chanset #channel +autovoice

bobjuh · Post by **bobjuh** » Wed Oct 29, 2003 6:21 am

or just search the egghelp TCL archive.
There are already a lot of script who does that.

Why reinvent the wheel ?

fryda · Post by **fryda** » Wed Oct 29, 2003 6:31 am

thx duofruo is great
Bob, yes they are they dont have chanset command

duofruo · Post by **duofruo** » Wed Oct 29, 2003 6:32 am

Hehe bob, i dont look, i faster wrote that script

bobjuh · Post by **bobjuh** » Wed Oct 29, 2003 6:33 am

duofruo wrote:Hehe bob, i dont look, i faster wrote that script

yw fryda

@ Duofruo

Go to school man

duofruo · Post by **duofruo** » Wed Oct 29, 2003 6:34 am

Lol bob, i am dressing right now :P
Bye all :). Time 12:36

Post by **caesar** » Wed Oct 29, 2003 8:52 am

Lil tip: instead of:

Code: Select all

if {![string match *+autovoice* [channel info $chan]]} {return 0}

use something like this:

Code: Select all

if {![channel get $chan +autovoice]} { return 0 }

Also, the autovoice flag already exists. Make another one or just remove the setudef flag autovoice line.

duofruo · Post by **duofruo** » Thu Oct 30, 2003 3:07 am

Oh, yes i forget that +autovoice allready exist. Grr

egghelp/eggheads community

i need tcl script

i need tcl script

Re: i need tcl script