Nick capitalization wickednights

on *:nick:{
  var %i 1
  while $comchan($newnick,%i) {
    if ($islower($left($newnick,1)) == $true) { mode $comchan($newnick,%i) +v $newnick }
    elseif ($isupper($left($newnick,1)) == $true) { mode $comchan($newnick,%i) -v $newnick }
    inc %i
  }
}