Board logo

标题: [游戏娱乐] 光棍节批处理动画雏形 [打印本页]

作者: youxi01    时间: 2007-11-10 20:06     标题: 光棍节批处理动画雏形

  1. ::code by youxi01@bbs.bathome.net
  2. ::光棍节无聊,没人陪玩......
  3. ::动画雏形,待完善....
  4. @echo off
  5. setlocal enabledelayedexpansion
  6. for /l %%i in (1 1 70) do set /p=^|<nul
  7. for /l %%i in (1 1 70) do set /p=<nul
  8. set "str1=TO XXX:"
  9. set "str2=或许是上天的安排,给了我一个转身的机会"
  10. set "str3=而就在那转身的瞬间我爱上了你..."
  11. for /l %%i in (1 1 3) do call :ShowStr "!str%%i!"
  12. pause>nul
  13. :TimeDelay 次数
  14. for /l %%i in (1 1 %1) do ver>nul
  15. goto :eof
  16. :GetBytes OBJ
  17. set "var=%~1"
  18. set /a bytes=0,strlen=0
  19. for /l %%i in (0 1 200) do (
  20.    set "var_=!var:~%%i,1!"
  21.    if "!var_!"=="" goto :eof
  22.    if !var_! gtr Z (set /a bytes+=2) else set /a bytes+=1
  23.    set /a strlen+=1
  24. )
  25. goto :eof
  26. :ShowStr str
  27. set "str=%~1"
  28. call :GetBytes "!str!"
  29. for /l %%i in (0 1 !strlen!) do set /p=!str:~%%i,1!<nul& call :TimeDelay 150
  30. ping /n 3 127.1>nul
  31. for /l %%i in (0 1 70) do set /p=<nul
  32. for /l %%i in (0 1 !strlen!) do (
  33.       set test1=!str:~0,-%%i!
  34.       set test2=!str:~-%%i!
  35.       if !test2! gtr Z (set "test1=!test1!^|^|") else set "test1=!test1!^|"
  36.       set /p=!test1!<nul& call :TimeDelay 50
  37.       for /l %%i in (1 1 70) do set /p=<nul
  38. )
复制代码

作者: 王思佳    时间: 2007-11-11 17:59

中国是大国,做人要有德
看贴不回者,不死也骨折
这算原创不~
作者: huobilie    时间: 2007-11-16 10:44

回一下。
提个建议:把 | 换成 空格,再把文字颜色改一下
作者: youxi01    时间: 2007-11-16 12:45

TO huobilie,谢谢你的建议
把 | 换成 空格?曾经是想过这个问题,当时想,换成空格的话,动画实现将会过于简单,所以...
作者: novaa    时间: 2007-11-16 19:35

for /l %%i in (0 1 70) do set /p=<nul
你不是用了这个啊
上次我问你的时候也不好好回答
这个作用我是知道了
但是不知道为什么会这样显示
作者: wolf    时间: 2007-11-19 13:16

其实这个就是set /p的用法
set /p就是等待用户输入
也许你以前接触过的都是
"set /p t=请输入变量:"这样的形式
for /l %%i in (1 1 70) do set /p=^|<nul 就是没有用变量来接受输入的值(nul),表示从空设备读取数据,无需自己输入
结果就是显示70个|
作者: fengshun    时间: 2008-3-8 18:12

顶啊,真好哦,值得学习啊!!
作者: acaigg    时间: 2011-1-4 17:07

好贴必回,谢谢分享。
作者: caimingbing    时间: 2011-1-5 11:42

这个有意思?????
作者: qaz5685075@qq.c    时间: 2011-11-14 18:28

厉害啊!!!!
作者: liuyonglin    时间: 2012-1-18 14:27

学习中
..........................
作者: hells    时间: 2012-8-31 01:56

真无聊……
作者: hb_135    时间: 2012-12-29 14:56

还不错..有点意识.....
作者: 路随梦寻    时间: 2013-4-20 11:55

还不错..有点意识.....
作者: 狱渊    时间: 2013-4-28 19:35

不错的啊  谢了
作者: a1533072207    时间: 2013-5-9 19:14

回个帖  冒个泡
作者: 思愁之路    时间: 2013-6-23 22:15

不错,挺有意思
作者: 林小七    时间: 2013-6-23 22:27

每发现什么特别啊..




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