Board logo

标题: [游戏娱乐] 批处理版游动的幽灵 [打印本页]

作者: 523066680    时间: 2010-1-26 21:20     标题: 批处理版游动的幽灵

依然很害怕这样的东东会被排斥啊,我是冒着风险来的
我也不想搞这些的,但是看到有人发了一个"搞笑"代码:
if exist 美女 (a) else (强X)  之后,(很气愤if exist 跟 强X 放在一起了……)
另外感觉今年末没做啥东西,该做点了,先写了一个。

不是搞笑的,是恶搞的:
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. title  幽灵:我在批处理之家待很久了,你没发现吗?
  4. rem Author: if_exist / 523066680
  5. for /l %%a in (1,1,80) do (set spc= !spc!)
  6. set /a x=1,tmpy=-10
  7. set /a xadd=1,yadd=1,xaddadd=1
  8. :a
  9.   cls
  10.   for /l %%a in (1,1,%y%) do (echo,)
  11.   echo,!spc:~0,%x%!*
  12.   set /a i=0,x+=xadd,tmpy+=yadd,y=tmpy+10,xadd+=xaddadd
  13.   if %xadd:-=% gtr 7 (set /a xaddadd=-xaddadd)
  14.   if %tmpy:-=% gtr 10 (set /a yadd=-yadd)
  15.   ping -n 1 127.0.0.1>nul
  16. goto :a
复制代码

作者: 523066680    时间: 2010-1-26 22:31     标题: 被我做成傲翔的“虫虫”了

  1. @echo off
  2. setlocal enabledelayedexpansion
  3. title  幽灵:我在批处理之家待很久了,你没发现吗?
  4. rem Author: if_exist / 523066680
  5. for /l %%a in (1,1,79) do (set spc= !spc!)
  6. for /l %%a in (1,1,21) do (set line%%a=%spc%)
  7. set /a x=1,tmpy=-10,xb=x+1,a=1
  8. set /a xadd=1,yadd=1,xaddadd=1
  9. :a
  10. if defined do[%a%] (!do[%a%]!)
  11. if defined do[%a%] (
  12.     set line%cuty%=!line%cuty%:~0,%cutx%! !line%cuty%:~%cutxb%!
  13. )
  14. set line%y%=!line%y%:~0,%x%!*!line%y%:~%xb%!
  15. cls
  16. for /l %%a in (1,1,21) do (echo,!line%%a!)
  17. set /a i=0,x+=xadd,tmpy+=yadd,y=tmpy+10,xadd+=xaddadd,xb=x+1
  18. set "do[%a%]=set /a cutx=%x%,cuty=%y%,cutxb=%xb%"
  19. if %a% leq 9 (set /a a+=1) else (set /a a=1)
  20. if %xadd:-=% gtr 7 (set /a xaddadd=-xaddadd)
  21. if %tmpy:-=% gtr 10 (set /a yadd=-yadd)
  22. ping -n 1 127.0.0.1>nul
  23. goto :a
  24. pause
复制代码

作者: PakTC    时间: 2010-1-27 09:47

没人鸟,自己鸟  --paktc
作者: netbenton    时间: 2010-1-27 18:37

有点意思,我顶你!
明年我要做个“雷电”,看看到时雷不雷死一些人
作者: sxw    时间: 2010-3-7 21:33

很好!的帖子!顶起!!!
作者: divilis    时间: 2010-5-9 21:14

太有才了...天才的构思...学习了..
作者: hackerlong    时间: 2010-6-15 13:12

这个构思不错!来个全屏把那个点换成幽灵的图像就更漂亮了貌似难度很大就是!
作者: pgfj18    时间: 2010-7-27 17:51

赞一个,真的很不错~!!~
作者: raymai97    时间: 2011-8-18 09:42

回复 2# 523066680


    加料了~ 呵呵~
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. title  幽灵:我在批处理之家待很久了,你没发现吗?
  4. rem Author: if_exist / 523066680
  5. for /l %%a in (1,1,79) do (set spc= !spc!)
  6. for /l %%a in (1,1,21) do (set line%%a=%spc%)
  7. set /a x=1,tmpy=-10,xb=x+1,a=1
  8. set /a xadd=1,yadd=1,xaddadd=1
  9. set /a num=0
  10. :a
  11. if defined do[%a%] (!do[%a%]!)
  12. if defined do[%a%] (
  13.     set line%cuty%=!line%cuty%:~0,%cutx%! !line%cuty%:~%cutxb%!
  14. )
  15. set line%y%=!line%y%:~0,%x%!*!line%y%:~%xb%!
  16. cls
  17. for /l %%a in (1,1,21) do (echo,!line%%a!)
  18. set /a i=0,x+=xadd,tmpy+=yadd,y=tmpy+10,xadd+=xaddadd,xb=x+1
  19. set "do[%a%]=set /a cutx=%x%,cuty=%y%,cutxb=%xb%"
  20. if %a% leq 9 (set /a a+=1) else (set /a a=1)
  21. if %xadd:-=% gtr 7 (set /a xaddadd=-xaddadd)
  22. if %tmpy:-=% gtr 10 (set /a yadd=-yadd)
  23. sleep 50
  24. set /a num+=1
  25. if "%num%"=="1" color 07
  26. if "%num%"=="2" color 09
  27. if "%num%"=="3" color 0a
  28. if "%num%"=="4" color 0b
  29. if "%num%"=="5" color 0c
  30. if "%num%"=="6" color 0d
  31. if "%num%"=="7" color 0e
  32. if "%num%"=="8" color 0f&set num=0
  33. goto a
复制代码

作者: garyng    时间: 2011-8-29 13:25

本帖最后由 garyng 于 2011-8-29 13:28 编辑

第二楼帅!
楼上的也不赖~




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