voice ppl with a certan nick

[Kimmi]

I was looking in the tcl-archive but couldnt find any script that did what I where looking for.

Im looking for a script that auto voice ppl that has a certan nick and devoice them when they change their nick to something else..
Like:
* dude1 is now known as AAA|boy
* dude2 is now known as AAA|man
|Bot| sets mode: +v AAA|boy
|Bot| sets mode: +v AAA|man

AND if:
* AAA|boy is now known as eggy
* AAA|man is now known as eggi
|Bot| sets mode: -v eggy
|Bot| sets mode: -v eggi

Here the bots looks for "AAA" in the nick

Anyone know of such a script... any hard to make???

[Papillon]

Try this

Code: Select all

bind nick - * check:nicks
proc check:nicks {nick host hand chan nnick} {
  if {[string match "AAA|*" $nnick] && ![isvoice $nnick $chan]} {
    pushmode $chan +v $nnick
  } elseif {[string match "AAA|*" $nick] && [isvoice $nnick $chan]} {
    pushmode $chan -v $nnick
  }
}

[Kimmi]

thanx
and if I only want it to work in one spesic chan...
I added:
set voice_chan "#chan"
and
if {$voice_chan != $chan}

didnt work...
U know whats wrong...

Code: Select all

set voice_chan "#chan"
bind nick - * check:nicks 
proc check:nicks {nick host hand chan nnick} { 
  if {$voice_chan != $chan}
  if {[string match "AAA|*" $nnick] && ![isvoice $nnick $chan]} { 
    pushmode $chan +v $nnick 
  } elseif {[string match "AAA|*" $nick] && [isvoice $nnick $chan]} { 
    pushmode $chan -v $nnick 
  } 
}

[Sir_Fz]

Code: Select all

set voice_chan "#chan" 
bind nick - * check:nicks 
proc check:nicks {nick host hand chan nnick} { 
  if {[string tolower $chan] == [string tolower $::voice_chan]} { 
  if {[string match "AAA|*" $nnick] && ![isvoice $nnick $chan]} { 
    pushmode $chan +v $nnick 
  } elseif {[string match "AAA|*" $nick] && [isvoice $nnick $chan]} { 
    pushmode $chan -v $nnick 
  } 
 }
}

[Kimmi]

thanx.... it works great

[Souperman]

You might want to use 'string match -nocase ...' to make sure it's case insensitive.