中国DOS联盟论坛

中国DOS联盟

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

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

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » [求助]清风的点阵动画特效代码中的歌曲怎么弄出来的?
作者:
标题: [求助]清风的点阵动画特效代码中的歌曲怎么弄出来的? 上一主题 | 下一主题
tempuser
高级用户





积分 547
发帖 261
注册 2006-4-15
状态 离线
『楼 主』:  [求助]清风的点阵动画特效代码中的歌曲怎么弄出来的?

很想知道代码里面的歌曲怎么弄出来的?代码看得头疼,要是有哪位朋友给大概解释以下就更好了.
@echo off
setlocal enabledelayedexpansion
title 作者 清风                 输出内容  WWW.VERYBAT.CN
set c1=                                                                      
set c2=                                                                                                   
set c3=                                                                                            
set c4=                                                                               
set c5=                                                                                              
set c6=                                                                                        
set c7=                                                                              
color 0a
if exist 2 del /a 2
tasklist | find /i "wmplayer.exe" && taskkill /f /im wmplayer.exe && cls
for %%t in (c d y 09) do (
for /l %%a in (1 1 3000) do (echo.>nul)
)
for /l %%a in (1 1 50) do (
set /a j1=%%a*2-1,j2=%%a*2
cls && echo !j1!%%
cls && echo !j2!%%
set a=!a!^>&& echo !a!
if %%a==1 set s=start /min "" "!ProgramFiles!\Windows Media Player\wmplayer.exe"
if %%a==2 set u="http://www.bgphoto.cn/2006711716022613.wma"
if %%a==3 !s! !u!
for /l %%a in (1 1 300) do (echo.>nul)
set jd2=!jd2!^<
)
set /a j1=0,j2=0
for /l %%a in (50 -1 1) do (
set /a j2=%%a*2,j1=%%a*2-1
cls && echo !j2!%%
cls && echo !j1!%%
echo !jd2:~0,%%a!
for /l %%a in (1 1 300) do (echo.>nul)
)
cls
if not exist wind.exit cd.>wind.exit
mode con cols=122 lines=25
for /l %%t in (1 1 9999) do echo.>nul
set h1=本程序将无限循环运行 如需退出 请删除本目录下 wind.exit
set h2=那么 待当前循环结束后 批处理会自动退出
set h3=同时会删除由此产生的临时文件及终止wmplayer播放器
set h4=建议在运行时 不要强行关闭CMD窗口
set b=./-\
set t=for /l %%a in (1 1 999) do echo.^>nul
for /l %%a in (0 1 32) do (
set /p=!h1:~%%a,1!<nul
set /a windy=0
for %%b in (0f 0b 0c 0e) do (
set /a windx=0,windy+=1
for %%c in (0 1 2 3) do (
set /a windx+=1
if !windx!==!windy! (
color %%b
set /p=!b:~%%c,1!<nul
set /p=<nul
%t%
))))
set /p= <nul
color 0f
for %%n in (09 09) do echo.
for /l %%a in (20 -1 0) do (
cls && echo %h1% && echo.
for /l %%n in (1 1%%a) do set /p= <nul
set /p=!h2:~%%a,20!<nul
for /l %%a in (1 1 1199) do echo.>nul
)
for %%w in (清 风 09) do (
for /l %%t in (1 1 9999) do echo.>nul
)
color 0a
for /l %%a in (21 -1 4) do (
cls
for /l %%n in (%%a -1 1) do echo.
echo !h3! && echo. && echo !h4!
for /l %%a in (1 1 399) do echo.>nul
)
cls && echo !h1! && echo. && echo !h2!
echo.
echo !h3! && echo. && echo !h4!
for /l %%a in (1 1 20099) do echo.>nul
for /l %%y in (5 -1 1) do (
cls
for /l %%a in (1 1 999) do echo.>nul
echo !h1! && echo. && echo !h2!
echo.
echo !h3! && echo. && echo !h4!
echo.
echo %%y
for /l %%a in (1 1 3999) do echo.>nul
)
for %%w in (清 风 09) do (
for /l %%t in (1 1 9999) do echo.>nul
)
for /l %%a in (1 1 10000) do (echo.>nul)
:wind
mode con cols=122 lines=25
if not exist wind.exit (
del /a 2
taskkill /f /im wmplayer.exe
exit
)
color 0b
cls
echo. && echo !c1!
for /l %%t in (1 1 900) do (cd.>nul)
for /l %%n in (2 1 7) do (
cls
for /l %%m in (1 1 %%n) do (echo.)
for /l %%x in (1 1 %%n) do (
echo !c%%x!
)
for /l %%t in (1 1 900) do (cd.>nul)
)
for %%m in (c d y 09) do (
for /l %%c in (1 1 3600) do (echo %%c>nul)
)
if not exist 2 (
(
for /l %%x in (1 1 3) do (
if %%x equ 1 (
for /l %%a in (1 1 7) do (
echo !c%%a:~1,34!
)
)
if %%x equ 2 (
for /l %%b in (1 1 7) do (
for /l %%e in (1 1 33) do (set /p= <nul)
echo !c%%b:~35,69!
)
)
if %%x equ 3 (
for /l %%c in (1 1 7) do (
for /l %%E in (1 1 101) do (set /p= <nul)
echo !c%%c:~104,17!
)
)
)
)>2 && attrib 2 +h
set /a a=0
for /f "delims=" %%a in (2) do (
set /a a+=1
set d!a!=%%a
)
)
cls
color 4a
for %%a in (09 09) do (echo.)
for /l %%a in (1 1 21) do (
echo !d%%a!
for /l %%t in (1 1 200) do (echo.>nul)
)
for %%m in (c d y 09) do (
for /l %%c in (1 1 3600) do (echo %%c>nul)
)
color 9f
for /l %%a in (21 -1 1) do (
cls
set pwa=%%a-1
for /l %%k in (1 1 !pwa!) do (echo.)
for /l %%b in (%%a 1 21) do (echo !d%%b!)
for /l %%t in (1 1 150) do (echo.>nul)
)
for %%l in (09 c d y) do (
for /l %%a in (1 1 3600) do (echo.>nul)
)
color ac
set /a n1=11,m1=12,m2=10
for /l %%z in (1 1 11) do (
cls
for %%a in (09 09) do (echo.)
set /a n1+=-1,n2+=-1,m1+=-1,m2+=1
for /l %%a in (1 1 !n1!) do (echo.)
for /l %%b in (!m1! 1 !m2!) do (echo !d%%b!)
for /l %%c in (1 1 !n1!) do (echo.)
for /l %%t in (1 1 280) do (echo.>nul)
)
for %%i in (c d 09 y) do (
for /l %%i in (1 1 3600) do (echo.>nul)
)
color 07
for /l %%t in (1 1 500) do (echo.>nul)
set /a m1=0,m2=8,n=7
for %%z in (c d y) do (
cls
for /l %%a in (1 1 7) do (echo.)
set /a m1+=1,m2+=-1,n+=-2
for /l %%a in (1 1 !m1!) do (echo !c%%a!)
if not !n! equ 1 (
for /l %%b in (1 1 !n!) do (echo.)
)  else echo !c4!
for /l %%c in (!m2! 1 7) do (echo !c%%c!)
for /l %%t in (1 1 2500) do (echo.>nul)
)
for %%t in (c 清风 d y) do (
for /l %%d in (1 1 3600) do (echo o>nul)
)
color 09
set /a m1=0,m2=22,n=21
for /l %%z in (1 1 10) do (
cls
for %%z in (0 9) do (echo.)
set /a m1+=1,m2+=-1,n+=-2
for /l %%a in (1 1 !m1!) do (echo !d%%a!)
if not !n! equ 1 (
for /l %%b in (1 1 !n!) do (echo.)
)  else echo !d11!
for /l %%c in (!m2! 1 21) do (echo !d%%c!)
for /l %%t in (1 1 350) do (echo.>nul)
)
for /l %%d in (1 1 3) do (
for /l %%o in (1 1 3600) do (echo o>nul)
)
color 9f
set /a k+=1
if !k!==1 (set /a w=1,x=400,y=6000) else (set /a w=2,x=100,y=3000,k=0)
for /l %%a in (120 -20 0) do (
cls
for /l %%i in (1 1 7) do (echo.)
for /l %%m in (1 1 7) do (
for /l %%n in (1 1 %%a) do (set /p= <nul)
echo !c%%m:~%%a,121!
)
for /l %%t in (1 1 3000) do echo.>nul
)
for %%p in (清 风 09 cdy) do (
for /l %%n in (1 1 3600) do (echo x>nul)
)
for %%a in (清 风 0 9) do (
cls
for /l %%a in (1 1 8) do (
if %%a leq 7 (
echo !c%%a!
for /l %%t in (1 1 150) do (echo.>nul)
) else (
for /l %%b in (1 1 17) do (
cls
for /l %%n in (1 1 %%b) do (echo.)
for /l %%c  in (1 1 7) do (echo !c%%c!)
for /l %%t in (1 1 150) do (echo.>nul)
)
)
)
set /a n=17,m=7
for /l %%a in (1 1 7) do (
set /a n+=1,m+=-1
cls
for /l %%b in (1 1 !n!) do (echo.)
for /l %%c in (1 1 !m!) do (echo !c%%c!)
for /l %%t in (1 1 150) do (echo.>nul)
)
)
for %%u in (c d y 清风) do (
for /l %%t in (1 1 3600) do (echo.>nul)
)
for /l %%a in (1 1 121) do (
cls
for /l %%a in (1 1 6) do (echo.)
for /l %%b in (1 1 7) do (
echo !c%%b:~1,%%a!
)
for /l %%t in (1 1 180) do (echo.>nul)
)
for /l %%a in (1 1 7200) do (echo.>nul)
for /l %%a in (120 -1 1) do (
cls
for /l %%a in (1 1 7) do (echo.)
for /l %%b in (1 1 7) do (
echo !c%%b:~%%a,121!
)
for /l %%t in (1 1 80) do (echo.>nul)
)
for %%t in (清风 c d y) do (
for /l %%a in (1 1 3600) do (echo.>nul)
)
cls
for /l %%a in (1 1 10) do (
if %%a leq 3 (
echo !c%%a!
for /l %%t in (1 1 300) do (echo.>nul)
)
if %%a geq 4 if %%a leq 10 (
cls
for /l %%n in (4 1 %%a) do (echo.)
for /l %%m in (1 1 3) do (echo !c%%m!)
for /l %%t in (1 1 300) do (echo.>nul)
)
)
set /a n=13
for /l %%a in (7 -1 5) do (
cls && set /a n+=-1
for /l %%h in (1 1 7) do (echo.)
for /l %%i in (1 1 3) do (echo !c%%i!)
for /l %%b in (1 1 !n!) do (echo.)
for /l %%c in (%%a 1 7) do (echo !c%%c!)
for /l %%t in (1 1 300) do (echo.>nul)
)
for /l %%a in (10 -1 1) do (
cls
for /l %%h in (1 1 7) do (echo.)
for /l %%i in (1 1 3) do (echo !c%%i!)
for /l %%n in (1 1 %%a) do (echo.)
for /l %%c in (5 1 7) do (echo !c%%c!)
for /l %%t in (1 1 300) do (echo.>nul)
)
for /l %%t in (1 1 500) do (echo.>nul)
for /l %%k in (1 1 !w!) do (
for /l %%i in (121 -1 0) do (
cls
for /l %%h in (1 1 7) do (echo.)
for /l %%i in (1 1 3) do (echo !c%%i!)
set /p=!c4:~%%i,121!<nul
echo.
for /l %%u in (5 1 7) do (echo !c%%u!)
for /l %%t in (1 1 !x!) do (echo.>nul)
)
for /l %%o in (1 1 !y!) do (echo.>nul)
)
for /l %%a in (121 -1 1) do (
cls
for /l %%a in (1 1 7) do (echo.)
for /l %%b in (1 1 7) do (
echo !c%%b:~1,%%a!
)
for /l %%t in (1 1 100) do (echo.>nul)
)
color 07
mode con cols=121 lines=25
for /l %%a in (0 1 121) do (
cls
for /l %%n in (1 1 3) do (
echo.
for /l %%b in (1 1 7) do (
set /p wind=!c%%b:~0,%%a!<nul
)
)
for /l %%t in (1 1 240) do (echo.>nul)
)
for %%t in (c d y) do (
for /l %%a in (1 1 3600) do (echo.>nul)
)
for %%a in (清风09) do (
for %%c in (1 2 3 4 5 6 7 8 9 a b c d e f) do (
color 0%%c
for /l %%t in (1 1 800) do (echo.>nul)
)
)
goto wind
───────────────── 版务记录 ─────────────────
执行:HAT
操作:[2008-12-16]在帖子标题中增加搜索关键字;为方便他人查看,删除附件,直接贴代码。
说明:原标题"[求助]以下代码是转摘清风的?"不利于论坛搜索
处罚:扣除2点积分
提示:建议阅读以下帖子
{1415}提问的智慧
{7326}论坛新手必读,所有人的基本行为准则
{22703}请不要做浮躁的人
{32667}[愤怒]那些连标题都写不清楚的人们啊,你们醒醒吧
{32825}本版严厉整顿烂帖
───────────────── 版务记录 ─────────────────


[ Last edited by HAT on 2008-12-16 at 18:12 ]

   此帖被 -2 点积分    点击查看详情   
评分人:【 HAT 分数: -2  时间:2008-12-16 18:12


2008-12-16 17:43
查看资料  发短消息 网志   编辑帖子  回复  引用回复
slore
铂金会员





积分 5212
发帖 2478
注册 2007-2-8
状态 离线
『第 2 楼』:  

start /min "" "%ProgramFiles%\Windows Media Player\wmplayer.exe" "http://www.bgphoto.cn/2006711716022613.wma"



S smile 微笑,L love 爱,O optimism 乐观,R relax 放松,E enthusiasm 热情...Slore
2008-12-16 18:03
查看资料  发短消息 网志   编辑帖子  回复  引用回复
ZJHJ
高级用户





积分 609
发帖 374
注册 2006-8-2
状态 离线
『第 3 楼』:  

动画特效代码跟歌曲没有关系,你好好看看就知道了

2008-12-16 22:27
查看资料  发短消息 网志   编辑帖子  回复  引用回复

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


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



论坛跳转: