中国DOS联盟

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

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

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [动画特效]多个弹珠同时跳动

netbenton
银牌会员

批处理编程迷

积分 1916
发帖 752
注册 2008-12-28
来自广西
状态离线

『楼主』: [动画特效]多个弹珠同时跳动

@echo off&setlocal enabledelayedexpansion

mode con: cols=81 lines=30&color 1f

for /l %%i in (1 1 39) do set "spa=  !spa!"

::在这个变量定义弹珠个数

set curs=a1 a2 a3 a4 a5 a6 a7

::随机定位

for %%a in (%curs%) do (

        set /a %%as=1,%%ah=1

        set /a %%av=!random!%%40*2,%%ai=!random!%%30

)

:loop

(

for %%a in (%curs%) do (

        set/a %%ai+=%%as,%%av+=%%ah,#v=%%av+2

        for /f "tokens=1,2,3" %%b in ("!%%av! !#v! ec!%%ai!") do (

                if defined %%d (set ec!%%ai!=!%%d:~,%%b!●!%%d:~%%c!) else (set ec!%%ai!=!spa:~,%%b!●!spa:~%%c!)

        )

)

cls&for /l %%i in (0 1 28) do echo;!ec%%i!

set/p=!ec29!<nul

for %%a in (%curs%) do (

  set ec!%%ai!=

  if !%%av! geq 78 set %%ah=-2

  if !%%av! leq 0 set %%ah=2

  if !%%ai! leq 0 set %%as=1

  if !%%ai! geq 29 set %%as=-1

)

for /l %%i in (1 1 120) do ver>nul

goto :loop

)