@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
)[ Last edited by netbenton on 2009-6-1 at 09:52 ]
本帖最近评分记录
（共 4 条）
点击查看详情
| 评分人 | 分数 | 时间 |
|---|---|---|
| zh159 | +20 | 2009-06-01 13:59 |
| Hanyeguxing | +2 | 2009-06-22 01:12 |
| chenall | +15 | 2009-06-24 04:03 |
| moniuming | +15 | 2009-06-24 08:36 |
网志
