切换到宽版
  • 2282阅读
  • 7回复

[分享]最近对批处理忽然产生了兴趣,发个五子棋代码 [复制链接]

上一主题 下一主题
离线亦可
 
发帖
124
啄木币
326
鲜花
14
只看楼主 倒序阅读 使用道具 0楼 发表于: 2008-01-21
@echo off
setlocal enabledelayedexpansion
mode con cols=48 lines=23
color f0
set x=  ┏━━━━━━━━━━━━━━━━━━━━┓
set y=  ┃  1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9┃
set a=  ┃A ┌┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┐┃
set b=  ┃B ├┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┤┃
set c=  ┃C ├┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┤┃
set d=  ┃D ├┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┤┃
set e=  ┃E ├┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┤┃
set f=  ┃F ├┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┤┃
set g=  ┃G ├┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┤┃
set h=  ┃H ├┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┤┃
set i=  ┃I ├┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┤┃
set j=  ┃J ├┼┼┼┼┼┼┼┼╋┼┼┼┼┼┼┼┼┤┃
set k=  ┃K ├┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┤┃
set l=  ┃L ├┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┤┃
set m=  ┃M ├┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┤┃
set n=  ┃N ├┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┤┃
set o=  ┃O ├┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┤┃
set p=  ┃P ├┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┤┃
set q=  ┃Q ├┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┤┃
set r=  ┃R ├┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┤┃
set s=  ┃S └┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┘┃
set z=  ┗━━━━━━━━━━━━━━━━━━━━┛
set shu=0
:start
echo %x%
echo %y%
echo %a%
echo %b%
echo %c%
echo %d%
echo %e%
echo %f%
echo %g%
echo %h%
echo %i%
echo %j%
echo %k%
echo %l%
echo %m%
echo %n%
echo %o%
echo %p%
echo %q%
echo %r%
echo %s%
echo %z%

set qi=
set /p qi=输入要下棋的位置 如:10j   
if "%qi%"=="" goto start

set lie=%qi:~0,-1%
set /a u=%lie%+4
set /a v=%lie%+5
set hang=%qi:~-1%
if %shu%==0 set sai=●
if %shu%==1 set sai=○

if %lie% geq 1 (
if %lie% leq 19 (

if %hang%==a set a=!a:~0,%u%!%sai%!a:~%v%!

if %hang%==b set b=!b:~0,%u%!%sai%!b:~%v%!

if %hang%==c set c=!c:~0,%u%!%sai%!c:~%v%!

if %hang%==d set d=!d:~0,%u%!%sai%!d:~%v%!

if %hang%==e set e=!e:~0,%u%!%sai%!e:~%v%!

if %hang%==f set f=!f:~0,%u%!%sai%!f:~%v%!

if %hang%==g set g=!g:~0,%u%!%sai%!g:~%v%!

if %hang%==h set h=!h:~0,%u%!%sai%!h:~%v%!

if %hang%==i set i=!i:~0,%u%!%sai%!i:~%v%!

if %hang%==j set j=!j:~0,%u%!%sai%!j:~%v%!

if %hang%==k set k=!k:~0,%u%!%sai%!k:~%v%!

if %hang%==l set l=!l:~0,%u%!%sai%!l:~%v%!

if %hang%==m set m=!m:~0,%u%!%sai%!m:~%v%!

if %hang%==n set n=!n:~0,%u%!%sai%!n:~%v%!

if %hang%==o set o=!o:~0,%u%!%sai%!o:~%v%!

if %hang%==p set p=!p:~0,%u%!%sai%!p:~%v%!

if %hang%==q set q=!q:~0,%u%!%sai%!q:~%v%!

if %hang%==r set r=!r:~0,%u%!%sai%!r:~%v%!

if %hang%==s set s=!s:~0,%u%!%sai%!s:~%v%!


if %hang%==t goto start
if %hang%==u goto start
if %hang%==v goto start
if %hang%==w goto start
if %hang%==x goto start
if %hang%==y goto start
if %hang%==z goto start



if %shu%==0 (
set shu=1
goto start
)
if %shu%==1 set shu=0
goto start
)
)
goto start




把上面代码复制到记事本里,保存为扩展名为.bat的文件双击运行就行。
1条评分
林暮寒 鲜花 +2 你太有才了 2008-01-21
评价一下你浏览此帖子的感受

精彩

感动

搞笑

开心

愤怒

无聊

灌水
离线嗯哼啊哈
发帖
177
啄木币
1116
鲜花
81
只看该作者 1楼 发表于: 2008-02-16
试了试,果然是五子棋
赞一个
离线chong
发帖
3904
啄木币
6831
鲜花
170
只看该作者 2楼 发表于: 2008-02-16
五子棋
离线卫卫xy
发帖
651
啄木币
478
鲜花
60
只看该作者 3楼 发表于: 2008-02-21
参考中~~~
离线luke

发帖
8167
啄木币
34
鲜花
721
只看该作者 4楼 发表于: 2008-02-21
LZ签名中的IP好像是我得
离线zaa
发帖
198
啄木币
439
鲜花
19
只看该作者 5楼 发表于: 2009-07-14
怎么用啊   不会ia   晕
离线zaa
发帖
198
啄木币
439
鲜花
19
只看该作者 6楼 发表于: 2009-07-14
是指可以下五子棋了?
离线绿柠檬
发帖
5908
啄木币
7659
鲜花
621
只看该作者 7楼 发表于: 2009-07-14
不会玩
快速回复
限100 字节
 
上一个 下一个