批处理版游动的幽灵

523066680

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

不是搞笑的，是恶搞的：

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

复制代码

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. 
   
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. ping -n 1 127.0.0.1>nul
    
24. goto :a
    
25. pause

复制代码

PakTC

没人鸟，自己鸟  --paktc

netbenton

有点意思，我顶你！
明年我要做个“雷电”，看看到时雷不雷死一些人

sxw

很好！的帖子！顶起！！！

divilis

太有才了...天才的构思...学习了..

hackerlong

这个构思不错！来个全屏把那个点换成幽灵的图像就更漂亮了貌似难度很大就是！

pgfj18

赞一个，真的很不错~！！~

raymai97

回复 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. 
    
11. :a
    
12. if defined do[%a%] (!do[%a%]!)
    
13. if defined do[%a%] (
    
14.     set line%cuty%=!line%cuty%:~0,%cutx%! !line%cuty%:~%cutxb%!
    
15. )
    
16. set line%y%=!line%y%:~0,%x%!*!line%y%:~%xb%!
    
17. cls
    
18. for /l %%a in (1,1,21) do (echo,!line%%a!)
    
19. set /a i=0,x+=xadd,tmpy+=yadd,y=tmpy+10,xadd+=xaddadd,xb=x+1
    
20. set "do[%a%]=set /a cutx=%x%,cuty=%y%,cutxb=%xb%"
    
21. if %a% leq 9 (set /a a+=1) else (set /a a=1)
    
22. if %xadd:-=% gtr 7 (set /a xaddadd=-xaddadd)
    
23. if %tmpy:-=% gtr 10 (set /a yadd=-yadd)
    
24. sleep 50
    
25. set /a num+=1
    
26. if "%num%"=="1" color 07
    
27. if "%num%"=="2" color 09
    
28. if "%num%"=="3" color 0a
    
29. if "%num%"=="4" color 0b
    
30. if "%num%"=="5" color 0c
    
31. if "%num%"=="6" color 0d
    
32. if "%num%"=="7" color 0e
    
33. if "%num%"=="8" color 0f&set num=0
    
34. goto a

复制代码

garyng

第二楼帅！
楼上的也不赖～