Board logo

标题: [游戏娱乐] 参考高手的作品后自己作的批处理数码雨 [打印本页]

作者: kingerpk    时间: 2009-2-27 09:30     标题: 参考高手的作品后自己作的批处理数码雨

  1. @echo off
  2. color 0a
  3. setlocal enabledelayedexpansion
  4. set a=12fgh56gh4fgh68hfh8k9kjh7
  5. :start
  6.   for /l %%j in (1 1 1000) do (
  7. call :random
  8. set /p u=!r! < nul
  9. for /l %%a in (1,1,!y!) do (
  10. set/p= <nul
  11. for /l %%w in (1,1,100) do echo %%w > nul
  12. )
  13. )
  14. GOTO start
  15. :random
  16. set /a q=!random!%%15+1
  17. set /a y=!random!%%6+1
  18. set r=!a:~%q%,1!
  19. goto :eof
复制代码
不过效果就差太多了
还望高手指点啊!!!
作者: Batcher    时间: 2009-2-27 11:08

本版有不少数码雨,可以参考一下别人的代码来改进自己的效果^_^
作者: youxi01    时间: 2009-2-27 17:36

似乎 你的 雨是横着下的?!
这样的雨比较少见哦
继续加油!
作者: Batcher    时间: 2009-2-27 17:40     标题: 回复 3楼 的帖子

楼主的雨能横着下已经不错了,记得在CN-DOS看到的第一个雨是从下往上“下”的,呵呵。
作者: 523066680    时间: 2009-3-1 09:20

典一下~
  1. @echo off
  2. title made by 523066680 2008-08-08
  3. ::这一版本由www.cn-dos.net & www.bathome.net 成员523066680编辑
  4. mode con cols=85 lines=21
  5. color 0a
  6. setlocal enabledelayedexpansion
  7. set a=0
  8. for %%m in (a b c d e f g h i j k l m n o p q r s t u v w x y z) do (
  9. if !a! leq 9 (set n0!a!=%%m) else (set n!b!=%%m)
  10. set /a a+=1
  11. set /a b=!a!-10
  12. )
  13. for %%M in (A B C D E F G H I J K L M N O P Q R S T U V W X Y Z) do (
  14. set n!b!=%%M
  15. set /a b+=1
  16. )
  17. for /l %%a in (1,1,20) do (
  18. set h%%a=
  19. for /l %%b in (1,1,20) do (
  20. call,set code=%%n!random:~1,2!%%
  21. if not defined code (set "code= ")
  22. set h%%a=!code!   !h%%a!
  23. )
  24. )
  25. set num=0
  26. :a
  27. set /a num+=1
  28. if %num% equ 260 set num=0
  29. ping -n>nul
  30. cls
  31. echo,   %h1%
  32. echo,   %hn%
  33. for %%a in (17,1,20) do (
  34.     for %%b in (a b c d e f g h i) do (
  35.         set h%%a=!h%%a:%%b= !
  36. ))
  37. for /l %%a in (3,1,20) do echo,   !h%%a!
  38. for /l %%a in (19,-1,1) do (
  39. set /a n=1+%%a
  40. set h!n!=!h%%a!
  41. )
  42. set hn=%h2%
  43. set h1=
  44. for /l %%b in (1,1,20) do (
  45. call,set code=%%n!random:~1,2!%%
  46. if not defined code (set "code= ")
  47. set h1=!code!   !h1!
  48. )
  49. if %num% gtr 80 (if %num% lss 100 set hn=                      %h19:   = %)
  50. if %num% gtr 140 (if %num% lss 160 set hn=                      %h19:   = %)
  51. if %num% gtr 200 (if %num% lss 220 set hn=                      %h19:   = %)
  52. if %num% gtr 100 (if %num% leq 130 (
  53. set hn=%hn:~0,20%    B a t H o m e    I f _ E x i s t    %hn:~-20%
  54. ))
  55. if %num% gtr 160 (if %num% leq 190 (
  56. set hn=%hn:~0,19%      C n - D o s     I f _ E x i s t     %hn:~-19%
  57. ))
  58. if %num% gtr 220 (if %num% leq 240 (
  59. set hn=%hn:~0,19%          W W W . 3 X 4 Y . C O M        %hn:~0,19%
  60. ))
  61. for %%a in (100 160 220) do (
  62. if %num% equ %%a (set hn=                     =====================+================== ))
  63. goto :a
  64. pause
复制代码

[ 本帖最后由 523066680 于 2009-3-1 09:23 编辑 ]
作者: 523066680    时间: 2009-3-1 09:22

cpu飙到电脑卡卡的~   看一下就好  怕看久了对机子不好~
注意第二行特效~   为了第二行的“广告” 代码算是长了一倍~

[ 本帖最后由 523066680 于 2009-3-1 09:49 编辑 ]




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