35 lines
789 B
INI
35 lines
789 B
INI
// 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"
|