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

Just a bit slow, going to sleep, won't speed up for now.


@echo off&mode con cols=42 lines=20&color 0c
setlocal enabledelayedexpansion
title 数码雨-zw19750516
set code=1  2  3  4  5  6  7  8  9  a  b  c  d  e  f  0   &set m=1&set v=1
set code1=!code: =!
:begin
set /a a=%random%%%48
set a=!code:~%a%,1!
set str%m%=!str%m%!%a%
set /a n+=1
if %n% lss 40 goto begin
set /a x+=1
if %x% equ 20 call :lp
cls
for /l %%i in (%m%,-1,%v%) do echo !str%%i!
set /a m+=1
if %m% geq 20 set /a v+=1
set n=0&goto begin
:lp
set /a a=%random%%%15
set a=!code1:~%a%,1!
color 0%a%&set x=0

[ Last edited by zw19750516 on 2008-5-25 at 06:27 PM ]

It really feels like it's going to rain, full marks!

Why does "Rain" change to Chinese, type it a few times, and then it freezes?

[ Last edited by cad55 on 2008-5-25 at 08:40 AM ]

Can each column be aligned like in The Matrix?

Aligning is not difficult, but it doesn't look very good after aligning...

I think for alignment, if the starting characters remain unchanged and the following characters change, it will be very similar. The most important thing is the falling speed. But the more perfect it is, the harder it is. This digital rain is pretty good already.


@echo off&mode con cols=42 lines=20&color 02
setlocal enabledelayedexpansion
title Digital Rain - zw19750516
set code=123456789abcdef0&set m=1&set v=1
:set
set num=20
cls&echo The default press Enter will set the rainfall to 20
set /p num=Please set the rainfall (1-40):
echo %num%|findstr "">nul&&goto wrong
if %num% lss 1 goto wrong
if %num% gtr 40 goto wrong
set num1=%num%
set /a num=200/num
if %num% equ 5 (
   title Current heavy rain, rainfall: %num1%
   ) else (
   if %num% leq 10 (
      title Current moderate rain, rainfall: %num1%
      ) else (
      if %num% leq 20 (
         title Current light rain, rainfall: %num1%
         ) else (
         if %num% leq 40 (
            title Current drizzle, rainfall: %num1%
            ) else (
            title Current very light rain, rainfall: %num1%
         )
      )
   )
)
color 0c
:begin
set /a a=%random%%%16,b=%random%%%%num%
set a=!code:~%a%,1!
if %b% equ 0 (
   set "b=%a%" 
   ) else (
   set "b= "
)  
set str%m%=!str%m%!%b%
set /a n+=1
if %n% lss 40 goto begin
set /a x+=1
if %x% equ 20 call :lp
cls
for /l %%i in (%m%,-1,%v%) do echo.!str%%i!
set /a m+=1
if %m% geq 20 set /a v+=1
set n=0&goto begin
:wrong
cls&echo Please set correctly&ping /n 2 127.1>nul&goto set
:lp
set /a a=%random%%%15
set a=!code:~%a%,1!
color 0%a%&set x=0

[ Last edited by zw19750516 on 2008-5-25 at 11:31 AM ]

LZ.
You are an expert in rain...

How can I get Chinese characters to appear...

One Chinese character takes up two spaces, just note this point.


@echo off&mode con cols=42 lines=20&color 02
setlocal enabledelayedexpansion
title Tianxia Spell-zw19750516
set code=123456789abcdef&set m=1&set v=1
set code1=哞喃呢吮咪嘛啊哄唏怛陀茶吒伽迦揭羯婆跋沙娑鸠度谜讫瞋赭阇唋奢
:set
set num=20
cls&echo The default will set the spell level to 20 when pressing Enter
set /p num=Please set the spell level (1-40):
echo %num%|findstr "">nul&&goto wrong
if %num% lss 1 goto wrong
if %num% gtr 40 goto wrong
title Current spell level: %num%
set /a num=200/num
color 0c
:begin
set /a a=%random%%%30,b=%random%%%%num%
set a=!code1:~%a%,1!
if %b% equ 0 (
   set "b=%a%" 
   ) else (
   set "b=  "
)  
set str%m%=!str%m%!%b%
set /a n+=1
if %n% lss 20 goto begin
set /a x+=1
if %x% equ 20 call :lp
cls
for /l %%i in (%m%,-1,%v%) do echo.!str%%i!
set /a m+=1
if %m% geq 20 set /a v+=1
set n=0&goto begin
:wrong
cls&echo Please set correctly&ping /n 2 127.1>nul&goto set
:lp
set /a a=%random%%%15
set a=!code:~%a%,1!
color 0%a%&set x=0

[ Last edited by zw19750516 on 2008-5-25 at 11:31 AM ]

Excited!!!!! This is actually my suggestion!!!!! I'm a hero! (Boasting without thinking)
For a moment, I forgot -- how to write the word "perfect". Alas~~~

The owner is 34 years old??


@echo off&mode con cols=42 lines=20&color 02
title 乱雨-zw19750516
set code=123456789abcdef&set m=1&set v=1
set code1==^^^&%%%^:!$#^>^<:=~*()@"'`;\|abcdefghijklmnopqrstuvwxyz0123456789-_+?,.
setlocal enabledelayedexpansion
:set
set num=20
cls&echo The default press Enter will set the rainfall to 20
set /p num=Please set the rainfall (1-40)：
echo %num%|findstr "">nul&&goto wrong
if %num% lss 1 goto wrong
if %num% gtr 40 goto wrong
set num1=%num%
set /a num=200/num
if %num% equ 5 (
   title Current heavy rain, rainfall：%num1%
   ) else (
   if %num% leq 10 (
      title Current moderate rain, rainfall：%num1%
      ) else (
      if %num% leq 20 (
         title Current light rain, rainfall：%num1%
         ) else (
         if %num% leq 40 (
            title Current drizzle, rainfall：%num1%
            ) else (
            title Current very light rain, rainfall：%num1%
         )
      )
   )
)
color 0c
:begin
set /a a=%random%%%63,b=%random%%%%num%
set a=!code1:~%a%,1!
if %b% equ 0 (
   set "b=!a!" 
   ) else (
   set "b= "
)  
set str%m%=!str%m%!!b!
set /a n+=1
if %n% lss 40 goto begin
set /a x+=1
if %x% equ 20 call :lp
cls
for /l %%i in (%m%,-1,%v%) do echo.!str%%i!
set /a m+=1
if %m% geq 20 set /a v+=1
set n=0&goto begin
:wrong
cls&echo Please set correctly&ping /n 2 127.1>nul&goto set
:lp
set /a a=%random%%%15
set a=!code:~%a%,1!
color 0%a%&set x=0

if %x% equ 20 call :lp
cls
for /l %%i in (%m%,-1,%v%) do echo.!str%%i!
set /a m+=1
if %m% geq 20 set /a v+=1
set n=0&goto begin
:wrong
cls&echo Please set correctly&ping /n 2 127.1>nul&goto set
:lp
set /a a=%random%%%15
set a=!code:~%a%,1!
color 0%a%&set x=0

[ Last edited by zw19750516 on 2008-5-25 at 02:10 PM ]

What a heavy rain. Haha

Floor1　bat-zw	Posted 2008-05-25 02:32
金牌会员　Posts 1,276　Credits 3,105
Just a bit slow, going to sleep, won't speed up for now. @echo off&mode con cols=42 lines=20&color 0c setlocal enabledelayedexpansion title 数码雨-zw19750516 set code=1 2 3 4 5 6 7 8 9 a b c d e f 0 &set m=1&set v=1 set code1=!code: =! :begin set /a a=%random%%%48 set a=!code:~%a%,1! set str%m%=!str%m%!%a% set /a n+=1 if %n% lss 40 goto begin set /a x+=1 if %x% equ 20 call :lp cls for /l %%i in (%m%,-1,%v%) do echo !str%%i! set /a m+=1 if %m% geq 20 set /a v+=1 set n=0&goto begin :lp set /a a=%random%%%15 set a=!code1:~%a%,1! color 0%a%&set x=0 [ Last edited by zw19750516 on 2008-5-25 at 06:27 PM ]

Floor2　26933062	Posted 2008-05-25 02:43
银牌会员　Posts 879　Credits 2,268
It really feels like it's going to rain, full marks!

Floor3　cad55	Posted 2008-05-25 08:33
高级用户　Posts 329　Credits 620
Why does "Rain" change to Chinese, type it a few times, and then it freezes? [ Last edited by cad55 on 2008-5-25 at 08:40 AM ]

Floor4　HAT	Posted 2008-05-25 08:33
版主　Posts 5,017　Credits 9,023
Can each column be aligned like in The Matrix?

Floor5　bat-zw	Posted 2008-05-25 08:48
金牌会员　Posts 1,276　Credits 3,105
Aligning is not difficult, but it doesn't look very good after aligning...

Floor6　523066680	Posted 2008-05-25 09:21
银牌会员　Posts 1,133　Credits 2,361
I think for alignment, if the starting characters remain unchanged and the following characters change, it will be very similar. The most important thing is the falling speed. But the more perfect it is, the harder it is. This digital rain is pretty good already.

Floor7　bat-zw	Posted 2008-05-25 09:24
金牌会员　Posts 1,276　Credits 3,105
@echo off&mode con cols=42 lines=20&color 02 setlocal enabledelayedexpansion title Digital Rain - zw19750516 set code=123456789abcdef0&set m=1&set v=1 :set set num=20 cls&echo The default press Enter will set the rainfall to 20 set /p num=Please set the rainfall (1-40): echo %num%\|findstr "">nul&&goto wrong if %num% lss 1 goto wrong if %num% gtr 40 goto wrong set num1=%num% set /a num=200/num if %num% equ 5 ( title Current heavy rain, rainfall: %num1% ) else ( if %num% leq 10 ( title Current moderate rain, rainfall: %num1% ) else ( if %num% leq 20 ( title Current light rain, rainfall: %num1% ) else ( if %num% leq 40 ( title Current drizzle, rainfall: %num1% ) else ( title Current very light rain, rainfall: %num1% ) ) ) ) color 0c :begin set /a a=%random%%%16,b=%random%%%%num% set a=!code:~%a%,1! if %b% equ 0 ( set "b=%a%" ) else ( set "b= " ) set str%m%=!str%m%!%b% set /a n+=1 if %n% lss 40 goto begin set /a x+=1 if %x% equ 20 call :lp cls for /l %%i in (%m%,-1,%v%) do echo.!str%%i! set /a m+=1 if %m% geq 20 set /a v+=1 set n=0&goto begin :wrong cls&echo Please set correctly&ping /n 2 127.1>nul&goto set :lp set /a a=%random%%%15 set a=!code:~%a%,1! color 0%a%&set x=0 [ Last edited by zw19750516 on 2008-5-25 at 11:31 AM ]

Floor8　cad55	Posted 2008-05-25 10:27
高级用户　Posts 329　Credits 620
LZ. You are an expert in rain... How can I get Chinese characters to appear...

Floor9　bat-zw	Posted 2008-05-25 10:31
金牌会员　Posts 1,276　Credits 3,105
One Chinese character takes up two spaces, just note this point.

Floor10　bat-zw	Posted 2008-05-25 11:25
金牌会员　Posts 1,276　Credits 3,105
@echo off&mode con cols=42 lines=20&color 02 setlocal enabledelayedexpansion title Tianxia Spell-zw19750516 set code=123456789abcdef&set m=1&set v=1 set code1=哞喃呢吮咪嘛啊哄唏怛陀茶吒伽迦揭羯婆跋沙娑鸠度谜讫瞋赭阇唋奢 :set set num=20 cls&echo The default will set the spell level to 20 when pressing Enter set /p num=Please set the spell level (1-40): echo %num%\|findstr "">nul&&goto wrong if %num% lss 1 goto wrong if %num% gtr 40 goto wrong title Current spell level: %num% set /a num=200/num color 0c :begin set /a a=%random%%%30,b=%random%%%%num% set a=!code1:~%a%,1! if %b% equ 0 ( set "b=%a%" ) else ( set "b= " ) set str%m%=!str%m%!%b% set /a n+=1 if %n% lss 20 goto begin set /a x+=1 if %x% equ 20 call :lp cls for /l %%i in (%m%,-1,%v%) do echo.!str%%i! set /a m+=1 if %m% geq 20 set /a v+=1 set n=0&goto begin :wrong cls&echo Please set correctly&ping /n 2 127.1>nul&goto set :lp set /a a=%random%%%15 set a=!code:~%a%,1! color 0%a%&set x=0 [ Last edited by zw19750516 on 2008-5-25 at 11:31 AM ]

Floor11　523066680	Posted 2008-05-25 12:43
银牌会员　Posts 1,133　Credits 2,361
Excited!!!!! This is actually my suggestion!!!!! I'm a hero! (Boasting without thinking) For a moment, I forgot -- how to write the word "perfect". Alas~~~

Floor12　faultcode	Posted 2008-05-25 12:52
初级用户　Posts 60　Credits 120

Floor13　huahua0919	Posted 2008-05-25 12:53
银牌会员　Posts 780　Credits 1,608
The owner is 34 years old??

Floor14　bat-zw	Posted 2008-05-25 14:07
金牌会员　Posts 1,276　Credits 3,105
@echo off&mode con cols=42 lines=20&color 02 title 乱雨-zw19750516 set code=123456789abcdef&set m=1&set v=1 set code1==^^^&%%%^:!$#^>^<:=~()@"'`;\\|abcdefghijklmnopqrstuvwxyz0123456789-_+?,. setlocal enabledelayedexpansion :set set num=20 cls&echo The default press Enter will set the rainfall to 20 set /p num=Please set the rainfall (1-40)： echo %num%\|findstr "">nul&&goto wrong if %num% lss 1 goto wrong if %num% gtr 40 goto wrong set num1=%num% set /a num=200/num if %num% equ 5 ( title Current heavy rain, rainfall：%num1% ) else ( if %num% leq 10 ( title Current moderate rain, rainfall：%num1% ) else ( if %num% leq 20 ( title Current light rain, rainfall：%num1% ) else ( if %num% leq 40 ( title Current drizzle, rainfall：%num1% ) else ( title Current very light rain, rainfall：%num1% ) ) ) ) color 0c :begin set /a a=%random%%%63,b=%random%%%%num% set a=!code1:~%a%,1! if %b% equ 0 ( set "b=!a!" ) else ( set "b= " ) set str%m%=!str%m%!!b! set /a n+=1 if %n% lss 40 goto begin set /a x+=1 if %x% equ 20 call :lp cls for /l %%i in (%m%,-1,%v%) do echo.!str%%i! set /a m+=1 if %m% geq 20 set /a v+=1 set n=0&goto begin :wrong cls&echo Please set correctly&ping /n 2 127.1>nul&goto set :lp set /a a=%random%%%15 set a=!code:~%a%,1! color 0%a%&set x=0 if %x% equ 20 call :lp cls for /l %%i in (%m%,-1,%v%) do echo.!str%%i! set /a m+=1 if %m% geq 20 set /a v+=1 set n=0&goto begin :wrong cls&echo Please set correctly&ping /n 2 127.1>nul&goto set :lp set /a a=%random%%%15 set a=!code:~%a%,1! color 0%a%&set x=0 [ Last edited by zw19750516 on 2008-5-25 at 02:10 PM* ]

Floor15　hansom	Posted 2008-05-25 18:05
初级用户　Posts 87　Credits 161
What a heavy rain. Haha