egghelp/eggheads community

Wait, if you access the file at "/home/to2/website/pw.txt", why do you use the http package?

That seems horribly silly to me.

set $bans_count 0 foreach bans [banlist $chan] { # can use -nocase option below if you wish case to be irrelevant if {[string equal -- [lindex [split $bans] 5] [lindex [split $text] 0]]} { set $bans_count [expr $bans_count + 1] } } if {$bans_count > 0} { puthelp "NOTICE $nick :Handle \002[lind...

I'd also like to advise you against using such a public message command to auth with network services.

You already made a topic about this and you were already answered there.

It's pointless to try again.

There is no built-in command to for public "!chanset".

Unload the script. There is already a HTTP package in the TCL library.

(Use package require http if you don't have it in your script)

Sorry but I don't think anyone will put the time into this to make a website that works with an eggdrop.

Ontop of that, how would your bot find these "abusers"?

Why don't you just use variable?

AFAIK, variable isn't reset after a rehash.

That's not the full code and it looks like you not using lrange on a valid list.

Forgot about the + in $mode. So that's fixed. And I'm fully aware that MODE only sends 1 mode through which is why I used pushmode. pushmode <channel> <mode> [arg] Description: sends out a channel mode change (ex: pushmode #lame +o goober) through the bot's queuing system. All the mode changes will ...

A simple and dynamic form of this script would be: Use ".chanset #channel remove-modes mir" to make the bot remove +mir after <so many> seconds. setudef str remove-modes bind MODE -|- "% +*" check:mode proc check:mode {nickname hostname handle channel mode target} { if {[set remm...

MC8 has been retired for a long long time.

You should modify info because it'll overwrite the default TCL proc like that.

And what network are you on?
What IRCd do they use?

That's because eggdrops rejoin their own channels the moment it notices it has parted. setudef flag mycycle bind time - "00 * * * *" my:cycle bind time - "15 * * * *" my:cycle bind time - "30 * * * *" my:cycle bind time - "45 * * * *" my:cycle proc my:cycle {m...