Challenge the digital rain again (updated) - China DOS Union Forum

It's better to use tabs for it. Calculating spaces is too tiring..

Each line is fixed to output 80 characters, then it should be aligned, right?

I also come up with a simple one:

@echo off&color 02
:loop
for /l %%i in (1,1,26) do (
call set/a var=%%random%%%%%%2&call set/p=  %%var%%<nul
)
echo.
if %random% lss 1000 echo                 数                   码                     雨
for /l %%i in (1,1,200) do ver>nul
goto loop

[ Last edited by WANKOILZ on 2008-5-27 at 03:35 PM ]

WANKOILZ
Efficient and concise, great!

In learning, the thread starter is amazing

How to achieve scrolling down?

@echo off&color 02
set n=1
:loop
set var=
for /l %%i in (1,1,26) do (call set/a r=%%random%%%%%%2&call set "var=%%var%% %%r%%")
set "len%n%=%var%"
set/a n=(n-1+24)%%24,m=n
for /l %%b in (1,1,24) do (call :sub)
cls
echo.%var%
for /l %%i in (1,1,300) do ver>nul
goto loop
:sub
set/a m=(m+1)%%24
call set var=%%var%% %%len%m%%%

[ Last edited by netbenton on 2009-2-9 at 18:43 ]

Part of the code borrows the method from floor 18 and is modified to make it fall down.
The real "rain" is coming! ^_^

@echo off&color 02
set len= 数码雨来咯！
:loop
set var=
for /l %%i in (1,1,26) do (call set/a r=%%random%%%%%%2&call set "var=%%var%% %%r%%")
set len=%var% %len:~0,1838%
cls
echo.%len%
for /l %%i in (1,1,300) do ver>nul
goto loop

@echo off&color 02
set len= 数码雨来咯！ 16H By Benton
set str=fedcba9876543210
:loop
set var=
for /l %%i in (1,1,26) do (call set/a r=%%random%%%%%%16&call call set "var=%%var%% %%%%str:~%%r%%,1%%%%")
set len=%var% %len:~0,1838%
cls
echo.%len%
for /l %%i in (1,1,300) do ver>nul
goto loop

Haha, it's really quite fun!

@echo off&color 02
if defined len goto :sub
SETLOCAL ENABLEDELAYEDEXPANSION
set len= 数码雨来咯！ By Benton
start /b %~n0.bat
title 数码雨 By Benton 按任意键退出
set str= 0 1 2 3 4 5 6 7 89ABCDEFG
:loop
set var=
for /l %%i in (1,1,26) do (set/a r=!random!%%32&call set "var=!var! %%str:~!r!,1%%")
set len=!var! !len:~0,1838!
cls
echo !len!
for /l %%i in (1,1,300) do ver>nul
goto loop
:sub
pause>nul
TASKKILL /FI "WINDOWTITLE ne 数码雨 By Benton" >nul

::Hacker digital rain bidirectional movement, super realistic
::Also supports key exit

@echo off&color 0a
if defined lins goto :sub
set "lins=  0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 16 17 18 19 20 21 22"
setlocal enabledelayedexpansion
start /b %~n0.bat
title 数码雨  By Benton 按任意键退出
set str=fedcbag h i j k l m n o p q r s t u v w x y z9876543210ABCDEFG H I J K L M N O P Q R S T U V W X Y Z
for %%i in (%lins%) do (
	for /l %%j in (1,1,8) do (
		set "m%%i=!m%%i!          "
		set "n%%i=!n%%i!          "
	)
)
set n=0
set m=1
::Preprocessing ends


:::::::::::::::Loop body:::::::::::::::
:loop
set var=  %%str:~!random:~0,2!,1%%
for /l %%i in (1,1,2) do (
call set "var=!var!  %%str:~!random:~0,2!,1%%  %%str:~!random:~0,2!,1%%  %%str:~!random:~0,2!,1%%  %%str:~!random:~0,2!,1%%  %%str:~!random:~0,2!,1%%  %%str:~!random:~0,2!,1%%"
)
set/a n=^(n+22^)%%23,m=^(m+22^)%%23
set m%m%=!var!
set n%n%=!var!
set lins=!lins:~-3!!lins:~0,-3!

set tem=!n0!
for %%a in (a b) do (
for /l %%i in (22,-1,0) do (
set tem1=!n%%i!
set n%%i=!tem!
set tem=!tem1!))

set ll=0
for %%i in (%lins%) do (
set "l!ll!=!m%%i:~0,3!!n%%i:~0,3!!m%%i:~3,3!!n%%i:~3,3!!m%%i:~6,3!!n%%i:~6,3!!m%%i:~9,3!!n%%i:~9,3!!m%%i:~12,3!!n%%i:~12,3!!m%%i:~15,3!!n%%i:~15,3!!m%%i:~18,3!!n%%i:~18,3!!m%%i:~21,3!!n%%i:~21,3!!m%%i:~24,3!!n%%i:~24,3!!m%%i:~27,3!!n%%i:~27,3!!m%%i:~30,3!!n%%i:~30,3!!m%%i:~33,3!!n%%i:~33,3!!m%%i:~36,3!!n%%i:~36,3!  "
set/a ll+=1
)
set len=!l0!!l1!!l2!!l3!!l4!!l5!!l6!!l7!!l8!!l9!!l10!!l11!!l12!!l13!!l14!!l15!!l16!!l17!!l18!!l19!!l20!!l21!!l22!!l23!
cls
echo !len:~0,1838!
for /l %%i in (1,1,1000) do echo.>nul
goto loop
::::::::::::::::::::::::::::::::::::

::External control sub - process
:sub
pause>nul
TASKKILL /FI "WINDOWTITLE ne 数码雨"

::Bidirectional Movement + Left and Right Text Scrolling

@echo off&color 0a
if defined lins goto :sub
set "lins=  0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 16 17 18 19 20 21 22 23"
setlocal enabledelayedexpansion
start /b %~n0.bat
title 数码雨  By Benton 按任意键退出
set str=fedcbag h i j k l m n o p q r s t u v w x y z9876543210ABCDEFG H I J K L M N O P Q R S T U V W X Y Z
for %%i in (%lins%) do (
        for /l %%j in (1,1,8) do (
                set "m%%i=!m%%i!          "
                set "n%%i=!n%%i!          "
        )
)
set n=2
set m=0
set k=0
set "in0=。。。。——《《欢迎来到黑客帝国》》——。。。。。"
set "im0=看到美女了吗？看到了，说明你已是黑客帝国的了。。。"

::Preprocessing ends


:::::::::::::::Loop body:::::::::::::::
:loop
set var=  %%str:~!random:~0,2!,1%%
for /l %%i in (1,1,2) do (
call set "var=!var!  %%str:~!random:~0,2!,1%%  %%str:~!random:~0,2!,1%%  %%str:~!random:~0,2!,1%%  %%str:~!random:~0,2!,1%%  %%str:~!random:~0,2!,1%%  %%str:~!random:~0,2!,1%%"
)
set/a n=^(n+23^)%%24,m=^(m+23^)%%24
set m%m%=!var!
set n%n%=!var!
set lins=!lins:~-3!!lins:~0,-3!

set tem=!n0!
for %%a in (a b) do (
for /l %%i in (23,-1,0) do (
set tem1=!n%%i!
set n%%i=!tem!
set tem=!tem1!))

set ll=0
for %%i in (%lins%) do (
set "l!ll!=!m%%i:~0,3!!n%%i:~0,3!!m%%i:~3,3!!n%%i:~3,3!!m%%i:~6,3!!n%%i:~6,3!!m%%i:~9,3!!n%%i:~9,3!!m%%i:~12,3!!n%%i:~12,3!!m%%i:~15,3!!n%%i:~15,3!!m%%i:~18,3!!n%%i:~18,3!!m%%i:~21,3!!n%%i:~21,3!!m%%i:~24,3!!n%%i:~24,3!!m%%i:~27,3!!n%%i:~27,3!!m%%i:~30,3!!n%%i:~30,3!!m%%i:~33,3!!n%%i:~33,3!!m%%i:~36,3!!n%%i:~36,3!  "
set/a ll+=1
)

for %%i in (0 4 8 12 16 20) do (if %m%==%%i set/a k=^(k+25^)%%26)

        set in=!in0:~%k%!!in0:~0,%k%!
        set im=!im0:~-%k%!!im0:~0,-%k%!
        set l10=!l10:~0,25!!in:~0,15!!l10:~55!
        set l12=!l12:~0,25!!im:~0,15!!l12:~55!

set len=!l0!!l1!!l2!!l3!!l4!!l5!!l6!!l7!!l8!!l9!!l10!!l11!!l12!!l13!!l14!!l15!!l16!!l17!!l18!!l19!!l20!!l21!!l22!!l23!
cls
echo !len:~0,1888!
for /l %%i in (1,1,200) do echo.>nul
goto loop
::::::::::::::::::::::::::::::::::::

::External control subroutine
:sub
pause>nul
TASKKILL /FI "IMAGENAME EQ cmd.exe" /FI "WINDOWTITLE EQ 数码雨*">nul

[ Last edited by netbenton on 2009-4-17 at 22:32 ]

Newcomer passing by, learned it

Floor16　knoppix7	Posted 2008-05-25 21:18
银牌会员　Posts 634　Credits 1,287　From cmd.exe
It's better to use tabs for it. Calculating spaces is too tiring..

Floor17　terse	Posted 2008-05-25 21:57
银牌会员　Posts 946　Credits 2,404
Each line is fixed to output 80 characters, then it should be aligned, right?

Floor18　WANKOILZ	Posted 2008-05-25 23:14
初级用户　Posts 89　Credits 198　From 重庆
I also come up with a simple one: @echo off&color 02 :loop for /l %%i in (1,1,26) do ( call set/a var=%%random%%%%%%2&call set/p= %%var%%<nul ) echo. if %random% lss 1000 echo 数码雨 for /l %%i in (1,1,200) do ver>nul goto loop [ Last edited by WANKOILZ on 2008-5-27 at 03:35 PM ]

Floor19　konkoo	Posted 2008-11-16 06:37
初级用户　Posts 27　Credits 50　From 南京
WANKOILZ Efficient and concise, great!

Floor20　weasel	Posted 2008-11-16 16:53
初级用户　Posts 66　Credits 118
In learning, the thread starter is amazing

Floor21　nanhezzb	Posted 2009-02-09 10:44
初级用户　Posts 32　Credits 37
How to achieve scrolling down?

Floor22　netbenton	Posted 2009-02-09 15:16
银牌会员　Posts 752　Credits 1,916　From 广西
@echo off&color 02 set n=1 :loop set var= for /l %%i in (1,1,26) do (call set/a r=%%random%%%%%%2&call set "var=%%var%% %%r%%") set "len%n%=%var%" set/a n=(n-1+24)%%24,m=n for /l %%b in (1,1,24) do (call :sub) cls echo.%var% for /l %%i in (1,1,300) do ver>nul goto loop :sub set/a m=(m+1)%%24 call set var=%%var%% %%len%m%%% [ Last edited by netbenton on 2009-2-9 at 18:43 ]

Floor23　netbenton	Posted 2009-02-09 21:30
银牌会员　Posts 752　Credits 1,916　From 广西
Part of the code borrows the method from floor 18 and is modified to make it fall down. The real "rain" is coming! ^_^ @echo off&color 02 set len= 数码雨来咯！ :loop set var= for /l %%i in (1,1,26) do (call set/a r=%%random%%%%%%2&call set "var=%%var%% %%r%%") set len=%var% %len:~0,1838% cls echo.%len% for /l %%i in (1,1,300) do ver>nul goto loop

Floor24　netbenton	Posted 2009-02-09 21:38
银牌会员　Posts 752　Credits 1,916　From 广西
@echo off&color 02 set len= 数码雨来咯！ 16H By Benton set str=fedcba9876543210 :loop set var= for /l %%i in (1,1,26) do (call set/a r=%%random%%%%%%16&call call set "var=%%var%% %%%%str:~%%r%%,1%%%%") set len=%var% %len:~0,1838% cls echo.%len% for /l %%i in (1,1,300) do ver>nul goto loop

Floor25　kennyfan	Posted 2009-02-16 00:25
中级用户　Posts 112　Credits 259
Haha, it's really quite fun!

Floor26　learner0	Posted 2009-02-16 14:32
初级用户　Posts 49　Credits 108

Floor27　netbenton	Posted 2009-04-17 02:12
银牌会员　Posts 752　Credits 1,916　From 广西
@echo off&color 02 if defined len goto :sub SETLOCAL ENABLEDELAYEDEXPANSION set len= 数码雨来咯！ By Benton start /b %~n0.bat title 数码雨 By Benton 按任意键退出 set str= 0 1 2 3 4 5 6 7 89ABCDEFG :loop set var= for /l %%i in (1,1,26) do (set/a r=!random!%%32&call set "var=!var! %%str:~!r!,1%%") set len=!var! !len:~0,1838! cls echo !len! for /l %%i in (1,1,300) do ver>nul goto loop :sub pause>nul TASKKILL /FI "WINDOWTITLE ne 数码雨 By Benton" >nul

Floor28　netbenton	Posted 2009-04-17 11:47
银牌会员　Posts 752　Credits 1,916　From 广西
::Hacker digital rain bidirectional movement, super realistic ::Also supports key exit @echo off&color 0a if defined lins goto :sub set "lins= 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22" setlocal enabledelayedexpansion start /b %~n0.bat title 数码雨 By Benton 按任意键退出 set str=fedcbag h i j k l m n o p q r s t u v w x y z9876543210ABCDEFG H I J K L M N O P Q R S T U V W X Y Z for %%i in (%lins%) do ( for /l %%j in (1,1,8) do ( set "m%%i=!m%%i! " set "n%%i=!n%%i! " ) ) set n=0 set m=1 ::Preprocessing ends :::::::::::::::Loop body::::::::::::::: :loop set var= %%str:~!random:~0,2!,1%% for /l %%i in (1,1,2) do ( call set "var=!var! %%str:~!random:~0,2!,1%% %%str:~!random:~0,2!,1%% %%str:~!random:~0,2!,1%% %%str:~!random:~0,2!,1%% %%str:~!random:~0,2!,1%% %%str:~!random:~0,2!,1%%" ) set/a n=^(n+22^)%%23,m=^(m+22^)%%23 set m%m%=!var! set n%n%=!var! set lins=!lins:~-3!!lins:~0,-3! set tem=!n0! for %%a in (a b) do ( for /l %%i in (22,-1,0) do ( set tem1=!n%%i! set n%%i=!tem! set tem=!tem1!)) set ll=0 for %%i in (%lins%) do ( set "l!ll!=!m%%i:~0,3!!n%%i:~0,3!!m%%i:~3,3!!n%%i:~3,3!!m%%i:~6,3!!n%%i:~6,3!!m%%i:~9,3!!n%%i:~9,3!!m%%i:~12,3!!n%%i:~12,3!!m%%i:~15,3!!n%%i:~15,3!!m%%i:~18,3!!n%%i:~18,3!!m%%i:~21,3!!n%%i:~21,3!!m%%i:~24,3!!n%%i:~24,3!!m%%i:~27,3!!n%%i:~27,3!!m%%i:~30,3!!n%%i:~30,3!!m%%i:~33,3!!n%%i:~33,3!!m%%i:~36,3!!n%%i:~36,3! " set/a ll+=1 ) set len=!l0!!l1!!l2!!l3!!l4!!l5!!l6!!l7!!l8!!l9!!l10!!l11!!l12!!l13!!l14!!l15!!l16!!l17!!l18!!l19!!l20!!l21!!l22!!l23! cls echo !len:~0,1838! for /l %%i in (1,1,1000) do echo.>nul goto loop :::::::::::::::::::::::::::::::::::: ::External control sub - process :sub pause>nul TASKKILL /FI "WINDOWTITLE ne 数码雨"

Floor29　netbenton	Posted 2009-04-17 14:17
银牌会员　Posts 752　Credits 1,916　From 广西
::Bidirectional Movement + Left and Right Text Scrolling @echo off&color 0a if defined lins goto :sub set "lins= 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23" setlocal enabledelayedexpansion start /b %~n0.bat title 数码雨 By Benton 按任意键退出 set str=fedcbag h i j k l m n o p q r s t u v w x y z9876543210ABCDEFG H I J K L M N O P Q R S T U V W X Y Z for %%i in (%lins%) do ( for /l %%j in (1,1,8) do ( set "m%%i=!m%%i! " set "n%%i=!n%%i! " ) ) set n=2 set m=0 set k=0 set "in0=。。。。——《《欢迎来到黑客帝国》》——。。。。。" set "im0=看到美女了吗？看到了，说明你已是黑客帝国的了。。。" ::Preprocessing ends :::::::::::::::Loop body::::::::::::::: :loop set var= %%str:~!random:~0,2!,1%% for /l %%i in (1,1,2) do ( call set "var=!var! %%str:~!random:~0,2!,1%% %%str:~!random:~0,2!,1%% %%str:~!random:~0,2!,1%% %%str:~!random:~0,2!,1%% %%str:~!random:~0,2!,1%% %%str:~!random:~0,2!,1%%" ) set/a n=^(n+23^)%%24,m=^(m+23^)%%24 set m%m%=!var! set n%n%=!var! set lins=!lins:~-3!!lins:~0,-3! set tem=!n0! for %%a in (a b) do ( for /l %%i in (23,-1,0) do ( set tem1=!n%%i! set n%%i=!tem! set tem=!tem1!)) set ll=0 for %%i in (%lins%) do ( set "l!ll!=!m%%i:~0,3!!n%%i:~0,3!!m%%i:~3,3!!n%%i:~3,3!!m%%i:~6,3!!n%%i:~6,3!!m%%i:~9,3!!n%%i:~9,3!!m%%i:~12,3!!n%%i:~12,3!!m%%i:~15,3!!n%%i:~15,3!!m%%i:~18,3!!n%%i:~18,3!!m%%i:~21,3!!n%%i:~21,3!!m%%i:~24,3!!n%%i:~24,3!!m%%i:~27,3!!n%%i:~27,3!!m%%i:~30,3!!n%%i:~30,3!!m%%i:~33,3!!n%%i:~33,3!!m%%i:~36,3!!n%%i:~36,3! " set/a ll+=1 ) for %%i in (0 4 8 12 16 20) do (if %m%==%%i set/a k=^(k+25^)%%26) set in=!in0:~%k%!!in0:~0,%k%! set im=!im0:~-%k%!!im0:~0,-%k%! set l10=!l10:~0,25!!in:~0,15!!l10:~55! set l12=!l12:~0,25!!im:~0,15!!l12:~55! set len=!l0!!l1!!l2!!l3!!l4!!l5!!l6!!l7!!l8!!l9!!l10!!l11!!l12!!l13!!l14!!l15!!l16!!l17!!l18!!l19!!l20!!l21!!l22!!l23! cls echo !len:~0,1888! for /l %%i in (1,1,200) do echo.>nul goto loop :::::::::::::::::::::::::::::::::::: ::External control subroutine :sub pause>nul TASKKILL /FI "IMAGENAME EQ cmd.exe" /FI "WINDOWTITLE EQ 数码雨">nul [ Last edited by netbenton on 2009-4-17 at 22:32* ]

Floor30　wseemed	Posted 2009-04-18 00:58
初级用户　Posts 24　Credits 29　From 河南
Newcomer passing by, learned it