中国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
mode con cols=60 lines=30
for /l %%a in (1,1,60) do (set space= !space!)
set /a line=14,col=29
:loop
set /a linenext=%random%%%30
set /a colnext=%random%%%60
for %%a in (line col) do (
   if !%%a! lss !%%anext! (set %%aadd=+) else (set %%aadd=-)
)
   :loop-1
    if %line% neq %linenext% (
        set /a line%lineadd%=1
    ) else (
        set /a col%coladd%=1
    )
    cls
    for /l %%a in (1,1,%line%) do echo,
    echo,!space:~0,%col%!*
    for /l %%a in (1,1,200) do (echo,>nul)
   if %col% neq %colnext% (goto :loop-1)
goto :loop
----------------------类似贪食蛇
@echo off
title made by 523066680
setlocal enabledelayedexpansion
mode con cols=61 lines=31
for /l %%a in (1,1,60) do (set space= !space!)
for /l %%a in (1,1,30) do (set L%%a=%space%)
set /a line=15,col=29,i=0
:loop
set /a linenext=%random%%%30+1,colnext=%random%%%60
for %%a in (line col) do (
   if !%%a! lss !%%anext! (set %%aadd=+) else (set %%aadd=-)
)
   :loop-1
       if %i% lss 20 (set /a i+=1) else (set i=1)
       if defined cut%i% (
               !cut%i%:"=!
               set "L%a%=!L%a%:~0,%b%! !L%a%:~%c%!"
       )
    set /a C2=col+1
    set "L%line%=!L%line%:~0,%col%!*!L%line%:~%C2%!"
    set cut%i%="set /a a=%line%,b=%col%,c=%C2%"
    cls
    for /l %%a in (1,1,30) do echo,!L%%a!
    for /l %%a in (1,1,300) do (echo,>nul)
    if %line% neq %linenext% (
        set /a line%lineadd%=1
    ) else (
        set /a col%coladd%=1
    )
   if %col% neq %colnext% (goto :loop-1)
goto :loop
[ Last edited by 523066680 on 2008-10-1 at 08:38 ]

   此帖被 +21 点积分       点击查看详情   
评分人:【 BC 分数: +1  时间:2008-9-21 09:09
评分人:【 pusofalse 分数: +7  时间:2008-9-21 09:21
评分人:【 zqz0012005 分数: +3  时间:2008-9-28 23:21
评分人:【 radem 分数: +2  时间:2008-9-30 21:16
评分人:【 netbenton 分数: +8  时间:2009-5-7 09:11




综合型编程论坛

我的作品索引
  
2008-9-21 09:06
查看资料  发送邮件  访问主页  发短消息 网志  OICQ (523066680)  编辑帖子  回复  引用回复
BC
中级用户




积分 338
发帖 175
注册 2007-10-21
状态 离线
『第 2 楼』:  

exist一来就搞个那么强大的动画...支持!



C:\
C:\Del BC
2008-9-21 09:09
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
ygrzzz
初级用户





积分 62
发帖 24
注册 2008-9-17
状态 离线
『第 3 楼』:  

cmd窗口里即使是做一个小的特效,cpu就100%
这恐怕是cmd最让高手失望的地方,不然一定会看到更多精彩的东西~

2008-9-28 22:25
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
523066680
银牌会员

SuperCleaner


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

1楼帖子代码已经更新



综合型编程论坛

我的作品索引
  
2008-9-30 09:07
查看资料  发送邮件  访问主页  发短消息 网志  OICQ (523066680)  编辑帖子  回复  引用回复
ygrzzz
初级用户





积分 62
发帖 24
注册 2008-9-17
状态 离线
『第 5 楼』:  

这段代码确实精彩,楼主还是做些文字特效出来就更吸引眼球了
实用性欠够啊~~~

2008-10-1 00:27
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
523066680
银牌会员

SuperCleaner


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

阁下可知道我学批处理就是冲着特效来的
我学批处理完全是凭着我喜欢前辈们做的特效  自己也希望有原创。


关于实用性,论坛实用性的代码已经好多了,我想不到什么创新的东东
出来 所以 就选择在特效类发展咯

[ Last edited by 523066680 on 2008-10-1 at 08:06 ]



综合型编程论坛

我的作品索引
  
2008-10-1 08:05
查看资料  发送邮件  访问主页  发短消息 网志  OICQ (523066680)  编辑帖子  回复  引用回复
wxcute
中级用户





积分 458
发帖 211
注册 2006-7-26
状态 离线
『第 7 楼』:  

从特效发展至游戏可是很不错呢,而且也是变得实用了。

科学不是也能把没用的把戏变成厉害的武器吗?

你太厉害了。

   此帖被 +5 点积分      点击查看详情   
评分人:【 523066680 分数: +5  时间:2008-10-12 10:12




┌───────┐
├→学习→实践→┤
└───────┘
2008-10-1 16:27
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
523066680
银牌会员

SuperCleaner


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

严重感谢wxcute的支持!



综合型编程论坛

我的作品索引
  
2008-10-12 10:12
查看资料  发送邮件  访问主页  发短消息 网志  OICQ (523066680)  编辑帖子  回复  引用回复

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


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



论坛跳转: