[转载自Dostips] 游戏劳里的幻想世界 - BAT求助&讨论 - 批处理之家 BAT,CMD,批处理,PowerShell,VBS,DOS - Powered by Discuz!

批处理之家 » BAT求助&讨论 » [转载自Dostips] 游戏劳里的幻想世界

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

返回列表发帖

Rank: 4

帖子: 357
积分: 477
技术: 34
捐助: 0
注册时间: 2021-8-8

5楼 跳转到 »

发表于 2021-10-4 13:20 | 只看该作者

回复 4# HOPE2021
源码第六部分:

		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%
			)
		)
	)
 
复制代码

Why join the navy, if you can be a pirate? - Steve Jobs

Rank: 4

帖子: 357
积分: 477
技术: 34
捐助: 0
注册时间: 2021-8-8

4楼

发表于 2021-10-4 13:20 | 只看该作者

回复 3# HOPE2021
源码第五部分:

		)
	)
	
	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 (
复制代码

Why join the navy, if you can be a pirate? - Steve Jobs

Rank: 4

帖子: 357
积分: 477
技术: 34
捐助: 0
注册时间: 2021-8-8

3楼

发表于 2021-10-4 13:19 | 只看该作者

回复 2# HOPE2021
源码第三部分:

				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
复制代码

Why join the navy, if you can be a pirate? - Steve Jobs

Rank: 4

帖子: 357
积分: 477
技术: 34
捐助: 0
注册时间: 2021-8-8

2楼

发表于 2021-10-4 13:18 | 只看该作者

回复 1# HOPE2021
源码第二部分:

				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 返回
 
复制代码

Why join the navy, if you can be a pirate? - Steve Jobs