Título: Efecto Mrquesina xD
Publicado por: Darioxhcx en 8 Octubre 2008, 03:34 am
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 @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
Título: Re: Efecto Mrquesina xD
Publicado por: SmartGenius en 12 Octubre 2008, 18:47 pm
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 ;D @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.
|