Efecto Mrquesina xD

[Darioxhcx]

bueno , tiene un "set /p" que se podria kitar , poniendo x ejemplo el code de Carlitos.dll ( contar las letras de una variable )
tmb el texto se podria hacer mas grande , pero es solo algo que hice x estar aburrido y salio una idea jajaj =P

Código [Seleccionar] Expandir


@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


gracias a RockoX x ayudarme a meter una variable dentro de otra xD
saludos

[SmartGenius]

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 [Seleccionar] Expandir

@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.