SET c_R=&SET t_str=&SET c_flag=0&SET t_var=
CALL :subCheckGold
FOR /L %%I IN (1,1,3) DO SET n_1%%I= &SET n_2%%I= &SET n_3%%I=&SET n_4%%I=
CALL :rndN1_5
FOR /L %%I IN (1,1,5) DO (
CALL :subGetOne&SET PlayerOne%%I=!c_r!
CALL :subSaveVar1 %%I "!PlayerOne%%I!"
IF "!PlayerOne%%I:~2,1!" == "●" SET n_113=黑 桃
IF "!PlayerOne%%I:~2,1!" == "○" SET n_113=红 桃
IF "!PlayerOne%%I:~2,1!" == "Ω" SET n_113=草 花
IF "!PlayerOne%%I:~2,1!" == "◇" SET n_113=方 片
SET PAH%%I=!PlayerOne%%I:~2,1!&SET PAN%%I=!PlayerOne%%I:~0,2! CALL :subGetOne&SET PlayerTwo%%I=!c_r!
CALL :subSaveVar2 %%I "!PlayerTwo%%I!"
IF "!PlayerTwo%%I:~2,1!" == "●" SET n_213=黑 桃
IF "!PlayerTwo%%I:~2,1!" == "○" SET n_213=红 桃
IF "!PlayerTwo%%I:~2,1!" == "Ω" SET n_213=草 花
IF "!PlayerTwo%%I:~2,1!" == "◇" SET n_213=方 片
SET PBH%%I=!PlayerTwo%%I:~2,1!&SET PBN%%I=!PlayerTwo%%I:~0,2! CALL :subGetOne&SET PlayerThi%%I=!c_r!
CALL :subSaveVar3 %%I "!PlayerThi%%I!"
IF "!PlayerThi%%I:~2,1!" == "●" SET n_313=黑 桃
IF "!PlayerThi%%I:~2,1!" == "○" SET n_313=红 桃
IF "!PlayerThi%%I:~2,1!" == "Ω" SET n_313=草 花
IF "!PlayerThi%%I:~2,1!" == "◇" SET n_313=方 片
SET PCH%%I=!PlayerThi%%I:~2,1!&SET PCN%%I=!PlayerThi%%I:~0,2! CALL :subGetOne&SET PlayerFou%%I=!c_r!
CALL :subSaveVar4 %%I "!PlayerFou%%I!"
IF "!PlayerFou%%I:~2,1!" == "●" SET n_413=黑 桃
IF "!PlayerFou%%I:~2,1!" == "○" SET n_413=红 桃
IF "!PlayerFou%%I:~2,1!" == "Ω" SET n_413=草 花
IF "!PlayerFou%%I:~2,1!" == "◇" SET n_413=方 片
SET PDH%%I=!PlayerFou%%I:~2,1!&SET PDN%%I=!PlayerFou%%I:~0,2! :动画
CALL :sub_ResultMagic1&CALL :sub_ResultMagic2&CALL :sub_ResultMagic3&CALL :sub_ResultMagic4
IF %%I==1 CALL :rndPAIBei %%I&CALL :rndPAIBei_sub&Ping -n 2 127.1>nul
IF %%I==2 CALL :rndPAIBei %%I&CALL :subMagic1&CALL :subMagic
IF %%I==3 CALL :rndPAIBei %%I&CALL :subMagic1&CALL :subMagic2&CALL :subMagic
IF %%I==4 CALL :rndPAIBei %%I&CALL :subMagic1&CALL :subMagic2&CALL :subMagic3&CALL :subMagic
IF %%I==5 CALL :rndPAIBei %%I&CALL :subMagic1&CALL :subMagic2&CALL :subMagic3&CALL :subMagic4&CALL :subMagic ::下注
IF NOT %%I EQU 5 CALL :subCPG %%I
) CALL :subPSort "%t1_n%"&set t1_n=!s!
CALL :subPSort "%t2_n%"&set t2_n=!s!
CALL :subPSort "%t3_n%"&set t3_n=!s!
CALL :subPSort "%t4_n%"&set t4_n=!s!
CALL :Check "!t1_n!" "!t1_S!" &SET P1Num=!n_playerall!
CALL :Check "!t2_n!" "!t2_S!" &SET P2Num=!n_playerall!
CALL :Check "!t3_n!" "!t3_S!" &SET P3Num=!n_playerall!
CALL :Check "!t4_n!" "!t4_S!" &SET P4Num=!n_playerall! CALL :subOutPut
Pause>nul&goto subInit
)
:subCPG
SET tmp1=&SET tmp2=&SET tmp3=&SET tmp4=&SET tmp5=&SET tmp6=&SET t_min=&SET t_Max=&SET P1_ZN=&SET P2_ZN=&SET P3_ZN=&SET P4_ZN=&SET PSelect=&SET P1Select=&SET t_SH=&SET tmp=
I

IF %1 EQU 1 (
SET /A uMoney-=!GoldPower!&Set /A C1_Gold-=!GoldPower!&Set /A C2_Gold-=!GoldPower!&Set /A C3_Gold-=!GoldPower!&SET /A PutGoldTotal+=!GoldPower!
CALL :subCalcLong "!GoldPower!."&CALL :subAddBar "!GoldPower!." !LongVar! 12 "0"&FOR /L %%I IN (1,1,4) DO SET PM%%I_L%1=!StrAdd!
GOTO :EOF
)
IF %1 EQU 2 SET /A tmp1=5*!GoldPower!&SET /A tmp2=10*!GoldPower!&SET /A tmp3=20*!GoldPower!
IF %1 EQU 3 SET /A tmp1=20*!GoldPower!&SET /A tmp2=50*!GoldPower!&SET /A tmp3=100*!GoldPower!
IF %1 EQU 4 (
SET /A tmp1=50*!GoldPower!&SET /A tmp2=100*!GoldPower!
CALL :subPSort "!uMoney! !C1_Gold! !C2_Gold! !C3_Gold!"
SET tmp=0&FOR %%I IN (!s!) DO SET /A tmp+=1&IF !tmp! EQU 1 SET t_min=%%I
SET tmp3=!t_min!
)
::这里判断谁的牌面大,谁说话
FOR /L %%I IN (1,1,4) DO CALL :subTmp1 %%I %1
CALL :subPSort "!t1_pr%1! !t2_pr%1! !t3_pr%1! !t4_pr%1!"
FOR %%I IN (!s!) DO SET t_max=%%I
FOR /L %%I IN (1,1,4) DO CALL :subTmp2 %%I %1
IF !tmp! EQU 1 GOTO P1Say FOR /L %%I IN (1,1,4) DO CALL :subTmp3 %%I
CALL :subPSort "!P1_ZN! !P2_ZN! !P3_ZN! !P4_ZN!"
FOR %%I IN (!s!) DO SET t_max=%%I
::如果当前叫牌者的所有牌点数最大则叫注为最大
<nul SET/p= 『!C%tmp%_name!』正在下注^(!tmp1!, !tmp2!, !tmp3!^)&Ping -n 3 127.1>nul
IF !t_max! EQU !P%tmp%_ZN! (
SET PSelect=!tmp3!&SET tmp5=!tmp3!
IF %1 EQU 4 SET t_SH=true
ECHO !PSelect!&Ping -n 1 127.1>nul
) ELSE (
SET PSelect=!tmp1!&ECHO !tmp1!&Ping -n 1 127.1>nul&SET tmp5=!tmp1!
)
SET tmp4=再踢&SET tmp6=^(T^)
IF NOT "%t_SH%"=="true" IF %1 EQU 4 SET tmp4=梭哈&SET tmp2=!tmp3!
IF %1 EQU 4 IF "%t_SH%"=="true" SET tmp6= :R1Say
ECHO\&SET P1Select=
SET /P P1Select= 跟!tmp5!^(回车^) !tmp4!!tmp2!^!tmp6! 放弃^(N^):
IF NOT DEFINED P1Select (
SET /A uMoney-=!tmp5!&SET /A C1_Gold-=!tmp5!&SET /A C2_Gold-=!tmp5!&SET /A C3_Gold-=!tmp5!&SET /A PutGoldTotal+=!tmp5!
CALL :subCalcLong "!tmp5!."&CALL :subAddBar "!tmp5!." !LongVar! 12 "0"&FOR /L %%I IN (1,1,4) DO SET PM%%I_L%1=!StrAdd!
GOTO :EOF
)
IF NOT "%t_SH%"=="true" (
IF /I "%P1Select%"=="T" (
SET /A uMoney=!uMoney!-!tmp2!-!tmp5!
SET /A C1_Gold=!C1_Gold!-!tmp2!-!tmp5!
SET /A C2_Gold=!C2_Gold!-!tmp2!-!tmp5!
SET /A C3_Gold=!C3_Gold!-!tmp2!-!tmp5!
SET /A PutGoldTotal=!PutGoldTotal!+!tmp2!+!tmp5!
SET tmpVar=&SET /A tmpVar=!tmp2!+!tmp5!&CALL :subCalcLong "!tmpVar!."&CALL :subAddBar "!tmpVar!." !LongVar! 12 "0"&FOR /L %%I IN (1,1,4) DO SET PM%%I_L%1=!StrAdd!
GOTO :EOF
)
)
IF /I "%P1Select%"=="N" GOTO subInit
GOTO R1Say :P1Say
SET PSelect=
SET /p PSelect= 『!C1_name!』选择下注^(!tmp1!, !tmp2!, !tmp3!^):
IF NOT DEFINED PSelect GOTO P1Say
IF "%PSelect:~0,1%"==" " GOTO P1Say
IF !PSelect! EQU !tmp1! (
SET /A uMoney-=!tmp1!&SET /A C1_Gold-=!tmp1!&SET /A C2_Gold-=!tmp1!&SET /A C3_Gold-=!tmp1!&SET /A PutGoldTotal+=!tmp1!
CALL :subCalcLong "!tmp1!."&CALL :subAddBar "!tmp1!." !LongVar! 12 "0"&FOR /L %%I IN (1,1,4) DO SET PM%%I_L%1=!StrAdd!
GOTO :EOF
)
IF !PSelect! EQU !tmp2! (
SET /A uMoney-=!tmp2!&SET /A C1_Gold-=!tmp2!&SET /A C2_Gold-=!tmp2!&SET /A C3_Gold-=!tmp2!&SET /A PutGoldTotal+=!tmp2!
CALL :subCalcLong "!tmp2!."&CALL :subAddBar "!tmp2!." !LongVar! 12 "0"&FOR /L %%I IN (1,1,4) DO SET PM%%I_L%1=!StrAdd!
GOTO :EOF
)
IF !PSelect! EQU !tmp3! (
SET /A uMoney-=!tmp3!&SET /A C1_Gold-=!tmp3!&SET /A C2_Gold-=!tmp3!&SET /A C3_Gold-=!tmp3!&SET /A PutGoldTotal+=!tmp3!
CALL :subCalcLong "!tmp3!."&CALL :subAddBar "!tmp3!." !LongVar! 12 "0"&FOR /L %%I IN (1,1,4) DO SET PM%%I_L%1=!StrAdd!
GOTO :EOF
)
GOTO P1Say

::判断字串长度,返回LongVar值
:subCalcLong
SET LongVar=0&SET tmpStr=&SEt LongVar=&Set StrLong=
:lpStr
SET StrLong=%~1
SET tmpStr=!StrLong:~%LongVar%,1!
IF Not DEFINED tmpStr GOTO :EOF
SET /A LongVar+=1
GOTO lpStr
::空格填充指定长度的串,接收参数:1-字符串,2-字符串长度,3-格式化后的长度,4-要填充的单个字符.返回值StrAdd
:subAddBar
SET StrAdd=%~1
IF %2 GEQ %3 SET StrAdd=!StrAdd:~0,%3!&GOTO :EOF
SET /A VarAdd=%3-%2-1
FOR /L %%I IN (0,1,!VarAdd!) DO SET StrAdd=!StrAdd!%~4
GOTO :EOF
:subTmp1
SET /A t%1_pr%2=!t%1_pn%2!
SET /A t%1_pr%2*=10
IF "!n%1_ph%2!" EQU "!n_4P:~0,1!" SET /A t%1_pr%2+=1
IF "!n%1_ph%2!" EQU "!n_4P:~1,1!" SET /A t%1_pr%2+=2
IF "!n%1_ph%2!" EQU "!n_4P:~2,1!" SET /A t%1_pr%2+=3
IF "!n%1_ph%2!" EQU "!n_4P:~3,1!" SET /A t%1_pr%2+=4
GOTO :EOF
:subTmp2 IF !t_max! EQU !t%1_pr%2! SET tmp=%1
GOTO :EOF
:subTmp3
CALL :subPSort "!t%1_n!"
set t%1_z=!s!
CALL :Check "!t%1_z!" "!t%1_S!" "%1"
SET P%1_ZN=!n_playerall!
GOTO :EOF
:subTmp4
if !P%1Num! GEQ 850 SET/P= !C%1_name:~-2!<nul 牌型:同花顺&goto flag3
if !P%1Num! GEQ 600 SET/P= !C%1_name:~-2!<nul 牌型:铁支&goto flag3
if !P%1Num! GEQ 500 SET/P= !C%1_name:~-2!<nul 牌型:葫芦&goto flag3
if !P%1Num! GEQ 450 (
SET/P= !C%1_name:~-2!<nul 牌型:同花
::这个450要另存变量
goto flag3
)
if !P%1Num! GEQ 400 SET/P= !C%1_name:~-2!<nul 牌型:顺子&goto flag2
if !P%1Num! GEQ 350 SET/P= !C%1_name:~-2!<nul 牌型:三条&goto flag3
if !P%1Num! GEQ 300 (
SET/P= !C%1_name:~-2!<nul 牌型:二对
::牌型中五张牌由两组两张同数字的牌所组成。若遇相同则先比这副牌中最大的一对，如又相同再比第二对，如果还是一样，比大对子中的最大花式
goto flag3
)
if !P%1Num! GEQ 150 (
SET/P= !C%1_name:~-2!<nul 牌型:对子
::牌型由两张相同的牌加上三张单张所组成。如果大家都是对子，比对子的大小，如果对子也一样，比这个对子中的最大花色
goto flag3
)
::比散牌
:flag2
IF !P%1Num! LSS 70 SET/P= !C%1_name:~-2!<nul 牌型:散牌
:flag3
SET t%1_n=!t%1_n:11=J!&SET t%1_n=!t%1_n:12=Q!&SET t%1_n=!t%1_n:13=K!&SET t%1_n=!t%1_n:14=A!
echo 排序后的牌:!t%1_n! 花色:!t%1_s! 点数:!P%1Num!
GOTO :EOF
::判断牌型
:Check
set n_PlayerAll=&set t_c=&set t_n=%~1&set t_var1=%~2
::判断同花
IF "%t_var1%"=="●●●●●" SET /A n_PlayerAll+=450
IF "%t_var1%"=="○○○○○" SET /A n_PlayerAll+=450
IF "%t_var1%"=="◇◇◇◇◇" SET /A n_PlayerAll+=450
IF "%t_var1%"=="ΩΩΩΩΩ" SET /A n_PlayerAll+=450
::判断顺子
IF "%t_n%"=="10 11 12 13 14" SET /A n_PlayerAll+=403&GOTO :EOF
IF "%t_n%"=="9 10 11 12 13" SET /A n_PlayerAll+=402&GOTO :EOF
IF "%t_n%"=="8 9 10 11 12" SET /A n_PlayerAll+=401&GOTO :EOF
IF !n_playerall! GEQ 450 GOTO :EOF ::判断出现的次数
for /l %%i in (8,1,14) do (
I

:subSaveVar1
SET t_var=&SET t=
SET t=%~2
SET n1_PH%1=!t:~2,1!
SET t_var=!t:~1,1!
IF "%t_var%"=="." (SET n1_PN%1=!t:~0,1!) Else (SET n1_PN%1=!t:~0,2!)
SET t1_s=!t1_s!!n1_PH%1!
::将花牌转为数字
FOR /L %%I IN (1,1,5) DO (
SET t1_PN%%I=!n1_PN%%I!
IF !n1_PN%%I!==J SET t1_PN%%I=11
IF !n1_PN%%I!==Q SET t1_PN%%I=12
IF !n1_PN%%I!==K SET t1_PN%%I=13
IF !n1_PN%%I!==A SET t1_PN%%I=14
)
SET t1_n=!t1_n!!t1_PN%1!
GOTO :EOF
::取玩家牌大小,花色
:subSaveVar2
SET t_var=&SET t=
SET t=%~2
SET n2_PH%1=!t:~2,1!
SET t_var=!t:~1,1!
IF "%t_var%"=="." (SET n2_PN%1=!t:~0,1!) Else (SET n2_PN%1=!t:~0,2!)
SET t2_s=!t2_s!!n2_PH%1!
::将花牌转为数字
FOR /L %%I IN (1,1,5) DO (
SET t2_PN%%I=!n2_PN%%I!
IF !n2_PN%%I!==J SET t2_PN%%I=11
IF !n2_PN%%I!==Q SET t2_PN%%I=12
IF !n2_PN%%I!==K SET t2_PN%%I=13
IF !n2_PN%%I!==A SET t2_PN%%I=14
)
SET t2_n=!t2_PN1! !t2_PN2! !t2_PN3! !t2_PN4! !t2_PN5!
GOTO :EOF
::取玩家牌大小,花色
:subSaveVar3
SET t_var=&SET t=
SET t=%~2
SET n3_PH%1=!t:~2,1!
SET t_var=!t:~1,1!
IF "%t_var%"=="." (SET n3_PN%1=!t:~0,1!) Else (SET n3_PN%1=!t:~0,2!)
SET t3_s=!t3_s!!n3_PH%1!
::将花牌转为数字
FOR /L %%I IN (1,1,5) DO (
SET t3_PN%%I=!n3_PN%%I!
IF !n3_PN%%I!==J SET t3_PN%%I=11
IF !n3_PN%%I!==Q SET t3_PN%%I=12
IF !n3_PN%%I!==K SET t3_PN%%I=13
IF !n3_PN%%I!==A SET t3_PN%%I=14
)
SET t3_n=!t3_PN1! !t3_PN2! !t3_PN3! !t3_PN4! !t3_PN5!
GOTO :EOF
::取玩家牌大小,花色
:subSaveVar4
SET t_var=&SET t=
SET t=%~2
SET n4_PH%1=!t:~2,1!
SET t_var=!t:~1,1!
IF "%t_var%"=="." (SET n4_PN%1=!t:~0,1!) Else (SET n4_PN%1=!t:~0,2!)
SET t4_s=!t4_s!!n4_PH%1!
::将花牌转为数字
FOR /L %%I IN (1,1,5) DO (
SET t4_PN%%I=!n4_PN%%I!
IF !n4_PN%%I!==J SET t4_PN%%I=11
IF !n4_PN%%I!==Q SET t4_PN%%I=12
IF !n4_PN%%I!==K SET t4_PN%%I=13
IF !n4_PN%%I!==A SET t4_PN%%I=14
)
SET t4_n=!t4_PN1! !t4_PN2! !t4_PN3! !t4_PN4! !t4_PN5!
GOTO :EOF
::c_R1随机取牌大小
:subGetOne
SET Min=&SET Max=&SET DI=&SET c_R1=
SET /A Min=8
SET /A Max=14
SET /A Max+=1
SET /A DI=%Max%-%Min%
SET /A c_R1=%ranDOm% %% %DI%+%Min%
IF !c_R1! EQU 8 SET c_R1=8.
IF !c_R1! EQU 9 SET c_R1=9.
IF "%c_R1%"=="11" SET c_R1=J.
IF "%c_R1%"=="12" SET c_R1=Q.
IF "%c_R1%"=="13" SET c_R1=K.
IF "%c_R1%"=="14" SET c_R1=A.
CALL :lpRnd1_4
GOTO :EOF
::c_R2随机取牌花色
:lpRnd1_4
SET Min=&SET Max=&SET DI=&SET c_R2=
SET /A Min=0
SET /A Max=3
SET /A Max+=1
SET /A DI=%Max%-%Min%
SET /A c_R2=%ranDOm% %% %DI%+%Min%
FOR /L %%i in (0,1,3) DO IF !c_R2! EQU %%i SET c_R2=!n_4p:~%%i,1!
SET c_R=!c_R1!!c_R2!
SET c_flag=0
FOR /L %%I IN (0,4,108) DO (
SET t_str=!c_pk:~%%I,3!
IF !c_R!==!t_str! (
SET c_pk=!c_pk:%c_R%=0.▓!
SET c_flag=1
)
)
::此牌已被取过
IF !c_flag! EQU 0 (
I

set c_r=
call :subGetOne
)
GOTO :EOF ::*******************************************************************************************************
:rndPAIBei
CLS
FOR /L %%I IN (1,1,20) DO CALL :rndN1_20&SET a_%%I=!R1_20!
FOR /L %%I IN (1,1,20) DO CALL :rndN1_20&SET b_%%I=!R1_20!
FOR /L %%I IN (1,1,20) DO CALL :rndN1_20&SET c_%%I=!R1_20!
FOR /L %%I IN (1,1,20) DO CALL :rndN1_20&SET d_%%I=!R1_20!
IF %1 EQU 5 (
SET b_1=§&SET c_1=§&SET d_1=§&SET b_3= &SET c_3= &SET d_3=
SET b_2=!PlayerTwo1:~0,2!&SET c_2=!PlayerThi1:~0,2!&SET d_2=!PlayerFou1:~0,2!
SET b_4=!PlayerTwo1:~2,1!&SET c_4=!PlayerThi1:~2,1!&SET d_4=!PlayerFou1:~2,1!
)
ECHO !C1_name!筹码:!uMoney! !C2_name!筹码:!C1_Gold! !C3_name!筹码:!C2_Gold! !C4_name!筹码:!C3_Gold!
ECHO ┌┬————————————————————————————————————————┬┐
ECHO ├┤ ┌———————┐┌———————┐┌———————┐┌———————┐ ├┤
ECHO ├┤ │ !PM1_L1! ││ !PM2_L1! ││ !PM3_L1! ││ !PM4_L1! │ ├┤
ECHO ├┤ │ !PM1_L2! ││ !PM2_L2! ││ !PM3_L2! ││ !PM4_L2! │ ├┤
ECHO ├┤ │ !PM1_L3! ││ !PM2_L3! ││ !PM3_L3! ││ !PM4_L3! │ ├┤
ECHO ├┤ │ !PM1_L4! ││ !PM2_L4! ││ !PM3_L4! ││ !PM4_L4! │ ├┤
ECHO ├┤ └———————┘└———————┘└———————┘└———————┘ ├┤
ECHO ┌—┼┼—┬—┬—┬—┬—┬—┬—┬—┬—┬—┬—┬—┬—┬—┬—┬—┬—┬—┬—┬—┬┴┼—┐
ECHO └⊙┴┴—┴—┴—┴—┴—┴—┴—┴—┴—┴—┴—┴—┴—┴—┴—┴—┴—┴—┴—┴—┴—┴⊙┘
ECHO │ !C1_name! !C2_name! !C3_name! !C4_name! │
ECHO │ ┌————┐ ┌————┐ ┌————┐ ┌————┐ │
ECHO │ │§!PAN1! !PAH1!│ │!b_1!!b_2!!b_3!!b_4!│ │!c_1!!c_2!!c_3!!c_4!│ │!d_1!!d_2!!d_3!!d_4!│ │&Ping -n 1 127.1>nul&COLOR f0
GOTO :EOF
:rndPAIBei_sub
ECHO │ │ │ │!b_5!!b_6!!b_7!!b_8!│ │!c_5!!c_6!!c_7!!c_8!│ │!d_5!!d_6!!d_7!!d_8!│ │&Ping -n 1 127.1>nul&COLOR 0f
ECHO │ │ │ │!b_9!!b_10!!b_3!!b_11!│ │!c_9!!c_10!!c_3!!c_11!│ │!d_9!!d_10!!d_3!!d_11!│ │&Ping -n 1 127.1>nul&COLOR f0
ECHO │ │ %n_113% │ │!b_12!!b_13!!b_14!!b_15!│ │!c_12!!c_13!!c_14!!c_15!│ │!d_12!!d_13!!d_14!!d_15!│ │&Ping -n 1 127.1>nul&COLOR f0
ECHO │ │ │ │!b_16!!b_17!!b_18!!b_19!│ │!c_16!!c_17!!c_18!!c_19!│ │!d_16!!d_17!!d_18!!d_19!│ │&Ping -n 1 127.1>nul&COLOR 0f
ECHO │ └————┘ └————┘ └————┘ └————┘ │
I

ECHO ——┴————————————————————————————————————————————┴——
GOTO :EOF :subMagic1
ECHO │ %n_11% %n_21% %n_31% %n_41% │&Ping -n 1 127.1>nul&COLOR 0f
ECHO │ %n_12% %n_22% %n_32% %n_42% │&Ping -n 1 127.1>nul&COLOR f0
GOTO :EOF
:subMagic2
ECHO │ %n_14% %n_24% %n_34% %n_44% │&Ping -n 1 127.1>nul&COLOR 0f
ECHO │ %n_15% %n_25% %n_35% %n_45% │&Ping -n 1 127.1>nul&COLOR f0
GOTO :EOF
:subMagic3
ECHO │ %n_17% %n_27% %n_37% %n_47% │&Ping -n 1 127.1>nul&COLOR 0f
ECHO │ %n_18% %n_28% %n_38% %n_48% │&Ping -n 1 127.1>nul&COLOR f0
GOTO :EOF
:subMagic4
ECHO │ %n_110% %n_210% %n_310% %n_410% │&Ping -n 1 127.1>nul&COLOR 0f
ECHO │ %n_111% %n_211% %n_311% %n_411% │&Ping -n 1 127.1>nul&COLOR f0
GOTO :EOF
:subMagic
ECHO │ │ │ │ │ │ │ │ │ │&Ping -n 1 127.1>nul&COLOR 0f
ECHO │ │ │ │ │ │ │ │ │ │&Ping -n 1 127.1>nul&COLOR f0
ECHO │ │ %n_113% │ │ %n_213% │ │ %n_313% │ │ %n_413% │ │&Ping -n 1 127.1>nul&COLOR 0f
ECHO │ │ │ │ │ │ │ │ │ │&Ping -n 1 127.1>nul&COLOR 0f
ECHO │ └————┘ └————┘ └————┘ └————┘ │
ECHO ——┴————————————————————————————————————————————┴—— GOTO :EOF
:rndN1_20
SET Min=&SET Max=&SET DI=&SET R1_20=
SET /A Min=1
SET /A Max=20
SET /A Max+=1
SET /A DI=%Max%-%Min%
SET /A R1_20=%random% %% %DI%+%Min%
set str=!c_str%c_strN%!
SET R1_20=!str:~%R1_20%,1!
GOTO :EOF
:rndN1_5
SET Min=&SET Max=&SET DI=&SET c_strN=
SET /A Min=1
SET /A Max=9
SET /A Max+=1
SET /A DI=%Max%-%Min%
SET /A c_strN=%random% %% %DI%+%Min%
GOTO :EOF
:sub_ResultMagic1
SET n_11=┌————┐
SET n_12=│§!PAN2! !PAH2!│
SET n_14=┌————┐
SET n_15=│§!PAN3! !PAH3!│
SET n_17=┌————┐
SET n_18=│§!PAN4! !PAH4!│
SET n_110=┌————┐
SET n_111=│§!PAN5! !PAH5!│
GOTO :EOF
:sub_ResultMagic2
SET n_21=┌————┐
SET n_22=│§!PBN2! !PBH2!│
SET n_24=┌————┐
SET n_25=│§!PBN3! !PBH3!│
SET n_27=┌————┐
SET n_28=│§!PBN4! !PBH4!│
SET n_210=┌————┐
SET n_211=│§!PBN5! !PBH5!│
GOTO :EOF
:sub_ResultMagic3
SET n_31=┌————┐
SET n_32=│§!PCN2! !PCH2!│
SET n_34=┌————┐
SET n_35=│§!PCN3! !PCH3!│
SET n_37=┌————┐
SET n_38=│§!PCN4! !PCH4!│
SET n_310=┌————┐
SET n_311=│§!PCN5! !PCH5!│
GOTO :EOF
:sub_ResultMagic4
SET n_41=┌————┐
SET n_42=│§!PDN2! !PDH2!│
SET n_44=┌————┐
SET n_45=│§!PDN3! !PDH3!│
SET n_47=┌————┐
SET n_48=│§!PDN4! !PDH4!│
SET n_410=┌————┐
SET n_411=│§!PDN5! !PDH5!│
GOTO :EOF

贴完源码变样了,怎么上传批文件...

看起来不错呀

看着真牛逼

您老变了几天啊……

请LZ发出正确链接……

建议LZ把做的游戏汇总到一个贴子，然后一起加精！

链接失效了

好棒

这明显叫做刷屏

顶一个吧。。。。。

==============反挖坟技(quan)术(xian)由tmxk0411提供==============