alias -l rbow {
  var %i = 1
  var %pos_rainbow = 1
  var %temp = $null
  var %text = $replace($1-, $chr(32), $chr(254))
  while (%i <= $len(%text)) {
    var %temp = %temp $+  $+ $gettok(%rainbow, %pos_rainbow, 44) $+ ,01 $+ $mid(%text, %i, 1)
    inc %pos_rainbow 1
    if (%pos_rainbow > $numtok(%rainbow, 44)) {
      var %pos_rainbow = 1
    }
    inc %i 1
  }
  var %temp = $replace(%temp, $chr(254), $chr(32))
  if ($isid) {
    return %temp $+ 
  }
  else {
    msg $active %temp $+ 
  }
}

alias rainbow {
  set %rainbow 04,07,08,09,11,12,13
  if ($isid) {
    return $rbow($1-)
  }
  else {
    rbow $1-
  }
}

alias usa {
  set %rainbow 04,00,12
  if ($isid) {
    return $rbow($1-)
  }
  else {
    rbow $1-
  }
}

alias -l rbow2 {
  var %i = 1
  var %pos_rainbow = 1
  var %temp = $null
  var %text = $replace($1-, $chr(32), $chr(254))
  while (%i <= $len(%text)) {
    var %temp = %temp $+ 01, $+ $gettok(%rainbow, %pos_rainbow, 44) $+ $mid(%text, %i, 1)
    inc %pos_rainbow 1
    if (%pos_rainbow > $numtok(%rainbow, 44)) {
      var %pos_rainbow 1
    }
    inc %i 1
  }
  var %temp = $replace(%temp, $chr(254), $chr(32))
  if ($isid) {
    return %temp $+ 
  }
  else {
    msg $active %temp $+ 
  }
}

alias rainbow2 {
  set %rainbow 04,07,08,09,11,12,13
  if ($isid) {
    return $rbow2($1-)
  }
  else {
    rbow2 $1-
  }
}

alias usa2 {
  set %rainbow 04,00,12
  if ($isid) {
    return $rbow2($1-)
  }
  else {
    rbow2 $1-
  }
}

alias randcolor {
  var %i = 1
  var %temp = $null
  var %text = $replace($1-, $chr(32), $chr(254))
  while (%i <= $len(%text)) {
    var %temp = %temp $+ 
    var %n = $rand(0, 15)
    if (%n < 10) {
      var %temp = %temp $+ 0 $+ %n
    }
    else {
      var %temp = %temp $+ %n
    }
    var %temp = %temp $+ $chr(44)
    var %m = $rand(0, 14)
    if (%m >= %n) {
      inc %m 1
    }
    if (%m < 10) {
      var %temp = %temp $+ 0 $+ %m
    }
    else {
      var %temp = %temp $+ %m
    }
    var %temp = %temp $+ $mid(%text, %i, 1)
    inc %i 1
  }
  var %temp = $replace(%temp, $chr(254), $chr(32))
  if ($isid) {
    return %temp $+ 
  }
  else {
    msg $active %temp $+ 
  }
}