Tcl error

duofruo · Post by **duofruo** » Fri Oct 24, 2003 4:12 am

What is the problem with this script :

bind pub m|m !chanset set:chan

proc set:chan {nick uhost hand chan arg} {
channel set $chan [join [lrange [split $arg] 0 end]]
puthelp "NOTICE $nick :set \002[join [lrange [split $arg] 0 end]]\002 on \002$chan\002"
}

because when i use : !chanset flood-chan 0:0 i get this error in dcc
Tcl error [set:chan]: illegal channel flood type: flood-chan 5:5

bobjuh · Post by **bobjuh** » Fri Oct 24, 2003 7:34 am

[09:58] <DuoFruo> anyone can help me whith a tcl script ?
[10:05] <onkko> sure
[10:05] <onkko> just ask your question
[10:05] <DuoFruo> Tcl error [set:chan]: illegal channel flood type: flood-chan 1:1

......

[10:43] * DuoFruo (radu@Duo-Fruo.users.quakenet.org) has joined #eggdrop.support
[10:43] <DuoFruo> i fixed the problem whith the manuals, yhax a lot
[10:43] <DuoFruo> bye
[10:43] * DuoFruo (radu@Duo-Fruo.users.quakenet.org) has left #eggdrop.support

Post by **user** » Fri Oct 24, 2003 7:48 am

[10:34] (ciumegu-) Tcl error [set:chan]: illegal channel flood type: flood-chan 5:5
[10:35] (ciumegu-) but i get this error when i use !chanset flood-chan 0:0
[10:36] (+user) that's because the entire arg part is passed as one argument to 'channel set'
[10:38] (ciumegu-) and how do i fix that ?
[10:40] (+user) try replacing the first line in the proc with 'eval channel set [list $chan] [split $arg]'
[10:41] (ciumegu-) like this ?
[10:41] (ciumegu-) bind pub m|m !chanset setchan
[10:41] (ciumegu-) proc setchan {nick uhost hand chan arg} {
[10:41] (ciumegu-) eval channel set [list $chan] [split $arg]
[10:41] (ciumegu-) puthelp "NOTICE $nick :set \002[join [lrange [split $arg] 0 end]]\002 on \002$chan\002"
[10:41] (ciumegu-) }
[10:41] (ciumegu-) thx a lot user

...btw: I think he's the same person... ciumegu-(radu@ciumegu.users.undernet.org)

GodOfSuicide · Post by **GodOfSuicide** » Fri Oct 24, 2003 8:18 am

seams that way

bobjuh · Post by **bobjuh** » Fri Oct 24, 2003 8:22 am

On quakenet they didn't wanted to help him

[10:31] <Mtac> DuoFruo: didn't you write this script your self ? - because it seems to me that don't know what does what
[10:35] <onkko> if you dont have time to learn how to script then dont script, simple as that. We dont write your scripts
[10:35] <DuoFruo> bleah
[10:35] * DuoFruo (radu@Duo-Fruo.users.quakenet.org) has left #eggdrop.support

On quakenet they didn't wanted to help him

[10:43] * DuoFruo (radu@Duo-Fruo.users.quakenet.org) has joined #eggdrop.support
[10:43] <DuoFruo> i fixed the problem whith the manuals, yhax a lot
[10:43] <DuoFruo> bye
[10:43] * DuoFruo (radu@Duo-Fruo.users.quakenet.org) has left #eggdrop.support

10:40] (+user) try replacing the first line in the proc with 'eval channel set [list $chan] [split $arg]'
[10:41] (ciumegu-) thx a lot user

Yeah right manuals

GodOfSuicide · Post by **GodOfSuicide** » Fri Oct 24, 2003 9:34 am

bobjuh wrote:Yeah right manuals

hmm, i thought user is my private manual....how dare you

duofruo · Post by **duofruo** » Fri Oct 24, 2003 1:18 pm

I din`t want to make asame

( sorry my english:) .

Thx a lot user, Ur the best

)

duofruo · Post by **duofruo** » Sat Oct 25, 2003 2:17 am

By the way, from where i can teach how to make tcl scripts?

I wana learn like u user

and again thx for help

GodOfSuicide · Post by **GodOfSuicide** » Sat Oct 25, 2003 3:58 am

duofruo wrote:By the way, from where i can teach how to make tcl scripts?

you cant teach something you dont know yourself...

and if you want to learn try http://www.suninet.nl/tclguide/

duofruo · Post by **duofruo** » Sat Oct 25, 2003 4:10 am

I dont know english so good, i need a romanian manual :(

bobjuh · Post by **bobjuh** » Sat Oct 25, 2003 2:36 pm

duofruo wrote:I dont know english so good, i need a romanian manual

www.google.com is your friend

duofruo · Post by **duofruo** » Sat Oct 25, 2003 2:45 pm

Ya cool

I search it a lot of time and i get only crazy stuff

Im borred of www.google.com

egghelp/eggheads community

Tcl error

Tcl error

Re: Tcl error

#tcl@undernet.org