netbenton

来个“珠联璧合”，“群珠乱舞”，多个珠同时弹跳。。。

 
@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
)COPY

[ 本帖最后由 netbenton 于 2009-6-1 22:49 编辑 ]