Board logo

标题: [游戏娱乐] The Best Matrix 批处理 v1(具打字特效) [打印本页]

作者: raymai97    时间: 2011-10-29 12:12     标题: The Best Matrix 批处理 v1(具打字特效)

总算做出了自己第一个采用多种特效的批处理,所以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. :initrandom
  8. ::RANDOM init (25 line will init)
  9. for /l %%i in (1 1 25) do (
  10. for /l %%j in (1 1 39) do (
  11. set /a ran=!random! %% 3
  12. if "!ran!"=="2" set "ran= "
  13. set l%%i=!ran! !l%%i!
  14. )
  15. )
  16. :inittxt
  17. set varstart=1
  18. set len_txt=0
  19. :txt_reset
  20. set txt=!var:~0,%varstart%!
  21. :len_txt_add
  22. if not "!txt:~%len_txt%!"=="" set /a len_txt+=1&goto len_txt_add
  23. set /a start=76/2-(!len_txt!/2)
  24. ::odd or even
  25. set /a tmp=!len_txt!/2*2
  26. set /a start2=!start!+!len_txt!+2
  27. set /a start-=2
  28. ::ECHO JOB HERE
  29. cls
  30. echo. !l1!
  31. echo. !l2:~0,%start%!  !txt!  !l2:~%start2%!
  32. for /l %%i in (3 1 24) do (echo. !l%%i!)
  33. ::MOVE VAR JOB HERE
  34. set num=25
  35. set num2=0
  36. :movevar
  37. if "!num2!"=="1" (
  38. set l1=
  39. for /l %%i in (1 1 39) do (
  40. set /a ran=!random! %% 3
  41. if "!ran!"=="2" set "ran= "
  42. set l1=!ran! !l1!
  43. )
  44. if not "!var:~%varstart%!"=="" (set /a varstart+=1)
  45. goto txt_reset
  46. )
  47. set /a num2=!num!-1
  48. set l!num!=!l%num2%!
  49. set /a num-=1
  50. goto movevar
复制代码

作者: weichenxiehou    时间: 2011-10-29 13:56

看得出来楼主对批处理特效很有热情,鼓励一下。
作者: ydafhjeajtrj    时间: 2011-10-29 15:27

如果哪位大侠可以把功能优化一下就好了,优化个最简洁的
作者: garyng    时间: 2011-12-2 11:59

赞个~

帅!

尤其是第2行
作者: 狱渊    时间: 2013-4-28 20:57

都好厉害啊




欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2