The Best Matrix 批处理 v1（具打字特效）

raymai97

总算做出了自己第一个采用多种特效的批处理，所以cpu自然用很多了~ 不过也因此不必加sleep.com来延时，哈哈~

有几种特效集在一起了：
* 打字特效
* 居中特效
* Matrix特效（从上到下）

1. @echo off
   
2. title THE BEST MATRIX by Raymai97
   
3. color 2a
   
4. mode con cols=80 lines=25
   
5. setlocal enabledelayedexpansion
   
6. set var=Every great achievement was once considered impossible.
   
7. 
   
8. :initrandom
   
9. ::RANDOM init (25 line will init)
   
10. for /l %%i in (1 1 25) do (
    
11. for /l %%j in (1 1 39) do (
    
12. set /a ran=!random! %% 3
    
13. if "!ran!"=="2" set "ran= "
    
14. set l%%i=!ran! !l%%i!
    
15. )
    
16. )
    
17. 
    
18. :inittxt
    
19. set varstart=1
    
20. set len_txt=0
    
21. 
    
22. :txt_reset
    
23. set txt=!var:~0,%varstart%!
    
24. 
    
25. :len_txt_add
    
26. if not "!txt:~%len_txt%!"=="" set /a len_txt+=1&goto len_txt_add
    
27. 
    
28. set /a start=76/2-(!len_txt!/2)
    
29. ::odd or even
    
30. set /a tmp=!len_txt!/2*2
    
31. set /a start2=!start!+!len_txt!+2
    
32. set /a start-=2
    
33. 
    
34. ::ECHO JOB HERE
    
35. cls
    
36. echo. !l1!
    
37. echo. !l2:~0,%start%!  !txt!  !l2:~%start2%!
    
38. for /l %%i in (3 1 24) do (echo. !l%%i!)
    
39. 
    
40. ::MOVE VAR JOB HERE
    
41. set num=25
    
42. set num2=0
    
43. :movevar
    
44. if "!num2!"=="1" (
    
45. set l1=
    
46. for /l %%i in (1 1 39) do (
    
47. set /a ran=!random! %% 3
    
48. if "!ran!"=="2" set "ran= "
    
49. set l1=!ran! !l1!
    
50. )
    
51. if not "!var:~%varstart%!"=="" (set /a varstart+=1)
    
52. goto txt_reset
    
53. )
    
54. set /a num2=!num!-1
    
55. set l!num!=!l%num2%!
    
56. set /a num-=1
    
57. goto movevar

复制代码

weichenxiehou

看得出来楼主对批处理特效很有热情，鼓励一下。

ydafhjeajtrj

如果哪位大侠可以把功能优化一下就好了，优化个最简洁的

garyng

赞个～

帅！

尤其是第2行

狱渊

都好厉害啊