[bat小游戏]八数码

Do all in command line
batboy
初来炸道
初来炸道
帖子: 3
注册时间: 2016年10月08日 11:56
拥有现金: 锁定
Been thanked: 1 time
联系:

[bat小游戏]八数码

帖子 #1 batboy » 2016年10月08日 11:58

Code: [全选] [展开/收缩] [Download] (eightNum.bat)
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. mode con cols=35 lines=15
  4. set /a num11=1, num12=2, num13=3
  5. set /a num21=4, num22=8, num23=5
  6. set /a num31=7, num32=6
  7. set "num33= "
  8. ::目前空格所在位置blank=33
  9. set blank=33
  10.  
  11. ::移动操作数
  12. set /a ccw=+10, cca=+1, ccs=-10, ccd=-1
  13.  
  14. :loop
  15. cls
  16. echo,
  17. echo, %num11% %num12% %num13%
  18. echo, %num21% %num22% %num23%
  19. echo, %num31% %num32% %num33%
  20. if "%num11%%num12%%num13%%num21%%num22%%num23%%num31%%num32%"=="12345678" (
  21.     echo,The end
  22.     pause>nul
  23.     exit
  24. )
  25.  
  26. echo,
  27. set /p show=w,a,s,d or q:<nul
  28. for /f "delims=" %%a in ('xcopy /w "%~fs0" "%~fs0" 2^>nul') do if not defined key set "key=%%a"
  29. set "inp=%key:~-1%"
  30. set "key="
  31.  
  32. if "%inp%"=="q" exit
  33. if defined cc%inp% (set /a blanknext= blank + cc%inp%)
  34. if defined num%blanknext% (
  35.     set /a num%blank%=num%blanknext%, blank=blanknext
  36.     set "num%blanknext%= "
  37. )
  38.  
  39. goto :loop

头像
paktc
渐入佳境
渐入佳境
帖子: 47
注册时间: 2016年07月21日 20:34
拥有现金: 锁定
储蓄: 锁定
Has thanked: 6 times
Been thanked: 5 times
联系:

Re: [bat小游戏]八数码

帖子 #2 paktc » 2016年10月08日 15:17

讲真的,默认的批处理颜色高亮简直屎一样难看

highlight.png
highlight.png (62.46 KiB) 查看 625 次
highlight.png
highlight.png (62.46 KiB) 查看 625 次


回到 “BatchScript”

在线用户

用户浏览此论坛: 没有注册用户 和 1 访客