/colorz {
  var %i = 1
  var %j = $$1
  var %a = 0
  var %text = 
  var %space = $chr(32)
  var %underscore = $chr(96)
  var %txt = $replace($2-,%space,%underscore)
  while (%i <= $len(%txt)) {
    if (%j == 1) /set %text %text 9,3[0 $mid(%txt, %i, 1) 1]
    elseif (%j == 2) /set %text %text 11,12[0 $mid(%txt, %i, 1) 1]
    elseif (%j == 3) /set %text %text 4,5[0 $mid(%txt, %i, 1) 1]
    elseif (%j == 4) /set %text %text 15,14[0 $mid(%txt, %i, 1) 1]
    elseif (%j == green) /set %text %text 9,3[0 $mid(%txt, %i, 1) 1]
    elseif (%j == blue) /set %text %text 11,12[0 $mid(%txt, %i, 1) 1]
    elseif (%j == red) /set %text %text 4,5[0 $mid(%txt, %i, 1) 1]
    elseif (%j == gray) /set %text %text 15,14[0 $mid(%txt, %i, 1) 1]

    inc %i 1
  }
  /var %temp = $remove(%text,%space)
  /msg $chan $replace(%temp,%underscore,%space)
}

/special {
  /var %i = 1
  /var %j = 1
  /var %a = 0
  /var %text = 
  /var %space = $chr(32)
  /var %underscore = $chr(96)
  /var %txt = $replace($1-,%space,%underscore)
  while (%i <= $len(%txt)) {
    while (%a == %j) {
      /set %j $rand(1,4)
    }
    if (%j == 1) /set %text %text 9,3[0 $mid(%txt, %i, 1) 1]
    elseif (%j == 2) /set %text %text 11,12[0 $mid(%txt, %i, 1) 1]
    elseif (%j == 3) /set %text %text 4,5[0 $mid(%txt, %i, 1) 1]
    elseif (%j == 4) /set %text %text 15,14[0 $mid(%txt, %i, 1) 1]
    /inc %i 1
    if (%j >= 5) /set %j 1 
    /set %a %j
    /set %j $rand(1,4)
  }
  /var %temp = $remove(%text,%space)
  /msg $chan $replace(%temp,%underscore,%space)
}