中国DOS联盟

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

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

中国DOS联盟论坛
现在时间是 2026-06-15 15:17
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » 空间随机游动粒子+贪吃蛇初版 查看 2,108 回复 7
楼 主 空间随机游动粒子+贪吃蛇初版 发表于 2008-09-21 09:06 ·  中国 广东 揭阳 电信
银牌会员
★★★★
SuperCleaner
积分 2,362
发帖 1,133
注册 2008-02-02 21:36
UID 110072
性别 男
状态 离线
-----------------------空间随机游动粒子----------------------------
@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 ]
本帖最近评分记录 (共 5 条) 点击查看详情
评分人分数时间
BC +1 2008-09-21 09:09
pusofalse +7 2008-09-21 09:21
zqz0012005 +3 2008-09-28 23:21
radem +2 2008-09-30 21:16
netbenton +8 2009-05-07 09:11
2 发表于 2008-09-21 09:09 ·  中国 广东 江门 电信
中级用户
★★
积分 338
发帖 175
注册 2007-10-21 15:30
UID 100351
性别 男
状态 离线
exist一来就搞个那么强大的动画...支持!
3 发表于 2008-09-28 22:25 ·  中国 浙江 宁波 慈溪市 电信
初级用户
积分 62
发帖 24
注册 2008-09-17 19:59
UID 125888
性别 男
状态 离线
cmd窗口里即使是做一个小的特效,cpu就100%
这恐怕是cmd最让高手失望的地方,不然一定会看到更多精彩的东西~
4 发表于 2008-09-30 09:07 ·  中国 广东 揭阳 电信
银牌会员
★★★★
SuperCleaner
积分 2,362
发帖 1,133
注册 2008-02-02 21:36
UID 110072
性别 男
状态 离线
1楼帖子代码已经更新
5 发表于 2008-10-01 00:27 ·  中国 浙江 宁波 慈溪市 电信
初级用户
积分 62
发帖 24
注册 2008-09-17 19:59
UID 125888
性别 男
状态 离线
这段代码确实精彩,楼主还是做些文字特效出来就更吸引眼球了
实用性欠够啊~~~
6 发表于 2008-10-01 08:05 ·  中国 广东 揭阳 电信
银牌会员
★★★★
SuperCleaner
积分 2,362
发帖 1,133
注册 2008-02-02 21:36
UID 110072
性别 男
状态 离线
阁下可知道我学批处理就是冲着特效来的
我学批处理完全是凭着我喜欢前辈们做的特效 自己也希望有原创。


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

[ Last edited by 523066680 on 2008-10-1 at 08:06 ]
7 发表于 2008-10-01 16:27 ·  中国 福建 三明 电信
中级用户
★★
积分 458
发帖 211
注册 2006-07-26 19:42
UID 59307
状态 离线
从特效发展至游戏可是很不错呢,而且也是变得实用了。

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

你太厉害了。
本帖最近评分记录 (共 1 条) 点击查看详情
评分人分数时间
523066680 +5 2008-10-12 10:12
┌───────┐
├→学习→实践→┤
└───────┘
8 发表于 2008-10-12 10:12 ·  中国 广东 揭阳 电信
银牌会员
★★★★
SuperCleaner
积分 2,362
发帖 1,133
注册 2008-02-02 21:36
UID 110072
性别 男
状态 离线
严重感谢wxcute的支持!
论坛跳转: