egghelp/eggheads community

In the original topic first was considered "human" and the second one was the clone, hence the numbers says 1 clone.

Anyway, so, basically you want on-command to scan and punish clones if are more than specified amount? I've linked to this old code cos I found the percentage interesting.

Just remove the: and replace: with: for example. If you don't give a reason the default "Go away." one will be used.

See if this taken from another topic ( link ) works: namespace eval clonescan { variable trigger "." bind pub m|o "${trigger}clone" [namespace current]::clonescan bind pub m|o "${trigger}clones" [namespace current]::clonescan proc checknick {nick} { set skip [list "...

I looked on the website at comments section and saw an output from YouTube's API: [14:53:42] m00nie::youtube::getinfo IDS are {snippet {publishedAt 2015-08-10T22:24:25.000Z title {IFC's VICE Parody: 'DRONEZ' (Full Episode)} channelTitle VICE} contentDetails {duration PT22M52S} statistics {viewCount ...

Not sure what this 2 lines regsub {\.000Z} $pubiso "" pubiso regsub -all {Z} $pubiso "" pubiso are supposed to do since don't have the code running and can only guess.. Anyway, replacing the: set pubtime [clock format [clock scan $pubiso]] with: set pubtime [clock format [clock s...

If you don't use '-flatlist' at you select, then it will return 0 if there's no match or the amount of results in the select. For example: % ::mysql::sel $con "SELECT title FROM books WHERE id= '5'" 1 % ::mysql::sel $con "SELECT title FROM books WHERE id = '123'" 0 % ::mysql::sel...

.tcl duration 275271000 Tcl: 8 years 38 weeks 10 minutes I think it's the other way around it SpiKe. I'm running eggdrop v1.8.4 and TCL is version 8.6.8. :) Edit: Just to be clear: .tcl string map {" years" "y" " weeks" "w" " days" "d" &qu...

@willyw : It takes a minimum of 2 or maximum of 3 arguments. The first being the channel, second is the mode change (if there's no + or - sign in the 'mode' then it will add a + by default) and finally last one is the argument one of the modes that need one, for example limit or channel key. I looke...

I looked at eggdrop's source code on GitHub and I don't see anything limiting what modes the 'pusmode' can set: static int tcl_pushmode STDVAR { struct chanset_t *chan; char plus, mode; BADARGS(3, 4, " channel mode ?arg?"); chan = findchan_by_dname(argv[1]); if (chan == NULL) { Tcl_AppendR...

Sorry if this sounds stupid, but is that 'a' a valid or even allowed channel mode in the first place? Btw, putdccraw was deprecated so instead you should use putdcc or putnow (have a look at 'scripts/compat.tcl' that comes with the eggdrop). You want to push out fast stacks of modes? putquick is too...

Here's a quick fix for the previous code to work with 'ap:cjoin 3:2 120 kb 2' or whatever you want to throw at it: namespace eval ChanSet { bind pub n|n .set [namespace current]::chanset proc chanset {nick uhost hand chan text} { set pos [string first # $text] if {!$pos} { scan $text {%s%s} chan mod...

Here's something i threw together really quick: namespace eval ChanSet { bind pub n|n .chanset [namespace current]::chanset proc chanset {nick uhost hand chan text} { if {[scan $text {%s%s} mode value] < 1} { puthelp "NOTICE $nick :Error, usage: $::lastbind +/-<channel mode> \[value\]" ret...

No matter what letters or numbers it had, if the versions don't match exactly the err variable will be 1, so the if will be executed with what you want in it.

@CrazyCat It runs just fine on my eggdrop version 1.8.4 as you can see:

Line 97 you got this: if { [join [split [::tcl::string::range [lindex $version 0] 0 5] "."] ""] < 1620 } { putloglev o * "\00304\002\[Reanimator - Erreur\]\002\003 La version de votre Eggdrop est \00304\002$version\002\003; Reanimator ne fonctionnera correctement que sur les...