Moving colored text (marquee sign), tips?

[Cornbeetle]

Here's the code I have for a moving marquee-style banner, using the showColor routine found on Stackoverflow (credit: Jeb)
Does anyone have an idea how I can reduce this code into some type of loop, rather than block after block of the same code...

Code: Select all

@echo off
color 07
setlocal EnableDelayedExpansion
call :configColor

call :applyColor 01 "  "
call :applyColor 17 "  HELLO WORLD  "
pathping -q 1 -p 100 localhost >nul
cls

call :applyColor 01 "   "
call :applyColor 17 "  HELLO WORLD  "
pathping -q 1 -p 100 localhost >nul
cls

call :applyColor 01 "    "
call :applyColor 17 "  HELLO WORLD  "
pathping -q 1 -p 100 localhost >nul
cls

call :applyColor 01 "     "
call :applyColor 17 "  HELLO WORLD  "
pathping -q 1 -p 100 localhost >nul
cls

call :applyColor 01 "      "
call :applyColor 17 "  HELLO WORLD  "
pathping -q 1 -p 100 localhost >nul
cls

call :applyColor 01 "       "
call :applyColor 17 "  HELLO WORLD  "
pathping -q 1 -p 100 localhost >nul
cls

call :applyColor 01 "        "
call :applyColor 17 "  HELLO WORLD  "
pathping -q 1 -p 100 localhost >nul
cls

call :applyColor 01 "         "
call :applyColor 17 "  HELLO WORLD  "
pathping -q 1 -p 100 localhost >nul
cls

call :applyColor 01 "          "
call :applyColor 17 "  HELLO WORLD  "
pathping -q 1 -p 100 localhost >nul
cls

call :applyColor 01 "           "
call :applyColor 17 "  HELLO WORLD  "
pathping -q 1 -p 100 localhost >nul
cls

call :applyColor 01 "            "
call :applyColor 17 "  HELLO WORLD  "
pathping -q 1 -p 100 localhost >nul
cls

call :applyColor 01 "             "
call :applyColor 17 "  HELLO WORLD  "
pathping -q 1 -p 100 localhost >nul
cls

call :applyColor 01 "              "
call :applyColor 17 "  HELLO WORLD  "
pathping -q 1 -p 100 localhost >nul
cls

call :applyColor 01 "               "
call :applyColor 17 "  HELLO WORLD  "
pathping -q 1 -p 100 localhost >nul
cls

PAUSE

:applyColor
set "param=^%~2" !
set "param=!param:"=\"!"
findstr /p /A:%1 "." "!param!\..\X" nul
<nul set /p ".=%DEL%%DEL%%DEL%%DEL%%DEL%%DEL%%DEL%"
exit /b

:configColor
:: Commands for color show config
for /F "tokens=1,2 delims=#" %%a in ('"prompt #$H#$E# & echo on & for %%b in (1) do rem"') do (
  set "DEL=%%a"
)
<nul > X set /p ".=."
exit /b

[Compo]

Clue:

Code: Select all

FOR /L %%A IN (2,1,15) DO …

[Cornbeetle]

Clue:

Code: Select all

FOR /L %%A IN (2,1,15) DO …

But how would I change the spacing distance in between the quotes for each loop?

Code: Select all

call :applyColor 01 "            "

[Compo]

You could have at least shown that you'd made an attempt at something using the clue I gave you, which isn't incidentally the only way to do it.

Code: Select all

SetLocal EnableDelayedExpansion
Set "_= "
For /L %%A In (2,1,15) Do (Set "_=!_! "
   call :applyColor 01 "!_!"
   call :applyColor 17 "  HELLO WORLD  "
   pathping -q 1 -p 100 localhost >nul
   cls)

PAUSE

:applyColor
…

[Cornbeetle]

Duh..I didn't think about making the variable a 'space'...thanks!

You could have at least shown that you'd made an attempt at something using the clue I gave you, which isn't incidentally the only way to do it.

Code: Select all

SetLocal EnableDelayedExpansion
Set "_= "
For /L %%A In (2,1,15) Do (Set "_=!_! "
   call :applyColor 01 "!_!"
   call :applyColor 17 "  HELLO WORLD  "
   pathping -q 1 -p 100 localhost >nul
   cls)

PAUSE

:applyColor
…