BATCH - Función máquina de escribir

[carlitos.dll]

Código (dos) [Seleccionar] Expandir



::autor CarlitoS.dll
@echo off
mode con cols=100
mode con lines=20

call:tpwrtr CarlitoS.dll presenta:
call:sleep 2
echo.
call:tpwrtr el efecto maquina de escribir ...
echo.
echo.
call:tpwrtr OpenBSD es un sistema operativo libre tipo Unix, multiplataforma, basado en 4.4BSD.
call:sleep 3
echo.
call:tpwrtr Es un descendiente de NetBSD, con un foco especial en la seguridad y la criptografia.
echo.

pause>nul
goto:eof


:tpwrtr
set palabra=%*
if not defined palabra (goto:eof)
set palabra=%palabra: =_%
call:length %palabra%
set /a contt=0
:loopt
call :tpwrtr1 %%palabra:~%contt%,1%%
set /a contt +=1
if %contt% leq %tam% (goto:loopt)
goto:eof
:tpwrtr1
set char=%1
if [%char%]==[_] (set char= )
<nul (set /p msg=%char%)
ping -n 1 127.0.0.0 -w 1>nul 2>&1
goto:eof
:length
set argl=%*
if not defined argl (goto :eof)
set wordl=%argl%
set /a contl=0
:loopl
if not defined wordl (goto endl)
set wordl=%wordl:~1%
set /a contl +=1
goto loopl
:endl
set tam=%contl%
goto :eof

:sleep
if "%1"=="" (goto :eof)
set /a limit=0
set /a limit=%1
if %limit% LEQ 0 (goto :eof)
set /a cont=0
:time
set mirror1=%time:~-4,1%
:increment
set mirror2=%time:~-4,1%
if not %mirror2%==%mirror1% (goto count)
goto increment
:count
set /a cont +=1
if "%cont%"=="%limit%" (goto :eof)
goto time
goto :eof



[Darioxhcx]

ahhhh boeeeee
muy bueno
kedo muy bueno enserio XD
que groso man , me re gusto xD

saludos

[kraszic]

no se me habia ocurrido, muy buena idea carlitos, a seguir aportando a la comunidad.

un saludo!

[-/lnkx/-]

Hola es muy buneo mola...
Pero una cosa todas las funciones que llamas con el call... me podrias contar un poco com funcionan lo del tpwrtr i eso... porfavor...
Esque las entiendo a medias....
Saludos
lnkxnet84