炫酷的批处理BAT走字特效源码
先上第一版的代码,
代码肯定还存在BUG,先发上来给大家测试.
@echo off&setlocal enabledelayedexpansion mode con: cols=87 lines=15 title code by foxjl 2007-12-1 www.jb51.net color 1a set long=43,minus=43 set,=^ 我们,是一群执著的批处理爱好者^ 在色彩斑斓的WINDOWS下,开启CMD这扇深邃的窗口^ 曾经挑灯夜战,曾经彻夜不眠^ 我们之所以如此似痴若狂,是因为我们深知:^ 尺有所短、寸有所长,CMD不同凡响^ 我们精益求精,力求完美^ 所有的努力,只为了用最简洁的语言,编写最具实用性的代码^ 我们www.jb51.net^ 高手汇聚、资料齐全、是新手入门的福地、老手晋级的乐园^ 不求最大、但求最好、展现批处理的无穷魅力、一切精彩,尽在~~我们~~ 演示完毕。再见!! :start echo. for %%i in (8 4 -1 4 -1 4 -1 10 -1 8 -1 16 -7 , 8 4 -1 4 -1 4 -1 10 -1 8 -1 8 -5 4 -1 4 -1 , 8 -4 2 -1 4 -1 10 -4 2 -1 12 -1 2 -7 , 8 4 -1 4 -1 4 -1 2 -1 6 -1 4 -1 2 -2 10 -1 2 -1 4 -1 4 -1 , 8 4 -1 4 -2 2 -2 6 -1 6 -1 2 -1 2 -1 4 -5 4 -1 4 -1 , 8 4 -2 2 -1 4 -1 8 -1 4 -1 4 -1 4 -1 6 -1 2 -7 , 8 -3 4 -1 4 -1 6 -1 2 -1 2 -1 4 -1 12 -1 8 -1 , 8 4 -1 4 -1 4 -1 12 -1 6 -1 12 -1 4 -5 , 8 4 -1 4 -1 2 -2 2 -1 8 -1 6 -1 12 -2 6 -1 , 8 4 -1 4 -2 2 -1 2 -1 6 -1 2 -2 2 -1 8 -2 10 -1 , 8 -3 4 -1 4 -3 2 -2 8 -5 8 -8) do ( (if "%%i"=="," (echo.&ping -n 1 127.1>nul)) && (set a=%%i)&(set b=!a:-=!) if %%i lss 0 (for /l %%j in (1,1,!b!) do (set/p=▓<nul)) else (for /l %%k in (1,1,%%i) do (set/p= <nul) ) ) call :delay 700 echo\&echo\ for /l %%z in (1,1,255) do ( if not !long! equ 0 set /a long-=1 for /l %%j in (1,1,87) do (set/p=<nul) for /l %%k in (1,1,!long!) do (set/p= <nul) set /a longn+=1 set /a longs=longn-43 set /a remnant=255-43 if !longn! lss 43 (set/p=!,:~0,%%z!<nul) else ( if !longn! geq !remnant! ( set /a minus-=1 set /a minuss=minus*2 for /l %%l in (1,1,!minus!) do (set/p= <nul) for /l %%j in (1,1,!minuss!) do (set/p=<nul) call set/p=%%,:~!longs!,43%%<nul ) else ( call set/p=%%,:~!longs!,43%%<nul ) ) call :delay 40 修改这个数字可以调整走字的速度. ) call :delay 700&exit :delay for /l %%i in (1,1,%1) do (error>nul 2>nul) goto :eof
动画效果很不错,象电视里的飞字幕.很有观赏性.
真是开了眼了 set ,=^ 再把每句最后加个^符号,就可以把它们都赋值给变量,?这是什么原理? 并且最后一句末尾又没有^符号?
不过,飞字幕部分,代码似乎可以更简洁.
来看看第二版的代码
: @echo off&setlocal enabledelayedexpansion title code by 泛滥棏慌° 2007-12-1 www.jb51.net mode con: cols=87 lines=15 for /l %%l in (1 1 42) do set "ko= !ko!" color 1a&echo\&set,=!ko!^ 我们,是一群执著的批处理爱好者^ 在色彩斑斓的WINDOWS下,开启CMD这扇深邃的窗口^ 曾经挑灯夜战,曾经彻夜不眠^ 我们之所以如此似痴若狂,是因为我们深知:^ 尺有所短、寸有所长,CMD不同凡响^ 我们精益求精,力求完美^ 所有的努力,只为了用最简洁的语言,编写最具实用性的代码^ 我们www.jb51.net^ 高手汇聚、资料齐全、是新手入门的福地、老手晋级的乐园^ 不求最大、但求最好、展现批处理的无穷魅力、一切精彩,尽在~~我们~~ 演示完毕。再见!! for %%i in (8 4 -1 4 -1 4 -1 10 -1 8 -1 16 -7 , 8 4 -1 4 -1 4 -1 10 -1 8 -1 8 -5 4 -1 4 -1 , 8 -4 2 -1 4 -1 10 -4 2 -1 12 -1 2 -7 , 8 4 -1 4 -1 4 -1 2 -1 6 -1 4 -1 2 -2 10 -1 2 -1 4 -1 4 -1 , 8 4 -1 4 -2 2 -2 6 -1 6 -1 2 -1 2 -1 4 -5 4 -1 4 -1 , 8 4 -2 2 -1 4 -1 8 -1 4 -1 4 -1 4 -1 6 -1 2 -7 , 8 -3 4 -1 4 -1 6 -1 2 -1 2 -1 4 -1 12 -1 8 -1 , 8 4 -1 4 -1 4 -1 12 -1 6 -1 12 -1 4 -5 , 8 4 -1 4 -1 2 -2 2 -1 8 -1 6 -1 12 -2 6 -1 , 8 4 -1 4 -2 2 -1 2 -1 6 -1 2 -2 2 -1 8 -2 10 -1 , 8 -3 4 -1 4 -3 2 -2 8 -5 8 -8) do ( (if "%%i"=="," (echo.&ping -n 1 127.1>nul)) && (set a=%%i)&(set b=!a:-=!) if %%i lss 0 (for /l %%j in (1,1,!b!) do (set/p=▓<nul)) else (for /l %%k in (1,1,%%i) do (set/p= <nul) )) call :delay 700&echo\&echo\ for /l %%l in (1 1 255) do ( set /p=!,:~0,43!<nul call :delay 40 修改这个数字可以调整走字的速度. for /l %%j in (1,1,87) do (set/p=<nul) set ,=!,:~1! ) call :delay 700&exit :delay for /l %%i in (1,1,%1) do (error>nul 2>nul) goto :eof
栏 目:DOS/BAT
下一篇:DOS批处理 函数定义与用法
本文标题:炫酷的批处理BAT走字特效源码
本文地址:https://www.xiuzhanwang.com/a1/DOS_BAT/10145.html
您可能感兴趣的文章
- 01-10使用批处理实现软件的自动安装以安装搜狗拼音为例
- 01-10通过批处理修改DNS的代码(推荐)
- 01-10windows使用批处理发布web到tomcat并启动tomcat脚本分享
- 01-10再谈DOS批处理下格式化日期字符串的三种方法(详解)
- 01-10用批处理一键安装两种扩展名的Windows系统补丁
- 01-10ip地址切换批处理脚本分享
- 01-10批处理杨辉三角效果实现代码
- 01-10Windows下写一个文件备份脚本(专用备份的)
- 01-10将批处理文件注册成服务在系统启动的时候自动调用
- 01-10批处理输出n阶幻方脚本
阅读排行
本栏相关
- 01-10DOS下查看硬盘分区该使用什么命令
- 01-10使用批处理实现软件的自动安装以安
- 01-10后台运行bat定时器程序示例分享
- 01-10通过批处理修改DNS的代码(推荐)
- 01-10dota2服务器ping测试脚本分享
- 01-10再谈DOS批处理下格式化日期字符串的
- 01-10windows使用批处理发布web到tomcat并启动
- 01-10win7怎么设定关闭显示器时间
- 01-10屏蔽up键禁止游戏运行脚本分享
- 01-10win7创建wifi热点脚本分享
随机阅读
- 08-05dedecms(织梦)副栏目数量限制代码修改
- 01-10delphi制作wav文件的方法
- 01-11ajax实现页面的局部加载
- 01-10SublimeText编译C开发环境设置
- 01-10使用C语言求解扑克牌的顺子及n个骰子
- 04-02jquery与jsp,用jquery
- 08-05DEDE织梦data目录下的sessions文件夹有什
- 01-11Mac OSX 打开原生自带读写NTFS功能(图文
- 01-10C#中split用法实例总结
- 08-05织梦dedecms什么时候用栏目交叉功能?