主頁 > 知識(shí)庫 > 批處理實(shí)現(xiàn)的五子棋人機(jī)對(duì)戰(zhàn)游戲

批處理實(shí)現(xiàn)的五子棋人機(jī)對(duì)戰(zhàn)游戲

熱門標(biāo)簽:滄州外呼增值業(yè)務(wù)線路解決方案 江蘇辦理400電話是免費(fèi)的嗎 征服者博物館地圖標(biāo)注點(diǎn) 地圖標(biāo)注顯示小區(qū) 沙依巴克工廠地圖標(biāo)注 江蘇手機(jī)外呼系統(tǒng)供應(yīng)商 福建防封電銷卡辦理套餐 南京機(jī)器人外呼系統(tǒng)多少錢 紹興400電話怎么辦理
效果圖:

核心代碼:
復(fù)制代碼 代碼如下:

@echo offsetlocal 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=   A B C D E F G H I J K L M N O P Q R S
for %%a in (%li21%) do (set/a .+=1,%%a=.set z!.!=%%a)
set z0= set z20= set "z21= "

set li5=!li5!   五 棋 子 人 機(jī) 對(duì) 戰(zhàn)
set li7=!li7!        批 處 理
set li9=!li9!   電 腦 水 平 中 等
set li12=!li12!  由 netbenton 編寫完成
set li14=!li14!  棋盤設(shè)計(jì)參照了 batman
title   批處理五子棋


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○=玩家

::設(shè)置電腦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=%%aset !var:~,-1!=!var:~-1!set idea=!idea! !var:~,-1!)
set ttr=
::設(shè)置電腦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 .+=1set 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 .+=1set put!.!=%%b %%c
        )        )
if defined put1 set put=%%agoto :get
)

echo. 已經(jīng)和棋了
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" endlocalgoto :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 輸入點(diǎn)不存在goto :men
if "!he%poh%:~%var%,1!" neq "#" echo 該點(diǎn)已經(jīng)有子goto men
goto :getok

:get
set /a .=!random!%%.+1
set put=!put%.%! !put!
::隨機(jī)取最佳的走法

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
endlocalgoto :restart

因?yàn)榇a比較多,特打包提供下載 wuziqi_dos_jb51.rar
您可能感興趣的文章:
  • JQuery 國際象棋棋盤 實(shí)現(xiàn)代碼
  • 純JS實(shí)現(xiàn)五子棋游戲兼容各瀏覽器(附源碼)
  • C# 騎士飛行棋的源碼(分享)
  • 基于C語言實(shí)現(xiàn)五子棋游戲完整實(shí)例代碼
  • hta 實(shí)現(xiàn)的五子棋界面
  • java基于swing實(shí)現(xiàn)的五子棋游戲代碼
  • java實(shí)現(xiàn)五子棋小游戲
  • C++面向?qū)ο髮?shí)現(xiàn)五子棋小游戲
  • 純C語言實(shí)現(xiàn)五子棋
  • Android實(shí)現(xiàn)中國象棋附源碼下載

標(biāo)簽:湘西 小程序 烏魯木齊 巴中 宜賓 陽泉 香港 吳忠

巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《批處理實(shí)現(xiàn)的五子棋人機(jī)對(duì)戰(zhàn)游戲》,本文關(guān)鍵詞  批處理,實(shí)現(xiàn),的,五子棋,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題,煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們,我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《批處理實(shí)現(xiàn)的五子棋人機(jī)對(duì)戰(zhàn)游戲》相關(guān)的同類信息!
  • 本頁收集關(guān)于批處理實(shí)現(xiàn)的五子棋人機(jī)對(duì)戰(zhàn)游戲的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章