auto voice only lower case nicks

MiKaL · Post by **MiKaL** » Tue Feb 18, 2003 3:18 pm

I have looked through the tcl archive and through this forum hoping for someone to mention a script that will only voice nicks that are in lower case. Any ideas where else I can look???

Papillon · Post by **Papillon** » Tue Feb 18, 2003 3:20 pm

you could write one

ppslim · Post by **ppslim** » Tue Feb 18, 2003 4:47 pm

Code: Select all

bind join - "*" avoice:lowercase
proc avoice:lowercase {nick uh hand chan} {
  if {[string equal [string tolower $nick] $nick]} {
    putserv "MODE $chan +v $nick"
  }
}