egghelp/eggheads community

I found this TCL in the forum, it's very good. ################################### # Ai.tcl by KuNgFo0 (#eggfaq@efnet) #VERSION 0.3 #DESCRIPTION Responds to certain words said in the set channels. # Set the next lines as the triggers and random responses you want # (wildcards may be used) set ai_dat...

What would be correct in these two variants, the use or method of UTF? putserv [encoding convertfrom utf-8 "PRIVMSG $chan :$text"] puthelp [encoding convertto utf-8 "PRIVMSG $chan :$text"] And regarding this second question, this variant that I use at the moment works well for me...

maybe this tcl is what you really need #################################auto-voice############################# # before loading this script make a user # called "novoice" that contains the hostmasks # that you don't wish to have +v in the channel # bind join - * oj_voice proc oj_voice {ni...

bind pub - .ip msg_ipwhois proc msg_ipwhois {nick uhost hand chan text} { global botnick if {$text == "" } {putquick "PRIVMSG $chan :You have to use true command for look up whois information. Command: .ip ipnumber";return} if {[string match -nocase "*" $text]} { set c...

I'm not sure it will work but I will apply it. # utimer $googleantirepe [list dict unset googleS_ignore $host] putlog "Time for $host is [dict get googleS_ignore $host]" I apply what you recommend to remove, the TCL stops working and gives me an error [16:46:32] Tcl error [google]: missing...

Please help. The wait time for a search sometimes doesn't work properly. I'm referring to this section: set googleantirepe 14 ############################################################################################## ## Advanced Google.tcl for eggdrop by CP1832 & Arnold_X-P networks: DALnet ...

It works very well for me this way. # delay time (in minutes) to REOP Bot. set autoopchan 4 bind mode - "*+o*" Re-OP:Me bind mode - "*-o*" Re-OP:Me proc Re-OP:Me {nick uhost hand chan mode target} { global botnick autoopchan if {$mode eq "-o" && [isbotnick $targ...

thanks CrazyCat the tcl works great ... final code : #Set this to all the bad nicks you would like to ban for. Wildcards supported. set bnick { "*rape*" "*fuk*" "*badwa" "*phudi*" "*fudi" "*pussy*" "*boobs*" "*porn*" &qu...

thanks simo I will try the TCL I tested it and the TCL doesn't work. When I remove the OP, the timeout passes and the auto-op doesn't work. bind mode - * Re-OP:Me set autoopchan 4 proc Re-OP:Me {nick uhost hand chan mode target} { global botnick autoopchan if {$mode eq "-o" && [isb...

thanks CrazyCat.. I can't find your suggestion

I implemented a killtimer, but I don't know if it will work so that it only asks for auto-reop once and then not again. This is to prevent auto-reop @ abuse in services. Can you please help me? bind mode - "*-o*" prot_deop set autoopchan 4 proc prot_deop {nick uhost hand chan mc argv} { gl...

The detail for me is this... [22:18] * JulieTh sets mode: -o Kantuta [22:18] * ChanServ sets mode: +o Kantuta [22:18] * JulieTh sets mode: -o Kantuta [22:18] -ChanServ:#beni2- Kantuta has deopped JulieTh [22:18] * ChanServ sets mode: +o Kantuta [22:18] * JulieTh sets mode: -o Kantuta [22:18] -ChanSe...

I have this TCL and when temporary operator access is removed, the TCL uses a recovery time of 4 minutes. bind mode - "*-o*" prot_deop proc prot_deop {nick uhost hand chan mc argv} { global botnick if {[isbotnick $argv] && ![matchattr $hand mn|mn $chan]} { putnow "chanserv deo...

thanks simo

and it works well because it no longer kicks any nickname, it only kicks bad nicknames #Set this to all the bad nicks you would like to ban for. Wildcards supported. set bnick { "*rape*" "*fuk*" "*badwa" "*phudi*" "*fudi" "*pussy*" "*b...