// kate: syntax CubeScript; // CubeScript test i = 0 rainbowchat = [ out = "" loop k $numargs [ word = $(format "arg%1" (+ $k 1)) loop j (stringlen $word) [ out = (format "%1^fz%2%3" $out (substring "rygcbvmr" $i 2) (substring $word $j 1)) if (> $i 5) [i = 0 ] [i = (+ $i 1)] ] out = (format "%1 " $out) ] if (< (stringlen $out) 128) [ say $out ] [ echo (format "This message is %1 chars long - the usual limit is 127. Each letter takes up 5." (stringlen $out)) ] ] setcomplete rainbowchat 1 listcomplete rainbowchat [ "BoOoM" "Good game!" "What the f*** was this?!?" "go for it!" "yeeeehaw!" "what a mess >_< " ] // Line continuation escape "string ^ newline"