设为首页收藏本站
查看: 1797|回复: 12

bat五子棋

[复制链接]
  • TA的每日心情
    开心
    2020-11-25 18:08
  • 签到天数: 69 天

    [LV.6]常住居民II

    发表于 2020-10-8 16:38:38 | 显示全部楼层 |阅读模式
    bat五子棋源码感觉不太方便,望各位指点





    @echo off&setlocal enabledelayedexpansion
    set li0=┌───────────────────┐
    set li1=│┌┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┐│1
    for /l %%a in (2,1,18) do (set li%%a=│├┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┤│%%a)
    set li19=│└┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┘│19
    set li20=└───────────────────┘
    set li21= ABCDEFGHIJKLMNOPQRS
    for %%a in (%li21%) do (set/a .+=1,%%a=.&set z!.!=%%a)
    set z0= &set z20= &set "z21= "

    set li5=!li5!   五 棋 子 人 机 对 战
    set li7=!li7!        批 处 理
    set li9=!li9!   电 脑 水 平 中 等
    set str=###################
    set .=0
    for /l %%a in (1,1,19) do (
            set he%%a=!str!&set sh%%a=!str!
            for /l %%b in (1,1,19) do set [%%a.%%b=0
    )

    set .=33
    for /l %%a in (5,1,19) do (
            set pi%%a=!str:~,%%a!&set ni%%a=!str:~,%%a!
            set pi!.!=!str:~,%%a!&set ni!.!=!str:~,%%a!
            set/a .-=1
    )


    set ●=○&set a●=电脑
    set ○=●&set a○=玩家

    ::设置电脑IQ
    set idea=@@@@#1 #@@@@5 @#@@@4 @@@#@2 @@#@@3 $#$$$4 $$#$$3 $$$#$2 $$$$#1 #$$$$5 #$$#$#3 #$#$$#4 #@@@##2 ##@@@#5 #@@#@#3 #@#@@#4 #@@@#1
    set idea=!idea! ##@@@4 @@@##2 ##$$$#5 #$$$##2 #$$$#1 ##@@#4 #@@##2 ##$$#4 #$$##2 #$#$#3 @@###3 ###@@3
    set idea=!idea! ##@##2 ###@#3 #@###3 @####4 ####@2 ##############7 ###########6 ########4 #####3 ####2
    set ttr=!idea=●!&set ttr=!ttr=○!
    for %%a in (!ttr!) do (set var=%%a&set !var:~,-1!=!var:~-1!&set idea=!idea! !var:~,-1!)
    set ttr=
    ::设置电脑IQ

    :restart
    for /l %%a in (0,1,21) do (echo    !z%%a!!li%%a!)
    setlocal enabledelayedexpansion
    set li21=!li21!      reboot重新开始,exit退出。
    set /p var=选择谁先下[ W,玩家  D,电脑  Q,退出 ]:
    if /i "!var!" equ "Q" goto :eof
    if /i "!var!" equ "W" (set zhi=●) else (set zhi=○)
    echo.


    :loop
    if %zhi% equ ● goto :men
    set .=&set put1=
    for %%a in (!idea!) do (
            for %%b in (he sh) do (
                    for /l %%c in (1,1,19) do (
                            if "!%%b%%c:%%a=!" neq "!%%b%%c!" set/a .+=1&set put!.!=%%b %%c
            )        )
            for %%b in (pi ni) do (
                    for /l %%c in (5,1,33) do (
                            if "!%%b%%c:%%a=!" neq "!%%b%%c!" set/a .+=1&set put!.!=%%b %%c
            )        )
    if defined put1 set put=%%a&goto :get
    )

    echo. 已经和棋了
    pause
    goto :restart

    :men
    for /l %%a in (0,1,21) do (echo    !z%%a!!li%%a!)
    set /p user=[列前,行后]:
    echo.
    if "!user!" equ "reboot" endlocal&goto :restart
    if "!user!" equ "exit" exit
    set/a pos=!user:~0,1!,poh=!user:~1,2!,var=pos-1 2>nul
    if not defined [!poh!.!pos! echo 输入点不存在&goto :men
    if "!he%poh%:~%var%,1!" neq "#" echo 该点已经有子&goto men
    goto :getok

    :get
    set /a .=!random!%%.+1
    set put=!put%.%! !put!
    ::随机取最佳的走法

    for /f "tokens=1-3" %%a in ("%put%") do (
            set var=!%%a%%b:*%%c=!srqponmlkjihgfedcba0
            set/a var=!var:~19,1!+%%c
            if "%%a" equ "he" (set/a poh=%%b,pos=20-var)
            if "%%a" equ "sh" (set/a poh=20-var,pos=%%b)
            if %%b lss 19 (set/a var=%%b-var+1) else (set/a var=38-%%b-var+1)
            if "%%a" equ "pi" (if %%b lss 19 (set/a pos=var,poh=%%b-var+1) else (set/a poh=20-var,pos=%%b-19+var))
            if "%%a" equ "ni" (if %%b lss 19 (set/a pos=var,poh=19-%%b+var) else (set/a poh=var,pos=%%b-19+var))
    )
    echo  电脑最后下在:!z%pos%!!z%poh%!(%poh%)

    :getok
    set zhi=!%zhi%!&set win=!zhi!!zhi!!zhi!!zhi!!zhi!
    set/a piph=poh+pos-1,lips=pos+1,niph=19+pos-poh

    if !piph! lss 19 (set/a pips=pos) else (set/a pips=20-poh)
    if !niph! lss 19 (set/a nips=pos) else (set/a nips=poh)


    for %%a in ("li!poh! !lips!" "he!poh! !pos!" "sh!pos! !poh!" "pi!piph! !pips!" "ni!niph! !nips!") do (
            for /f "tokens=1,2" %%b in (%%a) do (
                    if defined %%b (
                            set/a .=%%c-1
                            for %%d in (!.!) do (set %%b=!%%b:~0,%%d!%zhi%!%%b:~%%c!)
                    if "!%%b:%win%=!" neq "!%%b!" set win=y
                    )
            )
    )
    set/a asc%zhi%+=1
    if !win! neq y goto :loop
    for /l %%a in (0,1,21) do (echo    !z%%a!!li%%a!)
    set/p=   !a%zhi%! %zhi%子 第!asc%zhi%!手  胜出     <nul
    pause
    endlocal&goto :restart

    本帖子中包含更多资源

    您需要 登录 才可以下载或查看,没有帐号?注册

    x
  • TA的每日心情
    开心
    2020-11-25 18:08
  • 签到天数: 69 天

    [LV.6]常住居民II

     楼主| 发表于 2020-10-8 16:41:08 | 显示全部楼层
    欸欸欸欸额????怎么出现了几个表情符???
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    奋斗
    2020-11-24 19:58
  • 签到天数: 355 天

    [LV.8]以坛为家I

    发表于 2020-10-9 00:22:00 | 显示全部楼层
    批处理大师
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    郁闷
    2020-11-11 18:44
  • 签到天数: 29 天

    [LV.4]偶尔看看III

    发表于 2020-10-11 11:36:31 | 显示全部楼层
    不错啊!
    有意思,但有bug
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    擦汗
    昨天 16:53
  • 签到天数: 44 天

    [LV.5]常住居民I

    发表于 2020-10-12 09:31:45 | 显示全部楼层
    有点意思,收藏了
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    开心
    2020-11-25 18:08
  • 签到天数: 69 天

    [LV.6]常住居民II

     楼主| 发表于 2020-10-12 19:58:57 | 显示全部楼层

    谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    开心
    2020-11-25 18:08
  • 签到天数: 69 天

    [LV.6]常住居民II

     楼主| 发表于 2020-11-9 19:05:01 | 显示全部楼层
    f45xka 发表于 2020-11-9 10:48
    不错啊!飞..................................

    飞行棋????????
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    擦汗
    2020-11-20 16:24
  • 签到天数: 126 天

    [LV.7]常住居民III

    发表于 2020-11-20 16:45:10 | 显示全部楼层
    胆大的运行了一下,可以正常运行
    但是游戏不能玩
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    开心
    2020-11-25 18:08
  • 签到天数: 69 天

    [LV.6]常住居民II

     楼主| 发表于 2020-11-20 20:25:59 | 显示全部楼层
    f45xka 发表于 2020-11-20 16:45
    胆大的运行了一下,可以正常运行
    但是游戏不能玩

    emmmmmmmmm我多敲了个空格懒得改
    顺便说一下,数字cao作
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    奋斗
    3 小时前
  • 签到天数: 79 天

    [LV.6]常住居民II

    发表于 2020-11-21 01:32:20 | 显示全部楼层
    谁玩谁炸,谁这么无聊做的,太smart了
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    开心
    2020-11-25 18:08
  • 签到天数: 69 天

    [LV.6]常住居民II

     楼主| 发表于 2020-11-21 12:20:03 | 显示全部楼层
    ZYU 发表于 2020-11-21 01:32
    谁玩谁炸,谁这么无聊做的,太smart了

    玩云顶之奕更累
    回复 支持 反对

    使用道具 举报

    您需要登录后才可以回帖 登录 | 注册

    本版积分规则

    关闭

    站长推荐 上一条 /3 下一条

    红盟社区--中国红客联盟 

    Processed in 0.115235 second(s), 25 queries.

    站点统计| 举报| Archiver| 手机版| 黑屋 |   

    Powered by HUC © 2001-2017 Comsenz Inc.

    手机扫我进入移动触屏客户端

    关注我们可获取更多热点资讯

    Honor accompaniments. theme macfee

    快速回复 返回顶部 返回列表