效果圖: 核心代碼: 代碼如下: @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= 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! 五 棋 子 人 機 對 戰 set li7=!li7! 批 處 理 set li9=!li9! 電 腦 水 平 中 等 set li12=!li12! 由 netbenton 編寫完成 set li14=!li14! 棋盤設計參照了 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○=玩家
::設置電腦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 (
