批处理之家 - Powered by Discuz! Board

@echo off
Rem 来自https://www.dostips.com/forum/viewtopic.php?f=3&t=9848&p=63348
Rem 作者Lauri
chcp 936 > nul
title 劳里的幻想世界
color 03
@goto INSTALL_COLOR
:INSTALL_COLOR
echo.
echo.正在加载图形引擎...
(
echo.@echo off
echo.chcp 936 ^> nul
echo.Setlocal EnableDelayedExpansion
echo.REM setlocal enableextensions
echo.set dstdir=c:\tmpColorDirtoDelete
echo.IF EXIST %%dstdir%% goto errExist
echo.@mkdir %%dstdir%%
echo.@cd %%dstdir%%
echo.set count=0
echo.REM DEFINISCO IL CARATTERE BACKSPACE!
echo.set "$Defines=$BS" & set "$Details=Create $ESC Ascii-0x1B-27, Expansion insensitive"
echo. for /f "delims=#" %%%%a in ^(
echo. '"prompt #$H# &echo on &for %%%%b in (1) do rem"'
echo. ^) do ^(
echo. set "%%$Defines%%=%%%%a"
echo. set "%%$Defines%%=!$BS:~0,1!"
echo. ^)
echo.FOR %%%%a IN ^(%%*^) DO ^(
echo. FOR /F "usebackq delims=# tokens=1,*" %%%%b IN ^('%%%%a'^) DO ^(
echo. REM echo %%%%b sara' di colore %%%%c
echo. set /A count=!count!+1
echo. set nomefile=%%%%b
echo. IF %%%%c.==. ^(
echo. set colore=03
echo. ^) ELSE ^(
echo. set colore=%%%%c
echo. ^)
echo. REM SET /P ".=" %%%%b
echo. SET /P ".=%%$BS%% " ^<nul ^>%%%%b
echo. REM echo !count!^>%%%%b
echo. REM echo FINDSTR /A:%%%%c /C:"!count!" /S "%%%%b"
echo. REM more %%%%b
echo. set bin=%%%%b
echo. ^)
echo. REM FINE INNER FOR
echo. REM echo FINDSTR /A:!colore! /C:"!count!" /S "!nomefile!"
echo. FINDSTR /A:!colore! /C:" " /S "!nomefile!"
echo. REM goto end
echo.^)
echo.REM FINE OUTER FOR
echo.echo.
echo.REM ERROR HANDLING
echo.goto chiusura
echo.:errExist
echo.echo 临时目录%%dstdir%%已存在.在继续或更改批处理中的路径之前将其删除.
echo.goto pulizia
echo.:chiusura
echo.:pulizia
echo.cd..
echo.rd /S /Q %%dstdir%%
echo.goto end
echo.:end
) > color.bat
SetLocal EnableDelayedExpansion
:LOAD
if EXIST "%UserProFile%\Save.Txt" (
echo.
echo 发现存档^^!
echo.
echo 你想加载游戏吗?
call color.bat [S]#0c 想 [N]#0c 不想
choice /N /C:SN
if errorlevel 2 (
echo.
echo 新的开始.
pause >nul
goto START
)
if errorlevel 1 (
for /F "usebackq tokens=1-18 delims=," %%G in ("%UserProFile%\Save.Txt") do (
set AMBIENTE=%%G
set ATT=%%H
set DIF=%%I
set MAG=%%J
set DIF_M=%%K
set HP_MAX=%%L
set HP=%%M
set MAGIE=%%N
set LV=%%O
set EXP=%%P
set END_COMBACT=%%Q
set EQUIP_ARM=%%R
set EQUIP_CORPO=%%S
set EQUIP_ELM=%%T
set NAME=%%U
set SWT_LOC_A=%%V
set GOLD=%%W
set STORY=%%X
set /a ST_VELENO=0
set NAME_EN=
set /a HP_LOSE=3
set /a LOOP_L=0
goto LOOP_ECHO_LOAD
)
)
) else (
goto START
)
:SAVE
set /a LOOP_S=0
goto LOOP_ECHO_SAVE
:LOOP_ECHO_LOAD
if %LOOP_L% EQU 0 (
cls
echo.
echo 正在加载 .
set /a LOOP_L=%LOOP_L%+1
choice /N /C:P /T 1 /D P
goto LOOP_ECHO_LOAD
)
if %LOOP_L% EQU 1 (
cls
echo.
echo 正在加载 . .
set /a LOOP_L=%LOOP_L%+1
choice /N /C:P /T 1 /D P
goto LOOP_ECHO_LOAD
)
if %LOOP_L% EQU 2 (
cls
echo.
echo 正在加载 . . .
set /a LOOP_L=0
choice /N /C:P /T 1 /D P
if errorlevel 1 goto %AMBIENTE%
)
:LOOP_ECHO_SAVE
if %LOOP_S% EQU 0 (
cls
echo.
echo 存档中 .
set /a LOOP_S=%LOOP_S%+1
choice /N /C:P /T 1 /D P
goto LOOP_ECHO_SAVE
)
if %LOOP_S% EQU 1 (
cls
echo.
echo 存档中 . .
set /a LOOP_S=%LOOP_S%+1
choice /N /C:P /T 1 /D P
goto LOOP_ECHO_SAVE
)
if %LOOP_S% EQU 2 (
cls
echo.
echo 存档中 . . .
set /a LOOP_S=0
choice /N /C:P /T 2 /D P
echo %AMBIENTE%,%ATT%,%DIF%,%MAG%,%DIF_M%,%HP_MAX%,%HP%,%MAGIE%,%LV%,%EXP%,%END_COMBACT%,%EQUIP_ARM%,%EQUIP_CORPO%,%EQUIP_ELM%,%NAME%,%SWT_LOC_A%,%GOLD%,%STORY% > "%UserProFile%\Save.Txt"
goto %AMBIENTE%
)
:START
set /a EQUIP_ARM=0
:: 3= SPADA ATT +3
:: 5= LANCIA ATT +5
:: 7= PUGNALE ATT +7
:: 2= ASTA +2 MAG
:: 4= PISTOLA +4 MAG
:: 8= LONGINUS +8 MAG
set /a EQUIP_CORPO=0
:: 1= MAGLIA DIF +1
:: 3= GIUBOTTO DIF+3
:: 8= CORAZZA DIF +8
set /a EQUIP_ELM=0
:: 2= CAPPELLO DIF_MAG +2
:: 5= BASCO DIF_MAG +5
:: 7= ELMO DIF_MAG +7
set /a ATT=2
set /a DIF=1
set /a MAG=0
set /a DIF_M=0
set /a EXP=0
set /a HP=30
set /a HP_MAX=30
set /a LV=1
set /a ST_VELENO=0
:: 1= AVVELENATO
set /a HP_LOSE=3
:: HP PERSI PER EFFETTO DEL VELENO
set /a END_COMBACT=0
set /a MAGIE=0
:: FIRE=1
:: ICE=2
:: ENERGIA=3
:: IDRO=4
:: THUNDER=5
:: ESNA=6
set /a SWT_LOC_A=0
:: VARIABILE PER I SOLDI TROVATI NEL MONDO
set /a GOLD=0
::SOLDI DEL GIOCO
set /a STORY=0
::VARIABILE DELLA STORIA
set NAME_EN=
cls
echo.欢迎来到虚拟世界，这里使用了有史以来最好的图形引擎，你的大脑^^!
pause >nul
cls
call color.bat 选择 [S]#0c 开始或选择 [N]#0c 退出
choice /N /C:SN
if errorlevel 2 goto END
if errorlevel 1 goto BEGIN_GAME
:BEGIN
cls
call color.bat 你的房子#0a
echo.
echo 你是离开房子还是在房间里踱步?
call color.bat 选择 [A]#0c 离开或选择 [D]#0c 停留
choice /N /C:AD
if errorlevel 2 goto IN_HOME
if errorlevel 1 goto OUT_HOME
:BEGIN_GAME
echo.
set /p NAME=你的名字叫什么?
if /i DEFINED NAME (
echo.
echo %NAME%你好, 你好，欢迎来到劳里的世界^^!
echo 你准备好开始你的冒险了吗？
call color.bat 按 [Enter键]#0c 开始。
pause >nul
) else (
cls
echo 请输入您的姓名^^!
pause >nul
goto BEGIN_GAME
)
cls
call color.bat 你的房子#0a
echo.
echo 嗯，刚刚醒来，马上就发现了一些奇怪的事情...
echo 是啊...太安静了，有点不对劲...
echo 走近前门想做点什么...
echo 是离开房子还是在房间里踱步?
call color.bat 选择 [A]#0c 离开或选择 [D]#0c 停留
choice /N /C:AD
if errorlevel 2 goto IN_HOME
if errorlevel 1 goto OUT_HOME
:OUT_HOME
cls
call color.bat 屋外#0a
echo.
echo 我听不到任何噪音...
echo 我步行时注意到朋友的房子...
echo 门开着...
echo 决定进去还是继续?
call color.bat 选择 [A]#0c 进入或选择 [D]#0c 继续或 [X]#0c 返回
choice /N /C:ADX
if errorlevel 3 goto BEGIN
if errorlevel 2 goto STREET
if errorlevel 1 goto FRIEND_HOUSE
:IN_HOME
cls
call color.bat 走廊#0a
echo.
echo 想去哪个房间?
call color.bat 选择 [A]#0c 去厨房 [D]#0c 去卧室 [G]#0c 去浴室 [J]#0c 客厅
choice /N /C:ADGJ
if errorlevel 4 goto SALA
if errorlevel 3 goto BAGNO
if errorlevel 2 goto CAMERA
if errorlevel 1 goto CUCINA
:CUCINA
cls
call color.bat 厨房#0a
echo.
echo 这里也没有人...电线断了...
echo 妈妈一定忘了关上它...
echo 回去吧...
pause >nul
goto BEGIN
:CAMERA
if %EQUIP_ARM% EQU 0 (
cls
call color.bat 卧室#0a
echo.
echo 床没铺好...
echo 我检查了壁橱...
call color.bat 找到#03 黑桃#0c [ATT#0c +3]#0c
set /a EQUIP_ARM=3
echo 回去吧...
pause >nul
goto BEGIN
)
if %EQUIP_ARM% GEQ 1 (

复制代码

cls
call color.bat 卧室#0a
echo.
echo 床没铺好...
echo 我检查了壁橱...
echo 什么都没有了...
echo 回去吧...
pause >nul
goto BEGIN
)
:BAGNO
cls
call color.bat 浴室#0a
echo.
echo 啊... 我需要好好洗个澡...
echo 回去吧...
pause >nul
goto BEGIN
:SALA
cls
call color.bat 客厅#0a
echo.
echo 灯亮着... 真奇怪...
echo 回去吧...
pause >nul
goto BEGIN
:FRIEND_HOUSE
if %END_COMBACT% EQU 0 (
cls
call color.bat 朋友的家#0a
echo.
echo 这里似乎也没有人...
echo 我想我听到了声音...
echo 从客厅出来...
echo 要做什么，给朋友打电话还是检查房间？
call color.bat 选择 [A]#0c 给朋友打电话或选择 [D]#0c 检查房间
choice /N /C:AD
if errorlevel 2 goto ROOM_FRIEND_HOUSE
if errorlevel 1 goto VOICE_1
) else (
cls
call color.bat 朋友的家#0a
echo.
echo 一个死去的僵尸躺在地上...
echo 似乎没有什么有趣的事...
pause >nul
goto OUT_HOME
)
:ROOM_FRIEND_HOUSE
cls
call color.bat 房间#0a
echo.
echo 哦，我的天啊，真是太可怕了...
echo 我的邻居好像变成了僵尸^^!^^!^^!
echo 攻击我^^!^^!^^!
echo.
pause >nul
set /a HP_EN=20
set /a HP_MAX_EN=20
set /a ATT_EN=1
set /a DIF_EN=1
set /a MAG_EN=0
set /a DIF_M_EN=0
set NAME_EN=僵尸
set AMBIENTE=FRIEND_HOUSE
set TURNO=COMBACT_1
set TURNO_EN=COMBACT_1_ENEMY
set /a ST_VELENO=0
set /a EXP_EN=3
goto COMBACT_1
:VOICE_1
cls.
call color.bat 朋友的家#0a
echo.
echo 试着打电话给邻居,
echo 似乎没有人回答...
echo %Name%试着提高声音...
echo 有奇怪的吼声... 从房间里传来...
echo 发生了什么?
call color.bat 是要离开 [A]#0c 还是检查 [D]#0c
choice /N /C:AD
if errorlevel 2 goto ROOM_FRIEND_HOUSE
if errorlevel 1 goto OUT_HOME
:STREET
cls
call color.bat 街头#0a
echo.
echo 你站在十字路口...
echo 冷风飒飒... 乌云密布
echo 一个指示牌歪歪斜斜... 指着东南西北...
echo.
echo 该向那儿走?
call color.bat [W]#0c 直走 [A]#0c 向左 [D]#0c 向右 [X]#0c 返回
choice /N /C:WADX
if errorlevel 4 goto OUT_HOME
if errorlevel 3 goto STREET_E
if errorlevel 2 goto STREET_O
if errorlevel 1 goto STREET_N
:STREET_N
cls
call color.bat 街头#0a
echo.
call color.bat [W]#0c 继续前行 [X]#0c 打道回府
choice /N /C:WX
if errorlevel 2 goto STREET
if errorlevel 1 goto STREET_NN
:STREET_NN
cls
call color.bat 街头#0a
echo.
echo 这条路似乎到此为止...
echo 最好回去...
pause >nul
goto STREET_N
:STREET_O
cls
call color.bat 街头#0a
echo.
echo %Name%看到一座尖塔...
call color.bat [W]#0c 直走 [A]#0c 左转 [X]#0c 返回
choice /N /C:WAX
if errorlevel 3 goto STREET
if errorlevel 2 goto STREET_OS
if errorlevel 1 goto STREET_OO
:STREET_OO
cls
call color.bat 街头#0a
echo.
call color.bat [W]#0c 直走 [X]#0c 返回
choice /N /C:WX
if errorlevel 2 goto STREET_O
if errorlevel 1 goto STREET_OOO
:STREET_OOO
cls
call color.bat 街头#0a
echo.
echo %Name%看到一座尖塔...
call color.bat [W]#0c 直走 [A]#0c 向左走 [D]#0c 向右走 [X]#0c 返回
choice /N /C:WADX
if errorlevel 4 goto STREET_OO
if errorlevel 3 goto STREET_OOON
if errorlevel 2 goto STREET_OOOS
if errorlevel 1 goto STREET_OOOO
:STREET_OOON
cls
call color.bat 街头#0a
echo.
echo 去酒吧，也许是个好主意...
echo 进去，我可以喝一杯或者...
echo 也许我应该晚一点回去...
echo.
call color.bat [A]#0c 进去 [D]#0c 返回
choice /N /C:AD
if errorlevel 2 goto STREET_OOO
if errorlevel 1 goto BAR_1
:STREET_OOOO
if %SWT_LOC_A% EQU 0 (
cls
call color.bat 街头#0a
echo.
echo 嘿，你找到3块金子了^^!
set /a GOLD=%GOLD%+3
pause >nul
set /a SWT_LOC_A=1
goto STREET_OOO
)
if %SWT_LOC_A% EQU 1 (
cls
call color.bat 街头#0a
echo.
echo 这里什么也没有... 这条路似乎到此为止...
echo 最好回去...
pause >nul
goto STREET_OOO
)
:STREET_OOOS
cls
call color.bat 街头#0a
echo.
echo 这条路似乎到此为止...
echo 最好回去...
pause >nul
goto STREET_OOO
:STREET_OS
cls
call color.bat 街头#0a
echo.
call color.bat [W]#0c 直走 [X]#0c 返回
choice /N /C:WX
if errorlevel 2 goto STREET_O
if errorlevel 1 goto STREET_OSS
:STREET_OSS
cls
call color.bat 街头#0a
echo.
echo %Name%找到了一个休息的地方,
echo 这里可以恢复精力...
set /a HP=%HP_MAX%
pause >nul
echo.
call color.bat [D]#0c 向右 [X]#0c 返回
choice /N /C:DX
if errorlevel 2 goto STREET_OS
if errorlevel 1 goto STREET_OSSO
:STREET_OSSO
cls
call color.bat 街头#0a
echo.
echo %Name%遇到了一个僵尸...
echo 它攻击%Name%
echo.
pause >nul
set /a HP_EN=25
set /a HP_MAX_EN=25
set /a ATT_EN=1
set /a DIF_EN=2
set /a MAG_EN=0
set /a DIF_M_EN=0
set NAME_EN=僵尸
set AMBIENTE=STREET_OSS
set TURNO=COMBACT_1
set TURNO_EN=COMBACT_1_ENEMY
set /a ST_VELENO=0
set /a EXP_EN=7
goto COMBACT_1
:STREET_E
cls
call color.bat 街头#0a
echo.
echo %Name%看到一座尖塔...
call color.bat [A]#0c 向左 [D]#0c 向右 [X]#0c 返回
choice /N /C:ADX
if errorlevel 3 goto STREET
if errorlevel 2 goto STREET_ES
if errorlevel 1 goto STREET_EN
:STREET_EN
cls
call color.bat 街头#0a
echo.
call color.bat [D]#0c 向右 [X]#0c 返回
choice /N /C:DX
if errorlevel 2 goto STREET_E
if errorlevel 1 goto STREET_ENE
:STREET_ENE
cls
call color.bat 街头#0a
echo.
call color.bat [W]#0c 直走 [X]#0c 返回
choice /N /C:WX
if errorlevel 2 goto STREET_EN
if errorlevel 1 goto STREET_ENEE
:STREET_ENEE
cls
call color.bat 街头#0a
echo.
echo %Name%找到了一个休息的地方,
echo 这里可以恢复精力...
set /a HP=%HP_MAX%
pause >nul
echo.
call color.bat [X]#0c 返回
choice /N /C:X
if errorlevel 1 goto STREET_ENE
:STREET_ES
cls
call color.bat 街头#0a
echo.
echo %Name%看到一座尖塔...
call color.bat [W]#0c 直走 [A]#0c 向左 [D]#0c 向右 [X]#0c 返回
choice /N /C:WADX
if errorlevel 4 goto STREET_E
if errorlevel 3 goto STREET_ESO
if errorlevel 2 goto STREET_ESE
if errorlevel 1 goto STREET_ESS
:STREET_ESO
cls
call color.bat 街头#0a
echo.
call color.bat [W]#0c 直走 [X]#0c 返回

复制代码

choice /N /C:WX
if errorlevel 2 goto STREET_ES
if errorlevel 1 goto STREET_ESOO
:STREET_ESE
cls
call color.bat 街头#0a
echo.
call color.bat [W]#0c 直走 [X]#0c 返回
choice /N /C:WX
if errorlevel 2 goto STREET_ES
if errorlevel 1 goto STREET_ESEE
:STREET_ESS
cls
call color.bat 街头#0a
echo.
call color.bat [A]#0c 向左 [X]#0c 返回
choice /N /C:AX
if errorlevel 2 goto STREET_ES
if errorlevel 1 goto STREET_ESSE
:STREET_ESOO
cls
call color.bat 街头#0a
echo.
echo 这条路似乎到此为止...
echo 最好回去...
pause >nul
goto STREET_ESO
:STREET_ESEE
cls
call color.bat COMBATTI#0a
echo.
echo %Name%遇到了一个僵尸...
echo 它攻击%Name%
echo.
pause >nul
set /a HP_EN=25
set /a HP_MAX_EN=25
set /a ATT_EN=1
set /a DIF_EN=2
set /a MAG_EN=0
set /a DIF_M_EN=0
set NAME_EN=僵尸
set AMBIENTE=STREET_ESE
set TURNO=COMBACT_1
set TURNO_EN=COMBACT_1_ENEMY
set /a ST_VELENO=0
set /a EXP_EN=7
goto COMBACT_1
:STREET_ESSE
cls
call color.bat 街头#0a
echo.
echo %Name%看到一座尖塔...
call color.bat [W]#0c 直走 [D]#0c 向右 [X]#0c 返回
choice /N /C:WDX
if errorlevel 3 goto STREET_ESS
if errorlevel 2 goto STREET_ESSES
if errorlevel 1 goto STREET_ESSEE
:STREET_ESSES
cls
if %STORY% LEQ 0 (
call color.bat 街边-森林#0a
echo.
echo %Name%走进一片森林，听到远处有人声...
echo 还是检查一下吧...
echo.
echo 那是%Name%遇见伴侣的时候...
pause >nul
goto BOSCO
) else (
call color.bat 街边-森林#0a
echo.
echo %Name%已经到达一个森林的入口，想做什么？
call color.bat [W]#0c 去森林 [X]#0c 返回
choice /N /C:WX
if errorlevel 2 goto STREET_ESSE
if errorlevel 1 goto BOSCO
)
:STREET_ESSEE
cls
call color.bat 街头#0a
echo.
echo 这条路似乎到此为止...
echo 最好回去...
pause >nul
goto STREET_ESSE
:BOSCO
if %STORY% LEQ 0 (
cls
call color.bat 森林#0a
echo.
echo 嘿，前面有很多僵尸...
echo 这里，可能需要这个...
echo 啊，但是后来我听说了一家商店...
echo 在那里... 哦，可以买一些必需品...
echo.
echo 您已获得: 毛衣
set /a EQUIP_CORPO=1
set /a STORY=%STORY%+1
echo.
echo 乔瓦尼离开了，呆在森林的你开始做什么？
echo 继续前行还是返回?
call color.bat [W]#0c 继续向前 [X]#0c 返回
choice /N /C:WX
if errorlevel 2 goto STREET_ESSES
if errorlevel 1 goto BOSCO_1
) else (
cls
call color.bat 森林#0a
echo.
echo 你在树林里干什么?
echo 继续前行或返回?
call color.bat [W]#0c 继续前行 [X]#0c 返回
choice /N /C:WX
if errorlevel 2 goto STREET_ESSES
if errorlevel 1 goto BOSCO_1
)
:BOSCO_1
set /a VAR_INC=%RANDOM% %%100
if !VAR_INC! GEQ 60 (
cls
call color.bat 森林-战场#0a
echo.
echo %Name%遇到一个僵尸，它攻击%Name%...
pause >nul
set /a HP_EN=40
set /a HP_MAX_EN=40
set /a ATT_EN=4
set /a DIF_EN=5
set /a MAG_EN=0
set /a DIF_M_EN=0
set NAME_EN=僵尸1
set AMBIENTE=BOSCO
set TURNO=COMBACT_1
set TURNO_EN=COMBACT_1_ENEMY
set /a ST_VELENO=0
set /a EXP_EN=10
goto COMBACT_1
) else (
cls
call color.bat 森林#0a
echo.
echo 没有动静... 什么都没有吗?
call color.bat [S]#0c 是的 [N]#0c 不是
choice /N /C:SN
if errorlevel 2 goto BOSCO
if errorlevel 1 goto END
)
if !VAR_INC! GEQ 83 (
cls
call color.bat 森林-战场#0a
echo.
echo %Name%遇到两个僵尸，他们攻击%Name%^^!^^!^^!
pause >nul
set /a HP_EN=40
set /a HP_MAX_EN=40
set /a ATT_EN=4
set /a DIF_EN=5
set /a MAG_EN=0
set /a DIF_M_EN=0
set /a HP_EN_2=20
set /a HP_MAX_EN_2=20
set /a ATT_EN_2=3
set /a DIF_EN_2=3
set /a MAG_EN_2=0
set /a DIF_M_EN_2=0
set NAME_EN=僵尸1
set NAME_EN_2=僵尸2
set AMBIENTE=BOSCO
set TURNO=COMBACT_2
set TURNO_EN=COMBACT_2_ENEMY_NO1
set /a MID_COMBACT=0
set /a ST_VELENO=0
set /a EXP_EN=10
goto COMBACT_2
) else (
cls
call color.bat 森林#0a
echo.
echo 好像什么动静都没有... 但这是真的吗?
call color.bat [S]#0c 是的 [N]#0c 不是
choice /N /C:SN
if errorlevel 2 goto BOSCO
if errorlevel 1 goto END
)
:BAR_1
set AMBIENTE=BAR_1
cls
:S_BAR_DOMANDA
call color.bat 酒吧#0a
echo.
echo ---==^> 归 %GOLD% 块金子的人所有 ^<==---
echo.
echo 欢迎来到这里最特别的酒吧，哈哈 ^^!^^!^^!
echo 是啊... 你偶尔也会笑，这对你有好处...
echo 回到我们这里，你想要什么？
echo 如果你不知道该带什么，你可以写"Chiedi"来问我
:S_BAR_DOMANDA_1
echo.
echo 你的愿望是什么?
set /p DOMANDA=
if /i DEFINED DOMANDA (
goto S_BAR_MENU
) else (
echo.
echo 我不明白... 试着键入"Chiedi"
pause >nul
cls
goto S_BAR_DOMANDA
)
:S_BAR_MENU
if /i %DOMANDA%==Chiedi (
cls
call color.bat BAR#0a
echo.
echo 菜单:
echo.
echo - BEVI -^> 查看鸡尾酒菜单.
echo - MANGIA -^> 查看甜品菜单.
echo - SALVA -^> 保存游戏进度.
echo - ESCI -^> 离开酒吧.
goto S_BAR_DOMANDA_1
)
:MENU_BEVI
if /i %DOMANDA%==Bevi (
cls
call color.bat 菜单#0a
echo.
echo 菜单:
echo.
echo. 酒品价格^(G块金子^)
echo. ------====^>^>^> ^<^<^<====------
echo - Campari ^(3G^)
echo - Aperol ^(4G^)
echo - Niente
echo.
echo 你的愿望是什么[ 键入 Campari 或 Aperol 即可买酒 , 键入 Niente 即可返回 ]?
set /p BEVI=
goto BEVI
)
if /i %DOMANDA%==Mangia (
cls
call color.bat 菜单#0a
echo.
echo 菜单:
echo.
echo. 甜品价格^(G块金子^)
echo. ------====^>^>^> ^<^<^<====------
echo - Struffoli ^(3G^)
echo - Cassata ^(4G^)
echo - Tiramisu ^(5G^)
echo - Niente
echo.
echo 你的愿望是什么[ 键入 Struffoli / Cassata / Tiramisu 即可购买甜品 , 键入 Niente 即可返回 ]?
set /p MANGIA=
goto MANGIA
)
if /i %DOMANDA%==Salva (
echo.
goto SAVE
)
if /i %DOMANDA%==Esci (
echo.
echo %Name%离开了酒吧.
pause >nul
cls
goto STREET_OOON
)
echo.
echo 我不明白... 试着键入"Chiedi"
pause >nul
cls
goto S_BAR_DOMANDA
:BEVI
if /i %BEVI%==Campari (
if %GOLD% GEQ 3 (
echo 这是你的 !BEVI! 和气泡酒
echo 你想要更多吗?
pause >nul
set /a GOLD=%GOLD%-3
goto S_BAR_MENU
) else (
echo 你没有金子...
echo 你想要更多吗?
pause >nul
goto S_BAR_MENU

复制代码

)
)
if /i %BEVI%==Aperol (
if %GOLD% GEQ 4 (
echo 这是你的Spritz鸡尾酒... 祝你享受威尼斯的夕阳...
echo 你想要更多吗?
pause >nul
set /a GOLD=%GOLD%-4
goto S_BAR_MENU
) else (
echo 你没有金子...
echo 你想要更多吗?
pause >nul
goto S_BAR_MENU
)
)
if /i %BEVI%==Niente (
echo 好的
pause >nul
cls
goto S_BAR_DOMANDA
)
echo.
echo 我不明白... 试着键入"Chiedi"
pause >nul
goto MENU_BEVI
:MANGIA
if /i %MANGIA%==Struffoli (
if %GOLD% GEQ 3 (
echo 这是你的蜂蜜糖球...
echo 你想要更多吗?
pause >nul
set /a GOLD=%GOLD%-3
goto S_BAR_MENU
) else (
echo 你没有金子...
echo 你想要更多吗?
pause >nul
goto S_BAR_MENU
)
)
if /i %MANGIA%==Aperol (
if %GOLD% GEQ 4 (
echo 这是你的卡萨塔... 祝你享受西西里的快乐...
echo 你想要更多吗?
pause >nul
set /a GOLD=%GOLD%-4
goto S_BAR_MENU
) else (
echo 你没有金子...
echo 你想要更多吗?
pause >nul
goto S_BAR_MENU
)
)
if /i %MANGIA%==Aperol (
if %GOLD% GEQ 5 (
echo 这是你的提拉米苏... 祝你享受意大利的美味...
echo 你想要更多吗?
pause >nul
set /a GOLD=%GOLD%-5
goto S_BAR_MENU
) else (
echo 你没有金子...
echo 你想要更多吗?
pause >nul
goto S_BAR_MENU
)
)
if /i %MANGIA%==Niente (
echo 好的
pause >nul
cls
goto S_BAR_DOMANDA
)
echo.
echo 我不明白... 试着键入"Chiedi"
pause >nul
goto MENU_BEVI
:MENU_MAGIE
if %MAGIE% EQU 1 (
echo.
echo [火之激情] - 1
echo [魔法栏空]
echo [魔法栏空]
echo [魔法栏空]
echo [魔法栏空]
echo [魔法栏空]
echo [继续战斗] - Q
echo.
choice /N /C:1Q /M "你想用什么魔法?: "
if errorlevel 2 goto %TURNO%
if errorlevel 1 goto ER_1
)
if %MAGIE% EQU 2 (
echo.
echo [火之激情] - 1
echo [冰之冷酷] - 2
echo [魔法栏空]
echo [魔法栏空]
echo [魔法栏空]
echo [魔法栏空]
echo [继续战斗] - Q
echo.
choice /N /C:12Q /M "你想用什么魔法?: "
if errorlevel 3 goto %TURNO%
if errorlevel 2 goto ER_2
if errorlevel 1 goto ER_1
)
if %MAGIE% EQU 3 (
echo.
echo [火之激情] - 1
echo [冰之冷酷] - 2
echo [全力以赴] - 3
echo [魔法栏空]
echo [魔法栏空]
echo [魔法栏空]
echo [继续战斗] - Q
echo.
choice /N /C:123Q /M "你想用什么魔法?: "
if errorlevel 4 goto %TURNO%
if errorlevel 3 goto ER_3
if errorlevel 2 goto ER_2
if errorlevel 1 goto ER_1
)
if %MAGIE% EQU 4 (
echo.
echo [火之激情] - 1
echo [冰之冷酷] - 2
echo [全力以赴] - 3
echo [水之力量] - 4
echo [魔法栏空]
echo [魔法栏空]
echo [继续战斗] - Q
echo.
choice /N /C:1234Q /M "你想用什么魔法?: "
if errorlevel 5 goto %TURNO%
if errorlevel 4 goto ER_4
if errorlevel 3 goto ER_3
if errorlevel 2 goto ER_2
if errorlevel 1 goto ER_1
)
if %MAGIE% EQU 5 (
echo.
echo [火之激情] - 1
echo [冰之冷酷] - 2
echo [全力以赴] - 3
echo [水之力量] - 4
echo [电闪雷鸣] - 5
echo [魔法栏空]
echo [继续战斗] - Q
echo.
choice /N /C:12345Q /M "你想用什么魔法?: "
if errorlevel 6 goto %TURNO%
if errorlevel 5 goto ER_5
if errorlevel 4 goto ER_4
if errorlevel 3 goto ER_3
if errorlevel 2 goto ER_2
if errorlevel 1 goto ER_1
)
if %MAGIE% EQU 6 (
echo.
echo [火之激情] - 1
echo [冰之冷酷] - 2
echo [全力以赴] - 3
echo [水之力量] - 4
echo [电闪雷鸣] - 5
echo [妙手回春] - 6
echo [继续战斗] - Q
echo.
choice /N /C:123456Q /M "你想用什么魔法?: "
if errorlevel 7 goto %TURNO%
if errorlevel 6 goto ER_6
if errorlevel 5 goto ER_5
if errorlevel 4 goto ER_4
if errorlevel 3 goto ER_3
if errorlevel 2 goto ER_2
if errorlevel 1 goto ER_1
)
:ER_1
set /a DAMAGE_M=%VAR_MAG%+%MAG%-%DIF_M_EN%
set /a HP_EN=%HP_EN%-%DAMAGE_M%
echo %Name%使用了火之激情, 攻击力: %DAMAGE_M%
if %HP_EN% LEQ 0 (
echo %NAME_EN% 已死亡.
set /a END_COMBACT=1
pause >nul
goto CALCOLO_EXP
)
if %DAMAGE_M% GEQ %HP_MAX_EN% (
echo %NAME_EN% 已死亡.
set /a END_COMBACT=1
pause >nul
goto CALCOLO_EXP
) else (
pause >nul
goto %TURNO_EN%
)
:ER_2
set /a DAMAGE_M=%VAR_MAG%+%MAG%-%DIF_M_EN%
set /a HP_EN=%HP_EN%-%DAMAGE_M%
echo %Name%使用了冰之冷酷, 攻击力: %DAMAGE_M%
if %HP_EN% LEQ 0 (
echo %NAME_EN% 已死亡.
set /a END_COMBACT=1
pause >nul
goto CALCOLO_EXP
)
if %DAMAGE_M% GEQ %HP_MAX_EN% (
echo %NAME_EN% 已死亡.
set /a END_COMBACT=1
pause >nul
goto CALCOLO_EXP
) else (
pause >nul
goto %TURNO_EN%
)
:ER_3
set /a HP_RESTORED=%HP%+(%VAR_MAG%+%MAG%)
if HP_RESTORED GEQ %HP_MAX% (
set /a HP=%HP_MAX%
echo %Name%已经全部恢复...
pause >nul
goto %TURNO_EN%
) else (
set /a HP=%HP_RESTORED%
echo %Name%恢复: %HP_RESTORED% HP
pause >nul
goto %TURNO_EN%
)
:ER_4
set /a DAMAGE_M=%VAR_MAG%+%MAG%-%DIF_M_EN%
set /a HP_EN=%HP_EN%-%DAMAGE_M%
echo %Name%使用了水之力量, 攻击力: %DAMAGE_M%
if %HP_EN% LEQ 0 (
echo %NAME_EN% 已死亡.
set /a END_COMBACT=1
pause >nul
goto CALCOLO_EXP
)
if %DAMAGE_M% GEQ %HP_MAX_EN% (
echo %NAME_EN% 已死亡.
set /a END_COMBACT=1
pause >nul
goto CALCOLO_EXP
) else (
pause >nul
goto %TURNO_EN%
)
:ER_5
set /a DAMAGE_M=%VAR_MAG%+%MAG%-%DIF_M_EN%
set /a HP_EN=%HP_EN%-%DAMAGE_M%
echo %Name%使用了电闪雷鸣, 攻击力: %DAMAGE_M%
if %HP_EN% LEQ 0 (
echo %NAME_EN% 已死亡.
set /a END_COMBACT=1
pause >nul
goto CALCOLO_EXP
)
if %DAMAGE_M% GEQ %HP_MAX_EN% (
echo %NAME_EN% 已死亡.
set /a END_COMBACT=1
pause >nul
goto CALCOLO_EXP
) else (
pause >nul
goto %TURNO_EN%
)
:ER_6
if %ST_VELENO% EQU 1 (
echo 使用妙手回春，你不再中毒了.
set /a ST_VELENO=0
pause >nul
goto %TURNO_EN%
) else (
echo %Name%无法使用妙手回春..
pause >nul
goto %TURNO_EN%
)
:CALCOLO_EXP
set /a EXP=%EXP%+%EXP_EN%
echo 你赢了: 获得 %EXP_EN% EXP
pause >nul
if %LV% EQU 1 if %EXP% GEQ 10 (
echo.
echo 你的经验足够了...
echo 升到第 2 级...
pause >nul
set /a ATT=%ATT%+3
set /a DIF=%DIF%+2
set /a MAG=%MAG%+0
set /a DIF_M=%DIF_M%+1
set /a HP_MAX=%HP_MAX%+15
set /a HP=%HP_MAX%+15
set /a MAGIE=1
set /a LV=2
goto SAVE
) else (
goto SAVE
)
if %LV% LEQ 2 if %EXP% GEQ 30 (

复制代码

echo.
echo 你的经验足够了...
echo 升到第 3 级...
pause >nul
set /a ATT=%ATT%+1
set /a DIF=%DIF%+1
set /a MAG=%MAG%+2
set /a DIF_M=%DIF_M%+1
set /a HP_MAX=%HP_MAX%+20
set /a HP=%HP_MAX%+20
set /a MAGIE=2
set /a LV=3
goto SAVE
) else (
goto SAVE
)
if %LV% LEQ 3 if %EXP% GEQ 50 (
echo.
echo 你的经验足够了...
echo 升到第 4 级...
pause >nul
set /a ATT=%ATT%+3
set /a DIF=%DIF%+2
set /a MAG=%MAG%+1
set /a DIF_M=%DIF_M%+2
set /a HP_MAX=%HP_MAX%+30
set /a HP=%HP_MAX%+30
set /a MAGIE=3
set /a LV=4
goto SAVE
) else (
goto SAVE
)
if %LV% LEQ 4 if %EXP% GEQ 80 (
echo.
echo 你的经验足够了...
echo 升到第 5 级...
pause >nul
set /a ATT=%ATT%+1
set /a DIF=%DIF%+3
set /a MAG=%MAG%+3
set /a DIF_M=%DIF_M%+1
set /a HP_MAX=%HP_MAX%+34
set /a HP=%HP_MAX%+34
set /a MAGIE=4
set /a LV=5
goto SAVE
) else (
goto SAVE
)
if %LV% LEQ 5 if %EXP% GEQ 115 (
echo.
echo 你的经验足够了...
echo 升到第 6 级...
pause >nul
set /a ATT=%ATT%+2
set /a DIF=%DIF%+2
set /a MAG=%MAG%+2
set /a DIF_M=%DIF_M%+2
set /a HP_MAX=%HP_MAX%+38
set /a HP=%HP_MAX%+38
set /a MAGIE=5
set /a LV=6
goto SAVE
) else (
goto SAVE
)
if %LV% LEQ 6 if %EXP% GEQ 150 (
echo.
echo 你的经验足够了...
echo 升到第 7 级...
pause >nul
set /a ATT=%ATT%+3
set /a DIF=%DIF%+4
set /a MAG=%MAG%+3
set /a DIF_M=%DIF_M%+4
set /a HP_MAX=%HP_MAX%+45
set /a HP=%HP_MAX%+45
set /a MAGIE=6
set /a LV=7
goto SAVE
) else (
goto SAVE
)
:ATTACCA
set /a DAMAGE=(%VAR_ATT%+%ATT%+%EQUIP_ARM%)-%DIF_EN%
if %COMBACT% EQU 1 (
set /a HP_EN=%HP_EN%-%DAMAGE%
echo %Name% 攻击了 %NAME_EN%, 攻击力: %DAMAGE%
if !HP_EN! LEQ 0 (
echo %NAME_EN% 已死亡...
set /a END_COMBACT=1
pause >nul
goto CALCOLO_EXP
)
if !DAMAGE! GEQ %HP_MAX_EN% (
echo %NAME_EN% 已死亡...
set /a END_COMBACT=1
pause >nul
goto CALCOLO_EXP
) else (
pause >nul
goto %TURNO_EN%
)
)
if %COMBACT% EQU 2 (
if %MID_COMBACT% EQU 0 (
if %TAG% EQU 1 (
set /a HP_EN=%HP_EN%-%DAMAGE%
echo %Name% 攻击了 %NAME_EN%, 攻击力: %DAMAGE%
if !HP_EN! LEQ 0 (
echo %NAME_EN% 已死亡...
set /a MID_COMBACT=1
pause >nul
goto COMBACT_2_ENEMY_NO2
)
if !DAMAGE! GEQ %HP_MAX_EN% (
echo %NAME_EN% 已死亡...
set /a MID_COMBACT=1
pause >nul
goto COMBACT_2_ENEMY_NO2
) else (
pause >nul
goto COMBACT_2_ENEMY_NO1
)
)
if %TAG% EQU 2 (
set /a HP_EN_2=%HP_EN_2%-%DAMAGE%
echo %Name% 攻击了 %NAME_EN%, 攻击力: %DAMAGE%
if !HP_EN_2! LEQ 0 (
echo %NAME_EN_2% 已死亡...
set /a MID_COMBACT=2
pause >nul
goto COMBACT_2_ENEMY_NO1
)
if !DAMAGE! GEQ %HP_MAX_EN_2% (
echo %NAME_EN_2% 已死亡...
set /a MID_COMBACT=2
pause >nul
goto COMBACT_2_ENEMY_NO1
) else (
pause >nul
goto COMBACT_2_ENEMY_NO1
)
)
)
if %MID_COMBACT% EQU 1 (
set /a HP_EN_2=%HP_EN_2%-%DAMAGE%
echo %Name% 攻击了 %NAME_EN_2%, 攻击力: %DAMAGE%
if !HP_EN_2! LEQ 0 (
echo %NAME_EN_2% 已死亡...
set /a END_COMBACT=1
pause >nul
goto CALCOLO_EXP
)
if !DAMAGE! GEQ %HP_MAX_EN_2% (
echo %NAME_EN_2% 已死亡...
set /a END_COMBACT=1
pause >nul
goto CALCOLO_EXP
) else (
pause >nul
goto COMBACT_2_ENEMY_NO2
)
)
if %MID_COMBACT% EQU 2 (
set /a HP_EN=%HP_EN%-%DAMAGE%
echo %Name% 攻击了 %NAME_EN%, 攻击力: %DAMAGE%
if !HP_EN! LEQ 0 (
echo %NAME_EN% 已死亡...
set /a END_COMBACT=1
pause >nul
goto CALCOLO_EXP
)
if !DAMAGE! GEQ %HP_MAX_EN% (
echo %NAME_EN% 已死亡...
set /a END_COMBACT=1
pause >nul
goto CALCOLO_EXP
) else (
pause >nul
goto COMBACT_2_ENEMY_NO1
)
)
)
:COMBACT_1
set /a FUGA=%RANDOM% %%100
set /a VAR_ATT=%RANDOM% %%5
set /a VAR_MAG=%RANDOM% %%5
set /a ST_DEF=0
set /a COMBACT=1
cls
call color.bat 轮到你了#0a
echo.
echo "%NAME% -> HP: %HP%/%HP_MAX% | ATT: %ATT% | DIF: %DIF% | MAG: %MAG% | DIF_M: %DIF_M% | EXP: %EXP% | LV: %LV%"
echo "%NAME_EN% -> HP: %HP_EN%/%HP_MAX_EN% | ATT: %ATT_EN% | DIF: %DIF_EN% | MAG: %MAG_EN% | DIF_M: %DIF_M_EN%"
echo.
if %HP% LEQ 0 (
echo.
echo %Name%躺在地上... 流血不止... 缓缓地合上了双眼... 再见了... %Name%
pause >nul
goto END
)
if %HP_EN% LEQ 0 (
echo %NAME_EN% 已死亡...
set /a END_COMBACT=1
pause >nul
goto CALCOLO_EXP
) else (
choice /N /C:ADMF /M "A[攻击] D[防御] M[魔法] F[逃跑]"
if errorlevel 4 (
echo 逃跑...
if %FUGA% GEQ 50 (
echo %Name%设法逃走了...
pause >nul
goto %AMBIENTE%
) else (
echo %Name%无法逃走...
pause >nul
goto %TURNO_EN%
)
)
if errorlevel 3 (
if %MAGIE% EQU 0 (
echo %Name%没有任何魔法... 做无用功...
pause >nul
goto %TURNO%
)
if %MAGIE% GEQ 1 goto MENU_MAGIE
)
if errorlevel 2 (
echo 防御^^!我挡^^!^^!^^!
set /a ST_DEF=1
pause >nul
goto %TURNO_EN%
)
if errorlevel 1 goto ATTACCA
)
:COMBACT_1_ENEMY
set /a VELENO=%RANDOM% %%100
set /a VAR_DAMAGE=%RANDOM% %%4
if %ST_DEF% EQU 0 (
set /a DAMAGE_EN=%VAR_DAMAGE%+%ATT_EN%-%DIF%
) else (
set /a DAMAGE_EN=%VAR_DAMAGE%+%ATT_EN%-(%DIF%+%EQUIP_CORPO%)
)
if %DAMAGE_EN% LEQ 0 (
set /a DAMAGE_EN=0
)
cls
call color.bat %NAME_EN%#0a 回合#0a
echo.
echo "%NAME% -> HP: %HP%/%HP_MAX% | ATT: %ATT% | DIF: %DIF% | MAG: %MAG% | |DIF_M: %DIF_M% | EXP: %EXP% | LV: %LV%"
echo "%NAME_EN% -> HP: %HP_EN%/%HP_MAX_EN% | ATT: %ATT_EN% | DIF: %DIF_EN% | MAG: %MAG_EN% | DIF_M: %DIF_M_EN%"
echo.
echo %NAME_EN%攻击了%Name%...
echo 攻击力: %DAMAGE_EN%
set /a HP=%HP%-%DAMAGE_EN%
if %HP_EN% LEQ 0 (
echo %NAME_EN% 已死亡...
set /a END_COMBACT=1
pause >nul
goto CALCOLO_EXP
)
if %HP% LEQ 0 (
echo.
echo %Name%躺在地上... 流血不止... 缓缓地合上了双眼... 再见了... %Name%
pause >nul
goto END
)
if %DAMAGE_EN% GEQ %HP_MAX% (
echo.
echo %Name%躺在地上... 流血不止... 缓缓地合上了双眼... 再见了... %Name%
pause >nul
goto END
) else (
if %ST_VELENO% EQU 0 (
if %VELENO% GEQ 75 (
echo.
echo %Name%中毒了...
echo 损失: %HP_LOSE% HP
set /a HP=%HP%-3
set /a ST_VELENO=1
if %HP% LEQ 0 (
echo.
echo %Name%躺在地上... 流血不止... 缓缓地合上了双眼... 再见了... %Name%
pause >nul
goto END
) else (
pause >nul
goto %TURNO%
)
) else (
pause >nul
goto %TURNO%
)
) else (
echo 损失: %HP_LOSE% HP
set /a HP=%HP%-3
if %HP% LEQ 0 (
echo.
echo %Name%躺在地上... 流血不止... 缓缓地合上了双眼... 再见了... %Name%
pause >nul
goto END
) else (
pause >nul
goto %TURNO%
)
)
)

复制代码

:COMBACT_2
set /a FUGA=%RANDOM% %%100
set /a VAR_ATT=%RANDOM% %%5
set /a VAR_MAG=%RANDOM% %%5
set /a ST_DEF=0
set /a COMBACT=2
if %MID_COMBACT% EQU 0 (
set TURNO_EN=COMBACT_2_ENEMY_NO1
)
if %MID_COMBACT% EQU 1 (
set TURNO_EN=COMBACT_2_ENEMY_NO2
)
if %MID_COMBACT% EQU 2 (
set TURNO_EN=COMBACT_2_ENEMY_NO1
)
cls
call color.bat 轮到你了#0a
echo.
if %MID_COMBACT% EQU 0 (
echo "%NAME% -> HP: %HP%/%HP_MAX% | ATT: %ATT% | DIF: %DIF% | MAG: %MAG% | DIF_M: %DIF_M% | EXP: %EXP% | LV: %LV%"
echo "%NAME_EN% -> HP: %HP_EN%/%HP_MAX_EN% | ATT: %ATT_EN% | DIF: %DIF_EN% | MAG: %MAG_EN% | DIF_M: %DIF_M_EN%"
echo "%NAME_EN_2% -> HP: %HP_EN_2%/%HP_MAX_EN_2% | ATT: %ATT_EN_2% | DIF: %DIF_EN_2% | MAG: %MAG_EN_2% | DIF_M: %DIF_M_EN_2%"
echo.
)
if %MID_COMBACT% EQU 1 (
echo "%NAME% -> HP: %HP%/%HP_MAX% | ATT: %ATT% | DIF: %DIF% | MAG: %MAG% | DIF_M: %DIF_M% | EXP: %EXP% | LV: %LV%"
echo "%NAME_EN% -> Morto.
echo "%NAME_EN_2% -> HP: %HP_EN_2%/%HP_MAX_EN_2% | ATT: %ATT_EN_2% | DIF: %DIF_EN_2% | MAG: %MAG_EN_2% | DIF_M: %DIF_M_EN_2%"
echo.
)
if %MID_COMBACT% EQU 2 (
echo "%NAME% -> HP: %HP%/%HP_MAX% | ATT: %ATT% | DIF: %DIF% | MAG: %MAG% | DIF_M: %DIF_M% | EXP: %EXP% | LV: %LV%"
echo "%NAME_EN% -> HP: %HP_EN%/%HP_MAX_EN% | ATT: %ATT_EN% | DIF: %DIF_EN% | MAG: %MAG_EN% | DIF_M: %DIF_M_EN%"
echo "%NAME_EN_2% -> Morto.
echo.
)
if %HP% LEQ 0 (
echo.
echo %Name%躺在地上... 流血不止... 缓缓地合上了双眼... 再见了... %Name%
pause >nul
goto END
)
if %HP_EN% LEQ 0 if %HP_EN_2% LEQ 0 (
echo 僵尸死了...你看着，感到莫名的恶心...
set /a END_COMBACT=1
pause >nul
goto CALCOLO_EXP
)
if %MID_COMBACT% EQU 0 (
choice /N /C:12 /M "攻击谁? [1] %NAME_EN%, [2] %NAME_EN_2%"
if errorlevel 2 (
set /a TAG=2
goto FINE_TARGET
)
if errorlevel 1 (
set /a TAG=1
goto FINE_TARGET
)
)
if %MID_COMBACT% EQU 1 (
set /a TAG=2
)
if %MID_COMBACT% EQU 2 (
set /a TAG=1
)
:FINE_TARGET
echo.
choice /N /C:ADMF /M "A[攻击] D[防御] M[魔法] F[逃跑]"
if errorlevel 4 (
echo Tenti la fugga
if %FUGA% GEQ 50 (
echo %Name%设法逃走了...
pause >nul
goto %AMBIENTE%
) else (
echo %Name%无法逃走...
pause >nul
goto %TURNO_EN%
)
)
if errorlevel 3 (
if %MAGIE% EQU 0 (
echo %Name%没有任何魔法... 做无用功...
pause >nul
goto %TURNO%
)
if %MAGIE% GEQ 1 goto MENU_MAGIE
)
if errorlevel 2 (
echo 防御^^!我挡^^!^^!^^!
set /a ST_DEF=1
pause >nul
goto %TURNO_EN%
)
if errorlevel 1 goto ATTACCA
:COMBACT_2_ENEMY_NO1
set /a VELENO=%RANDOM% %%100
set /a VAR_DAMAGE=%RANDOM% %%4
if %ST_DEF% EQU 0 (
set /a DAMAGE_EN=%VAR_DAMAGE%+%ATT_EN%-%DIF%
) else (
set /a DAMAGE_EN=%VAR_DAMAGE%+%ATT_EN%-(%DIF%+%EQUIP_CORPO%)
)
if %DAMAGE_EN% LEQ 0 (
set /a DAMAGE_EN=0
)
if %MID_COMBACT% EQU 2 (
cls
call color.bat %NAME_EN%#0a 回合#0a
echo.
echo "%NAME% -> HP: %HP%/%HP_MAX% | ATT: %ATT% | DIF: %DIF% | MAG: %MAG% | |DIF_M: %DIF_M% | EXP: %EXP% | LV: %LV%"
echo "%NAME_EN% -> HP: %HP_EN%/%HP_MAX_EN% | ATT: %ATT_EN% | DIF: %DIF_EN% | MAG: %MAG_EN% | DIF_M: %DIF_M_EN%"
echo "%NAME_EN_2% -> Morto.
echo.
) else (
cls
call color.bat %NAME_EN%#0a 回合#0a
echo.
echo "%NAME% -> HP: %HP%/%HP_MAX% | ATT: %ATT% | DIF: %DIF% | MAG: %MAG% | |DIF_M: %DIF_M% | EXP: %EXP% | LV: %LV%"
echo "%NAME_EN% -> HP: %HP_EN%/%HP_MAX_EN% | ATT: %ATT_EN% | DIF: %DIF_EN% | MAG: %MAG_EN% | DIF_M: %DIF_M_EN%"
echo "%NAME_EN_2% -> HP: %HP_EN_2%/%HP_MAX_EN_2% | ATT: %ATT_EN_2% | DIF: %DIF_EN_2% | MAG: %MAG_EN_2% | DIF_M: %DIF_M_EN_2%"
echo.
)
echo %NAME_EN%攻击了%Name%...
echo 攻击力: %DAMAGE_EN%
set /a HP=%HP%-%DAMAGE_EN%
if %MID_COMBACT% EQU 0 (
if %HP_EN% LEQ 0 (
echo %NAME_EN% 已死亡...
set /a MID_COMBACT=1
pause >nul
goto COMBACT_2_ENEMY_NO2
)
)
if %MID_COMBACT% EQU 2 (
if %HP_EN% LEQ 0 (
echo %NAME_EN% 已死亡...
set /a END_COMBACT=1
pause >nul
goto CALCOLO_EXP
)
)
if %HP% LEQ 0 (
echo.
echo %Name%躺在地上... 流血不止... 缓缓地合上了双眼... 再见了... %Name%
pause >nul
goto END
)
if %DAMAGE_EN% GEQ %HP_MAX% (
echo.
echo %Name%躺在地上... 流血不止... 缓缓地合上了双眼... 再见了... %Name%
pause >nul
goto END
) else (
if %ST_VELENO% EQU 0 (
if %VELENO% GEQ 75 (
echo.
echo %Name%中毒了...
echo 损失: %HP_LOSE% HP
set /a HP=%HP%-3
set /a ST_VELENO=1
if %HP% LEQ 0 (
echo.
echo %Name%躺在地上... 流血不止... 缓缓地合上了双眼... 再见了... %Name%
pause >nul
goto END
) else (
pause >nul
if %MID_COMBACT% EQU 0 (
goto COMBACT_2_ENEMY_NO2
) else (
goto %TURNO%
)
)
) else (
pause >nul
if %MID_COMBACT% EQU 0 (
goto COMBACT_2_ENEMY_NO2
) else (
goto %TURNO%
)
)
) else (
echo 损失: %HP_LOSE% HP
set /a HP=%HP%-3
if %HP% LEQ 0 (
echo.
echo %Name%躺在地上... 流血不止... 缓缓地合上了双眼... 再见了... %Name%
pause >nul
goto END
) else (
pause >nul
if %MID_COMBACT% EQU 0 (
goto COMBACT_2_ENEMY_NO2
) else (
goto %TURNO%
)
)
)
)
:COMBACT_2_ENEMY_NO2
set /a VELENO=%RANDOM% %%100
set /a VAR_DAMAGE=%RANDOM% %%4
if %ST_DEF% EQU 0 (
set /a DAMAGE_EN=%VAR_DAMAGE%+%ATT_EN%-%DIF%
) else (
set /a DAMAGE_EN=%VAR_DAMAGE%+%ATT_EN%-(%DIF%+%EQUIP_CORPO%)
)
if %DAMAGE_EN% LEQ 0 (
set /a DAMAGE_EN=0
)
if %MID_COMBACT% EQU 1 (
cls
call color.bat %NAME_EN_2%#0a 回合#0a
echo.
echo "%NAME% -> HP: %HP%/%HP_MAX% | ATT: %ATT% | DIF: %DIF% | MAG: %MAG% | |DIF_M: %DIF_M% | EXP: %EXP% | LV: %LV%"
echo "%NAME_EN% -> Morto.
echo "%NAME_EN_2% -> HP: %HP_EN_2%/%HP_MAX_EN_2% | ATT: %ATT_EN_2% | DIF: %DIF_EN_2% | MAG: %MAG_EN_2% | DIF_M: %DIF_M_EN_2%"
echo.
) else (
cls
call color.bat TURNO#0a %NAME_EN_2%#0a
echo.
echo "%NAME% -> HP: %HP%/%HP_MAX% | ATT: %ATT% | DIF: %DIF% | MAG: %MAG% | |DIF_M: %DIF_M% | EXP: %EXP% | LV: %LV%"
echo "%NAME_EN% -> HP: %HP_EN%/%HP_MAX_EN% | ATT: %ATT_EN% | DIF: %DIF_EN% | MAG: %MAG_EN% | DIF_M: %DIF_M_EN%"
echo "%NAME_EN_2% -> HP: %HP_EN_2%/%HP_MAX_EN_2% | ATT: %ATT_EN_2% | DIF: %DIF_EN_2% | MAG: %MAG_EN_2% | DIF_M: %DIF_M_EN_2%"
echo.
)
echo %NAME_EN_2%攻击了%Name%...
echo 攻击力: %DAMAGE_EN%
set /a HP=%HP%-%DAMAGE_EN%
if %MID_COMBACT% EQU 0 (
if %HP_EN_2% LEQ 0 (
echo %NAME_EN_2%已死亡...
set /a MID_COMBACT=2
pause >nul
goto COMBACT_2_ENEMY_NO1
)
)
if %MID_COMBACT% EQU 1 (
if %HP_EN_2% LEQ 0 (
echo %NAME_EN_2%已死亡...
set /a END_COMBACT=1
pause >nul
goto CALCOLO_EXP
)
)
if %HP% LEQ 0 (
echo.
echo %Name%躺在地上... 流血不止... 缓缓地合上了双眼... 再见了... %Name%
pause >nul
goto END
)
if %DAMAGE_EN% GEQ %HP_MAX% (
echo.
echo %Name%躺在地上... 流血不止... 缓缓地合上了双眼... 再见了... %Name%
pause >nul
goto END
) else (
if %ST_VELENO% EQU 0 (
if %VELENO% GEQ 75 (
echo.
echo %Name%中毒了...
echo 损失: %HP_LOSE% HP
set /a HP=%HP%-3
set /a ST_VELENO=1
if %HP% LEQ 0 (
echo.
echo %Name%躺在地上... 流血不止... 缓缓地合上了双眼... 再见了... %Name%
pause >nul
goto END
) else (
pause >nul
goto %TURNO%
)
) else (
pause >nul
goto %TURNO%
)
) else (
echo 损失: %HP_LOSE% HP
set /a HP=%HP%-3
if %HP% LEQ 0 (
echo.
echo %Name%躺在地上... 流血不止... 缓缓地合上了双眼... 再见了... %Name%
pause >nul
goto END
) else (
pause >nul
goto %TURNO%
)
)
)
:END
echo Game Over...
pause >nul
exit

复制代码

@echo off
Rem 来自https://www.dostips.com/forum/viewtopic.php?f=3&t=9848&p=63348
Rem 作者Lauri
chcp 936 > nul
title 劳里的幻想世界
color 03
echo.
echo.正在加载图形引擎...
If "%1"=="" (
for %%a in ( QuickEdit:00000000
CodePage:000003a8
ColorTable00:000c0c0c
ColorTable01:00da3700
ColorTable02:000ea113
ColorTable03:00dd963a
ColorTable04:001f0fc5
ColorTable05:00981788
ColorTable06:00009cc1
ColorTable07:00cccccc
ColorTable08:00767676
ColorTable09:00ff783b
ColorTable10:000cc616
ColorTable11:00d6d661
ColorTable12:005648e7
ColorTable13:009e00b4
ColorTable14:00a5f1f9
ColorTable15:00f2f2f2
) do For /F "tokens=1,2 delims=:" %%b in ("%%a") do (
>nul Reg add HKCU\Console\DosBatch_Lauri_Fantasy /v %%b /t reg_dword /d 0x%%c /f
)
Start "DosBatch_Lauri_Fantasy" "%ComSpec%" /c "%~s0" 1&Goto:eof
) Else ( >nul reg delete HKCU\Console\DosBatch_Lauri_Fantasy /f )
@goto INSTALL_COLOR
:INSTALL_COLOR
(
echo.@echo off
echo.chcp 936 ^> nul
echo.Setlocal EnableDelayedExpansion
echo.REM setlocal enableextensions
echo.set dstdir=C:\tmpColorDirtoDelete
echo.IF EXIST %%dstdir%% goto errExist
echo.@mkdir %%dstdir%%
echo.@cd %%dstdir%%
echo.set count=0
echo.REM DEFINISCO IL CARATTERE BACKSPACE!
echo.set "$Defines=$BS" & set "$Details=Create $ESC Ascii-0x1B-27, Expansion insensitive"
echo. for /f "delims=#" %%%%a in ^(
echo. '"prompt #$H# &echo on &for %%%%b in (1) do rem"'
echo. ^) do ^(
echo. set "%%$Defines%%=%%%%a"
echo. set "%%$Defines%%=!$BS:~0,1!"
echo. ^)
echo.FOR %%%%a IN ^(%%*^) DO ^(
echo. FOR /F "usebackq delims=# tokens=1,*" %%%%b IN ^('%%%%a'^) DO ^(
echo. REM echo %%%%b sara' di colore %%%%c
echo. set /A count=!count!+1
echo. set nomefile=%%%%b
echo. IF %%%%c.==. ^(
echo. set colore=03
echo. ^) ELSE ^(
echo. set colore=%%%%c
echo. ^)
echo. REM SET /P ".=" %%%%b
echo. SET /P ".=%%$BS%% " ^<nul ^>%%%%b
echo. REM echo !count!^>%%%%b
echo. REM echo FINDSTR /A:%%%%c /C:"!count!" /S "%%%%b"
echo. REM more %%%%b
echo. set bin=%%%%b
echo. ^)
echo. REM FINE INNER FOR
echo. REM echo FINDSTR /A:!colore! /C:"!count!" /S "!nomefile!"
echo. FINDSTR /A:!colore! /C:" " /S "!nomefile!"
echo. REM goto end
echo.^)
echo.REM FINE OUTER FOR
echo.echo.
echo.REM ERROR HANDLING
echo.goto chiusura
echo.:errExist
echo.echo 临时目录%%dstdir%%已存在.在继续或更改批处理中的路径之前将其删除.
echo.goto pulizia
echo.:chiusura
echo.:pulizia
echo.cd..
echo.rd /S /Q %%dstdir%%
echo.goto end
echo.:end
) > color.bat
SetLocal EnableDelayedExpansion
:LOAD
if EXIST "%UserProFile%\Save.Txt" (
echo.
echo 发现存档^^!
echo.
echo 你想加载游戏吗?
call color.bat [S]#0c 想 [N]#0c 不想
choice /N /C:SN
if errorlevel 2 (
echo.
echo 新的开始.
pause >nul
goto START
)
if errorlevel 1 (
for /F "usebackq tokens=1-18 delims=," %%G in ("%UserProFile%\Save.Txt") do (
set AMBIENTE=%%G
set ATT=%%H
set DIF=%%I
set MAG=%%J
set DIF_M=%%K
set HP_MAX=%%L
set HP=%%M
set MAGIE=%%N
set LV=%%O
set EXP=%%P
set END_COMBACT=%%Q
set EQUIP_ARM=%%R
set EQUIP_CORPO=%%S
set EQUIP_ELM=%%T
set NAME=%%U
set SWT_LOC_A=%%V
set GOLD=%%W
set STORY=%%X
set /a ST_VELENO=0
set NAME_EN=
set /a HP_LOSE=3
set /a LOOP_L=0
goto LOOP_ECHO_LOAD
)
)
) else (
goto START
)
:SAVE
set /a LOOP_S=0
goto LOOP_ECHO_SAVE
:LOOP_ECHO_LOAD
if %LOOP_L% EQU 0 (
cls
echo.
echo 正在加载 .
set /a LOOP_L=%LOOP_L%+1
choice /N /C:P /T 0 /D P
goto LOOP_ECHO_LOAD
)
if %LOOP_L% EQU 1 (
cls
echo.
echo 正在加载 . .
set /a LOOP_L=%LOOP_L%+1
choice /N /C:P /T 0 /D P
goto LOOP_ECHO_LOAD
)
if %LOOP_L% EQU 2 (
cls
echo.
echo 正在加载 . . .
set /a LOOP_L=0
choice /N /C:P /T 0 /D P
if errorlevel 1 goto %AMBIENTE%
)
:LOOP_ECHO_SAVE
if %LOOP_S% EQU 0 (
cls
echo.
echo 存档中 .
set /a LOOP_S=%LOOP_S%+1
choice /N /C:P /T 0 /D P
goto LOOP_ECHO_SAVE
)
if %LOOP_S% EQU 1 (
cls
echo.
echo 存档中 . .
set /a LOOP_S=%LOOP_S%+1
choice /N /C:P /T 0 /D P
goto LOOP_ECHO_SAVE
)
if %LOOP_S% EQU 2 (
cls
echo.
echo 存档中 . . .
set /a LOOP_S=0
choice /N /C:P /T 0 /D P
echo %AMBIENTE%,%ATT%,%DIF%,%MAG%,%DIF_M%,%HP_MAX%,%HP%,%MAGIE%,%LV%,%EXP%,%END_COMBACT%,%EQUIP_ARM%,%EQUIP_CORPO%,%EQUIP_ELM%,%NAME%,%SWT_LOC_A%,%GOLD%,%STORY% > "%UserProFile%\Save.Txt"
goto %AMBIENTE%
)
:START
set /a EQUIP_ARM=0
:: 3= SPADA ATT +3
:: 5= LANCIA ATT +5
:: 7= PUGNALE ATT +7
:: 2= ASTA +2 MAG
:: 4= PISTOLA +4 MAG
:: 8= LONGINUS +8 MAG
set /a EQUIP_CORPO=0
:: 1= MAGLIA DIF +1
:: 3= GIUBOTTO DIF+3
:: 8= CORAZZA DIF +8
set /a EQUIP_ELM=0
:: 2= CAPPELLO DIF_MAG +2
:: 5= BASCO DIF_MAG +5
:: 7= ELMO DIF_MAG +7
set /a ATT=2
set /a DIF=1
set /a MAG=0
set /a DIF_M=0
set /a EXP=0
set /a HP=30
set /a HP_MAX=30
set /a LV=1
set /a ST_VELENO=0
:: 1= AVVELENATO
set /a HP_LOSE=3
:: HP PERSI PER EFFETTO DEL VELENO
set /a END_COMBACT=0
set /a MAGIE=0
:: FIRE=1
:: ICE=2
:: ENERGIA=3
:: IDRO=4
:: THUNDER=5
:: ESNA=6
set /a SWT_LOC_A=0
:: VARIABILE PER I SOLDI TROVATI NEL MONDO
set /a GOLD=0
::SOLDI DEL GIOCO
set /a STORY=0
::VARIABILE DELLA STORIA
set NAME_EN=
cls
echo.欢迎来到虚拟世界，这里使用了有史以来最好的图形引擎，你的大脑^^!
pause >nul
cls
call color.bat 选择 [S]#0c 开始或选择 [N]#0c 退出
choice /N /C:SN
if errorlevel 2 goto END
if errorlevel 1 goto BEGIN_GAME
:BEGIN
cls
call color.bat 你的房子#0a
echo.
echo 你是离开房子还是在房间里踱步?
call color.bat 选择 [A]#0c 离开或选择 [D]#0c 停留
choice /N /C:AD
if errorlevel 2 goto IN_HOME
if errorlevel 1 goto OUT_HOME
:BEGIN_GAME
echo.
set /p NAME=你的名字叫什么?
if /i DEFINED NAME (
echo.
echo %NAME%你好, 你好，欢迎来到劳里的世界^^!
echo 你准备好开始你的冒险了吗？
call color.bat 按 [Enter键]#0c 开始。
pause >nul
) else (
cls
echo 请输入您的姓名^^!
pause >nul
goto BEGIN_GAME
)
cls
call color.bat 你的房子#0a
echo.
echo 嗯，刚刚醒来，马上就发现了一些奇怪的事情...
echo 是啊...太安静了，有点不对劲...
echo 走近前门想做点什么...
echo 是离开房子还是在房间里踱步?
call color.bat 选择 [A]#0c 离开或选择 [D]#0c 停留
choice /N /C:AD
if errorlevel 2 goto IN_HOME
if errorlevel 1 goto OUT_HOME
:OUT_HOME
cls
call color.bat 屋外#0a
echo.
echo 我听不到任何噪音...
echo 我步行时注意到朋友的房子...
echo 门开着...
echo 决定进去还是继续?
call color.bat 选择 [A]#0c 进入或选择 [D]#0c 继续或 [X]#0c 返回
choice /N /C:ADX
if errorlevel 3 goto BEGIN
if errorlevel 2 goto STREET
if errorlevel 1 goto FRIEND_HOUSE
:IN_HOME
cls
call color.bat 走廊#0a
echo.
echo 想去哪个房间?
call color.bat 选择 [A]#0c 去厨房 [D]#0c 去卧室 [G]#0c 去浴室 [J]#0c 客厅
choice /N /C:ADGJ
if errorlevel 4 goto SALA
if errorlevel 3 goto BAGNO
if errorlevel 2 goto CAMERA

复制代码

if errorlevel 1 goto CUCINA
:CUCINA
cls
call color.bat 厨房#0a
echo.
echo 这里也没有人...电线断了...
echo 妈妈一定忘了关上它...
echo 回去吧...
pause >nul
goto BEGIN
:CAMERA
if %EQUIP_ARM% EQU 0 (
cls
call color.bat 卧室#0a
echo.
echo 床没铺好...
echo 我检查了壁橱...
call color.bat 找到#03 黑桃#0c [ATT#0c +3]#0c
set /a EQUIP_ARM=3
echo 回去吧...
pause >nul
goto BEGIN
)
if %EQUIP_ARM% GEQ 1 (
cls
call color.bat 卧室#0a
echo.
echo 床没铺好...
echo 我检查了壁橱...
echo 什么都没有了...
echo 回去吧...
pause >nul
goto BEGIN
)
:BAGNO
cls
call color.bat 浴室#0a
echo.
echo 啊... 我需要好好洗个澡...
echo 回去吧...
pause >nul
goto BEGIN
:SALA
cls
call color.bat 客厅#0a
echo.
echo 灯亮着... 真奇怪...
echo 回去吧...
pause >nul
goto BEGIN
:FRIEND_HOUSE
if %END_COMBACT% EQU 0 (
cls
call color.bat 朋友的家#0a
echo.
echo 这里似乎也没有人...
echo 我想我听到了声音...
echo 从客厅出来...
echo 要做什么，给朋友打电话还是检查房间？
call color.bat 选择 [A]#0c 给朋友打电话或选择 [D]#0c 检查房间
choice /N /C:AD
if errorlevel 2 goto ROOM_FRIEND_HOUSE
if errorlevel 1 goto VOICE_1
) else (
cls
call color.bat 朋友的家#0a
echo.
echo 一个死去的僵尸躺在地上...
echo 似乎没有什么有趣的事...
pause >nul
goto OUT_HOME
)
:ROOM_FRIEND_HOUSE
cls
call color.bat 房间#0a
echo.
echo 哦，我的天啊，真是太可怕了...
echo 我的邻居好像变成了僵尸^^!^^!^^!
echo 攻击我^^!^^!^^!
echo.
pause >nul
set /a HP_EN=20
set /a HP_MAX_EN=20
set /a ATT_EN=1
set /a DIF_EN=1
set /a MAG_EN=0
set /a DIF_M_EN=0
set NAME_EN=僵尸
set AMBIENTE=FRIEND_HOUSE
set TURNO=COMBACT_1
set TURNO_EN=COMBACT_1_ENEMY
set /a ST_VELENO=0
set /a EXP_EN=3
goto COMBACT_1
:VOICE_1
cls.
call color.bat 朋友的家#0a
echo.
echo 试着打电话给邻居,
echo 似乎没有人回答...
echo %Name%试着提高声音...
echo 有奇怪的吼声... 从房间里传来...
echo 发生了什么?
call color.bat 是要离开 [A]#0c 还是检查 [D]#0c
choice /N /C:AD
if errorlevel 2 goto ROOM_FRIEND_HOUSE
if errorlevel 1 goto OUT_HOME
:STREET
cls
call color.bat 街头#0a
echo.
echo 你站在十字路口...
echo 冷风飒飒... 乌云密布
echo 一个指示牌歪歪斜斜... 指着东南西北...
echo.
echo 该向那儿走?
call color.bat [W]#0c 直走 [A]#0c 向左 [D]#0c 向右 [X]#0c 返回
choice /N /C:WADX
if errorlevel 4 goto OUT_HOME
if errorlevel 3 goto STREET_E
if errorlevel 2 goto STREET_O
if errorlevel 1 goto STREET_N
:STREET_N
cls
call color.bat 街头#0a
echo.
call color.bat [W]#0c 继续前行 [X]#0c 打道回府
choice /N /C:WX
if errorlevel 2 goto STREET
if errorlevel 1 goto STREET_NN
:STREET_NN
cls
call color.bat 街头#0a
echo.
echo 这条路似乎到此为止...
echo 最好回去...
pause >nul
goto STREET_N
:STREET_O
cls
call color.bat 街头#0a
echo.
echo %Name%看到一座尖塔...
call color.bat [W]#0c 直走 [A]#0c 左转 [X]#0c 返回
choice /N /C:WAX
if errorlevel 3 goto STREET
if errorlevel 2 goto STREET_OS
if errorlevel 1 goto STREET_OO
:STREET_OO
cls
call color.bat 街头#0a
echo.
call color.bat [W]#0c 直走 [X]#0c 返回
choice /N /C:WX
if errorlevel 2 goto STREET_O
if errorlevel 1 goto STREET_OOO
:STREET_OOO
cls
call color.bat 街头#0a
echo.
echo %Name%看到一座尖塔...
call color.bat [W]#0c 直走 [A]#0c 向左走 [D]#0c 向右走 [X]#0c 返回
choice /N /C:WADX
if errorlevel 4 goto STREET_OO
if errorlevel 3 goto STREET_OOON
if errorlevel 2 goto STREET_OOOS
if errorlevel 1 goto STREET_OOOO
:STREET_OOON
cls
call color.bat 街头#0a
echo.
echo 去酒吧，也许是个好主意...
echo 进去，我可以喝一杯或者...
echo 也许我应该晚一点回去...
echo.
call color.bat [A]#0c 进去 [D]#0c 返回
choice /N /C:AD
if errorlevel 2 goto STREET_OOO
if errorlevel 1 goto BAR_1
:STREET_OOOO
if %SWT_LOC_A% EQU 0 (
cls
call color.bat 街头#0a
echo.
echo 嘿，你找到3块金子了^^!
set /a GOLD=%GOLD%+3
pause >nul
set /a SWT_LOC_A=1
goto STREET_OOO
)
if %SWT_LOC_A% EQU 1 (
cls
call color.bat 街头#0a
echo.
echo 这里什么也没有... 这条路似乎到此为止...
echo 最好回去...
pause >nul
goto STREET_OOO
)
:STREET_OOOS
cls
call color.bat 街头#0a
echo.
echo 这条路似乎到此为止...
echo 最好回去...
pause >nul
goto STREET_OOO
:STREET_OS
cls
call color.bat 街头#0a
echo.
call color.bat [W]#0c 直走 [X]#0c 返回
choice /N /C:WX
if errorlevel 2 goto STREET_O
if errorlevel 1 goto STREET_OSS
:STREET_OSS
cls
call color.bat 街头#0a
echo.
echo %Name%找到了一个休息的地方,
echo 这里可以恢复精力...
set /a HP=%HP_MAX%
pause >nul
echo.
call color.bat [D]#0c 向右 [X]#0c 返回
choice /N /C:DX
if errorlevel 2 goto STREET_OS
if errorlevel 1 goto STREET_OSSO
:STREET_OSSO
cls
call color.bat 街头#0a
echo.
echo %Name%遇到了一个僵尸...
echo 它攻击%Name%
echo.
pause >nul
set /a HP_EN=25
set /a HP_MAX_EN=25
set /a ATT_EN=1
set /a DIF_EN=2
set /a MAG_EN=0
set /a DIF_M_EN=0
set NAME_EN=僵尸
set AMBIENTE=STREET_OSS
set TURNO=COMBACT_1
set TURNO_EN=COMBACT_1_ENEMY
set /a ST_VELENO=0
set /a EXP_EN=7
goto COMBACT_1
:STREET_E
cls
call color.bat 街头#0a
echo.
echo %Name%看到一座尖塔...
call color.bat [A]#0c 向左 [D]#0c 向右 [X]#0c 返回
choice /N /C:ADX
if errorlevel 3 goto STREET
if errorlevel 2 goto STREET_ES
if errorlevel 1 goto STREET_EN
:STREET_EN
cls
call color.bat 街头#0a
echo.
call color.bat [D]#0c 向右 [X]#0c 返回
choice /N /C:DX
if errorlevel 2 goto STREET_E
if errorlevel 1 goto STREET_ENE
:STREET_ENE
cls
call color.bat 街头#0a
echo.
call color.bat [W]#0c 直走 [X]#0c 返回
choice /N /C:WX
if errorlevel 2 goto STREET_EN
if errorlevel 1 goto STREET_ENEE
:STREET_ENEE
cls
call color.bat 街头#0a
echo.
echo %Name%找到了一个休息的地方,
echo 这里可以恢复精力...
set /a HP=%HP_MAX%
pause >nul
echo.
call color.bat [X]#0c 返回

复制代码

choice /N /C:X
if errorlevel 1 goto STREET_ENE
:STREET_ES
cls
call color.bat 街头#0a
echo.
echo %Name%看到一座尖塔...
call color.bat [W]#0c 直走 [A]#0c 向左 [D]#0c 向右 [X]#0c 返回
choice /N /C:WADX
if errorlevel 4 goto STREET_E
if errorlevel 3 goto STREET_ESO
if errorlevel 2 goto STREET_ESE
if errorlevel 1 goto STREET_ESS
:STREET_ESO
cls
call color.bat 街头#0a
echo.
call color.bat [W]#0c 直走 [X]#0c 返回
choice /N /C:WX
if errorlevel 2 goto STREET_ES
if errorlevel 1 goto STREET_ESOO
:STREET_ESE
cls
call color.bat 街头#0a
echo.
call color.bat [W]#0c 直走 [X]#0c 返回
choice /N /C:WX
if errorlevel 2 goto STREET_ES
if errorlevel 1 goto STREET_ESEE
:STREET_ESS
cls
call color.bat 街头#0a
echo.
call color.bat [A]#0c 向左 [X]#0c 返回
choice /N /C:AX
if errorlevel 2 goto STREET_ES
if errorlevel 1 goto STREET_ESSE
:STREET_ESOO
cls
call color.bat 街头#0a
echo.
echo 这条路似乎到此为止...
echo 最好回去...
pause >nul
goto STREET_ESO
:STREET_ESEE
cls
call color.bat COMBATTI#0a
echo.
echo %Name%遇到了一个僵尸...
echo 它攻击%Name%
echo.
pause >nul
set /a HP_EN=25
set /a HP_MAX_EN=25
set /a ATT_EN=1
set /a DIF_EN=2
set /a MAG_EN=0
set /a DIF_M_EN=0
set NAME_EN=僵尸
set AMBIENTE=STREET_ESE
set TURNO=COMBACT_1
set TURNO_EN=COMBACT_1_ENEMY
set /a ST_VELENO=0
set /a EXP_EN=7
goto COMBACT_1
:STREET_ESSE
cls
call color.bat 街头#0a
echo.
echo %Name%看到一座尖塔...
call color.bat [W]#0c 直走 [D]#0c 向右 [X]#0c 返回
choice /N /C:WDX
if errorlevel 3 goto STREET_ESS
if errorlevel 2 goto STREET_ESSES
if errorlevel 1 goto STREET_ESSEE
:STREET_ESSES
cls
if %STORY% LEQ 0 (
call color.bat 街边-森林#0a
echo.
echo %Name%走进一片森林，听到远处有人声...
echo 还是检查一下吧...
echo.
echo 那是%Name%遇见伴侣的时候...
pause >nul
goto BOSCO
) else (
call color.bat 街边-森林#0a
echo.
echo %Name%已经到达一个森林的入口，想做什么？
call color.bat [W]#0c 去森林 [X]#0c 返回
choice /N /C:WX
if errorlevel 2 goto STREET_ESSE
if errorlevel 1 goto BOSCO
)
:STREET_ESSEE
cls
call color.bat 街头#0a
echo.
echo 这条路似乎到此为止...
echo 最好回去...
pause >nul
goto STREET_ESSE
:BOSCO
if %STORY% LEQ 0 (
cls
call color.bat 森林#0a
echo.
echo 嘿，前面有很多僵尸...
echo 这里，可能需要这个...
echo 啊，但是后来我听说了一家商店...
echo 在那里... 哦，可以买一些必需品...
echo.
echo 您已获得: 毛衣
set /a EQUIP_CORPO=1
set /a STORY=%STORY%+1
echo.
echo 乔瓦尼离开了，呆在森林的你开始做什么？
echo 继续前行还是返回?
call color.bat [W]#0c 继续向前 [X]#0c 返回
choice /N /C:WX
if errorlevel 2 goto STREET_ESSES
if errorlevel 1 goto BOSCO_1
) else (
cls
call color.bat 森林#0a
echo.
echo 你在树林里干什么?
echo 继续前行或返回?
call color.bat [W]#0c 继续前行 [X]#0c 返回
choice /N /C:WX
if errorlevel 2 goto STREET_ESSES
if errorlevel 1 goto BOSCO_1
)
:BOSCO_1
set /a VAR_INC=%RANDOM% %%100
if !VAR_INC! GEQ 60 (
cls
call color.bat 森林-战场#0a
echo.
echo %Name%遇到一个僵尸，它攻击%Name%...
pause >nul
set /a HP_EN=40
set /a HP_MAX_EN=40
set /a ATT_EN=4
set /a DIF_EN=5
set /a MAG_EN=0
set /a DIF_M_EN=0
set NAME_EN=僵尸1
set AMBIENTE=BOSCO
set TURNO=COMBACT_1
set TURNO_EN=COMBACT_1_ENEMY
set /a ST_VELENO=0
set /a EXP_EN=10
goto COMBACT_1
) else (
cls
call color.bat 森林#0a
echo.
echo 没有动静... 什么都没有吗?
call color.bat [S]#0c 是的 [N]#0c 不是
choice /N /C:SN
if errorlevel 2 goto BOSCO
if errorlevel 1 goto END
)
if !VAR_INC! GEQ 83 (
cls
call color.bat 森林-战场#0a
echo.
echo %Name%遇到两个僵尸，他们攻击%Name%^^!^^!^^!
pause >nul
set /a HP_EN=40
set /a HP_MAX_EN=40
set /a ATT_EN=4
set /a DIF_EN=5
set /a MAG_EN=0
set /a DIF_M_EN=0
set /a HP_EN_2=20
set /a HP_MAX_EN_2=20
set /a ATT_EN_2=3
set /a DIF_EN_2=3
set /a MAG_EN_2=0
set /a DIF_M_EN_2=0
set NAME_EN=僵尸1
set NAME_EN_2=僵尸2
set AMBIENTE=BOSCO
set TURNO=COMBACT_2
set TURNO_EN=COMBACT_2_ENEMY_NO1
set /a MID_COMBACT=0
set /a ST_VELENO=0
set /a EXP_EN=10
goto COMBACT_2
) else (
cls
call color.bat 森林#0a
echo.
echo 好像什么动静都没有... 但这是真的吗?
call color.bat [S]#0c 是的 [N]#0c 不是
choice /N /C:SN
if errorlevel 2 goto BOSCO
if errorlevel 1 goto END
)
:BAR_1
set AMBIENTE=BAR_1
cls
:S_BAR_DOMANDA
call color.bat 酒吧#0a
echo.
echo ---==^> 归 %GOLD% 块金子的人所有 ^<==---
echo.
echo 欢迎来到这里最特别的酒吧，哈哈 ^^!^^!^^!
echo 是啊... 你偶尔也会笑，这对你有好处...
echo 回到我们这里，你想要什么？
echo 如果你不知道该带什么，你可以写"Chiedi"来问我
:S_BAR_DOMANDA_1
echo.
echo 你的愿望是什么?
set /p DOMANDA=
if /i DEFINED DOMANDA (
goto S_BAR_MENU
) else (
echo.
echo 我不明白... 试着键入"Chiedi"
pause >nul
cls
goto S_BAR_DOMANDA
)
:S_BAR_MENU
if /i %DOMANDA%==Chiedi (
cls
call color.bat BAR#0a
echo.
echo 菜单:
echo.
echo - BEVI -^> 查看鸡尾酒菜单.
echo - MANGIA -^> 查看甜品菜单.
echo - SALVA -^> 保存游戏进度.
echo - ESCI -^> 离开酒吧.
goto S_BAR_DOMANDA_1
)
:MENU_BEVI
if /i %DOMANDA%==Bevi (
cls
call color.bat 菜单#0a
echo.
echo 菜单:
echo.
echo. 酒品价格^(G块金子^)
echo. ------====^>^>^> ^<^<^<====------
echo - Campari ^(3G^)
echo - Aperol ^(4G^)
echo - Niente
echo.
echo 你的愿望是什么[ 键入 Campari 或 Aperol 即可买酒 , 键入 Niente 即可返回 ]?
set /p BEVI=
goto BEVI
)
if /i %DOMANDA%==Mangia (
cls
call color.bat 菜单#0a
echo.
echo 菜单:
echo.
echo. 甜品价格^(G块金子^)
echo. ------====^>^>^> ^<^<^<====------
echo - Struffoli ^(3G^)
echo - Cassata ^(4G^)
echo - Tiramisu ^(5G^)
echo - Niente
echo.
echo 你的愿望是什么[ 键入 Struffoli / Cassata / Tiramisu 即可购买甜品 , 键入 Niente 即可返回 ]?
set /p MANGIA=
goto MANGIA
)
if /i %DOMANDA%==Salva (
echo.
goto SAVE
)
if /i %DOMANDA%==Esci (
echo.

复制代码

echo %Name%离开了酒吧.
pause >nul
cls
goto STREET_OOON
)
echo.
echo 我不明白... 试着键入"Chiedi"
pause >nul
cls
goto S_BAR_DOMANDA
:BEVI
if /i %BEVI%==Campari (
if %GOLD% GEQ 3 (
echo 这是你的 !BEVI! 和气泡酒
echo 你想要更多吗?
pause >nul
set /a GOLD=%GOLD%-3
goto S_BAR_MENU
) else (
echo 你没有金子...
echo 你想要更多吗?
pause >nul
goto S_BAR_MENU
)
)
if /i %BEVI%==Aperol (
if %GOLD% GEQ 4 (
echo 这是你的Spritz鸡尾酒... 祝你享受威尼斯的夕阳...
echo 你想要更多吗?
pause >nul
set /a GOLD=%GOLD%-4
goto S_BAR_MENU
) else (
echo 你没有金子...
echo 你想要更多吗?
pause >nul
goto S_BAR_MENU
)
)
if /i %BEVI%==Niente (
echo 好的
pause >nul
cls
goto S_BAR_DOMANDA
)
echo.
echo 我不明白... 试着键入"Chiedi"
pause >nul
goto MENU_BEVI
:MANGIA
if /i %MANGIA%==Struffoli (
if %GOLD% GEQ 3 (
echo 这是你的蜂蜜糖球...
echo 你想要更多吗?
pause >nul
set /a GOLD=%GOLD%-3
goto S_BAR_MENU
) else (
echo 你没有金子...
echo 你想要更多吗?
pause >nul
goto S_BAR_MENU
)
)
if /i %MANGIA%==Aperol (
if %GOLD% GEQ 4 (
echo 这是你的卡萨塔... 祝你享受西西里的快乐...
echo 你想要更多吗?
pause >nul
set /a GOLD=%GOLD%-4
goto S_BAR_MENU
) else (
echo 你没有金子...
echo 你想要更多吗?
pause >nul
goto S_BAR_MENU
)
)
if /i %MANGIA%==Aperol (
if %GOLD% GEQ 5 (
echo 这是你的提拉米苏... 祝你享受意大利的美味...
echo 你想要更多吗?
pause >nul
set /a GOLD=%GOLD%-5
goto S_BAR_MENU
) else (
echo 你没有金子...
echo 你想要更多吗?
pause >nul
goto S_BAR_MENU
)
)
if /i %MANGIA%==Niente (
echo 好的
pause >nul
cls
goto S_BAR_DOMANDA
)
echo.
echo 我不明白... 试着键入"Chiedi"
pause >nul
goto MENU_BEVI
:MENU_MAGIE
if %MAGIE% EQU 1 (
echo.
echo [火之激情] - 1
echo [魔法栏空]
echo [魔法栏空]
echo [魔法栏空]
echo [魔法栏空]
echo [魔法栏空]
echo [继续战斗] - Q
echo.
choice /N /C:1Q /M "你想用什么魔法?: "
if errorlevel 2 goto %TURNO%
if errorlevel 1 goto ER_1
)
if %MAGIE% EQU 2 (
echo.
echo [火之激情] - 1
echo [冰之冷酷] - 2
echo [魔法栏空]
echo [魔法栏空]
echo [魔法栏空]
echo [魔法栏空]
echo [继续战斗] - Q
echo.
choice /N /C:12Q /M "你想用什么魔法?: "
if errorlevel 3 goto %TURNO%
if errorlevel 2 goto ER_2
if errorlevel 1 goto ER_1
)
if %MAGIE% EQU 3 (
echo.
echo [火之激情] - 1
echo [冰之冷酷] - 2
echo [全力以赴] - 3
echo [魔法栏空]
echo [魔法栏空]
echo [魔法栏空]
echo [继续战斗] - Q
echo.
choice /N /C:123Q /M "你想用什么魔法?: "
if errorlevel 4 goto %TURNO%
if errorlevel 3 goto ER_3
if errorlevel 2 goto ER_2
if errorlevel 1 goto ER_1
)
if %MAGIE% EQU 4 (
echo.
echo [火之激情] - 1
echo [冰之冷酷] - 2
echo [全力以赴] - 3
echo [水之力量] - 4
echo [魔法栏空]
echo [魔法栏空]
echo [继续战斗] - Q
echo.
choice /N /C:1234Q /M "你想用什么魔法?: "
if errorlevel 5 goto %TURNO%
if errorlevel 4 goto ER_4
if errorlevel 3 goto ER_3
if errorlevel 2 goto ER_2
if errorlevel 1 goto ER_1
)
if %MAGIE% EQU 5 (
echo.
echo [火之激情] - 1
echo [冰之冷酷] - 2
echo [全力以赴] - 3
echo [水之力量] - 4
echo [电闪雷鸣] - 5
echo [魔法栏空]
echo [继续战斗] - Q
echo.
choice /N /C:12345Q /M "你想用什么魔法?: "
if errorlevel 6 goto %TURNO%
if errorlevel 5 goto ER_5
if errorlevel 4 goto ER_4
if errorlevel 3 goto ER_3
if errorlevel 2 goto ER_2
if errorlevel 1 goto ER_1
)
if %MAGIE% EQU 6 (
echo.
echo [火之激情] - 1
echo [冰之冷酷] - 2
echo [全力以赴] - 3
echo [水之力量] - 4
echo [电闪雷鸣] - 5
echo [妙手回春] - 6
echo [继续战斗] - Q
echo.
choice /N /C:123456Q /M "你想用什么魔法?: "
if errorlevel 7 goto %TURNO%
if errorlevel 6 goto ER_6
if errorlevel 5 goto ER_5
if errorlevel 4 goto ER_4
if errorlevel 3 goto ER_3
if errorlevel 2 goto ER_2
if errorlevel 1 goto ER_1
)
:ER_1
set /a DAMAGE_M=%VAR_MAG%+%MAG%-%DIF_M_EN%
set /a HP_EN=%HP_EN%-%DAMAGE_M%
echo %Name%使用了火之激情, 攻击力: %DAMAGE_M%
if %HP_EN% LEQ 0 (
echo %NAME_EN% 已死亡.
set /a END_COMBACT=1
pause >nul
goto CALCOLO_EXP
)
if %DAMAGE_M% GEQ %HP_MAX_EN% (
echo %NAME_EN% 已死亡.
set /a END_COMBACT=1
pause >nul
goto CALCOLO_EXP
) else (
pause >nul
goto %TURNO_EN%
)
:ER_2
set /a DAMAGE_M=%VAR_MAG%+%MAG%-%DIF_M_EN%
set /a HP_EN=%HP_EN%-%DAMAGE_M%
echo %Name%使用了冰之冷酷, 攻击力: %DAMAGE_M%
if %HP_EN% LEQ 0 (
echo %NAME_EN% 已死亡.
set /a END_COMBACT=1
pause >nul
goto CALCOLO_EXP
)
if %DAMAGE_M% GEQ %HP_MAX_EN% (
echo %NAME_EN% 已死亡.
set /a END_COMBACT=1
pause >nul
goto CALCOLO_EXP
) else (
pause >nul
goto %TURNO_EN%
)
:ER_3
set /a HP_RESTORED=%HP%+(%VAR_MAG%+%MAG%)
if HP_RESTORED GEQ %HP_MAX% (
set /a HP=%HP_MAX%
echo %Name%已经全部恢复...
pause >nul
goto %TURNO_EN%
) else (
set /a HP=%HP_RESTORED%
echo %Name%恢复: %HP_RESTORED% HP
pause >nul
goto %TURNO_EN%
)
:ER_4
set /a DAMAGE_M=%VAR_MAG%+%MAG%-%DIF_M_EN%
set /a HP_EN=%HP_EN%-%DAMAGE_M%
echo %Name%使用了水之力量, 攻击力: %DAMAGE_M%
if %HP_EN% LEQ 0 (
echo %NAME_EN% 已死亡.
set /a END_COMBACT=1
pause >nul
goto CALCOLO_EXP
)
if %DAMAGE_M% GEQ %HP_MAX_EN% (
echo %NAME_EN% 已死亡.
set /a END_COMBACT=1
pause >nul
goto CALCOLO_EXP
) else (
pause >nul
goto %TURNO_EN%
)
:ER_5
set /a DAMAGE_M=%VAR_MAG%+%MAG%-%DIF_M_EN%
set /a HP_EN=%HP_EN%-%DAMAGE_M%
echo %Name%使用了电闪雷鸣, 攻击力: %DAMAGE_M%
if %HP_EN% LEQ 0 (
echo %NAME_EN% 已死亡.
set /a END_COMBACT=1
pause >nul
goto CALCOLO_EXP
)
if %DAMAGE_M% GEQ %HP_MAX_EN% (
echo %NAME_EN% 已死亡.
set /a END_COMBACT=1
pause >nul
goto CALCOLO_EXP
) else (
pause >nul
goto %TURNO_EN%
)
:ER_6
if %ST_VELENO% EQU 1 (
echo 使用妙手回春，你不再中毒了.
set /a ST_VELENO=0
pause >nul
goto %TURNO_EN%
) else (
echo %Name%无法使用妙手回春..
pause >nul
goto %TURNO_EN%

复制代码

)
:CALCOLO_EXP
set /a EXP=%EXP%+%EXP_EN%
echo 你赢了: 获得 %EXP_EN% EXP
pause >nul
if %LV% EQU 1 if %EXP% GEQ 10 (
echo.
echo 你的经验足够了...
echo 升到第 2 级...
pause >nul
set /a ATT=%ATT%+3
set /a DIF=%DIF%+2
set /a MAG=%MAG%+0
set /a DIF_M=%DIF_M%+1
set /a HP_MAX=%HP_MAX%+15
set /a HP=%HP_MAX%+15
set /a MAGIE=1
set /a LV=2
goto SAVE
) else (
goto SAVE
)
if %LV% LEQ 2 if %EXP% GEQ 30 (
echo.
echo 你的经验足够了...
echo 升到第 3 级...
pause >nul
set /a ATT=%ATT%+1
set /a DIF=%DIF%+1
set /a MAG=%MAG%+2
set /a DIF_M=%DIF_M%+1
set /a HP_MAX=%HP_MAX%+20
set /a HP=%HP_MAX%+20
set /a MAGIE=2
set /a LV=3
goto SAVE
) else (
goto SAVE
)
if %LV% LEQ 3 if %EXP% GEQ 50 (
echo.
echo 你的经验足够了...
echo 升到第 4 级...
pause >nul
set /a ATT=%ATT%+3
set /a DIF=%DIF%+2
set /a MAG=%MAG%+1
set /a DIF_M=%DIF_M%+2
set /a HP_MAX=%HP_MAX%+30
set /a HP=%HP_MAX%+30
set /a MAGIE=3
set /a LV=4
goto SAVE
) else (
goto SAVE
)
if %LV% LEQ 4 if %EXP% GEQ 80 (
echo.
echo 你的经验足够了...
echo 升到第 5 级...
pause >nul
set /a ATT=%ATT%+1
set /a DIF=%DIF%+3
set /a MAG=%MAG%+3
set /a DIF_M=%DIF_M%+1
set /a HP_MAX=%HP_MAX%+34
set /a HP=%HP_MAX%+34
set /a MAGIE=4
set /a LV=5
goto SAVE
) else (
goto SAVE
)
if %LV% LEQ 5 if %EXP% GEQ 115 (
echo.
echo 你的经验足够了...
echo 升到第 6 级...
pause >nul
set /a ATT=%ATT%+2
set /a DIF=%DIF%+2
set /a MAG=%MAG%+2
set /a DIF_M=%DIF_M%+2
set /a HP_MAX=%HP_MAX%+38
set /a HP=%HP_MAX%+38
set /a MAGIE=5
set /a LV=6
goto SAVE
) else (
goto SAVE
)
if %LV% LEQ 6 if %EXP% GEQ 150 (
echo.
echo 你的经验足够了...
echo 升到第 7 级...
pause >nul
set /a ATT=%ATT%+3
set /a DIF=%DIF%+4
set /a MAG=%MAG%+3
set /a DIF_M=%DIF_M%+4
set /a HP_MAX=%HP_MAX%+45
set /a HP=%HP_MAX%+45
set /a MAGIE=6
set /a LV=7
goto SAVE
) else (
goto SAVE
)
:ATTACCA
set /a DAMAGE=(%VAR_ATT%+%ATT%+%EQUIP_ARM%)-%DIF_EN%
if %COMBACT% EQU 1 (
set /a HP_EN=%HP_EN%-%DAMAGE%
echo %Name% 攻击了 %NAME_EN%, 攻击力: %DAMAGE%
if !HP_EN! LEQ 0 (
echo %NAME_EN% 已死亡...
set /a END_COMBACT=1
pause >nul
goto CALCOLO_EXP
)
if !DAMAGE! GEQ %HP_MAX_EN% (
echo %NAME_EN% 已死亡...
set /a END_COMBACT=1
pause >nul
goto CALCOLO_EXP
) else (
pause >nul
goto %TURNO_EN%
)
)
if %COMBACT% EQU 2 (
if %MID_COMBACT% EQU 0 (
if %TAG% EQU 1 (
set /a HP_EN=%HP_EN%-%DAMAGE%
echo %Name% 攻击了 %NAME_EN%, 攻击力: %DAMAGE%
if !HP_EN! LEQ 0 (
echo %NAME_EN% 已死亡...
set /a MID_COMBACT=1
pause >nul
goto COMBACT_2_ENEMY_NO2
)
if !DAMAGE! GEQ %HP_MAX_EN% (
echo %NAME_EN% 已死亡...
set /a MID_COMBACT=1
pause >nul
goto COMBACT_2_ENEMY_NO2
) else (
pause >nul
goto COMBACT_2_ENEMY_NO1
)
)
if %TAG% EQU 2 (
set /a HP_EN_2=%HP_EN_2%-%DAMAGE%
echo %Name% 攻击了 %NAME_EN%, 攻击力: %DAMAGE%
if !HP_EN_2! LEQ 0 (
echo %NAME_EN_2% 已死亡...
set /a MID_COMBACT=2
pause >nul
goto COMBACT_2_ENEMY_NO1
)
if !DAMAGE! GEQ %HP_MAX_EN_2% (
echo %NAME_EN_2% 已死亡...
set /a MID_COMBACT=2
pause >nul
goto COMBACT_2_ENEMY_NO1
) else (
pause >nul
goto COMBACT_2_ENEMY_NO1
)
)
)
if %MID_COMBACT% EQU 1 (
set /a HP_EN_2=%HP_EN_2%-%DAMAGE%
echo %Name% 攻击了 %NAME_EN_2%, 攻击力: %DAMAGE%
if !HP_EN_2! LEQ 0 (
echo %NAME_EN_2% 已死亡...
set /a END_COMBACT=1
pause >nul
goto CALCOLO_EXP
)
if !DAMAGE! GEQ %HP_MAX_EN_2% (
echo %NAME_EN_2% 已死亡...
set /a END_COMBACT=1
pause >nul
goto CALCOLO_EXP
) else (
pause >nul
goto COMBACT_2_ENEMY_NO2
)
)
if %MID_COMBACT% EQU 2 (
set /a HP_EN=%HP_EN%-%DAMAGE%
echo %Name% 攻击了 %NAME_EN%, 攻击力: %DAMAGE%
if !HP_EN! LEQ 0 (
echo %NAME_EN% 已死亡...
set /a END_COMBACT=1
pause >nul
goto CALCOLO_EXP
)
if !DAMAGE! GEQ %HP_MAX_EN% (
echo %NAME_EN% 已死亡...
set /a END_COMBACT=1
pause >nul
goto CALCOLO_EXP
) else (
pause >nul
goto COMBACT_2_ENEMY_NO1
)
)
)
:COMBACT_1
set /a FUGA=%RANDOM% %%100
set /a VAR_ATT=%RANDOM% %%5
set /a VAR_MAG=%RANDOM% %%5
set /a ST_DEF=0
set /a COMBACT=1
cls
call color.bat 轮到你了#0a
echo.
echo "%NAME% -> HP: %HP%/%HP_MAX% | ATT: %ATT% | DIF: %DIF% | MAG: %MAG% | DIF_M: %DIF_M% | EXP: %EXP% | LV: %LV%"
echo "%NAME_EN% -> HP: %HP_EN%/%HP_MAX_EN% | ATT: %ATT_EN% | DIF: %DIF_EN% | MAG: %MAG_EN% | DIF_M: %DIF_M_EN%"
echo.
if %HP% LEQ 0 (
echo.
echo %Name%躺在地上... 流血不止... 缓缓地合上了双眼... 再见了... %Name%
pause >nul
goto END
)
if %HP_EN% LEQ 0 (
echo %NAME_EN% 已死亡...
set /a END_COMBACT=1
pause >nul
goto CALCOLO_EXP
) else (
choice /N /C:ADMF /M "A[攻击] D[防御] M[魔法] F[逃跑]"
if errorlevel 4 (
echo 逃跑...
if %FUGA% GEQ 50 (
echo %Name%设法逃走了...
pause >nul
goto %AMBIENTE%
) else (
echo %Name%无法逃走...
pause >nul
goto %TURNO_EN%
)
)
if errorlevel 3 (
if %MAGIE% EQU 0 (
echo %Name%没有任何魔法... 做无用功...
pause >nul
goto %TURNO%
)
if %MAGIE% GEQ 1 goto MENU_MAGIE
)
if errorlevel 2 (
echo 防御^^!我挡^^!^^!^^!
set /a ST_DEF=1
pause >nul
goto %TURNO_EN%
)
if errorlevel 1 goto ATTACCA
)
:COMBACT_1_ENEMY
set /a VELENO=%RANDOM% %%100
set /a VAR_DAMAGE=%RANDOM% %%4
if %ST_DEF% EQU 0 (
set /a DAMAGE_EN=%VAR_DAMAGE%+%ATT_EN%-%DIF%
) else (
set /a DAMAGE_EN=%VAR_DAMAGE%+%ATT_EN%-(%DIF%+%EQUIP_CORPO%)
)
if %DAMAGE_EN% LEQ 0 (
set /a DAMAGE_EN=0
)
cls
call color.bat %NAME_EN%#0a 回合#0a
echo.
echo "%NAME% -> HP: %HP%/%HP_MAX% | ATT: %ATT% | DIF: %DIF% | MAG: %MAG% | |DIF_M: %DIF_M% | EXP: %EXP% | LV: %LV%"
echo "%NAME_EN% -> HP: %HP_EN%/%HP_MAX_EN% | ATT: %ATT_EN% | DIF: %DIF_EN% | MAG: %MAG_EN% | DIF_M: %DIF_M_EN%"
echo.
echo %NAME_EN%攻击了%Name%...
echo 攻击力: %DAMAGE_EN%
set /a HP=%HP%-%DAMAGE_EN%
if %HP_EN% LEQ 0 (
echo %NAME_EN% 已死亡...
set /a END_COMBACT=1
pause >nul
goto CALCOLO_EXP
)
if %HP% LEQ 0 (
echo.
echo %Name%躺在地上... 流血不止... 缓缓地合上了双眼... 再见了... %Name%
pause >nul
goto END
)
if %DAMAGE_EN% GEQ %HP_MAX% (
echo.
echo %Name%躺在地上... 流血不止... 缓缓地合上了双眼... 再见了... %Name%
pause >nul
goto END
) else (
if %ST_VELENO% EQU 0 (
if %VELENO% GEQ 75 (
echo.
echo %Name%中毒了...
echo 损失: %HP_LOSE% HP
set /a HP=%HP%-3
set /a ST_VELENO=1
if %HP% LEQ 0 (
echo.
echo %Name%躺在地上... 流血不止... 缓缓地合上了双眼... 再见了... %Name%

复制代码

pause >nul
goto END
) else (
pause >nul
goto %TURNO%
)
) else (
pause >nul
goto %TURNO%
)
) else (
echo 损失: %HP_LOSE% HP
set /a HP=%HP%-3
if %HP% LEQ 0 (
echo.
echo %Name%躺在地上... 流血不止... 缓缓地合上了双眼... 再见了... %Name%
pause >nul
goto END
) else (
pause >nul
goto %TURNO%
)
)
)
:COMBACT_2
set /a FUGA=%RANDOM% %%100
set /a VAR_ATT=%RANDOM% %%5
set /a VAR_MAG=%RANDOM% %%5
set /a ST_DEF=0
set /a COMBACT=2
if %MID_COMBACT% EQU 0 (
set TURNO_EN=COMBACT_2_ENEMY_NO1
)
if %MID_COMBACT% EQU 1 (
set TURNO_EN=COMBACT_2_ENEMY_NO2
)
if %MID_COMBACT% EQU 2 (
set TURNO_EN=COMBACT_2_ENEMY_NO1
)
cls
call color.bat 轮到你了#0a
echo.
if %MID_COMBACT% EQU 0 (
echo "%NAME% -> HP: %HP%/%HP_MAX% | ATT: %ATT% | DIF: %DIF% | MAG: %MAG% | DIF_M: %DIF_M% | EXP: %EXP% | LV: %LV%"
echo "%NAME_EN% -> HP: %HP_EN%/%HP_MAX_EN% | ATT: %ATT_EN% | DIF: %DIF_EN% | MAG: %MAG_EN% | DIF_M: %DIF_M_EN%"
echo "%NAME_EN_2% -> HP: %HP_EN_2%/%HP_MAX_EN_2% | ATT: %ATT_EN_2% | DIF: %DIF_EN_2% | MAG: %MAG_EN_2% | DIF_M: %DIF_M_EN_2%"
echo.
)
if %MID_COMBACT% EQU 1 (
echo "%NAME% -> HP: %HP%/%HP_MAX% | ATT: %ATT% | DIF: %DIF% | MAG: %MAG% | DIF_M: %DIF_M% | EXP: %EXP% | LV: %LV%"
echo "%NAME_EN% -> Morto.
echo "%NAME_EN_2% -> HP: %HP_EN_2%/%HP_MAX_EN_2% | ATT: %ATT_EN_2% | DIF: %DIF_EN_2% | MAG: %MAG_EN_2% | DIF_M: %DIF_M_EN_2%"
echo.
)
if %MID_COMBACT% EQU 2 (
echo "%NAME% -> HP: %HP%/%HP_MAX% | ATT: %ATT% | DIF: %DIF% | MAG: %MAG% | DIF_M: %DIF_M% | EXP: %EXP% | LV: %LV%"
echo "%NAME_EN% -> HP: %HP_EN%/%HP_MAX_EN% | ATT: %ATT_EN% | DIF: %DIF_EN% | MAG: %MAG_EN% | DIF_M: %DIF_M_EN%"
echo "%NAME_EN_2% -> Morto.
echo.
)
if %HP% LEQ 0 (
echo.
echo %Name%躺在地上... 流血不止... 缓缓地合上了双眼... 再见了... %Name%
pause >nul
goto END
)
if %HP_EN% LEQ 0 if %HP_EN_2% LEQ 0 (
echo 僵尸死了...你看着，感到莫名的恶心...
set /a END_COMBACT=1
pause >nul
goto CALCOLO_EXP
)
if %MID_COMBACT% EQU 0 (
choice /N /C:12 /M "攻击谁? [1] %NAME_EN%, [2] %NAME_EN_2%"
if errorlevel 2 (
set /a TAG=2
goto FINE_TARGET
)
if errorlevel 1 (
set /a TAG=1
goto FINE_TARGET
)
)
if %MID_COMBACT% EQU 1 (
set /a TAG=2
)
if %MID_COMBACT% EQU 2 (
set /a TAG=1
)
:FINE_TARGET
echo.
choice /N /C:ADMF /M "A[攻击] D[防御] M[魔法] F[逃跑]"
if errorlevel 4 (
echo Tenti la fugga
if %FUGA% GEQ 50 (
echo %Name%设法逃走了...
pause >nul
goto %AMBIENTE%
) else (
echo %Name%无法逃走...
pause >nul
goto %TURNO_EN%
)
)
if errorlevel 3 (
if %MAGIE% EQU 0 (
echo %Name%没有任何魔法... 做无用功...
pause >nul
goto %TURNO%
)
if %MAGIE% GEQ 1 goto MENU_MAGIE
)
if errorlevel 2 (
echo 防御^^!我挡^^!^^!^^!
set /a ST_DEF=1
pause >nul
goto %TURNO_EN%
)
if errorlevel 1 goto ATTACCA
:COMBACT_2_ENEMY_NO1
set /a VELENO=%RANDOM% %%100
set /a VAR_DAMAGE=%RANDOM% %%4
if %ST_DEF% EQU 0 (
set /a DAMAGE_EN=%VAR_DAMAGE%+%ATT_EN%-%DIF%
) else (
set /a DAMAGE_EN=%VAR_DAMAGE%+%ATT_EN%-(%DIF%+%EQUIP_CORPO%)
)
if %DAMAGE_EN% LEQ 0 (
set /a DAMAGE_EN=0
)
if %MID_COMBACT% EQU 2 (
cls
call color.bat %NAME_EN%#0a 回合#0a
echo.
echo "%NAME% -> HP: %HP%/%HP_MAX% | ATT: %ATT% | DIF: %DIF% | MAG: %MAG% | |DIF_M: %DIF_M% | EXP: %EXP% | LV: %LV%"
echo "%NAME_EN% -> HP: %HP_EN%/%HP_MAX_EN% | ATT: %ATT_EN% | DIF: %DIF_EN% | MAG: %MAG_EN% | DIF_M: %DIF_M_EN%"
echo "%NAME_EN_2% -> Morto.
echo.
) else (
cls
call color.bat %NAME_EN%#0a 回合#0a
echo.
echo "%NAME% -> HP: %HP%/%HP_MAX% | ATT: %ATT% | DIF: %DIF% | MAG: %MAG% | |DIF_M: %DIF_M% | EXP: %EXP% | LV: %LV%"
echo "%NAME_EN% -> HP: %HP_EN%/%HP_MAX_EN% | ATT: %ATT_EN% | DIF: %DIF_EN% | MAG: %MAG_EN% | DIF_M: %DIF_M_EN%"
echo "%NAME_EN_2% -> HP: %HP_EN_2%/%HP_MAX_EN_2% | ATT: %ATT_EN_2% | DIF: %DIF_EN_2% | MAG: %MAG_EN_2% | DIF_M: %DIF_M_EN_2%"
echo.
)
echo %NAME_EN%攻击了%Name%...
echo 攻击力: %DAMAGE_EN%
set /a HP=%HP%-%DAMAGE_EN%
if %MID_COMBACT% EQU 0 (
if %HP_EN% LEQ 0 (
echo %NAME_EN% 已死亡...
set /a MID_COMBACT=1
pause >nul
goto COMBACT_2_ENEMY_NO2
)
)
if %MID_COMBACT% EQU 2 (
if %HP_EN% LEQ 0 (
echo %NAME_EN% 已死亡...
set /a END_COMBACT=1
pause >nul
goto CALCOLO_EXP
)
)
if %HP% LEQ 0 (
echo.
echo %Name%躺在地上... 流血不止... 缓缓地合上了双眼... 再见了... %Name%
pause >nul
goto END
)
if %DAMAGE_EN% GEQ %HP_MAX% (
echo.
echo %Name%躺在地上... 流血不止... 缓缓地合上了双眼... 再见了... %Name%
pause >nul
goto END
) else (
if %ST_VELENO% EQU 0 (
if %VELENO% GEQ 75 (
echo.
echo %Name%中毒了...
echo 损失: %HP_LOSE% HP
set /a HP=%HP%-3
set /a ST_VELENO=1
if %HP% LEQ 0 (
echo.
echo %Name%躺在地上... 流血不止... 缓缓地合上了双眼... 再见了... %Name%
pause >nul
goto END
) else (
pause >nul
if %MID_COMBACT% EQU 0 (
goto COMBACT_2_ENEMY_NO2
) else (
goto %TURNO%
)
)
) else (
pause >nul
if %MID_COMBACT% EQU 0 (
goto COMBACT_2_ENEMY_NO2
) else (
goto %TURNO%
)
)
) else (
echo 损失: %HP_LOSE% HP
set /a HP=%HP%-3
if %HP% LEQ 0 (
echo.
echo %Name%躺在地上... 流血不止... 缓缓地合上了双眼... 再见了... %Name%
pause >nul
goto END
) else (
pause >nul
if %MID_COMBACT% EQU 0 (
goto COMBACT_2_ENEMY_NO2
) else (
goto %TURNO%
)
)
)
)
:COMBACT_2_ENEMY_NO2
set /a VELENO=%RANDOM% %%100
set /a VAR_DAMAGE=%RANDOM% %%4
if %ST_DEF% EQU 0 (
set /a DAMAGE_EN=%VAR_DAMAGE%+%ATT_EN%-%DIF%
) else (
set /a DAMAGE_EN=%VAR_DAMAGE%+%ATT_EN%-(%DIF%+%EQUIP_CORPO%)
)
if %DAMAGE_EN% LEQ 0 (
set /a DAMAGE_EN=0
)
if %MID_COMBACT% EQU 1 (
cls
call color.bat %NAME_EN_2%#0a 回合#0a
echo.
echo "%NAME% -> HP: %HP%/%HP_MAX% | ATT: %ATT% | DIF: %DIF% | MAG: %MAG% | |DIF_M: %DIF_M% | EXP: %EXP% | LV: %LV%"
echo "%NAME_EN% -> Morto.
echo "%NAME_EN_2% -> HP: %HP_EN_2%/%HP_MAX_EN_2% | ATT: %ATT_EN_2% | DIF: %DIF_EN_2% | MAG: %MAG_EN_2% | DIF_M: %DIF_M_EN_2%"
echo.
) else (
cls
call color.bat TURNO#0a %NAME_EN_2%#0a
echo.
echo "%NAME% -> HP: %HP%/%HP_MAX% | ATT: %ATT% | DIF: %DIF% | MAG: %MAG% | |DIF_M: %DIF_M% | EXP: %EXP% | LV: %LV%"
echo "%NAME_EN% -> HP: %HP_EN%/%HP_MAX_EN% | ATT: %ATT_EN% | DIF: %DIF_EN% | MAG: %MAG_EN% | DIF_M: %DIF_M_EN%"
echo "%NAME_EN_2% -> HP: %HP_EN_2%/%HP_MAX_EN_2% | ATT: %ATT_EN_2% | DIF: %DIF_EN_2% | MAG: %MAG_EN_2% | DIF_M: %DIF_M_EN_2%"
echo.
)
echo %NAME_EN_2%攻击了%Name%...
echo 攻击力: %DAMAGE_EN%
set /a HP=%HP%-%DAMAGE_EN%
if %MID_COMBACT% EQU 0 (
if %HP_EN_2% LEQ 0 (
echo %NAME_EN_2%已死亡...
set /a MID_COMBACT=2
pause >nul
goto COMBACT_2_ENEMY_NO1
)
)
if %MID_COMBACT% EQU 1 (
if %HP_EN_2% LEQ 0 (
echo %NAME_EN_2%已死亡...
set /a END_COMBACT=1
pause >nul
goto CALCOLO_EXP
)
)
if %HP% LEQ 0 (
echo.
echo %Name%躺在地上... 流血不止... 缓缓地合上了双眼... 再见了... %Name%
pause >nul
goto END
)
if %DAMAGE_EN% GEQ %HP_MAX% (
echo.
echo %Name%躺在地上... 流血不止... 缓缓地合上了双眼... 再见了... %Name%
pause >nul
goto END
) else (
if %ST_VELENO% EQU 0 (
if %VELENO% GEQ 75 (
echo.
echo %Name%中毒了...
echo 损失: %HP_LOSE% HP
set /a HP=%HP%-3
set /a ST_VELENO=1
if %HP% LEQ 0 (
echo.
echo %Name%躺在地上... 流血不止... 缓缓地合上了双眼... 再见了... %Name%
pause >nul
goto END
) else (
pause >nul
goto %TURNO%
)
) else (
pause >nul
goto %TURNO%
)
) else (
echo 损失: %HP_LOSE% HP
set /a HP=%HP%-3
if %HP% LEQ 0 (
echo.
echo %Name%躺在地上... 流血不止... 缓缓地合上了双眼... 再见了... %Name%
pause >nul
goto END
) else (
pause >nul
goto %TURNO%
)
)
)
:END
echo Game Over...
pause >nul
exit

复制代码