[游戏娱乐] 批处理走字特效

foxJL

刚完成的特效
代码肯定还存在BUG,先发上来给大家测试.

@echo off&setlocal enabledelayedexpansion
mode con: cols=87 lines=15
title code by foxjl  2007-12-1  bbs.bathome.net
color 1a
set long=43,minus=43
set,=^
我们，是一群执著的批处理爱好者^
在色彩斑斓的ＷＩＮＤＯＷＳ下，开启ＣＭＤ这扇深邃的窗口^
曾经挑灯夜战，曾经彻夜不眠^
我们之所以如此似痴若狂，是因为我们深知：^
尺有所短、寸有所长，ＣＭＤ不同凡响^
我们精益求精，力求完美^
所有的努力，只为了用最简洁的语言，编写最具实用性的代码^
批处理之家ＢＢＳ．ＢＡＴＨＯＭＥ．ＣＮ^
高手汇聚、资料齐全、是新手入门的福地、老手晋级的乐园^
不求最大、但求最好、展现批处理的无穷魅力、一切精彩，尽在～～批处理之家～～                                  演示完毕。再见！！
: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
复制代码

Tamce

回复 2# 随风


应该就是转义回车符没错了....这样变量中会存储回车'\n'吗？

试了一下，在cmd中使用:echo abc^按下回车会提示more?
而且输出的字符没有回车，所以变量中不存在'\n'

狱渊

回复 1# foxJL


    你们都好厉害啊

931805085

好东西，回家研究研究

ggehuliang

set long=43,minus=43
弱智问一下，这个是设什么？

ydafhjeajtrj

楼主啊，为什么要把内容保存到逗号里呢，这只会给菜鸟们的理解增加难度啊

jdshaw

还算比较简单!实现方法也很多,

JooKin

回复 33# Batcher


    非常感谢Batcher，关于这个问题我发帖求助了可惜没人愿意指点一二，哪怕指条明路也行啊我自己去看，现在好了再次感谢，从您回帖的风格我猜您是联盟的HAT吧^=^仰望～～！

Batcher

回复 32# JooKin


来自批处理点阵的疑问
http://bbs.bathome.net/thread-1306-3-1.html

批处理利用点阵制作小动画示例
http://bbs.bathome.net/thread-1889-1-1.html

批处理写大字效果新年贺卡
http://bbs.bathome.net/thread-2925-1-1.html

批处理写大字特效编辑器
http://bbs.bathome.net/thread-2926-1-1.html

批处理点阵编码生成、解释器穿插式被动叠加技术
http://bbs.bathome.net/thread-5168-1-1.html

点阵生成、解释器批处理版
http://bbs.bathome.net/thread-5182-1-1.html

纯批处理版汉字转点阵
http://bbs.bathome.net/thread-6385-1-1.html

JooKin

请问这些数字：

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 (
……
)
复制代码

有什么作用？

garyng

看到这个记得Javascript可以实现的：“走马灯”

wsjxwj

两位版主的代码收藏了，再次学习了转义符“^”的又一功能了。

lincc0519

我用以上方法做了一个bat

最好在cmd下用call调用

ozz

批处理3字怎么换成别的 挺好玩的

717879873

不错啊，顶了。