[游戏娱乐] 批处理无聊之作：弹珠

随风

无聊之作２、弹珠

• @echo off&setlocal enabledelayedexpansion
  
• mode con: cols=81 lines=30&color 1f
  
• :: code by 随风@bbs.bathome.net 2008/01/03
  
• :loop
  
• for /l %%a in (1 1 40) do (
  
•   if defined sang (
  
•   cls&set /a di-=1
  
•   for /l %%i in (1 1 !di!) do echo.
  
• ) else (echo.&set /a di+=1)
  
•   if defined zuo (set ko=!ko:~1!) else set ko=　!ko!
  
•   set /p=!ko!●<nul
  
•   for /l %%i in (1 1 80) do ver>nul
  
•   set /p=  <nul
  
•   if not "!ko:~38,1!"=="" set zuo=ok
  
•   if "!ko!"=="" set zuo=&set "ko=　"
  
•   if !di! lss 0 set sang=&goto loop
  
•   if !di! geq 29 set sang=ok&goto loop
  
• )
  

     随风 发表于：  2008-07-16  01:07

cjw00529017

我五体投地

QIAOXINGXING

牛啊。。。。。。。。。。。。。

garyng

14楼的效果超帅！

mercyboy

小生实在佩服………………

zljzsmzzx

真是让我大开眼界了。。

PakTC

珠联璧合的  强悍，顶

keen

我用十六进制编辑器看了，是A1，我查看ASCII表，没有这个值。

Batcher

用UltraEdit之类的十六进制编辑器打开看看，在查一下ASCII码对照表就知道了。

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
)
复制代码

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

keen

回复1楼
请问随风斑竹,下面这句
if defined zuo (set ko=!ko:~1!) else set ko=　!ko!
中的ko=   !ko!等号后面的是空格吗?一个空格还是两个,还是TAB?我觉得怎么都不是,但又不知是什么
请赐教!

523066680

来参与啦。

@echo off &setlocal enabledelayedexpansion
color 17 &mode con cols=60 lines=30
for /l %%a in (1,1,60) do (set space= !space!)
set /a La=14,Lb=28,Ca=29,Cb=56,r=1,r2=2
:loop
 if %La% lss 28 (set /a La+=r2,line=La) else (set /a Lb-=r2,line=Lb)
 if %Lb% leq 1 (set /a La=-1,Lb=29,r=%random%%%3+2,r2=r%%2+1)
 
 if %Ca% lss 55 (set /a Ca+=r,col=Ca) else (set /a Cb-=r,col=Cb)
 if %Cb% leq 4 (set /a Ca=0,Cb=56,r=%random%%%3+1)
    cls
    for /l %%a in (1,1,%line%) do echo,
    echo,!space:~0,%col%!●
    ping -n 1 127.1>nul
goto :loop
复制代码

cbw1982

啥也不说了，真的很佩服

碧海蓝天

真好玩，漂亮极了！楼主真厉害！

骚鸡

斑竹~你的这个调皮的文字可以不可以让文字运动的速度变快点啊？
可以的话告诉我一下方法好吗？（半天才跳完一个字```）