// 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"