Miscellany

#Couleur on
alias sc {
  if (($left($1-, 1) == !)) || (($left($1-, 1) == /)) { return }
  var %i = 1
  while (%i <= $len($1-)) {
    var %t = $mid($1- , %i , 1 )
    var %couleur =  $+ $rand(1,14)
    if (%i == 1) { var %t = $upper(%t) }
    if ($isnum(%t) == true) {
      var %message = %message $+ %couleur $+ 0 $+ %t $+ 
    }
    elseif ($isnum(%t) == false) {
      var %message = %message $+ %couleur $+ %t $+ 
    }
    inc %i
  }
  /say %message
  /halt
}
#Couleur end
alias isnum {
  if (($asc($1) > 47)) && (($asc($1) < 58)) { return true }
  return false
}