中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 转贴------光棍节特效

作者:

标题: 转贴------光棍节特效

上一主题 | 下一主题

mayu2004
初级用户

积分 109
发帖 40
注册 2007-12-22
状态离线

『楼主』: 转贴------光棍节特效使用 LLM 解释/回答一下

特效转的很好玩

可以自己修改
str 可接着增加数目 for /l %%i in (1 1 8) do call :ShowStr "!str%%i!"

那个 8 要改成你改后的数目

::code by youxi01@bbs.bathome.cn
::光棍节无聊，没人陪玩......
::动画雏形，待完善....
@echo off
setlocal enabledelayedexpansion
title 放弃...
color 0a
echo.
echo. 一个人的生活...
echo.
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 You"
set "str2=或许是上天的安排，给了我一个转身的机会"
set "str3=而就在那转身的瞬间我爱上了你..."
set "str4=而就在那转身的瞬间你也爱上了我..."
set "str5=也许是上天的注定"
set "str6=也许是痛苦的开始"
set "str7=但爱了你就不后悔..."
set "str8=END...→→→→→→"
for /l %%i in (1 1 8) 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 127.255.255.255 -n 1 -w 1000 >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
)

此帖被 +2 点积分点击查看详情

2007-12-22 17:03

查看资料发送邮件发短消息网志

编辑帖子回复引用回复

JIANHUILAI
初级用户

积分 116
发帖 51
注册 2008-1-12
状态离线

『第 2 楼』: 使用 LLM 解释/回答一下

VERY GOOD

2008-1-13 19:43

查看资料发送邮件发短消息网志

编辑帖子回复引用回复

qzwqzw
银牌会员

天的白色影子

积分 2343
发帖 636
注册 2004-3-6
状态离线

『第 3 楼』: 使用 LLM 解释/回答一下



:: qzwqzw@cn-dos.net 2008-01-13 22:30

:: Re youxi01@bbs.bathome.cn 光棍节作品

:: youxi之作似乎不止游戏之作

:: 索性游戏以作以与youxi共勉

@echo off

setlocal enabledelayedexpansion

title 不放弃...

color 0d

echo.

echo.  To you

echo.

set "str1=或许是上天的安排"

set "str2=给了你一个转身的机会"

set "str3=而就在那转身的瞬间你爱上了她..."

set "str4=而就在那转身的瞬间她也爱上了你..."

set "str5=也许是上天的注定"

set "str6=也许是痛苦的开始"

set "str7=但爱了她就不要后悔..."

set "str8=END not END"

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

pause>nul



:TimeDelay 次数

for /l %%i in (1 1 %1) do ver>nul

goto :eof



:strlen OBJ

set "var=%~1"

set /a strbytes=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 strbytes+=3) else set /a strbytes+=2

   set /a strlen+=1

)

goto :eof



:ShowStr str

set "str=%~1"

call :strlen "%~1"

set /a strbegin=(78-strbytes)/2

set /p= <nul

for /l %%i in (1 1 78) do set /p=-<nul& call :TimeDelay 50

for /l %%i in (1 1 78) do set /p=<nul

for /l %%i in (1 1 %strbegin%) do set /p=-<nul

for /l %%i in (0 1 %strlen%) do set /p= !str:~%%i,1!<nul& call :TimeDelay 500

for /l %%i in (1 1 78) do set /p=<nul

ping 127.255.255.255 -n 1 -w 1000 >nul

此帖被 +4 点积分

点击查看详情

2008-1-13 23:01

查看资料发短消息网志

编辑帖子回复引用回复

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: