Untitled

alias rainbowcolor {
  var %x, %z, %q = 1
  var %y, %i, %n = 1
  var %clist = 03,04,05,06,07,09,10,11,12,13
  if ($isid) { tokenize 32 $1 }
  while (%q <= $0) {
    set %i 1
    set %x $null
    while (%i <= $len($eval($+($,%q),2))) {
      if (%n > $numtok(%clist,44)) {
        var %ii = $calc(%n % $numtok(%clist,44) +1)
        set %y $gettok(%clist,%ii,44)
        set %n 1
      }
      else {
        set %y $gettok(%clist,%n,44)
        inc %n
      }
      set %x $+(%x,%y,$mid($eval($+($,%q),2),%i,1))
      inc %i
    }
    set %z $instok(%z,%x,$calc($numtok(%z,32) +1),32)
    inc %q
  }
  if ($isid) { return %z }
  else { echo -a %z }
}
menu nicklist {
  Color slap:describe $active 2S3l4a5p6s $rainbowcolor($$1) 7a9r10o11u12n13d 2a 3b4i5t 6w7i4t9h 10a 11l12a13r2g4e 2R3a4i5n6b7o9w 5t6r7o9u10t11! 4;12o 13<3
}

alias sayr { say $rainbowcolor($1-) }