egghelp/eggheads community

they are linked but dont share userfile. Each one have his own userfile

eggdrop 1.6.18 and tcl 8.4
Hope this helps.

But i get this error on all my eggdrops not just one ..

i need help with this problem i have an users array like set users(xxxx) "*!*@xxxx.users.undernet.org" and foreach user [array names users] { if {![validuser $user]} { adduser $user $users($user) } } and every time the bot got rehash, i get this error and the bot rewrite the original user ...

Seems like i finally done it. thanks

ok, i tryied to do the exact code of user proc demobf args { #OBF return "Hello world" #/OBF } and i get exacly the same error [17:49:01 lsn@*** ~]$ tclsh8.4 tcl x.tcl z.tcl 0 parts obfuscated. [17:49:17 lsn@*** ~]$ cat z.tcl proc demobf args { #OBF return "Hello world" #/OBF } S...

I write that code into a file named tcl
I run the code: I get this

0 parts obfuscated.

And the file z.tcl was identical with x.tcl, nothing has changed.. What goes wrong ?

YooHoo wrote:beginner's guide to tcl will get you started...
tcl reference manual will keep you busy for months

yeah, but i dont have such long time to spare ...


so anyone else ? can help me ?

i want to write a script like, from public !chanset mail test@test.ro, then from command !mail, bot will show channel mail; on !chanset mail , he must clear channel mail and no mail is set on command mai, bot will answear : mail not setup yet .... can you guide me how to make such of script ? :mrgre...

i got this google script bind pub - .google pub_google set google(MAX) 10 set google(deny_CHANS) { "#chan1" "#chan2" } package require http proc pub_google {nick uhost hand chan arg} { global google if {[lsearch [string tolower $google(deny_CHANS)] [string tolower $chan]]!="...

ok now its working, and the second one is working too,

Thanks awyeah

i get

not recognize

ok, and for the second one ?

set home "#chan" bind raw -|- "NOTICE *is now operator*" operjoin proc operjoin {from idx args} { global botnick home set nick [lindex [lindex $args 0] 4] puthelp "PRIVMSG $home :OPERJOIN: $nick is now an IRCoperator" return 0 } bind raw -|- "NOTICE *HACK(4)*"...

hm... so what can i do then ?