中国DOS联盟论坛

中国DOS联盟

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

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

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » [动画]一路小跑,第一集,跳!
作者:
标题: [动画]一路小跑,第一集,跳! 上一主题 | 下一主题
523066680
银牌会员

SuperCleaner


积分 2362
发帖 1133
注册 2008-2-2
状态 离线
『楼 主』:  [动画]一路小跑,第一集,跳!


@echo off
setlocal enabledelayedexpansion
set fu= ^/ ^\
set "kong=                                                                            "
set "kong2=____________________________________________________________________________"
set /a a=0,b=0,e=2,tiao=0
:a
set /a b+=1,c=30-%b%+%e%
cls
for /l %%a in (1,1,7) do echo,
echo,!kong:~0,%b%!_ @
echo,!kong:~0,%b%! ^/
echo,!kong2:~0,%b%!!fu:~%a%,2!!kong2:~0,%c%!
ping -n>nul
if %a% equ 4 (set /a a=0) else (set /a a+=1)
if %a% leq 2 (set e=2)
if %a% equ 3 (set e=3)
if %a% equ 4 (set e=4)
if not %b% equ 30 goto :a else goto :b
set /a b=30,j=0,k=6
:b
if not %j% equ 6 (set /a j+=1,tiao=%j%) else (set /a k-=1,tiao=%k%)
set /a b+=1,up=6-%tiao%
cls
for /l %%a in (1,1,%up%) do echo,
echo,!kong:~0,%b%!_ @/
echo,!kong:~0,%b%! ^/
echo,!kong:~0,%b%!!/^>
for /l %%a in (1,1,%tiao%) do echo,
echo,!kong2:~0,30!
ping -n>nul&ping -n>nul
if %a% equ 4 (set /a a=0) else (set /a a+=1)
if %k%==0 (goto :c) else (goto :b)

:c
if not %tiao% equ 10 set /a tiao+=1
if not %b% equ 60 set /a b+=1
cls
for /l %%a in (1,1,9) do echo,
echo,!kong2:~0,30!
for /l %%a in (1,1,%tiao%) do echo,
if %tiao% equ 10 echo,!kong:~0,%b%!嘿嘿,老子跳过来了
echo,!kong:~0,%b%!_ @
echo,!kong:~0,%b%! ^/
echo,!kong:~0,%b%!!fu:~%a%,2!
if %tiao% lss 10 (ping -n>nul&ping -n>nul&ping -n>nul) else (ping -n>nul)
if %a% equ 4 (set /a a=0) else (set /a a+=1)
goto :c
[ Last edited by 523066680 on 2008-8-2 at 06:22 PM ]

   此帖被 +12 点积分      点击查看详情   
评分人:【 bat-zw 分数: +4  时间:2008-8-2 09:35
评分人:【 obsolete 分数: +2  时间:2008-8-2 11:28
评分人:【 pusofalse 分数: +5  时间:2008-8-2 12:44
评分人:【 zhoumeng 分数: +1  时间:2008-8-3 20:17




综合型编程论坛

我的作品索引
  
2008-8-2 09:24
查看资料  发送邮件  访问主页  发短消息 网志  OICQ (523066680)  编辑帖子  回复  引用回复
bat-zw
金牌会员

永远的学习者


积分 3105
发帖 1276
注册 2008-3-8
状态 离线
『第 2 楼』:  

有创新,鼓励加分!
还要完善一下就是的。。。



批处理之家新域名:www.bathome.net
2008-8-2 09:34
查看资料  发送邮件  发短消息 网志  OICQ (841615149)  编辑帖子  回复  引用回复
huahua0919
银牌会员




积分 1608
发帖 780
注册 2007-10-7
状态 离线
『第 3 楼』:  

不错啊,就是到最后怎么腿跑掉了, 人的上半身还悬在空中

2008-8-2 10:44
查看资料  发送邮件  访问主页  发短消息 网志   编辑帖子  回复  引用回复
obsolete
初级用户





积分 192
发帖 72
注册 2005-7-31
状态 离线
『第 4 楼』:  

最好来个跳水版的,翻身,转体,落水,水花。。。

2008-8-2 11:29
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
523066680
银牌会员

SuperCleaner


积分 2362
发帖 1133
注册 2008-2-2
状态 离线
『第 5 楼』:  

哈  很希望集齐各路高手,做奥运会动画集,祝贺奥运。
不过……遥远了一点



综合型编程论坛

我的作品索引
  
2008-8-2 11:40
查看资料  发送邮件  访问主页  发短消息 网志  OICQ (523066680)  编辑帖子  回复  引用回复
pusofalse
银牌会员




积分 1604
发帖 646
注册 2008-4-13
状态 离线
『第 6 楼』:  

支持!多出佳作!~



心绪平和,眼藏静谧,无比安稳的火... Purification of soul...Just a false...^_^
2008-8-2 12:45
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
luowei14
初级用户




积分 193
发帖 98
注册 2007-1-17
状态 离线
『第 7 楼』:  

呵呵。。。有意思。。



这家伙很聪明 什么都没留下
2008-8-2 21:53
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
fs2018
初级用户





积分 21
发帖 7
注册 2007-10-3
状态 离线
『第 8 楼』:  

不错,学习了

2008-8-3 11:38
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复

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


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



论坛跳转: