egghelp/eggheads community

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?

Code: Select all

% set text "*!*@host-???-net-??-???-???.mobilinkinfinity.net.pk"
% string map {? *} $text
*!*@host-***-net-**-***-***.mobilinkinfinity.net.pk

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?

Please change:

Code: Select all

if {[string tolower $nick] eq [string tolower $::botnick]} { return 0 }

to:

Code: Select all

if {[isbotnick $nick]} return

cos bothers my OCD.

No, i meant I was working on something else where had implemented something similar and did a copy/paste without actually thinking.

Anyway, how do you check if someone has his nickname registered/logged in with NickServ?

Search found 3735 matches