Forums Scripts & Popups how can i shorten this???

alias -l colorcap {
  if (À,Á,Â,Ã,Ä,Å,ß,Ç,Ð,È,É,Ê,Ê,Ë,Ì,Í,Î,Ï,Ñ,Ò,Ó,Ô,Õ,Ö,Ù,Ú,Û,Ü,Ý,¥, $& 
    à,á,â,ã,ä,å,ç,è,é,ê,ë,ì,í,î,ï,ñ,ò,ó,ô,õ,ö,ù,ú,û,ü,ý,ÿ,ø,¹,²,³,×,÷,¢,£,¼,½,¾, $&
    ª,º,°,©,®,¡,¿,¤,§,«,»,¬,±,µ,¶,þ,Þ,Æ,æ,ð,¸,‘,’ isin 1-) {
    var %v = 1, %u
    while $gettok($1,%v,32) != $null {
      %u = %u %ac1 $+ $left($v1,1)) $+ %ac2 $+ $mid($v1,2)
      inc %v
    }
    return %u
  }
  else {
    var %v = 1, %u
    while $gettok($1,%v,32) != $null {
      %u = %u %ac1 $+ $upper($left($v1,1)) $+ %ac2 $+ $mid($v1,2) 
      inc %v
    }
    return %u
  }
}
  

alias colorcap {
  var %a = 1, %b
  while $gettok($1,%a,32) != $null {
    %b = %b $+(%ac1,$upper($left($v1,1)),%ac2,$mid($v1,2))
    inc %a
  }
  return %b
}

alias colorcap {
  tokenize 32 $1
  scon -r var $(%a = %a,) $!+(%ac1,$upper($left( $* ,1)),%ac2,$mid( $* ,2))
  return %a
}

alias -l colorcap {
  if (À,Á,Â,Ã,Ä,Å,ß,Ç,Ð,È,É,Ê,Ê,Ë,Ì,Í,Î,Ï,Ñ,Ò,Ó,Ô,Õ,Ö,Ù,Ú,Û,Ü,Ý,¥, $& 
    à,á,â,ã,ä,å,ç,è,é,ê,ë,ì,í,î,ï,ñ,ò,ó,ô,õ,ö,ù,ú,û,ü,ý,ÿ,ø,¹,²,³,×,÷,¢,£,¼,½,¾, $&
    ª,º,°,©,®,¡,¿,¤,§,«,»,¬,±,µ,¶,þ,Þ,Æ,æ,ð,¸,‘,’ isin 1-) {

   ^^ thats always going to be FALSE since "1-" dont have any of them in it!

    var %v = 1, %u
    while $gettok($1,%v,32) != $null {
      %u = %u %ac1 $+ $left($v1,1)) $+ %ac2 $+ $mid($v1,2)
      inc %v
    }
    return %u

    ^^ thus all of this is pointless, and also buggy, but as it never gets run you could have anything in here and it well never error as it never runs
    ^^ in fact i would say you could copy this in with my comments and it well still work.

  }
  else {
    var %v = 1, %u
    while $gettok($1,%v,32) != $null {
      %u = %u %ac1 $+ $upper($left($v1,1)) $+ %ac2 $+ $mid($v1,2) 
      inc %v
    }
    return %u
  }
}
  

alias weirdchars {
  var %a = ÀÁÂÃÄÅßÇÐÈÉÊÊËÌÍÎÏÑÒÓÔÕÖÙÚÛÜÝ¥àáâãäåçèéêëìíîïñòóôõöùúûüýÿø¹²³×÷¢£¼½¾ªº°©®¡¿¤§«»¬±µ¶þÞÆæ𸑒
  var %b = 1
  while $mid(%a,%b,1) { 
    echo -a %b -> $v1 * $upper($v1)
    inc %b 
  }
}