Board logo

标题: [游戏娱乐] 批处理无聊之作:弹珠 [打印本页]

作者: 随风    时间: 2008-1-3 19:14     标题: 批处理无聊之作:弹珠

无聊之作2、弹珠
     随风 发表于:  2008-07-16  01:07


作者: youxi01    时间: 2008-1-3 22:01

效果非常不错,狂加分!哈哈

不过,这里提点建议,有关版权说明的:
::   作者:随风 出至:bbs.bathome.net    2008/01/03
可不可以统一都弄成这样呢?
:: code by 随风@bbs.bathome.net 2008/01/03
作者: Frank    时间: 2008-1-5 15:49

呀,效果相当好..  强.
作者: wuditom100    时间: 2008-1-5 21:52

好玩啊!!!太强了
作者: coffechicken    时间: 2008-4-30 08:06

好东西...下下来学习..
作者: 骚鸡    时间: 2008-7-13 18:12

非常不错~!牛啊,可以不可以教教我啊?
斑竹。。。
作者: batman    时间: 2008-7-14 12:40     标题: 我也无聊:

与随风的区别在于,我的不是固定轨迹:
  1. @echo off&mode con cols=60 lines=20
  2. setlocal enabledelayedexpansion
  3. title 调皮的汉字-zw19750516
  4. set code=23456789abcdef我是调皮的汉字&set "b= "
  5. set code1=%code:~14%&set d=-1
  6. :begin
  7. set n=0&set m=0&set x=+
  8. set /a lm=%random%%%59,lr=%random%%%2,c=%random%%%14,d+=1
  9. if %d% equ 7 set d=0
  10. set a=!code1:~%d%,1!&set c=!code:~%c%,1!
  11. color 0%c%
  12. if %lm% equ 0 (
  13.    set z=+
  14.    ) else (
  15.    if %lm% equ 57 (
  16.       set z=-
  17.       ) else (
  18.       if %lr% equ 0 (
  19.          set z=-
  20.          ) else (
  21.          set z=+
  22. )))
  23. :contin
  24. cls&for /l %%i in (1,1,%n%) do echo.
  25. set "kong="
  26. set /a n%x%=1,lm%z%=1,m+=1
  27. if %n% equ 0 if %m% geq 100 goto begin
  28. if %lm% equ 0 set z=+
  29. if %lm% equ 57 set z=-
  30. for /l %%i in (1,1,%lm%) do set kong=!kong!%b%
  31. set str=%kong%%a%
  32. if %n% equ 20 set x=-&goto contin
  33. if %n% equ 0 set x=+&goto contin
  34. echo %str%&ping /n 127.1>nul
  35. goto contin
复制代码

作者: foxJL    时间: 2008-7-19 01:53

随风兄的也不是固定轨迹呵~!
作者: 骚鸡    时间: 2008-7-19 14:01     标题: 回复 7楼 的帖子

斑竹~你的这个调皮的文字可以不可以让文字运动的速度变快点啊?
可以的话告诉我一下方法好吗?(半天才跳完一个字```)
作者: 碧海蓝天    时间: 2008-7-30 00:29

真好玩,漂亮极了!楼主真厉害!
作者: cbw1982    时间: 2009-1-31 22:41

啥也不说了,真的很佩服
作者: 523066680    时间: 2009-5-9 15:56

来参与啦。
  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
复制代码

作者: keen    时间: 2009-5-31 21:03

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

来个“珠联璧合”,“群珠乱舞”,多个珠同时弹跳。。。
  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 编辑 ]
作者: Batcher    时间: 2009-6-1 00:11     标题: 回复 13楼 的帖子

用UltraEdit之类的十六进制编辑器打开看看,在查一下ASCII码对照表就知道了。
作者: keen    时间: 2009-6-1 09:28     标题: 回复 15楼 的帖子

我用十六进制编辑器看了,是A1,我查看ASCII表,没有这个值。
作者: PakTC    时间: 2009-6-8 14:05

珠联璧合的  强悍,顶
作者: zljzsmzzx    时间: 2009-6-10 13:15

真是让我大开眼界了。。
作者: mercyboy    时间: 2009-11-8 13:45

小生实在佩服………………
作者: garyng    时间: 2011-9-1 21:05

14楼的效果超帅!
作者: QIAOXINGXING    时间: 2011-9-16 17:58

牛啊。。。。。。。。。。。。。
作者: cjw00529017    时间: 2013-9-18 21:15

我五体投地




欢迎光临 批处理之家 (http://bathome.net./) Powered by Discuz! 7.2