egghelp/eggheads community

I fail to see what's wrong with the stuff you posted, so can you provide an example?

Replace the 'putnow' with 'putlog', rehash the bot and issue a command to see what's the output.

The link you provided leads me to TCL Archive's main page, nothing is selected in particular.

You are right, in this case here's a more traditional approach: bind join - * join:opbot proc join:opbot { nick host hand chan } { if {![isbotnick $nick]} return if {[string equal -nocase $chan "#opers"]} { set mode "+v" } else { set mode "+o" } putserv "SAMODE $ch...

You scared of the expr line?

It's basically if condition do this else do something else just wrapped up nicely.

bind join - * join:opbot proc join:opbot { nick host hand chan } { if {![isbotnick $nick]} return set mode [expr {[string equal -nocase $chan "#opers"] ? "+o" : "++"}] putserv "SAMODE $chan $mode $::botnick" } Replace the second '+' in '++' with whatever mode...

You should consider getting the Standard package if you do more than the 250 requests / month that are in the free plan.

If for whatever reason lsort doesn't work for you then try with dict , here's an example: foreach ele $myList {dict set tmp $ele myList} set unique [dict keys $tmp] I would switch back to the original 'enforce:kick' and use a helper function instead: proc filter:kick {chan} { if {![botisop $chan] ||...

Would be a good idea to stop the loop once you found a match, cos that's the intended purpose, right? I mean after: set temp 1 just add a 'break' to stop the loop. Also you don't need the if .. else part in this: if {!$temp} { return } { pushmode $chan +b *$badpart*!*@* } just go directly with if : ...

namespace eval myns { variable v proc doit {} { incr [namespace current]::v } proc readit {} { variable v putlog "v is now $v" } } Or you can use upvar : namespace eval myns { variable v proc doit {} { incr [namespace current]::v 1 } proc readit {} { upvar 1 [namespace current]::v v putlo...

String map it? Edit: Nvm, doesn't seem to get as you wanted.

In your code you have: putnow "MODE $chan :+$modex $masks" do you notice the : in front of the $modex? It shouldn't be there. Our guess is that it might be the cause of the issues you are experiencing. Btw, why not stick with pushmode and why bother changing the function name and variables...

A little bit of forum search and could have seen this from yours truly that accepts whatever you want to throw at it to set: 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...

A bit of nitpicking: 1. don't use return in a loop. want to stop? just break it, I mean literally, use break not return. foreach phx $exchost { if {[string match -nocase $phx $uhost]} { return 0 } } 2. I would move this like: if [matchattr $hand of|of $chan] return somewhere higher like after isbotn...

Based on the message he gets:

.set errorinfo
What? You need '.help'

he didn't follow CrazyCat's instructions to activate .set in the console.

Isn't after a synchronous process? I mean won't it block until after is processed?