Special voicing script help

[indigo`]

This code worked well in the past. Now it doesn't.

I need it to voice only those with lowercase nicks. What am I doing wrong?

Right now, it only voices them if they deop, but not when they enter or rejoin.

Code: Select all

global alpha caps

set caps abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ
set alpha ABCDEFGHIJKLMNOPQRSTUVWXYZ



bind nick - * nick_voice
bind mode - "#channel -o" mode_voice
bind rejn - * rejn_voice

proc nick_voice {nick hand host chan new} {

global alpha caps
set nfirst [string index $new 0]
set nsecond [string index $new 1]

if { [string first $nfirst $alpha] == -1 } {
    set nfirst $nsecond
   }

if { [string first $nfirst $caps] >= 0 } {
    pushmode $chan +v $new    
   }

}

proc mode_voice {nick hand host chan mode victim} {

global alpha caps
set nfirst [string index $victim 0]
set nsecond [string index $victim 1]

if { [string first $nfirst $alpha] == -1 } {
    set nfirst $nsecond
   }

if { [string first $nfirst $caps] >= 0 } {
    pushmode $chan +v $victim    
   }

}

proc rejn_voice {nick hand host chan} {

global alpha caps
set nfirst [string index $nick 0]
set nsecond [string index $nick 1]

if { [string first $nfirst $alpha] == -1 } {
    set nfirst $nsecond
   }

if { [string first $nfirst $caps] >= 0 } {
    pushmode $chan +v $nick   
   }

}

[Sir_Fz]

You want the bot to voice lower-cased nicks when they change nick or rejoin from a split?

[indigo`]

I want the bot to voice lowercased nicks when they enter channel, whether they get opped or not, and whether it's their first time in channel or they've rejoined from a split.

[demond]

Code: Select all

bind join - * foo
proc foo {n u h c} {
   foreach ch [split $n {}] {
      if [string is upper $ch] return
   }
   pushmode $c +v $n
}

[caesar]

Shouldn't 'return' be 'continue' by any chance? And the 'pushmode $c +v $n' shouldn't be placed in the foreach loop after 'if [string is upper $ch] return' (wich should be 'continue' not 'return')?

[Sir_Fz]

'continue' would be usless, since he doesn't want to continue if he found an upper-case letter in the nick. If you're wondering why he didn't use

Code: Select all

if {[string is lower $n]} {
 pushmode $c +v $n
}

that's because if there are numbers or characters like (^-_...etc) in the nick, [string is lower] will return 0.

.tcl string is lower sir_fz
Tcl: 0

[caesar]

Agh! my bad, duno why I had the wrong impression he posted something else. I'd better take a nap.

[Sir_Fz]

Another approach:

Code: Select all

bind join - * foo

proc foo {n u h c} {
 if {[string tolower $n] == $n} {
  pushmode $c +v $n
 }
}