[游戏娱乐] 光棍节批处理动画雏形

youxi01

::code by youxi01@bbs.bathome.net
::光棍节无聊，没人陪玩......
::动画雏形，待完善....
@echo off
setlocal enabledelayedexpansion

for /l %%i in (1 1 70) do set /p=^|<nul
for /l %%i in (1 1 70) do set /p=<nul
set "str1=TO XXX:"
set "str2=或许是上天的安排，给了我一个转身的机会"
set "str3=而就在那转身的瞬间我爱上了你..."

for /l %%i in (1 1 3) do call :ShowStr "!str%%i!"

pause>nul

:TimeDelay 次数
for /l %%i in (1 1 %1) do ver>nul
goto :eof

:GetBytes OBJ
set "var=%~1"
set /a bytes=0,strlen=0
for /l %%i in (0 1 200) do (
   set "var_=!var:~%%i,1!"
   if "!var_!"=="" goto :eof
   if !var_! gtr Z (set /a bytes+=2) else set /a bytes+=1
   set /a strlen+=1
)
goto :eof

:ShowStr str
set "str=%~1"
call :GetBytes "!str!"
for /l %%i in (0 1 !strlen!) do set /p=!str:~%%i,1!<nul& call :TimeDelay 150
ping /n 3 127.1>nul
for /l %%i in (0 1 70) do set /p=<nul
for /l %%i in (0 1 !strlen!) do (
      set test1=!str:~0,-%%i!
      set test2=!str:~-%%i!
      if !test2! gtr Z (set "test1=!test1!^|^|") else set "test1=!test1!^|"
      set /p=!test1!<nul& call :TimeDelay 50
      for /l %%i in (1 1 70) do set /p=<nul
)
复制代码

王思佳

中国是大国，做人要有德
看贴不回者，不死也骨折
这算原创不~

huobilie

回一下。
提个建议：把 | 换成 空格，再把文字颜色改一下

youxi01

TO huobilie，谢谢你的建议
把 | 换成 空格？曾经是想过这个问题，当时想，换成空格的话，动画实现将会过于简单，所以...

novaa

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

wolf

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

fengshun

顶啊，真好哦，值得学习啊！！

acaigg

好贴必回，谢谢分享。

caimingbing

这个有意思？？？？？

qaz5685075@qq.c

厉害啊！！！！

liuyonglin

学习中
..........................

hells

真无聊……

hb_135

还不错..有点意识.....

路随梦寻

还不错..有点意识.....

狱渊

不错的啊  谢了