Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- // Function which "slides" text with configurable speed and spaces before repetition
- // usage: (strslide "YOUR TEXT" <string length> <speed in ms/char> <spaces between loop>
- strslide = [
- local tmp l
- tmp = (concat $arg1 (loopconcat i $arg4 [result ""]))
- l = (strlen $tmp)
- result (substr (concatword $tmp $tmp) (mod (div (getmillis) $arg3) $l) (max (min $arg2 $l) 1))
- ]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement