Efecto Mrquesina xD

@echo off
SETLOCAL ENABLEDELAYEDEXPANSION
set a=
set /p var=escriba su palabara:
set /p numeros= cuantos caracteres tiene tu palabara ? :
goto inicio
:a
set con=-1
:inicio
cls
set /a con=con-1
title ..:: !a:~0,%con%! By Darioxhcx::..
echo !a:~0,%con%! %var%
ping -n 1 0.0.0.0>nul
if !con! GEQ -70 ( goto inicio ) else ( goto next )

:next
cls
set cont=0
set /a cont=cont-1
set /a conta=conta+1
set /a contar=contar+1
title ..:: !var:~%contar%,100! By Darioxhcx::..
echo !var:~%contar%,100!!a:~0,%cont%!!var:~0,%conta%!
ping -n 1 0.0.0.0>nul
if %contar% GEQ %numeros% ( goto a )
goto next

me gusto el efecto que creaste...pero tenia la deficiencia de preguntar al user por la longitud de lo que acabo de escribir...

He codeado mi propio efecto...a ver que tal te parece

Código:

@echo off
title Efecto de Marquesina
REM Coded by :: SmartGenius ::
SETLOCAL ENABLEDELAYEDEXPANSION
:ini
set /p texto="Texto a Mostrar: > "
if not defined texto goto ini
set v=%texto%
call :string %v%
REM Obtenemos el Tamaño de Pantalla   
for /f "tokens=2" %%a in ('mode con^|find /i "col"') do (set /a l=%%a-%length%)
REM Creamos una Variable con L espacios vacios
for /l %%b in (1,1,%l%) do (call :new %%b)
REM Mostramos la Cadena andando hacia la derecha
for /l %%c in (1,1,%l%) do (call :show %%c)
REM Mostramos la Cadena andando hacia la izquierda
for /l %%d in (%l%,-1,1) do (call :show %%d)
pause
exit

:new
set r= %r%
goto :eof

:show
cls
set lim=%1
echo !r:~0,%lim%!%texto%
ping -n 1 >nul
goto :eof

:string
set /a length=%length%+1
set v=%v:~1%
if "%v%"=="" goto :eof
goto string

Saludos.