rainbow for gaber

alias rainbow {
  if ($group(#rainbow) == on) {
    var %cindex = 1
    var %len = $mid($1-,1,0)
    var %in
    var %let = 1
    var %letter
    while (%let <= %len) {
      %letter = $mid($1-,%let,1)
      if (%letter == $chr(32)) {
        %in = %in $+ $chr(32) $+  $+ $gettok(4.7.8.9.3.10.11.12.2.6.13,%cindex,46) $+ $mid($1-,$calc(%let + 1),1)
        inc %cindex
        %let = $calc(%let + 2)
      }
      else if (($asc(%letter) >= 48) && ($asc(%letter) <= 57)) {
        %in = %in $+  $+ $gettok(4.7.8.9.3.10.11.12.2.6.13,%cindex,46) $+  $+ %letter
        inc %cindex
        %let = $calc(%let + 1)
      }
      else if ((%letter == $chr(2)) || (%letter == $chr(31)) || (%letter == $chr(15)) || (%letter == $chr(22))) {
        %in = %in $+ %letter
        %let = $calc(%let + 1)
      }
      else {
        %in = %in $+  $+ $gettok(4.7.8.9.3.10.11.12.2.6.13,%cindex,46) $+ %letter
        inc %cindex
        %let = $calc(%let + 1)
      }
      if (%cindex == 12) { %cindex = 1 }
    }
    return %in
  }
  else {
    return $1-
  }
}
#rainbow off
on *:INPUT:*:{
  if (/* !iswm $1) {
    //msg $active $rainbow($1-) | halt 
  }
}
#rainbow end