Batch processing to achieve the rain flying (hacker Empire effect) _dos/bat

A little more nonsense, a direct first effect code

@echo off&mode con cols=42 lines=20&color
set m=1&set v=1
set code== ^^ ^&%%%^:!$#^>^<: =~* () @ "'; \|-_+?,. ghijklmnopqrstuvwxyz0123456789abcdef
setlocal enabledelayedexpansion
: Begin
set/a Num=%random%%%40+1,num1=num,num=200/num
title Disorderly rain swirling, current rainfall:%num1%
: LP
set/a a=%random%%%63,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 Goto LP
set/a x+=1,w+=1
if%x% equ-call:lop cls&for/l%%i
in (%m%, -1,%v%) do echo.! str%%i!
set/a m+=1
if%m% geq set/a v+=1
if%w% equ (set W=0&goto begin) Else (set N=0&goto LP)
: L Op
set/a a=%random%%%15+1
set a=!code:~-%a%,1!
Color 0!a!&set x=0

A small partner said, why not change it to the whereabouts of 101010? So it's not like the code in the matrix???

All right, let's get him done.

@echo off&mode con cols=42 lines=20&color
setlocal enabledelayedexpansion
set Code=123456789abcdef
set M=1&set v=1
title hacker Empire Digital Rain by bat-zw19750516
: Begin
set/a a=%random%%%2,b=%random%%%3
if %b% NEQ 0 (set b=%a%) Else (set "b=") 
set str=%str%%b%
set/a n+=1
if%n% LSS goto begin
SET/A m+=1 , X+=1
if%m% geq set/a v+=1 set str%m%=%str% cls&for/l%%i in
(%m%,-1,%v%) do echo.! str%%i!
If%x% equ call:lp
set str=&set n=0
goto begin
: LP
set/a a=%random%%%15,x=0
set A=!code : ~%a%,1!
Color 0%a%

Of course, the above is written by the master, we look at a novice simple to complete the appearance

@echo off
title hacker Empire Digital Rain Effect
color
setlocal enabledelayedexpansion
for/l%%i in (1,1,80) does (
set do Wn%%i=0
)
: Heike
for/l%%j in (1,1,80) do (
set/a guxing%%j-=1
if!guxing%%j! LSS 0 (
set/a hanye%%j=!random!%%4
set/a guxing%%j=!random!%%15+10
)
if "!hanye%%j!" = "1" (
set/a shu=!random!%%2
set/p=!shu!<nul
) Else (
set/p= <nul
)
)
goto Heike

Is this special effects have a new understanding of it, is not immediately want to master batch processing it, work hard, boys.