[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

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

无聊之作2、弹珠

  • @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

5

评分人数

技术问题请到论坛发帖求助!

我五体投地

TOP

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

TOP

14楼的效果超帅!

TOP

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

TOP

真是让我大开眼界了。。

TOP

珠联璧合的  强悍,顶
Press Any Key To Continue...

TOP

回复 15楼 的帖子

我用十六进制编辑器看了,是A1,我查看ASCII表,没有这个值。
(*^_^*)

TOP

回复 13楼 的帖子

用UltraEdit之类的十六进制编辑器打开看看,在查一下ASCII码对照表就知道了。
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

来个“珠联璧合”,“群珠乱舞”,多个珠同时弹跳。。。
  1. @echo off&setlocal enabledelayedexpansion
  2. mode con: cols=81 lines=30&color 1f
  3. for /l %%i in (1 1 39) do set "spa=  !spa!"
  4. ::在这个变量定义弹珠个数
  5. set curs=a1 a2 a3 a4 a5 a6 a7
  6. ::随机定位
  7. for %%a in (%curs%) do (
  8. set /a %%as=1,%%ah=1
  9. set /a %%av=!random!%%40*2,%%ai=!random!%%30
  10. )
  11. :loop
  12. (
  13. for %%a in (%curs%) do (
  14. set/a %%ai+=%%as,%%av+=%%ah,#v=%%av+2
  15. for /f "tokens=1,2,3" %%b in ("!%%av! !#v! ec!%%ai!") do (
  16.   if defined %%d (set ec!%%ai!=!%%d:~,%%b!●!%%d:~%%c!) else (set ec!%%ai!=!spa:~,%%b!●!spa:~%%c!)
  17. )
  18. )
  19. cls&for /l %%i in (0 1 28) do echo;!ec%%i!
  20. set/p=!ec29!<nul
  21. for %%a in (%curs%) do (
  22.   set ec!%%ai!=
  23.   if !%%av! geq 78 set %%ah=-2
  24.   if !%%av! leq 0 set %%ah=2
  25.   if !%%ai! leq 0 set %%as=1
  26.   if !%%ai! geq 29 set %%as=-1
  27. )
  28. for /l %%i in (1 1 120) do ver>nul
  29. goto :loop
  30. )
复制代码

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

评分人数

    • foxJL: 太棒了技术 + 1
    • Taurus: 如果彈跳速度不同就更漂亮了...PB + 5
    • 523066680: 恐怖……PB + 10 技术 + 1

TOP

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

TOP

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

TOP

啥也不说了,真的很佩服

TOP

真好玩,漂亮极了!楼主真厉害!

TOP

回复 7楼 的帖子

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

TOP

返回列表