中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum
游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟
中国DOS联盟论坛
现在时间是 2026-08-10 16:54
47,811 主题排行 / 349,897 发帖 / 今日 0 篇 / 48,256 会员排行
DOS批处理 & 脚本技术(批处理室) » [推荐][挑战思路]用脚本模拟黑客帝国数码雨
可打印版本  27,933 / 67
第31楼 redtek 发表于 2006-11-09 21:45
金牌会员 发帖 1,147 积分 2,902
26、27楼太可怕了,都超越了dos批处理了,
这要用3DMAX或Maya更专业的工具来做效果更多,但失去了版主提倡的使用dos批处理 “思路挑战” 的意义了~:)
第32楼 ccwan 发表于 2006-11-09 23:40
金牌会员 发帖 1,160 积分 2,725 来自 河北廊坊
精华!
第33楼 zh159 发表于 2006-11-10 00:05
金牌会员 发帖 1,467 积分 3,687
这个才是 html 的数码雨
数码雨.htm


“数码雨.htm”很耗资源,可以适当改小“Cols=33;

数码雨.bat
第34楼 electronixtar 发表于 2006-11-10 00:22
铂金会员 发帖 2,672 积分 7,493
有点假,不像,呵呵
我记得电影里的是:数字的位置是固定不动的,然后每个数字在其固定位置的变换,造成一种下落的错觉。
第35楼 pengfei 发表于 2006-11-11 06:28
银牌会员 发帖 485 积分 1,218 来自 湖南.娄底
来一段更逼真的数码雨, 用一个网页稍微修改来的. 把代码另存为.htm, 运行后允许活动内容就OK了.



下面这段又稍微改了一下.



[ Last edited by pengfei on 2006-11-26 at 10:36 AM ]
第36楼 lxmxn 发表于 2006-11-11 07:15
版主 发帖 4,938 积分 11,386
恩,pengfei兄的这个网页才是“正宗”的数码雨,呵呵
第37楼 zouzhxi 发表于 2006-11-11 07:22
中级用户 发帖 177 积分 430 来自 广东深圳
我把黑客帝国中的字符流的源代码

贴出来给你们看看,这才是!@#$%^&*()




本代码来自This's My Life留言簿

下面是效果地址:
http://www.sqbook.com/asp/home/sqbook/index.
asp?adminuser=cnbohu

黑客帝国中的字符流




浪费资源
lol lol
看晕了吧...呵呵...

[ Last edited by zouzhxi on 2006-11-11 at 07:38 AM ]
第38楼 electronixtar 发表于 2006-11-11 07:56
铂金会员 发帖 2,672 积分 7,493
呵呵~~成了html数码雨的比拼了。

真正的数码雨需要一个屏幕一个屏幕的输出,每个字母的位置是固定的,这个数字在它自己的位置上变化,然后这个字母下面又会出现另一个数字,然后这个数字下又出现另一个数字……而不是一串字母往下掉。
第39楼 zh159 发表于 2006-11-11 12:28
金牌会员 发帖 1,467 积分 3,687
35 楼代码和 33 楼是一样的,只不过在以下参数不同而已
Cols=10;列数
Cl=48;//Space's are included so real length is 24!列最大长度
Cs=120;列宽
Ts=18;字体大小
MnS=20;下落最小速度
MxS=20;下落最大速度

RC=new Array();E=new Array();Tcc=new Array(0,1,2,3,4,5,6,7,8,9);头一位数字变换
第40楼 ccwan 发表于 2006-11-11 21:31
金牌会员 发帖 1,160 积分 2,725 来自 河北廊坊
都很有研究啊!呵呵。我还是很佩服的。
第41楼 hxuan999 发表于 2006-11-13 02:00
中级用户 发帖 161 积分 337

两天没有来就变成HTML数码雨的挑战了.

我还是先把我的代码也放出来吧.大家还是研究一下纯BAT如何实现吧.

我这个代码是完全按照[楼主]提供的代码改的,就是速度太慢了.研究了N天还是

没办法提速呀.另外改了一个用0和1实现的.还是这个效果好点.


代码1:


  1. @echo off
  2. ::mode con cols=80
  3. setlocal ENABLEDELAYEDEXPANSION
  4. color 02

  5. goto BEGIN
  6. goto :eof

  7. ::function mt_rand "a" "b"
  8. :mt_rand
  9. ::(
  10. set a=%~1
  11. set b=%~2
  12. set /a _mt_rand=(!random!%%(%b%-%a%))+%a%
  13. exit /b 0
  14. ::)

  15. :BEGIN
  16. ::{--
  17. SET iWidth=80
  18. SET iDensity=6

  19. SET sText="#$&'()*+,-./0123456789:;<>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ^_`abcdefghijklmnopqrstuvwxyz{|}~
  20. SET sText=!sText:"=!
  21. set /A iText=90-1

  22. for /l %%i in (1,1,%iWidth%) do (
  23. set aDown%%i=0
  24. )
  25. :loop
  26. for /l %%I in (1,1,%iWidth%) do (
  27. set /a aDown%%I-=1
  28. if !aDown%%I! LSS 0 (
  29. call :mt_rand "0" "%iDensity%"&&set aArrow%%I=!_mt_rand!
  30. call :mt_rand "10" "25"&&set aDown%%I=!_mt_rand!
  31. )
  32. if !aArrow%%I! EQU 1 (
  33. call :mt_rand "0" "%iText%"&&(FOR %%M IN ("!_mt_rand!") DO SET aa=!sText:~%%~M,1!)
  34. set /p=!aa!<nul
  35. ) else (
  36. set /p= <nul
  37. )
  38. )
  39. goto loop

  40. ::--}

  41. :exit
  42. exit /b 0
hxuan?表ー: 2006-11-12 12:59


代码2:


  1. @echo off
  2. setlocal ENABLEDELAYEDEXPANSION
  3. color 02

  4. for /l %%i in (1,1,80) do (
  5. set Down%%i=0
  6. )

  7. :loop
  8. for /l %%j in (1,1,80) do (
  9. set /a Down%%j-=1
  10. if !down%%j! LSS 0 (
  11. set /a Arrow%%j=!random!%%4
  12. set /a Down%%j=!random!%%15+10
  13. )
  14. if "!Arrow%%j!" == "1" (
  15. set /a chr=!random!%%2
  16. set /p=!chr!<nul
  17. ) else (
  18. set /p= <nul
  19. )
  20. )
  21. goto loop

  22. goto :eof
hxuan?表ー: 2006-11-12 13:01
第42楼 ccwan 发表于 2006-11-13 21:24
金牌会员 发帖 1,160 积分 2,725 来自 河北廊坊
楼上给人的感觉不是下雨,因为雨是向下走的啊。^_^
第43楼 kennyfan 发表于 2006-11-13 22:05
中级用户 发帖 112 积分 259
CPU占用100% 实在可怕!
第44楼 lgx8280998 发表于 2006-11-15 02:07
初级用户 发帖 22 积分 52
如果用goto做个死循环.
(手工在批处理中加数字)
再定义每行的显示时间.
应该是很逼真的下雨.
第45楼 lgx8280998 发表于 2006-11-16 10:57
初级用户 发帖 22 积分 52
我在上面说过用goto做个死死循环
代码如下:



简单明了,只用ping -n 1 localhost>nul 定义每行的显示时间就行了.
想下多大的雨都行
但经过测试有点小问题,就是直接按右上角的XX关闭的时候可能导致重启.
但按crtl+c终止则不会.应该是CPU占用率太高的缘故

[ Last edited by lgx8280998 on 2006-11-16 at 11:11 AM ]
上一页  1 2 3 4 5  下一页
[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023