Something

#Couleur on 
alias sc { 
  if (($left($1-, 1) == !)) || (($left($1-, 1) == /)) { return } 
  var %i = 1 
  while (%i <= $len($1-)) { 
    var %t = $+($upper($left($1-,1)),$right($1-,$calc($len($1-) -1 )))
    var %couleur =  $+ $rand(2,13) 
    if ($isnum(%t) == true) { 
      var %message = %message $+ %couleur $+ 0 $+ %t $+  
    } 
    elseif ($isnum(%t) == false) { 
      var %message = %couleur $+ %message $+ %couleur $+ %t $+  
    } 
    inc %i 
  } 
  /say %message 
  /halt 
} 
#Couleur end 

alias isnum { 
  if (($asc($1) > 47)) && (($asc($1) < 58)) { return true } 
  return false 
}