efecto de maquina de escribir

[anihilatore]

este code no es mio pero dese que la pagina se borro parte de la informacion pense en darles este code:

maquina de escrivir BY CARLITOS

Código:

: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

se usa asi , pones el code en cualquier parte del programa , y usas CALL

ejemplo:

Código:

call:tpwrtr loquequierasescrivir

EDITO:si  , si era de carlitos ya me acuerdo , gracias

[ψζανιεπψ]

Jajaja no, no es mio, pero almenos pones un "autor".

Es Escribir


Saludos.

[Rastamind]

Un poco más corto:

Código:

setlocal enableextensions
set "string=Hello World"
:loop
< nul (set /p "=%string:~0,1%")
> nul (ping -n 1 loopback)
set "string=%string:~1%"
if defined string (goto :loop) else (goto :eof)

[darkness_col]

se escribe escribir no escrivir y el autor creo que es carlitos ( si estoy mal por favor digamen)