设为首页收藏本站
切换到宽版

 找回密码
 注册
搜索
批处理之家»论坛 › 批处理专区: BAT CMD DOS › BAT求助&讨论 › [转载自Dostips] 游戏 劳里的幻想世界
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
12下一页
返回列表 发新帖
查看: 56584|回复: 18

[其他] [转载自Dostips] 游戏 劳里的幻想世界

[复制链接]
HOPE2021
发表于 2021-10-4 13:17:30 | 显示全部楼层 |阅读模式
本帖最后由 HOPE2021 于 2021-11-6 12:20 编辑

转自Dostips,经过汉化,作者的技术非常好,侵删.
汉化版下载与原文链接楼:http://www.bathome.net/redirect.php?goto=findpost&pid=247714&ptid=60246
源码第一部分:
  1. @echo off
  2. Rem 来自https://www.dostips.com/forum/viewtopic.php?f=3&t=9848&p=63348
  3. Rem 作者Lauri
  4. chcp 936 > nul
  5. title 劳里的幻想世界
  6. color 03
  7. @goto INSTALL_COLOR

  9. :INSTALL_COLOR
  10. echo.
  11. echo.正在加载图形引擎...
  12. (
  13. echo.@echo off
  14. echo.chcp 936 ^> nul
  15. echo.Setlocal EnableDelayedExpansion
  16. echo.REM setlocal enableextensions
  17. echo.set dstdir=c:\tmpColorDirtoDelete
  18. echo.IF EXIST %%dstdir%% goto errExist
  19. echo.@mkdir %%dstdir%%
  20. echo.@cd %%dstdir%%
  21. echo.set count=0
  22. echo.REM DEFINISCO IL CARATTERE BACKSPACE!
  23. echo.set "$Defines=$BS"    & set "$Details=Create $ESC Ascii-0x1B-27, Expansion insensitive"
  24. echo.   for /f "delims=#" %%%%a in ^(
  25. echo.      '"prompt #$H# &echo on &for %%%%b in (1) do rem"'
  26. echo.   ^) do ^(
  27. echo.      set "%%$Defines%%=%%%%a"
  28. echo.      set "%%$Defines%%=!$BS:~0,1!"
  29. echo.   ^)
  30. echo.FOR %%%%a IN ^(%%*^) DO ^(
  31. echo. FOR /F "usebackq delims=# tokens=1,*" %%%%b IN ^('%%%%a'^) DO ^(
  32. echo.    REM echo %%%%b sara' di colore %%%%c
  33. echo.    set /A count=!count!+1
  34. echo.    set nomefile=%%%%b
  35. echo.    IF %%%%c.==. ^(
  36. echo.        set colore=03
  37. echo.    ^) ELSE ^(
  38. echo.    set colore=%%%%c
  39. echo.    ^)
  40. echo.    REM SET /P ".=" %%%%b
  41. echo.    SET /P ".=%%$BS%% " ^<nul ^>%%%%b
  42. echo.    REM echo !count!^>%%%%b
  43. echo.    REM echo FINDSTR /A:%%%%c /C:"!count!" /S "%%%%b"
  44. echo.    REM more %%%%b
  45. echo.    set bin=%%%%b
  46. echo. ^)
  47. echo. REM FINE INNER FOR
  48. echo.    REM echo FINDSTR /A:!colore! /C:"!count!" /S "!nomefile!"
  49. echo.    FINDSTR /A:!colore! /C:" " /S "!nomefile!"
  50. echo.    REM goto end
  51. echo.^)
  52. echo.REM FINE OUTER FOR
  53. echo.echo.
  54. echo.REM ERROR HANDLING
  55. echo.goto chiusura
  56. echo.:errExist
  57. echo.echo 临时目录%%dstdir%%已存在.在继续或更改批处理中的路径之前将其删除.
  58. echo.goto pulizia
  59. echo.:chiusura
  60. echo.:pulizia
  61. echo.cd..
  62. echo.rd /S /Q %%dstdir%%
  63. echo.goto end
  64. echo.:end
  65. ) > color.bat
  66. SetLocal EnableDelayedExpansion

  68. :LOAD
  69.         if EXIST "%UserProFile%\Save.Txt" (
  70.                 echo.
  71.                 echo 发现存档^^!
  72.                 echo.
  73.                 echo 你想加载游戏吗?
  74.                 call color.bat [S]#0c 想 [N]#0c 不想
  75.                
  76.                 choice /N /C:SN
  77.                
  78.                 if errorlevel 2 (
  79.                         echo.
  80.                         echo 新的开始.
  81.                         pause >nul
  82.                        
  83.                         goto START
  84.                 )
  85.                 if errorlevel 1 (
  86.                         for /F "usebackq tokens=1-18 delims=," %%G in ("%UserProFile%\Save.Txt") do (
  87.                                 set AMBIENTE=%%G
  88.                                 set ATT=%%H
  89.                                 set DIF=%%I
  90.                                 set MAG=%%J
  91.                                 set DIF_M=%%K
  92.                                 set HP_MAX=%%L
  93.                                 set HP=%%M
  94.                                 set MAGIE=%%N
  95.                                 set LV=%%O
  96.                                 set EXP=%%P
  97.                                 set END_COMBACT=%%Q
  98.                                 set EQUIP_ARM=%%R
  99.                                 set EQUIP_CORPO=%%S
  100.                                 set EQUIP_ELM=%%T
  101.                                 set NAME=%%U
  102.                                 set SWT_LOC_A=%%V
  103.                                 set GOLD=%%W
  104.                                 set STORY=%%X
  105.                                 set /a ST_VELENO=0
  106.                                 set NAME_EN=
  107.                                 set /a HP_LOSE=3

  109.                                 set /a LOOP_L=0
  110.                                
  111.                                 goto LOOP_ECHO_LOAD
  112.                         )
  113.                 )
  114.         ) else (
  115.                 goto START
  116.         )

  118. :SAVE
  119.         set /a LOOP_S=0
  120.        
  121.         goto LOOP_ECHO_SAVE
  122.                
  123. :LOOP_ECHO_LOAD
  124.         if %LOOP_L% EQU 0 (
  125.                 cls
  126.                 echo.
  127.                 echo 正在加载 .
  128.                 set /a LOOP_L=%LOOP_L%+1
  129.                
  130.                 choice /N /C:P /T 1 /D P
  131.                 goto LOOP_ECHO_LOAD
  132.         )
  133.                                
  134.         if %LOOP_L% EQU 1 (
  135.                 cls
  136.                 echo.
  137.                 echo 正在加载 . .
  138.                 set /a LOOP_L=%LOOP_L%+1
  139.                
  140.                 choice /N /C:P /T 1 /D P
  141.                 goto LOOP_ECHO_LOAD
  142.         )
  143.        
  144.         if %LOOP_L% EQU 2 (
  145.                 cls
  146.                 echo.
  147.                 echo 正在加载 . . .
  148.                 set /a LOOP_L=0

  150.                 choice /N /C:P /T 1 /D P
  151.                 if errorlevel 1 goto %AMBIENTE%
  152.         )

  154. :LOOP_ECHO_SAVE
  155.         if %LOOP_S% EQU 0 (
  156.                 cls
  157.                 echo.
  158.                 echo 存档中 .
  159.                 set /a LOOP_S=%LOOP_S%+1
  160.                 choice /N /C:P /T 1 /D P
  161.                
  162.                 goto LOOP_ECHO_SAVE
  163.         )
  164.                                
  165.         if %LOOP_S% EQU 1 (
  166.                 cls
  167.                 echo.
  168.                 echo 存档中 . .
  169.                 set /a LOOP_S=%LOOP_S%+1
  170.                 choice /N /C:P /T 1 /D P
  171.                        
  172.                 goto LOOP_ECHO_SAVE
  173.         )
  174.        
  175.         if %LOOP_S% EQU 2 (
  176.                 cls
  177.                 echo.
  178.                 echo 存档中 . . .
  179.                 set /a LOOP_S=0

  181.                 choice /N /C:P /T 2 /D P
  182.                 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"

  184.                 goto %AMBIENTE%
  185.         )
  186.        
  187. :START
  188. set /a EQUIP_ARM=0
  189. :: 3= SPADA ATT +3
  190. :: 5= LANCIA ATT +5
  191. :: 7= PUGNALE ATT +7
  192. :: 2= ASTA +2 MAG
  193. :: 4= PISTOLA +4 MAG
  194. :: 8= LONGINUS +8 MAG

  196. set /a EQUIP_CORPO=0
  197. :: 1= MAGLIA DIF +1
  198. :: 3= GIUBOTTO DIF+3
  199. :: 8= CORAZZA DIF +8

  201. set /a EQUIP_ELM=0
  202. :: 2= CAPPELLO DIF_MAG +2
  203. :: 5= BASCO DIF_MAG +5
  204. :: 7= ELMO DIF_MAG +7

  206. set /a ATT=2
  207. set /a DIF=1
  208. set /a MAG=0
  209. set /a DIF_M=0
  210. set /a EXP=0
  211. set /a HP=30
  212. set /a HP_MAX=30
  213. set /a LV=1

  215. set /a ST_VELENO=0
  216. :: 1= AVVELENATO

  218. set /a HP_LOSE=3
  219. :: HP PERSI PER EFFETTO DEL VELENO

  221. set /a END_COMBACT=0

  223. set /a MAGIE=0
  224. :: FIRE=1
  225. :: ICE=2
  226. :: ENERGIA=3
  227. :: IDRO=4
  228. :: THUNDER=5
  229. :: ESNA=6

  231. set /a SWT_LOC_A=0
  232. :: VARIABILE PER I SOLDI TROVATI NEL MONDO

  234. set /a GOLD=0
  235. ::SOLDI DEL GIOCO

  237. set /a STORY=0
  238. ::VARIABILE DELLA STORIA

  240. set NAME_EN=


  243. cls
  244. echo.欢迎来到虚拟世界，这里使用了有史以来最好的图形引擎，你的大脑^^!
  245. pause >nul

  247. cls

  249. call color.bat 选择 [S]#0c 开始或选择 [N]#0c 退出
  250. choice /N /C:SN

  252. if errorlevel 2 goto END
  253. if errorlevel 1 goto BEGIN_GAME

  255. :BEGIN
  256.         cls
  257.         call color.bat 你的房子#0a
  258.         echo.
  259.         echo 你是离开房子还是在房间里踱步?

  261.         call color.bat 选择 [A]#0c 离开或选择 [D]#0c 停留
  262.         choice /N /C:AD
  263.        
  264.         if errorlevel 2 goto IN_HOME
  265.         if errorlevel 1 goto OUT_HOME

  267. :BEGIN_GAME
  268.         echo.
  269.         set /p NAME=你的名字叫什么?

  271.         if /i DEFINED NAME (
  272.                 echo.
  273.                 echo %NAME%你好, 你好，欢迎来到劳里的世界^^!
  274.                 echo 你准备好开始你的冒险了吗？
  275.                 call color.bat 按 [Enter键]#0c 开始。
  276.                 pause >nul
  277.         ) else (
  278.                 cls
  279.                 echo 请输入您的姓名^^!
  280.                 pause >nul
  281.                 goto BEGIN_GAME
  282.         )

  284. cls
  285. call color.bat 你的房子#0a
  286. echo.
  287. echo 嗯，刚刚醒来，马上就发现了一些奇怪的事情...
  288. echo 是啊...太安静了，有点不对劲...
  289. echo 走近前门想做点什么...
  290. echo 是离开房子还是在房间里踱步?

  292.         call color.bat 选择 [A]#0c 离开或选择 [D]#0c 停留
  293.         choice /N /C:AD
  294.        
  295.         if errorlevel 2 goto IN_HOME
  296.         if errorlevel 1 goto OUT_HOME

  298.         :OUT_HOME
  299.                 cls
  300.                 call color.bat 屋外#0a
  301.                 echo.
  302.                 echo 我听不到任何噪音...
  303.                 echo 我步行时注意到朋友的房子...
  304.                 echo 门开着...
  305.                 echo 决定进去还是继续?
  306.                
  307.                 call color.bat 选择 [A]#0c 进入或选择 [D]#0c 继续或 [X]#0c 返回
  308.                 choice /N /C:ADX
  309.                
  310.                 if errorlevel 3 goto BEGIN
  311.                 if errorlevel 2 goto STREET
  312.                 if errorlevel 1 goto FRIEND_HOUSE

  314.         :IN_HOME
  315.                 cls
  316.                 call color.bat 走廊#0a
  317.                 echo.
  318.                 echo 想去哪个房间?

  320.                 call color.bat 选择 [A]#0c 去厨房 [D]#0c 去卧室 [G]#0c 去浴室 [J]#0c 客厅
  321.                 choice /N /C:ADGJ

  323.                 if errorlevel 4 goto SALA
  324.                 if errorlevel 3 goto BAGNO
  325.                 if errorlevel 2 goto CAMERA
  326.                 if errorlevel 1 goto CUCINA

  328.                 :CUCINA
  329.                         cls
  330.                         call color.bat 厨房#0a
  331.                         echo.
  332.                         echo 这里也没有人...电线断了...
  333.                         echo 妈妈一定忘了关上它...
  334.                         echo 回去吧...
  335.                         pause >nul
  336.                         goto BEGIN
  337.                 :CAMERA
  338.                         if %EQUIP_ARM% EQU 0 (
  339.                                 cls
  340.                                 call color.bat 卧室#0a
  341.                                 echo.
  342.                                 echo 床没铺好...
  343.                                 echo 我检查了壁橱...
  344.                                 call color.bat 找到#03 黑桃#0c [ATT#0c +3]#0c
  345.                                 set /a EQUIP_ARM=3
  346.                                 echo 回去吧...
  347.                                 pause >nul
  348.                                 goto BEGIN
  349.                         )
  350.                         if %EQUIP_ARM% GEQ 1 (
复制代码
回复

举报

HOPE2021
 楼主| 发表于 2021-10-4 13:18:16 | 显示全部楼层
回复 1# HOPE2021
源码第二部分:
  1.                                 cls
  2.                                 call color.bat 卧室#0a
  3.                                 echo.
  4.                                 echo 床没铺好...
  5.                                 echo 我检查了壁橱...
  6.                                 echo 什么都没有了...
  7.                                 echo 回去吧...
  8.                                 pause >nul
  9.                                 goto BEGIN
  10.                         )
  11.                 :BAGNO
  12.                         cls
  13.                         call color.bat 浴室#0a
  14.                         echo.
  15.                         echo 啊... 我需要好好洗个澡...
  16.                         echo 回去吧...
  17.                         pause >nul
  18.                         goto BEGIN
  19.                 :SALA
  20.                         cls
  21.                         call color.bat 客厅#0a
  22.                         echo.
  23.                         echo 灯亮着... 真奇怪...
  24.                         echo 回去吧...
  25.                         pause >nul
  26.                         goto BEGIN

  28.         :FRIEND_HOUSE
  29.                 if %END_COMBACT% EQU 0 (
  30.                         cls
  31.                         call color.bat 朋友的家#0a
  32.                         echo.
  33.                         echo 这里似乎也没有人...
  34.                         echo 我想我听到了声音...
  35.                         echo 从客厅出来...
  36.                         echo 要做什么，给朋友打电话还是检查房间？
  37.                
  38.                         call color.bat 选择 [A]#0c 给朋友打电话或选择 [D]#0c 检查房间
  39.                         choice /N /C:AD

  41.                         if errorlevel 2 goto ROOM_FRIEND_HOUSE
  42.                         if errorlevel 1 goto VOICE_1
  43.                 ) else (
  44.                         cls
  45.                         call color.bat 朋友的家#0a
  46.                         echo.
  47.                         echo 一个死去的僵尸躺在地上...
  48.                         echo 似乎没有什么有趣的事...
  49.                         pause >nul
  50.                         goto OUT_HOME
  51.                 )

  53.                 :ROOM_FRIEND_HOUSE
  54.                         cls
  55.                         call color.bat 房间#0a
  56.                         echo.
  57.                         echo 哦，我的天啊，真是太可怕了...
  58.                         echo 我的邻居好像变成了僵尸^^!^^!^^!
  59.                         echo 攻击我^^!^^!^^!
  60.                         echo.
  61.                         pause >nul

  63.                                 set /a HP_EN=20
  64.                                 set /a HP_MAX_EN=20
  65.                                 set /a ATT_EN=1
  66.                                 set /a DIF_EN=1
  67.                                 set /a MAG_EN=0
  68.                                 set /a DIF_M_EN=0

  70.                                 set NAME_EN=僵尸
  71.                                 set AMBIENTE=FRIEND_HOUSE
  72.                                 set TURNO=COMBACT_1
  73.                                 set TURNO_EN=COMBACT_1_ENEMY

  75.                                 set /a ST_VELENO=0

  77.                                 set /a EXP_EN=3
  78.                                
  79.                                 goto COMBACT_1

  81.         :VOICE_1
  82.                 cls.
  83.                 call color.bat 朋友的家#0a
  84.                 echo.
  85.                 echo 试着打电话给邻居,
  86.                 echo 似乎没有人回答...
  87.                 echo %Name%试着提高声音...
  88.                 echo 有奇怪的吼声... 从房间里传来...
  89.                 echo 发生了什么?

  91.                 call color.bat 是要离开 [A]#0c 还是检查 [D]#0c
  92.                 choice /N /C:AD

  94.                 if errorlevel 2 goto ROOM_FRIEND_HOUSE
  95.                 if errorlevel 1 goto OUT_HOME
  96.                
  97.         :STREET
  98.                 cls
  99.                 call color.bat 街头#0a
  100.                 echo.
  101.                 echo 你站在十字路口...
  102.                 echo 冷风飒飒... 乌云密布
  103.                 echo 一个指示牌歪歪斜斜... 指着东南西北...
  104.                 echo.
  105.                 echo 该向那儿走?
  106.                 call color.bat [W]#0c 直走 [A]#0c 向左 [D]#0c 向右 [X]#0c 返回
  107.                
  108.                 choice /N /C:WADX

  110.                 if errorlevel 4 goto OUT_HOME
  111.                 if errorlevel 3 goto STREET_E
  112.                 if errorlevel 2 goto STREET_O
  113.                 if errorlevel 1 goto STREET_N

  115.         :STREET_N
  116.                 cls
  117.                 call color.bat 街头#0a
  118.                 echo.
  119.                 call color.bat [W]#0c 继续前行 [X]#0c 打道回府

  121.                 choice /N /C:WX

  123.                 if errorlevel 2 goto STREET
  124.                 if errorlevel 1 goto STREET_NN
  125.                
  126.                 :STREET_NN
  127.                         cls
  128.                         call color.bat 街头#0a
  129.                         echo.
  130.                         echo 这条路似乎到此为止...
  131.                         echo 最好回去...
  132.                         pause >nul
  133.        
  134.                         goto STREET_N

  136.         :STREET_O
  137.                 cls
  138.                 call color.bat 街头#0a
  139.                 echo.
  140.                 echo %Name%看到一座尖塔...
  141.                 call color.bat [W]#0c 直走 [A]#0c 左转 [X]#0c 返回

  143.                 choice /N /C:WAX

  145.                 if errorlevel 3 goto STREET
  146.                 if errorlevel 2 goto STREET_OS
  147.                 if errorlevel 1 goto STREET_OO

  149.                 :STREET_OO
  150.                         cls
  151.                         call color.bat 街头#0a
  152.                         echo.
  153.                         call color.bat [W]#0c 直走 [X]#0c 返回

  155.                         choice /N /C:WX

  157.                         if errorlevel 2 goto STREET_O
  158.                         if errorlevel 1 goto STREET_OOO
  159.                
  160.                         :STREET_OOO
  161.                                 cls
  162.                                 call color.bat 街头#0a
  163.                                 echo.
  164.                                 echo %Name%看到一座尖塔...
  165.                                 call color.bat [W]#0c 直走 [A]#0c 向左走 [D]#0c 向右走 [X]#0c 返回

  167.                                 choice /N /C:WADX

  169.                                 if errorlevel 4 goto STREET_OO
  170.                                 if errorlevel 3 goto STREET_OOON
  171.                                 if errorlevel 2 goto STREET_OOOS
  172.                                 if errorlevel 1 goto STREET_OOOO
  173.                                
  174.                                 :STREET_OOON
  175.                                         cls
  176.                                         call color.bat 街头#0a
  177.                                         echo.
  178.                                         echo 去酒吧，也许是个好主意...
  179.                                         echo 进去，我可以喝一杯或者...
  180.                                         echo 也许我应该晚一点回去...
  181.                                         echo.
  182.                                        
  183.                                         call color.bat [A]#0c 进去 [D]#0c 返回
  184.                                        
  185.                                         choice /N /C:AD
  186.                                        
  187.                                         if errorlevel 2 goto STREET_OOO
  188.                                         if errorlevel 1 goto BAR_1
  189.                                        
  190.                                 :STREET_OOOO
  191.                                         if %SWT_LOC_A% EQU 0 (
  192.                                                 cls
  193.                                                 call color.bat 街头#0a
  194.                                                 echo.
  195.                                                 echo 嘿，你找到3块金子了^^!
  196.                                                 set /a GOLD=%GOLD%+3
  197.                                                 pause >nul
  198.                                                
  199.                                                 set /a SWT_LOC_A=1
  200.                                                 goto STREET_OOO
  201.                                         )
  202.                                        
  203.                                         if %SWT_LOC_A% EQU 1 (
  204.                                                 cls
  205.                                                 call color.bat 街头#0a
  206.                                                 echo.
  207.                                                 echo 这里什么也没有... 这条路似乎到此为止...
  208.                                                 echo 最好回去...
  209.                                                 pause >nul

  211.                                                 goto STREET_OOO
  212.                                         )

  214.                                 :STREET_OOOS
  215.                                        
  216.                                         cls
  217.                                         call color.bat 街头#0a
  218.                                         echo.
  219.                                         echo 这条路似乎到此为止...
  220.                                                         echo 最好回去...
  221.                                         pause >nul

  223.                                         goto STREET_OOO
  224.                 :STREET_OS
  225.                         cls
  226.                         call color.bat 街头#0a
  227.                         echo.
  228.                         call color.bat [W]#0c 直走 [X]#0c 返回

  230.                         choice /N /C:WX

  232.                         if errorlevel 2 goto STREET_O
  233.                         if errorlevel 1 goto STREET_OSS

  235.                         :STREET_OSS
  236.                                 cls
  237.                                 call color.bat 街头#0a
  238.                                 echo.
  239.                                 echo %Name%找到了一个休息的地方,
  240.                                 echo 这里可以恢复精力...
  241.                                 set /a HP=%HP_MAX%
  242.                                 pause >nul

  244.                                 echo.
  245.                                 call color.bat [D]#0c 向右 [X]#0c 返回

  247.                                 choice /N /C:DX

  249.                                 if errorlevel 2 goto STREET_OS
  250.                                 if errorlevel 1 goto STREET_OSSO

  252.                                 :STREET_OSSO
  253.                                         cls
  254.                                         call color.bat 街头#0a
  255.                                         echo.
  256.                                         echo %Name%遇到了一个僵尸...
  257.                                         echo 它攻击%Name%
  258.                                         echo.
  259.                                         pause >nul

  261.                                                 set /a HP_EN=25
  262.                                                 set /a HP_MAX_EN=25
  263.                                                 set /a ATT_EN=1
  264.                                                 set /a DIF_EN=2
  265.                                                 set /a MAG_EN=0
  266.                                                 set /a DIF_M_EN=0

  268.                                                 set NAME_EN=僵尸
  269.                                                 set AMBIENTE=STREET_OSS
  270.                                                 set TURNO=COMBACT_1
  271.                                                 set TURNO_EN=COMBACT_1_ENEMY

  273.                                                 set /a ST_VELENO=0
  274.        
  275.                                                 set /a EXP_EN=7
  276.                                
  277.                                                 goto COMBACT_1


  280.         :STREET_E
  281.                 cls
  282.                 call color.bat 街头#0a
  283.                 echo.
  284.                 echo %Name%看到一座尖塔...
  285.                 call color.bat [A]#0c 向左 [D]#0c 向右 [X]#0c 返回

  287.                 choice /N /C:ADX

  289.                 if errorlevel 3 goto STREET
  290.                 if errorlevel 2 goto STREET_ES
  291.                 if errorlevel 1 goto STREET_EN

  293.                 :STREET_EN
  294.                         cls
  295.                         call color.bat 街头#0a
  296.                         echo.
  297.                         call color.bat [D]#0c 向右 [X]#0c 返回

  299.                         choice /N /C:DX

  301.                         if errorlevel 2 goto STREET_E
  302.                         if errorlevel 1 goto STREET_ENE
  303.                        
  304.                         :STREET_ENE
  305.                                 cls
  306.                                 call color.bat 街头#0a
  307.                                 echo.
  308.                                 call color.bat [W]#0c 直走 [X]#0c 返回

  310.                                 choice /N /C:WX

  312.                                 if errorlevel 2 goto STREET_EN
  313.                                 if errorlevel 1 goto STREET_ENEE
  314.                                
  315.                                 :STREET_ENEE
  316.                                         cls
  317.                                         call color.bat 街头#0a
  318.                                         echo.
  319.                                         echo %Name%找到了一个休息的地方,
  320.                                         echo 这里可以恢复精力...
  321.                                         set /a HP=%HP_MAX%
  322.                                         pause >nul

  324.                                         echo.
  325.                                         call color.bat [X]#0c 返回

  327.                                         choice /N /C:X

  329.                                         if errorlevel 1 goto STREET_ENE
  330.                                
  331.                 :STREET_ES
  332.                         cls
  333.                         call color.bat 街头#0a
  334.                         echo.
  335.                         echo %Name%看到一座尖塔...
  336.                         call color.bat [W]#0c 直走 [A]#0c 向左 [D]#0c 向右 [X]#0c 返回

  338.                         choice /N /C:WADX

  340.                         if errorlevel 4 goto STREET_E
  341.                         if errorlevel 3 goto STREET_ESO
  342.                         if errorlevel 2 goto STREET_ESE
  343.                         if errorlevel 1 goto STREET_ESS
  344.                        
  345.                         :STREET_ESO
  346.                                 cls
  347.                                 call color.bat 街头#0a
  348.                                 echo.
  349.                                 call color.bat [W]#0c 直走 [X]#0c 返回

复制代码
回复

举报

HOPE2021
 楼主| 发表于 2021-10-4 13:19:29 | 显示全部楼层
回复 2# HOPE2021
源码第三部分:
  1.                                 choice /N /C:WX

  3.                                 if errorlevel 2 goto STREET_ES
  4.                                 if errorlevel 1 goto STREET_ESOO
  5.                
  6.                         :STREET_ESE
  7.                                 cls
  8.                                 call color.bat 街头#0a
  9.                                 echo.
  10.                                 call color.bat [W]#0c 直走 [X]#0c 返回

  12.                                 choice /N /C:WX
  13.        
  14.                                 if errorlevel 2 goto STREET_ES
  15.                                 if errorlevel 1 goto STREET_ESEE
  16.                        
  17.                         :STREET_ESS
  18.                                 cls
  19.                                 call color.bat 街头#0a
  20.                                 echo.
  21.                                 call color.bat [A]#0c 向左 [X]#0c 返回

  23.                                 choice /N /C:AX

  25.                                 if errorlevel 2 goto STREET_ES
  26.                                 if errorlevel 1 goto STREET_ESSE
  27.                        
  28.                                 :STREET_ESOO
  29.                                         cls
  30.                                         call color.bat 街头#0a
  31.                                         echo.
  32.                                         echo 这条路似乎到此为止...
  33.                                         echo 最好回去...
  34.                                         pause >nul
  35.                                
  36.                                         goto STREET_ESO
  37.                                        
  38.                                 :STREET_ESEE
  39.                                         cls
  40.                                         call color.bat COMBATTI#0a
  41.                                         echo.
  42.                                         echo %Name%遇到了一个僵尸...
  43.                                         echo 它攻击%Name%
  44.                                         echo.
  45.                                         pause >nul
  46.                                        
  47.                                                 set /a HP_EN=25
  48.                                                 set /a HP_MAX_EN=25
  49.                                                 set /a ATT_EN=1
  50.                                                 set /a DIF_EN=2
  51.                                                 set /a MAG_EN=0
  52.                                                 set /a DIF_M_EN=0

  54.                                                 set NAME_EN=僵尸
  55.                                                 set AMBIENTE=STREET_ESE
  56.                                                 set TURNO=COMBACT_1
  57.                                                 set TURNO_EN=COMBACT_1_ENEMY

  59.                                                 set /a ST_VELENO=0
  60.        
  61.                                                 set /a EXP_EN=7
  62.                                
  63.                                                 goto COMBACT_1
  64.                                
  65.                                 :STREET_ESSE
  66.                                         cls
  67.                                         call color.bat 街头#0a
  68.                                         echo.
  69.                                         echo %Name%看到一座尖塔...
  70.                                         call color.bat [W]#0c 直走 [D]#0c 向右 [X]#0c 返回

  72.                                         choice /N /C:WDX

  74.                                         if errorlevel 3 goto STREET_ESS
  75.                                         if errorlevel 2 goto STREET_ESSES
  76.                                         if errorlevel 1 goto STREET_ESSEE
  77.                                        
  78.                                         :STREET_ESSES
  79.                                                 cls
  80.                                                
  81.                                                 if %STORY% LEQ 0 (
  82.                                                         call color.bat 街边-森林#0a
  83.                                                         echo.
  84.                                                         echo %Name%走进一片森林，听到远处有人声...
  85.                                                         echo 还是检查一下吧...
  86.                                                         echo.
  87.                                                         echo 那是%Name%遇见伴侣的时候...
  88.                                                         pause >nul
  89.                                                
  90.                                                         goto BOSCO
  91.                                                 ) else (
  92.                                                         call color.bat 街边-森林#0a
  93.                                                         echo.
  94.                                                         echo %Name%已经到达一个森林的入口，想做什么？
  95.                                                         call color.bat [W]#0c 去森林 [X]#0c 返回
  96.                                                         choice /N /C:WX
  97.                                                        
  98.                                                         if errorlevel 2 goto STREET_ESSE
  99.                                                         if errorlevel 1 goto BOSCO
  100.                                                 )
  101.                                        
  102.                                         :STREET_ESSEE
  103.                                                 cls
  104.                                                 call color.bat 街头#0a
  105.                                                 echo.
  106.                                                 echo 这条路似乎到此为止...
  107.                                                         echo 最好回去...
  108.                                                 pause >nul
  109.                                
  110.                                                 goto STREET_ESSE
  111.                                                
  112.         :BOSCO
  113.                 if %STORY% LEQ 0 (
  114.                         cls
  115.                         call color.bat 森林#0a
  116.                         echo.
  117.                         echo 嘿，前面有很多僵尸...
  118.                         echo 这里，可能需要这个...
  119.                         echo 啊，但是后来我听说了一家商店...
  120.                         echo 在那里... 哦，可以买一些必需品...
  121.                         echo.
  122.                         echo 您已获得: 毛衣
  123.                         set /a EQUIP_CORPO=1
  124.                         set /a STORY=%STORY%+1
  125.                         echo.
  126.                         echo 乔瓦尼离开了，呆在森林的你开始做什么？
  127.                         echo 继续前行还是返回?
  128.                        
  129.                         call color.bat [W]#0c 继续向前 [X]#0c 返回
  130.                         choice /N /C:WX
  131.                        
  132.                         if errorlevel 2 goto STREET_ESSES
  133.                         if errorlevel 1 goto BOSCO_1
  134.                 ) else (
  135.                         cls
  136.                         call color.bat 森林#0a
  137.                         echo.
  138.                         echo 你在树林里干什么?
  139.                         echo 继续前行或返回?
  140.                        
  141.                         call color.bat [W]#0c 继续前行 [X]#0c 返回
  142.                         choice /N /C:WX
  143.                        
  144.                         if errorlevel 2 goto STREET_ESSES
  145.                         if errorlevel 1 goto BOSCO_1
  146.                 )
  147.                
  148.         :BOSCO_1
  149.                 set /a VAR_INC=%RANDOM% %%100
  150.                
  151.                 if !VAR_INC! GEQ 60 (
  152.                         cls
  153.                         call color.bat 森林-战场#0a
  154.                         echo.
  155.                         echo %Name%遇到一个僵尸，它攻击%Name%...
  156.                         pause >nul
  157.                        
  158.                         set /a HP_EN=40
  159.                         set /a HP_MAX_EN=40
  160.                         set /a ATT_EN=4
  161.                         set /a DIF_EN=5
  162.                         set /a MAG_EN=0
  163.                         set /a DIF_M_EN=0

  165.                         set NAME_EN=僵尸1
  166.                         set AMBIENTE=BOSCO
  167.                         set TURNO=COMBACT_1
  168.                         set TURNO_EN=COMBACT_1_ENEMY

  170.                         set /a ST_VELENO=0

  172.                         set /a EXP_EN=10

  174.                         goto COMBACT_1
  175.                 ) else (
  176.                         cls
  177.                         call color.bat 森林#0a
  178.                         echo.
  179.                         echo 没有动静... 什么都没有吗?
  180.                         call color.bat [S]#0c 是的 [N]#0c 不是

  182.                         choice /N /C:SN

  184.                         if errorlevel 2 goto BOSCO
  185.                         if errorlevel 1 goto END
  186.                 )

  188.                 if !VAR_INC! GEQ 83 (
  189.                         cls
  190.                         call color.bat 森林-战场#0a
  191.                         echo.
  192.                         echo %Name%遇到两个僵尸，他们攻击%Name%^^!^^!^^!
  193.                         pause >nul

  195.                         set /a HP_EN=40
  196.                         set /a HP_MAX_EN=40
  197.                         set /a ATT_EN=4
  198.                         set /a DIF_EN=5
  199.                         set /a MAG_EN=0
  200.                         set /a DIF_M_EN=0

  202.                         set /a HP_EN_2=20
  203.                         set /a HP_MAX_EN_2=20
  204.                         set /a ATT_EN_2=3
  205.                         set /a DIF_EN_2=3
  206.                         set /a MAG_EN_2=0
  207.                         set /a DIF_M_EN_2=0

  209.                         set NAME_EN=僵尸1
  210.                         set NAME_EN_2=僵尸2
  211.                         set AMBIENTE=BOSCO
  212.                         set TURNO=COMBACT_2
  213.                         set TURNO_EN=COMBACT_2_ENEMY_NO1

  215.                         set /a MID_COMBACT=0

  217.                         set /a ST_VELENO=0

  219.                         set /a EXP_EN=10

  221.                         goto COMBACT_2
  222.                 ) else (
  223.                         cls
  224.                         call color.bat 森林#0a
  225.                         echo.
  226.                         echo 好像什么动静都没有... 但这是真的吗?
  227.                         call color.bat [S]#0c 是的 [N]#0c 不是

  229.                         choice /N /C:SN

  231.                         if errorlevel 2 goto BOSCO
  232.                         if errorlevel 1 goto END
  233.                 )
  234.                
  235.         :BAR_1
  236.                 set AMBIENTE=BAR_1
  237.                 cls
  238.         :S_BAR_DOMANDA
  239.                 call color.bat 酒吧#0a
  240.                 echo.
  241.                 echo ---==^> 归 %GOLD% 块金子的人所有 ^<==---
  242.                 echo.
  243.                 echo 欢迎来到这里最特别的酒吧，哈哈 ^^!^^!^^!
  244.                 echo 是啊... 你偶尔也会笑，这对你有好处...
  245.                 echo 回到我们这里，你想要什么？
  246.                 echo 如果你不知道该带什么，你可以写"Chiedi"来问我
  247.        
  248.         :S_BAR_DOMANDA_1
  249.                 echo.
  250.                 echo 你的愿望是什么?
  251.                 set /p DOMANDA=
  252.                
  253.                 if /i DEFINED DOMANDA (
  254.                         goto S_BAR_MENU
  255.                 ) else (
  256.                         echo.
  257.                                 echo 我不明白... 试着键入"Chiedi"
  258.                         pause >nul
  259.                         cls
  260.                         goto S_BAR_DOMANDA
  261.                 )
  262.        
  263.         :S_BAR_MENU
  264.         if /i %DOMANDA%==Chiedi (
  265.                 cls
  266.                 call color.bat BAR#0a
  267.                 echo.
  268.                 echo 菜单:
  269.                 echo.
  270.                 echo    - BEVI    -^> 查看鸡尾酒菜单.
  271.                 echo    - MANGIA  -^> 查看甜品菜单.
  272.                 echo    - SALVA   -^> 保存游戏进度.
  273.                 echo    - ESCI    -^> 离开酒吧.
  274.                
  275.                 goto S_BAR_DOMANDA_1
  276.         )

  278.         :MENU_BEVI
  279.         if /i %DOMANDA%==Bevi (
  280.                 cls
  281.                 call color.bat 菜单#0a
  282.                 echo.
  283.                 echo 菜单:
  284.                 echo.
  285.                 echo.    酒品        价格^(G块金子^)
  286.                 echo.  ------====^>^>^> ^<^<^<====------
  287.                 echo   - Campari              ^(3G^)
  288.                 echo   - Aperol               ^(4G^)
  289.                 echo   - Niente
  290.                
  291.                 echo.
  292.                 echo 你的愿望是什么[ 键入 Campari 或 Aperol 即可买酒 , 键入 Niente 即可返回 ]?
  293.                
  294.                 set /p BEVI=
  295.                 goto BEVI
  296.         )
  297.                
  298.         if /i %DOMANDA%==Mangia (

  300.                 cls
  301.                 call color.bat 菜单#0a
  302.                 echo.
  303.                 echo 菜单:
  304.                 echo.
  305.                 echo.    甜品        价格^(G块金子^)
  306.                 echo.  ------====^>^>^> ^<^<^<====------
  307.                 echo   - Struffoli            ^(3G^)
  308.                 echo   - Cassata              ^(4G^)
  309.                 echo   - Tiramisu             ^(5G^)
  310.                 echo   - Niente
  311.                
  312.                 echo.
  313.                 echo 你的愿望是什么[ 键入 Struffoli / Cassata / Tiramisu 即可购买甜品 , 键入 Niente 即可返回 ]?
  314.                
  315.                 set /p MANGIA=
  316.                 goto MANGIA
  317.         )
  318.                
  319.         if /i %DOMANDA%==Salva (
  320.                 echo.
  321.                 goto SAVE
  322.         )
  323.        
  324.         if /i %DOMANDA%==Esci (
  325.                 echo.
  326.                 echo %Name%离开了酒吧.
  327.                 pause >nul
  328.                 cls
  329.                 goto STREET_OOON
  330.         )
  331.                
  332.         echo.
  333.         echo 我不明白... 试着键入"Chiedi"
  334.         pause >nul
  335.         cls
  336.         goto S_BAR_DOMANDA
  337.                
  338.         :BEVI
  339.         if /i %BEVI%==Campari (
  340.                 if %GOLD% GEQ 3 (
  341.                         echo 这是你的 !BEVI! 和气泡酒
  342.                         echo 你想要更多吗?
  343.                         pause >nul
  344.                         set /a GOLD=%GOLD%-3
  345.                         goto S_BAR_MENU
  346.                 ) else (
  347.                         echo 你没有金子...
  348.                         echo 你想要更多吗?
  349.                         pause >nul
  350.                         goto S_BAR_MENU
复制代码
回复

举报

HOPE2021
 楼主| 发表于 2021-10-4 13:20:07 | 显示全部楼层
回复 3# HOPE2021
源码第五部分:
  1.                 )
  2.         )
  3.        
  4.         if /i %BEVI%==Aperol (
  5.                 if %GOLD% GEQ 4 (
  6.                         echo 这是你的Spritz鸡尾酒... 祝你享受威尼斯的夕阳...
  7.                         echo 你想要更多吗?
  8.                         pause >nul
  9.                         set /a GOLD=%GOLD%-4
  10.                         goto S_BAR_MENU
  11.                 ) else (
  12.                         echo 你没有金子...
  13.                         echo 你想要更多吗?
  14.                         pause >nul
  15.                         goto S_BAR_MENU
  16.                 )
  17.         )
  18.        
  19.         if /i %BEVI%==Niente (
  20.                 echo 好的
  21.                 pause >nul
  22.                 cls
  23.                 goto S_BAR_DOMANDA
  24.         )
  25.        
  26.         echo.
  27.         echo 我不明白... 试着键入"Chiedi"
  28.         pause >nul
  29.         goto MENU_BEVI
  30.        
  31.         :MANGIA

  33.         if /i %MANGIA%==Struffoli (
  34.                 if %GOLD% GEQ 3 (
  35.                         echo 这是你的蜂蜜糖球...
  36.                         echo 你想要更多吗?
  37.                         pause >nul
  38.                         set /a GOLD=%GOLD%-3
  39.                         goto S_BAR_MENU
  40.                 ) else (
  41.                         echo 你没有金子...
  42.                         echo 你想要更多吗?
  43.                         pause >nul
  44.                         goto S_BAR_MENU
  45.                 )
  46.         )
  47.        
  48.         if /i %MANGIA%==Aperol (
  49.                 if %GOLD% GEQ 4 (
  50.                         echo 这是你的卡萨塔... 祝你享受西西里的快乐...
  51.                         echo 你想要更多吗?
  52.                         pause >nul
  53.                         set /a GOLD=%GOLD%-4
  54.                         goto S_BAR_MENU
  55.                 ) else (
  56.                         echo 你没有金子...
  57.                         echo 你想要更多吗?
  58.                         pause >nul
  59.                         goto S_BAR_MENU
  60.                 )
  61.         )
  62.        
  63.         if /i %MANGIA%==Aperol (
  64.                 if %GOLD% GEQ 5 (
  65.                         echo 这是你的提拉米苏... 祝你享受意大利的美味...
  66.                         echo 你想要更多吗?
  67.                         pause >nul
  68.                         set /a GOLD=%GOLD%-5
  69.                         goto S_BAR_MENU
  70.                 ) else (
  71.                         echo 你没有金子...
  72.                         echo 你想要更多吗?
  73.                         pause >nul
  74.                         goto S_BAR_MENU
  75.                 )
  76.         )
  77.        
  78.         if /i %MANGIA%==Niente (
  79.                 echo 好的
  80.                 pause >nul
  81.                 cls
  82.                 goto S_BAR_DOMANDA
  83.         )
  84.        
  85.         echo.
  86.         echo 我不明白... 试着键入"Chiedi"
  87.         pause >nul
  88.         goto MENU_BEVI

  90. :MENU_MAGIE
  91.         if %MAGIE% EQU 1 (
  92.                 echo.
  93.                 echo [火之激情] - 1
  94.                 echo [魔法栏空]
  95.                 echo [魔法栏空]
  96.                 echo [魔法栏空]
  97.                 echo [魔法栏空]
  98.                 echo [魔法栏空]
  99.                 echo [继续战斗] - Q
  100.                 echo.
  101.                
  102.                 choice /N /C:1Q /M "你想用什么魔法?: "
  103.                
  104.                 if errorlevel 2 goto %TURNO%
  105.                 if errorlevel 1 goto ER_1
  106.         )

  108.         if %MAGIE% EQU 2 (
  109.                 echo.
  110.                 echo [火之激情] - 1
  111.                 echo [冰之冷酷] - 2
  112.                 echo [魔法栏空]
  113.                 echo [魔法栏空]
  114.                 echo [魔法栏空]
  115.                 echo [魔法栏空]
  116.                 echo [继续战斗] - Q
  117.                 echo.
  118.                
  119.                 choice /N /C:12Q /M "你想用什么魔法?: "
  120.                
  121.                 if errorlevel 3 goto %TURNO%
  122.                 if errorlevel 2 goto ER_2
  123.                 if errorlevel 1 goto ER_1
  124.         )

  126.         if %MAGIE% EQU 3 (
  127.                 echo.
  128.                 echo [火之激情] - 1
  129.                 echo [冰之冷酷] - 2
  130.                 echo [全力以赴] - 3
  131.                 echo [魔法栏空]
  132.                 echo [魔法栏空]
  133.                 echo [魔法栏空]
  134.                 echo [继续战斗] - Q
  135.                 echo.
  136.                
  137.                 choice /N /C:123Q /M "你想用什么魔法?: "
  138.                
  139.                 if errorlevel 4 goto %TURNO%
  140.                 if errorlevel 3 goto ER_3
  141.                 if errorlevel 2 goto ER_2
  142.                 if errorlevel 1 goto ER_1
  143.         )

  145.         if %MAGIE% EQU 4 (
  146.                 echo.
  147.                 echo [火之激情] - 1
  148.                 echo [冰之冷酷] - 2
  149.                 echo [全力以赴] - 3
  150.                 echo [水之力量] - 4
  151.                 echo [魔法栏空]
  152.                 echo [魔法栏空]
  153.                 echo [继续战斗] - Q
  154.                 echo.
  155.                
  156.                 choice /N /C:1234Q /M "你想用什么魔法?: "
  157.                
  158.                 if errorlevel 5 goto %TURNO%
  159.                 if errorlevel 4 goto ER_4
  160.                 if errorlevel 3 goto ER_3
  161.                 if errorlevel 2 goto ER_2
  162.                 if errorlevel 1 goto ER_1
  163.         )

  165.         if %MAGIE% EQU 5 (
  166.                 echo.
  167.                 echo [火之激情] - 1
  168.                 echo [冰之冷酷] - 2
  169.                 echo [全力以赴] - 3
  170.                 echo [水之力量] - 4
  171.                 echo [电闪雷鸣] - 5
  172.                 echo [魔法栏空]
  173.                 echo [继续战斗] - Q
  174.                 echo.
  175.                
  176.                 choice /N /C:12345Q /M "你想用什么魔法?: "
  177.                
  178.                 if errorlevel 6 goto %TURNO%
  179.                 if errorlevel 5 goto ER_5
  180.                 if errorlevel 4 goto ER_4
  181.                 if errorlevel 3 goto ER_3
  182.                 if errorlevel 2 goto ER_2
  183.                 if errorlevel 1 goto ER_1
  184.         )

  186.         if %MAGIE% EQU 6 (
  187.                 echo.
  188.                 echo [火之激情] - 1
  189.                 echo [冰之冷酷] - 2
  190.                 echo [全力以赴] - 3
  191.                 echo [水之力量] - 4
  192.                 echo [电闪雷鸣] - 5
  193.                 echo [妙手回春] - 6
  194.                 echo [继续战斗] - Q
  195.                 echo.
  196.                
  197.                 choice /N /C:123456Q /M "你想用什么魔法?: "
  198.                
  199.                 if errorlevel 7 goto %TURNO%
  200.                 if errorlevel 6 goto ER_6
  201.                 if errorlevel 5 goto ER_5
  202.                 if errorlevel 4 goto ER_4
  203.                 if errorlevel 3 goto ER_3
  204.                 if errorlevel 2 goto ER_2
  205.                 if errorlevel 1 goto ER_1
  206.         )

  208. :ER_1
  209.         set /a DAMAGE_M=%VAR_MAG%+%MAG%-%DIF_M_EN%
  210.         set /a HP_EN=%HP_EN%-%DAMAGE_M%
  211.                        
  212.         echo %Name%使用了火之激情, 攻击力: %DAMAGE_M%
  213.                        
  214.         if %HP_EN% LEQ 0 (
  215.                 echo %NAME_EN% 已死亡.
  216.                 set /a END_COMBACT=1
  217.                 pause >nul
  218.                 goto CALCOLO_EXP
  219.         )
  220.                        
  221.         if %DAMAGE_M% GEQ %HP_MAX_EN% (
  222.                 echo %NAME_EN% 已死亡.
  223.                 set /a END_COMBACT=1
  224.                 pause >nul
  225.                 goto CALCOLO_EXP
  226.         ) else (
  227.                 pause >nul
  228.                 goto %TURNO_EN%
  229.         )

  231. :ER_2
  232.         set /a DAMAGE_M=%VAR_MAG%+%MAG%-%DIF_M_EN%
  233.         set /a HP_EN=%HP_EN%-%DAMAGE_M%

  235.         echo %Name%使用了冰之冷酷, 攻击力: %DAMAGE_M%
  236.                
  237.         if %HP_EN% LEQ 0 (
  238.                 echo %NAME_EN% 已死亡.
  239.                 set /a END_COMBACT=1
  240.                 pause >nul
  241.                 goto CALCOLO_EXP
  242.         )
  243.                        
  244.         if %DAMAGE_M% GEQ %HP_MAX_EN% (
  245.                 echo %NAME_EN% 已死亡.
  246.                 set /a END_COMBACT=1
  247.                 pause >nul
  248.                 goto CALCOLO_EXP
  249.         ) else (
  250.                 pause >nul
  251.                 goto %TURNO_EN%
  252.         )

  254. :ER_3
  255.         set /a HP_RESTORED=%HP%+(%VAR_MAG%+%MAG%)

  257.         if HP_RESTORED GEQ %HP_MAX% (
  258.                 set /a HP=%HP_MAX%
  259.                 echo %Name%已经全部恢复...
  260.                 pause >nul
  261.                 goto %TURNO_EN%
  262.         ) else (
  263.                 set /a HP=%HP_RESTORED%
  264.                 echo %Name%恢复: %HP_RESTORED% HP
  265.                 pause >nul
  266.                 goto %TURNO_EN%
  267.         )

  269. :ER_4
  270.         set /a DAMAGE_M=%VAR_MAG%+%MAG%-%DIF_M_EN%
  271.         set /a HP_EN=%HP_EN%-%DAMAGE_M%

  273.         echo %Name%使用了水之力量, 攻击力: %DAMAGE_M%
  274.        
  275.         if %HP_EN% LEQ 0 (
  276.                 echo %NAME_EN% 已死亡.
  277.                 set /a END_COMBACT=1
  278.                 pause >nul
  279.                 goto CALCOLO_EXP
  280.         )
  281.                        
  282.         if %DAMAGE_M% GEQ %HP_MAX_EN% (
  283.                 echo %NAME_EN% 已死亡.
  284.                 set /a END_COMBACT=1
  285.                 pause >nul
  286.                 goto CALCOLO_EXP
  287.         ) else (
  288.                 pause >nul
  289.                 goto %TURNO_EN%
  290.         )

  292. :ER_5
  293.         set /a DAMAGE_M=%VAR_MAG%+%MAG%-%DIF_M_EN%
  294.         set /a HP_EN=%HP_EN%-%DAMAGE_M%

  296.         echo %Name%使用了电闪雷鸣, 攻击力: %DAMAGE_M%
  297.        
  298.         if %HP_EN% LEQ 0 (
  299.                 echo %NAME_EN% 已死亡.
  300.                 set /a END_COMBACT=1
  301.                 pause >nul
  302.                 goto CALCOLO_EXP
  303.         )
  304.                        
  305.         if %DAMAGE_M% GEQ %HP_MAX_EN% (
  306.                 echo %NAME_EN% 已死亡.
  307.                 set /a END_COMBACT=1
  308.                 pause >nul
  309.                 goto CALCOLO_EXP
  310.         ) else (
  311.                 pause >nul
  312.                 goto %TURNO_EN%
  313.         )

  315. :ER_6
  316.         if %ST_VELENO% EQU 1 (
  317.                 echo 使用妙手回春，你不再中毒了.
  318.                 set /a ST_VELENO=0
  319.                 pause >nul
  320.                 goto %TURNO_EN%
  321.         ) else (
  322.                 echo %Name%无法使用妙手回春..
  323.                 pause >nul
  324.                 goto %TURNO_EN%
  325.         )

  327. :CALCOLO_EXP
  328.         set /a EXP=%EXP%+%EXP_EN%
  329.         echo 你赢了: 获得 %EXP_EN% EXP
  330.         pause >nul
  331.        
  332.         if %LV% EQU 1 if %EXP% GEQ 10 (
  333.                 echo.
  334.                 echo 你的经验足够了...
  335.                 echo 升到第 2 级...
  336.                 pause >nul
  337.                 set /a ATT=%ATT%+3
  338.                 set /a DIF=%DIF%+2
  339.                 set /a MAG=%MAG%+0
  340.                 set /a DIF_M=%DIF_M%+1
  341.                 set /a HP_MAX=%HP_MAX%+15
  342.                 set /a HP=%HP_MAX%+15
  343.                 set /a MAGIE=1
  344.                 set /a LV=2
  345.                
  346.                 goto SAVE
  347.         ) else (
  348.                 goto SAVE
  349.         )
  350.         if %LV% LEQ 2 if %EXP% GEQ 30 (
复制代码
回复

举报

HOPE2021
 楼主| 发表于 2021-10-4 13:20:51 | 显示全部楼层
回复 4# HOPE2021
源码第六部分:
  1.                 echo.
  2.                 echo 你的经验足够了...
  3.                 echo 升到第 3 级...
  4.                 pause >nul
  5.                 set /a ATT=%ATT%+1
  6.                 set /a DIF=%DIF%+1
  7.                 set /a MAG=%MAG%+2
  8.                 set /a DIF_M=%DIF_M%+1
  9.                 set /a HP_MAX=%HP_MAX%+20
  10.                 set /a HP=%HP_MAX%+20
  11.                 set /a MAGIE=2
  12.                 set /a LV=3
  13.                
  14.                 goto SAVE
  15.         ) else (
  16.                 goto SAVE
  17.         )
  18.         if %LV% LEQ 3 if %EXP% GEQ 50 (
  19.                 echo.
  20.                 echo 你的经验足够了...
  21.                 echo 升到第 4 级...
  22.                 pause >nul
  23.                 set /a ATT=%ATT%+3
  24.                 set /a DIF=%DIF%+2
  25.                 set /a MAG=%MAG%+1
  26.                 set /a DIF_M=%DIF_M%+2
  27.                 set /a HP_MAX=%HP_MAX%+30
  28.                 set /a HP=%HP_MAX%+30
  29.                 set /a MAGIE=3
  30.                 set /a LV=4
  31.                
  32.                 goto SAVE
  33.         ) else (
  34.                 goto SAVE
  35.         )
  36.         if %LV% LEQ 4 if %EXP% GEQ 80 (
  37.                 echo.
  38.                 echo 你的经验足够了...
  39.                 echo 升到第 5 级...
  40.                 pause >nul
  41.                 set /a ATT=%ATT%+1
  42.                 set /a DIF=%DIF%+3
  43.                 set /a MAG=%MAG%+3
  44.                 set /a DIF_M=%DIF_M%+1
  45.                 set /a HP_MAX=%HP_MAX%+34
  46.                 set /a HP=%HP_MAX%+34
  47.                 set /a MAGIE=4
  48.                 set /a LV=5
  49.                
  50.                 goto SAVE
  51.         ) else (
  52.                 goto SAVE
  53.         )
  54.         if %LV% LEQ 5 if %EXP% GEQ 115 (
  55.                 echo.
  56.                 echo 你的经验足够了...
  57.                 echo 升到第 6 级...
  58.                 pause >nul
  59.                 set /a ATT=%ATT%+2
  60.                 set /a DIF=%DIF%+2
  61.                 set /a MAG=%MAG%+2
  62.                 set /a DIF_M=%DIF_M%+2
  63.                 set /a HP_MAX=%HP_MAX%+38
  64.                 set /a HP=%HP_MAX%+38
  65.                 set /a MAGIE=5
  66.                 set /a LV=6
  67.                
  68.                 goto SAVE
  69.         ) else (
  70.                 goto SAVE
  71.         )
  72.         if %LV% LEQ 6 if %EXP% GEQ 150 (
  73.                 echo.
  74.                 echo 你的经验足够了...
  75.                 echo 升到第 7 级...
  76.                 pause >nul
  77.                 set /a ATT=%ATT%+3
  78.                 set /a DIF=%DIF%+4
  79.                 set /a MAG=%MAG%+3
  80.                 set /a DIF_M=%DIF_M%+4
  81.                 set /a HP_MAX=%HP_MAX%+45
  82.                 set /a HP=%HP_MAX%+45
  83.                 set /a MAGIE=6
  84.                 set /a LV=7
  85.                
  86.                 goto SAVE
  87.         ) else (
  88.                 goto SAVE
  89.         )

  91. :ATTACCA
  92.         set /a DAMAGE=(%VAR_ATT%+%ATT%+%EQUIP_ARM%)-%DIF_EN%
  93.        
  94.         if %COMBACT% EQU 1 (
  95.                 set /a HP_EN=%HP_EN%-%DAMAGE%
  96.                 echo %Name% 攻击了 %NAME_EN%, 攻击力: %DAMAGE%

  98.                 if !HP_EN! LEQ 0 (
  99.                         echo %NAME_EN% 已死亡...
  100.                         set /a END_COMBACT=1
  101.                         pause >nul
  102.                         goto CALCOLO_EXP
  103.                 )
  104.                        
  105.                 if !DAMAGE! GEQ %HP_MAX_EN% (
  106.                         echo %NAME_EN% 已死亡...
  107.                         set /a END_COMBACT=1
  108.                         pause >nul
  109.                         goto CALCOLO_EXP
  110.                 ) else (
  111.                         pause >nul
  112.                         goto %TURNO_EN%
  113.                 )
  114.         )
  115.        
  116.         if %COMBACT% EQU 2 (
  117.                 if %MID_COMBACT% EQU 0 (
  118.                         if %TAG% EQU 1 (
  119.                                 set /a HP_EN=%HP_EN%-%DAMAGE%
  120.                                 echo %Name% 攻击了 %NAME_EN%, 攻击力: %DAMAGE%
  121.        
  122.                                 if !HP_EN! LEQ 0 (
  123.                                         echo %NAME_EN% 已死亡...
  124.                                         set /a MID_COMBACT=1
  125.                                 pause >nul
  126.                                         goto COMBACT_2_ENEMY_NO2
  127.                                 )
  128.                        
  129.                                 if !DAMAGE! GEQ %HP_MAX_EN% (
  130.                                         echo %NAME_EN% 已死亡...
  131.                                         set /a MID_COMBACT=1
  132.                                         pause >nul
  133.                                         goto COMBACT_2_ENEMY_NO2
  134.                                 ) else (
  135.                                         pause >nul
  136.                                         goto COMBACT_2_ENEMY_NO1
  137.                                 )
  138.                         )
  139.                
  140.                         if %TAG% EQU 2 (
  141.                                 set /a HP_EN_2=%HP_EN_2%-%DAMAGE%
  142.                                 echo %Name% 攻击了 %NAME_EN%, 攻击力: %DAMAGE%
  143.        
  144.                                 if !HP_EN_2! LEQ 0 (
  145.                                         echo %NAME_EN_2% 已死亡...
  146.                                         set /a MID_COMBACT=2
  147.                                         pause >nul
  148.                                         goto COMBACT_2_ENEMY_NO1
  149.                                 )
  150.                        
  151.                                 if !DAMAGE! GEQ %HP_MAX_EN_2% (
  152.                                         echo %NAME_EN_2% 已死亡...
  153.                                         set /a MID_COMBACT=2
  154.                                         pause >nul
  155.                                         goto COMBACT_2_ENEMY_NO1
  156.                                 ) else (
  157.                                         pause >nul
  158.                                         goto COMBACT_2_ENEMY_NO1
  159.                                 )
  160.                         )
  161.                 )
  162.                
  163.                 if %MID_COMBACT% EQU 1 (
  164.                         set /a HP_EN_2=%HP_EN_2%-%DAMAGE%
  165.                         echo %Name% 攻击了 %NAME_EN_2%, 攻击力: %DAMAGE%

  167.                         if !HP_EN_2! LEQ 0 (
  168.                                 echo %NAME_EN_2% 已死亡...
  169.                                 set /a END_COMBACT=1
  170.                                 pause >nul
  171.                                 goto CALCOLO_EXP
  172.                         )

  174.                         if !DAMAGE! GEQ %HP_MAX_EN_2% (
  175.                                 echo %NAME_EN_2% 已死亡...
  176.                                 set /a END_COMBACT=1
  177.                                 pause >nul
  178.                                 goto CALCOLO_EXP
  179.                         ) else (
  180.                                 pause >nul
  181.                                 goto COMBACT_2_ENEMY_NO2
  182.                         )
  183.                 )

  185.                 if %MID_COMBACT% EQU 2 (
  186.                         set /a HP_EN=%HP_EN%-%DAMAGE%
  187.                         echo %Name% 攻击了 %NAME_EN%, 攻击力: %DAMAGE%

  189.                         if !HP_EN! LEQ 0 (
  190.                                 echo %NAME_EN% 已死亡...
  191.                                 set /a END_COMBACT=1
  192.                                 pause >nul
  193.                                 goto CALCOLO_EXP
  194.                         )

  196.                         if !DAMAGE! GEQ %HP_MAX_EN% (
  197.                                 echo %NAME_EN% 已死亡...
  198.                                 set /a END_COMBACT=1
  199.                                 pause >nul
  200.                                 goto CALCOLO_EXP
  201.                         ) else (
  202.                                 pause >nul
  203.                                 goto COMBACT_2_ENEMY_NO1
  204.                         )
  205.                 )
  206.         )

  208. :COMBACT_1
  209.         set /a FUGA=%RANDOM% %%100
  210.         set /a VAR_ATT=%RANDOM% %%5
  211.         set /a VAR_MAG=%RANDOM% %%5
  212.         set /a ST_DEF=0
  213.         set /a COMBACT=1
  214.        
  215.         cls

  217.         call color.bat 轮到你了#0a
  218.         echo.
  219.         echo "%NAME% -> HP: %HP%/%HP_MAX% | ATT: %ATT% | DIF: %DIF% | MAG: %MAG% | DIF_M: %DIF_M% | EXP: %EXP% | LV: %LV%"
  220.         echo "%NAME_EN% -> HP: %HP_EN%/%HP_MAX_EN% | ATT: %ATT_EN% | DIF: %DIF_EN% | MAG: %MAG_EN% | DIF_M: %DIF_M_EN%"
  221.         echo.
  222.                                
  223.         if %HP% LEQ 0 (
  224.                 echo.
  225.                 echo %Name%躺在地上... 流血不止... 缓缓地合上了双眼... 再见了... %Name%
  226.                 pause >nul
  227.                 goto END
  228.         )

  230.         if %HP_EN% LEQ 0 (
  231.                 echo %NAME_EN% 已死亡...
  232.                 set /a END_COMBACT=1
  233.                 pause >nul
  234.                 goto CALCOLO_EXP
  235.         ) else (               
  236.                 choice /N /C:ADMF /M "A[攻击] D[防御] M[魔法] F[逃跑]"

  238.                 if errorlevel 4 (
  239.                         echo 逃跑...
  240.                         if %FUGA% GEQ 50 (
  241.                                 echo %Name%设法逃走了...
  242.                                 pause >nul
  243.                                 goto %AMBIENTE%
  244.                         ) else (
  245.                                 echo %Name%无法逃走...
  246.                                 pause >nul
  247.                                 goto %TURNO_EN%
  248.                         )
  249.                 )
  250.        
  251.                 if errorlevel 3 (
  252.                         if %MAGIE% EQU 0 (
  253.                                 echo %Name%没有任何魔法... 做无用功...
  254.                                 pause >nul
  255.                                 goto %TURNO%
  256.                         )
  257.                         if %MAGIE% GEQ 1 goto MENU_MAGIE
  258.                 )
  259.        
  260.                 if errorlevel 2 (
  261.                         echo 防御^^!我挡^^!^^!^^!
  262.                         set /a ST_DEF=1
  263.                         pause >nul
  264.                         goto %TURNO_EN%
  265.                 )
  266.                
  267.                 if errorlevel 1 goto ATTACCA
  268.         )

  270. :COMBACT_1_ENEMY
  271.         set /a VELENO=%RANDOM% %%100
  272.         set /a VAR_DAMAGE=%RANDOM% %%4

  274.         if %ST_DEF% EQU 0 (
  275.                 set /a DAMAGE_EN=%VAR_DAMAGE%+%ATT_EN%-%DIF%
  276.         ) else (
  277.                 set /a DAMAGE_EN=%VAR_DAMAGE%+%ATT_EN%-(%DIF%+%EQUIP_CORPO%)
  278.         )
  279.        
  280.         if %DAMAGE_EN% LEQ 0 (
  281.                 set /a DAMAGE_EN=0
  282.         )
  283.                                
  284.         cls

  286.         call color.bat %NAME_EN%#0a 回合#0a
  287.         echo.
  288.         echo "%NAME% -> HP: %HP%/%HP_MAX% | ATT: %ATT% | DIF: %DIF% | MAG: %MAG% | |DIF_M: %DIF_M% | EXP: %EXP% | LV: %LV%"
  289.         echo "%NAME_EN% -> HP: %HP_EN%/%HP_MAX_EN% | ATT: %ATT_EN% | DIF: %DIF_EN% | MAG: %MAG_EN% | DIF_M: %DIF_M_EN%"
  290.         echo.
  291.         echo %NAME_EN%攻击了%Name%...
  292.         echo 攻击力: %DAMAGE_EN%
  293.                                
  294.         set /a HP=%HP%-%DAMAGE_EN%
  295.                                
  296.         if %HP_EN% LEQ 0 (
  297.                 echo %NAME_EN% 已死亡...
  298.                 set /a END_COMBACT=1
  299.                 pause >nul
  300.                 goto CALCOLO_EXP
  301.         )
  302.                        
  303.         if %HP% LEQ 0 (
  304.                 echo.
  305.                 echo %Name%躺在地上... 流血不止... 缓缓地合上了双眼... 再见了... %Name%
  306.                 pause >nul
  307.                 goto END
  308.         )

  310.         if %DAMAGE_EN% GEQ %HP_MAX% (
  311.                 echo.
  312.                 echo %Name%躺在地上... 流血不止... 缓缓地合上了双眼... 再见了... %Name%
  313.                 pause >nul
  314.                 goto END
  315.         ) else (
  316.                 if %ST_VELENO% EQU 0 (
  317.                         if %VELENO% GEQ 75 (
  318.                                 echo.
  319.                                 echo %Name%中毒了...
  320.                                 echo 损失: %HP_LOSE% HP
  321.                                 set /a HP=%HP%-3
  322.                                 set /a ST_VELENO=1
  323.                                 if %HP% LEQ 0 (
  324.                                         echo.
  325.                                         echo %Name%躺在地上... 流血不止... 缓缓地合上了双眼... 再见了... %Name%
  326.                                         pause >nul
  327.                                         goto END
  328.                                 ) else (
  329.                                         pause >nul
  330.                                         goto %TURNO%
  331.                                 )
  332.                         ) else (
  333.                                 pause >nul
  334.                                 goto %TURNO%
  335.                         )
  336.                 ) else (
  337.                         echo 损失: %HP_LOSE% HP
  338.                         set /a HP=%HP%-3
  339.                         if %HP% LEQ 0 (
  340.                                 echo.
  341.                                 echo %Name%躺在地上... 流血不止... 缓缓地合上了双眼... 再见了... %Name%
  342.                                 pause >nul
  343.                                 goto END
  344.                         ) else (
  345.                                 pause >nul
  346.                                 goto %TURNO%
  347.                         )
  348.                 )
  349.         )
复制代码
回复

举报

HOPE2021
 楼主| 发表于 2021-10-4 13:21:25 | 显示全部楼层
回复 5# HOPE2021
源码第七部分:
  1. :COMBACT_2
  2.         set /a FUGA=%RANDOM% %%100
  3.         set /a VAR_ATT=%RANDOM% %%5
  4.         set /a VAR_MAG=%RANDOM% %%5
  5.         set /a ST_DEF=0
  6.         set /a COMBACT=2
  7.        
  8.         if %MID_COMBACT% EQU 0 (
  9.                 set TURNO_EN=COMBACT_2_ENEMY_NO1
  10.         )
  11.        
  12.         if %MID_COMBACT% EQU 1 (
  13.                 set TURNO_EN=COMBACT_2_ENEMY_NO2
  14.         )
  15.        
  16.         if %MID_COMBACT% EQU 2 (
  17.                 set TURNO_EN=COMBACT_2_ENEMY_NO1
  18.         )

  20.         cls
  21.         call color.bat 轮到你了#0a
  22.         echo.
  23.        
  24.         if %MID_COMBACT% EQU 0 (
  25.                 echo "%NAME% -> HP: %HP%/%HP_MAX% | ATT: %ATT% | DIF: %DIF% | MAG: %MAG% | DIF_M: %DIF_M% | EXP: %EXP% | LV: %LV%"
  26.                 echo "%NAME_EN% -> HP: %HP_EN%/%HP_MAX_EN% | ATT: %ATT_EN% | DIF: %DIF_EN% | MAG: %MAG_EN% | DIF_M: %DIF_M_EN%"
  27.                 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%"
  28.                 echo.
  29.         )
  30.        
  31.         if %MID_COMBACT% EQU 1 (
  32.                 echo "%NAME% -> HP: %HP%/%HP_MAX% | ATT: %ATT% | DIF: %DIF% | MAG: %MAG% | DIF_M: %DIF_M% | EXP: %EXP% | LV: %LV%"
  33.                 echo "%NAME_EN% -> Morto.
  34.                 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%"
  35.                 echo.
  36.         )
  37.        
  38.         if %MID_COMBACT% EQU 2 (
  39.                 echo "%NAME% -> HP: %HP%/%HP_MAX% | ATT: %ATT% | DIF: %DIF% | MAG: %MAG% | DIF_M: %DIF_M% | EXP: %EXP% | LV: %LV%"
  40.                 echo "%NAME_EN% -> HP: %HP_EN%/%HP_MAX_EN% | ATT: %ATT_EN% | DIF: %DIF_EN% | MAG: %MAG_EN% | DIF_M: %DIF_M_EN%"
  41.                 echo "%NAME_EN_2% -> Morto.
  42.                 echo.
  43.         )
  44.        
  45.         if %HP% LEQ 0 (
  46.                 echo.
  47.                 echo %Name%躺在地上... 流血不止... 缓缓地合上了双眼... 再见了... %Name%
  48.                 pause >nul
  49.                 goto END
  50.         )
  51.                
  52.         if %HP_EN% LEQ 0 if %HP_EN_2% LEQ 0 (
  53.                 echo 僵尸死了...你看着，感到莫名的恶心...
  54.                 set /a END_COMBACT=1
  55.                 pause >nul
  56.                 goto CALCOLO_EXP
  57.         )
  58.        
  59.                 if %MID_COMBACT% EQU 0 (
  60.                         choice /N /C:12 /M "攻击谁? [1] %NAME_EN%, [2] %NAME_EN_2%"
  61.                        
  62.                         if errorlevel 2 (
  63.                                 set /a TAG=2
  64.                                 goto FINE_TARGET
  65.                         )
  66.                        
  67.                         if errorlevel 1 (
  68.                                 set /a TAG=1
  69.                                 goto FINE_TARGET
  70.                         )
  71.                 )
  72.                
  73.                 if %MID_COMBACT% EQU 1 (
  74.                         set /a TAG=2
  75.                 )
  76.                
  77.                 if %MID_COMBACT% EQU 2 (
  78.                         set /a TAG=1
  79.                 )
  80.                
  81.                 :FINE_TARGET
  82.                 echo.
  83.                 choice /N /C:ADMF /M "A[攻击] D[防御] M[魔法] F[逃跑]"

  85.                 if errorlevel 4 (
  86.                         echo Tenti la fugga
  87.                         if %FUGA% GEQ 50 (
  88.                                 echo %Name%设法逃走了...
  89.                                 pause >nul
  90.                                 goto %AMBIENTE%
  91.                         ) else (
  92.                                 echo %Name%无法逃走...
  93.                                 pause >nul
  94.                                 goto %TURNO_EN%
  95.                         )
  96.                 )
  97.        
  98.                 if errorlevel 3 (
  99.                         if %MAGIE% EQU 0 (
  100.                                 echo %Name%没有任何魔法... 做无用功...
  101.                                 pause >nul
  102.                                 goto %TURNO%
  103.                         )
  104.                         if %MAGIE% GEQ 1 goto MENU_MAGIE
  105.                 )
  106.        
  107.                 if errorlevel 2 (
  108.                         echo 防御^^!我挡^^!^^!^^!
  109.                         set /a ST_DEF=1
  110.                         pause >nul
  111.                         goto %TURNO_EN%
  112.                 )
  113.                
  114.                 if errorlevel 1 goto ATTACCA

  116. :COMBACT_2_ENEMY_NO1
  117.         set /a VELENO=%RANDOM% %%100
  118.         set /a VAR_DAMAGE=%RANDOM% %%4

  120.         if %ST_DEF% EQU 0 (
  121.                 set /a DAMAGE_EN=%VAR_DAMAGE%+%ATT_EN%-%DIF%
  122.         ) else (
  123.                 set /a DAMAGE_EN=%VAR_DAMAGE%+%ATT_EN%-(%DIF%+%EQUIP_CORPO%)
  124.         )
  125.        
  126.         if %DAMAGE_EN% LEQ 0 (
  127.                 set /a DAMAGE_EN=0
  128.         )

  130.         if %MID_COMBACT% EQU 2 (
  131.                 cls
  132.                 call color.bat %NAME_EN%#0a 回合#0a
  133.                 echo.
  134.                 echo "%NAME% -> HP: %HP%/%HP_MAX% | ATT: %ATT% | DIF: %DIF% | MAG: %MAG% | |DIF_M: %DIF_M% | EXP: %EXP% | LV: %LV%"
  135.                 echo "%NAME_EN% -> HP: %HP_EN%/%HP_MAX_EN% | ATT: %ATT_EN% | DIF: %DIF_EN% | MAG: %MAG_EN% | DIF_M: %DIF_M_EN%"
  136.                 echo "%NAME_EN_2% -> Morto.
  137.                 echo.
  138.         ) else (
  139.                 cls
  140.                 call color.bat %NAME_EN%#0a 回合#0a
  141.                 echo.
  142.                 echo "%NAME% -> HP: %HP%/%HP_MAX% | ATT: %ATT% | DIF: %DIF% | MAG: %MAG% | |DIF_M: %DIF_M% | EXP: %EXP% | LV: %LV%"
  143.                 echo "%NAME_EN% -> HP: %HP_EN%/%HP_MAX_EN% | ATT: %ATT_EN% | DIF: %DIF_EN% | MAG: %MAG_EN% | DIF_M: %DIF_M_EN%"
  144.                 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%"
  145.                 echo.
  146.         )
  147.        
  148.         echo %NAME_EN%攻击了%Name%...
  149.         echo 攻击力: %DAMAGE_EN%

  151.         set /a HP=%HP%-%DAMAGE_EN%

  153.         if %MID_COMBACT% EQU 0 (
  154.                 if %HP_EN% LEQ 0 (
  155.                         echo %NAME_EN% 已死亡...
  156.                         set /a MID_COMBACT=1
  157.                         pause >nul
  158.                         goto COMBACT_2_ENEMY_NO2
  159.                 )
  160.         )
  161.        
  162.         if %MID_COMBACT% EQU 2 (
  163.                 if %HP_EN% LEQ 0 (
  164.                         echo %NAME_EN% 已死亡...
  165.                         set /a END_COMBACT=1
  166.                         pause >nul
  167.                         goto CALCOLO_EXP
  168.                 )
  169.         )

  171.         if %HP% LEQ 0 (
  172.                 echo.
  173.                 echo %Name%躺在地上... 流血不止... 缓缓地合上了双眼... 再见了... %Name%
  174.                 pause >nul
  175.                 goto END
  176.         )

  178.         if %DAMAGE_EN% GEQ %HP_MAX% (
  179.                 echo.
  180.                 echo %Name%躺在地上... 流血不止... 缓缓地合上了双眼... 再见了... %Name%
  181.                 pause >nul
  182.                 goto END
  183.         ) else (
  184.                 if %ST_VELENO% EQU 0 (
  185.                         if %VELENO% GEQ 75 (
  186.                                 echo.
  187.                                 echo %Name%中毒了...
  188.                                 echo 损失: %HP_LOSE% HP
  189.                                 set /a HP=%HP%-3
  190.                                 set /a ST_VELENO=1
  191.                                 if %HP% LEQ 0 (
  192.                                         echo.
  193.                                         echo %Name%躺在地上... 流血不止... 缓缓地合上了双眼... 再见了... %Name%
  194.                                         pause >nul
  195.                                         goto END
  196.                                 ) else (
  197.                                         pause >nul
  198.                                         if %MID_COMBACT% EQU 0 (
  199.                                                 goto COMBACT_2_ENEMY_NO2
  200.                                         ) else (
  201.                                                 goto %TURNO%
  202.                                         )
  203.                                 )
  204.                         ) else (
  205.                                 pause >nul
  206.                                 if %MID_COMBACT% EQU 0 (
  207.                                         goto COMBACT_2_ENEMY_NO2
  208.                                 ) else (
  209.                                         goto %TURNO%
  210.                                 )
  211.                         )
  212.                 ) else (
  213.                         echo 损失: %HP_LOSE% HP
  214.                         set /a HP=%HP%-3
  215.                         if %HP% LEQ 0 (
  216.                                 echo.
  217.                                 echo %Name%躺在地上... 流血不止... 缓缓地合上了双眼... 再见了... %Name%
  218.                                 pause >nul
  219.                                 goto END
  220.                         ) else (
  221.                                 pause >nul
  222.                                 if %MID_COMBACT% EQU 0 (
  223.                                         goto COMBACT_2_ENEMY_NO2
  224.                                 ) else (
  225.                                         goto %TURNO%
  226.                                 )
  227.                         )
  228.                 )
  229.         )

  231. :COMBACT_2_ENEMY_NO2
  232.         set /a VELENO=%RANDOM% %%100
  233.         set /a VAR_DAMAGE=%RANDOM% %%4

  235.         if %ST_DEF% EQU 0 (
  236.                 set /a DAMAGE_EN=%VAR_DAMAGE%+%ATT_EN%-%DIF%
  237.         ) else (
  238.                 set /a DAMAGE_EN=%VAR_DAMAGE%+%ATT_EN%-(%DIF%+%EQUIP_CORPO%)
  239.         )
  240.        
  241.         if %DAMAGE_EN% LEQ 0 (
  242.                 set /a DAMAGE_EN=0
  243.         )

  245.         if %MID_COMBACT% EQU 1 (
  246.                 cls
  247.                 call color.bat %NAME_EN_2%#0a 回合#0a
  248.                 echo.
  249.                 echo "%NAME% -> HP: %HP%/%HP_MAX% | ATT: %ATT% | DIF: %DIF% | MAG: %MAG% | |DIF_M: %DIF_M% | EXP: %EXP% | LV: %LV%"
  250.                 echo "%NAME_EN% -> Morto.
  251.                 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%"
  252.                 echo.
  253.         ) else (
  254.                 cls
  255.                 call color.bat TURNO#0a %NAME_EN_2%#0a
  256.                 echo.
  257.                 echo "%NAME% -> HP: %HP%/%HP_MAX% | ATT: %ATT% | DIF: %DIF% | MAG: %MAG% | |DIF_M: %DIF_M% | EXP: %EXP% | LV: %LV%"
  258.                 echo "%NAME_EN% -> HP: %HP_EN%/%HP_MAX_EN% | ATT: %ATT_EN% | DIF: %DIF_EN% | MAG: %MAG_EN% | DIF_M: %DIF_M_EN%"
  259.                 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%"
  260.                 echo.
  261.         )
  262.        
  263.         echo %NAME_EN_2%攻击了%Name%...
  264.         echo 攻击力: %DAMAGE_EN%

  266.         set /a HP=%HP%-%DAMAGE_EN%

  268.         if %MID_COMBACT% EQU 0 (
  269.                 if %HP_EN_2% LEQ 0 (
  270.                         echo %NAME_EN_2%已死亡...
  271.                         set /a MID_COMBACT=2
  272.                         pause >nul
  273.                         goto COMBACT_2_ENEMY_NO1
  274.                 )
  275.         )
  276.        
  277.         if %MID_COMBACT% EQU 1 (
  278.                 if %HP_EN_2% LEQ 0 (
  279.                         echo %NAME_EN_2%已死亡...
  280.                         set /a END_COMBACT=1
  281.                         pause >nul
  282.                         goto CALCOLO_EXP
  283.                 )
  284.         )

  286.         if %HP% LEQ 0 (
  287.                 echo.
  288.                 echo %Name%躺在地上... 流血不止... 缓缓地合上了双眼... 再见了... %Name%
  289.                 pause >nul
  290.                 goto END
  291.         )

  293.         if %DAMAGE_EN% GEQ %HP_MAX% (
  294.                 echo.
  295.                 echo %Name%躺在地上... 流血不止... 缓缓地合上了双眼... 再见了... %Name%
  296.                 pause >nul
  297.                 goto END
  298.         ) else (
  299.                 if %ST_VELENO% EQU 0 (
  300.                         if %VELENO% GEQ 75 (
  301.                                 echo.
  302.                                 echo %Name%中毒了...
  303.                                 echo 损失: %HP_LOSE% HP
  304.                                 set /a HP=%HP%-3
  305.                                 set /a ST_VELENO=1
  306.                                 if %HP% LEQ 0 (
  307.                                         echo.
  308.                                         echo %Name%躺在地上... 流血不止... 缓缓地合上了双眼... 再见了... %Name%
  309.                                         pause >nul
  310.                                         goto END
  311.                                 ) else (
  312.                                         pause >nul
  313.                                         goto %TURNO%
  314.                                 )
  315.                         ) else (
  316.                                 pause >nul
  317.                                 goto %TURNO%
  318.                         )
  319.                 ) else (
  320.                         echo 损失: %HP_LOSE% HP
  321.                         set /a HP=%HP%-3
  322.                         if %HP% LEQ 0 (
  323.                                 echo.
  324.                                 echo %Name%躺在地上... 流血不止... 缓缓地合上了双眼... 再见了... %Name%
  325.                                 pause >nul
  326.                                 goto END
  327.                         ) else (
  328.                                 pause >nul
  329.                                 goto %TURNO%
  330.                         )
  331.                 )
  332.         )

  334. :END
  335. echo Game Over...
  336. pause >nul
  337. exit
复制代码
回复

举报

HOPE2021
 楼主| 发表于 2021-11-6 11:20:16 | 显示全部楼层
新版本!
更新了!
让老版本的Cmd也能拥有Windows10的色调和感觉!
下一楼放代码!
回复

举报

HOPE2021
 楼主| 发表于 2021-11-6 11:21:31 | 显示全部楼层
新版本源码第一部分(颜色更改的关键!)
  1. @echo off
  2. Rem 来自https://www.dostips.com/forum/viewtopic.php?f=3&t=9848&p=63348
  3. Rem 作者Lauri
  4. chcp 936 > nul
  5. title 劳里的幻想世界
  6. color 03
  7. echo.
  8. echo.正在加载图形引擎...
  9. If "%1"=="" (
  10.   for %%a in (  QuickEdit:00000000
  11.                 CodePage:000003a8
  12.                 ColorTable00:000c0c0c
  13.                 ColorTable01:00da3700
  14.                 ColorTable02:000ea113
  15.                 ColorTable03:00dd963a
  16.                 ColorTable04:001f0fc5
  17.                 ColorTable05:00981788
  18.                 ColorTable06:00009cc1
  19.                 ColorTable07:00cccccc
  20.                 ColorTable08:00767676
  21.                 ColorTable09:00ff783b
  22.                 ColorTable10:000cc616
  23.                 ColorTable11:00d6d661
  24.                 ColorTable12:005648e7
  25.                 ColorTable13:009e00b4
  26.                 ColorTable14:00a5f1f9
  27.                 ColorTable15:00f2f2f2
  28.   ) do For /F "tokens=1,2 delims=:" %%b in ("%%a") do (
  29.     >nul Reg add HKCU\Console\DosBatch_Lauri_Fantasy /v %%b /t reg_dword /d 0x%%c /f
  30.   )
  31.   Start "DosBatch_Lauri_Fantasy" "%ComSpec%" /c "%~s0" 1&Goto:eof

  33. ) Else ( >nul reg delete HKCU\Console\DosBatch_Lauri_Fantasy /f )
  34. @goto INSTALL_COLOR

  36. :INSTALL_COLOR
  37. (
  38. echo.@echo off
  39. echo.chcp 936 ^> nul
  40. echo.Setlocal EnableDelayedExpansion
  41. echo.REM setlocal enableextensions
  42. echo.set dstdir=C:\tmpColorDirtoDelete
  43. echo.IF EXIST %%dstdir%% goto errExist
  44. echo.@mkdir %%dstdir%%
  45. echo.@cd %%dstdir%%
  46. echo.set count=0
  47. echo.REM DEFINISCO IL CARATTERE BACKSPACE!
  48. echo.set "$Defines=$BS"    & set "$Details=Create $ESC Ascii-0x1B-27, Expansion insensitive"
  49. echo.   for /f "delims=#" %%%%a in ^(
  50. echo.      '"prompt #$H# &echo on &for %%%%b in (1) do rem"'
  51. echo.   ^) do ^(
  52. echo.      set "%%$Defines%%=%%%%a"
  53. echo.      set "%%$Defines%%=!$BS:~0,1!"
  54. echo.   ^)
  55. echo.FOR %%%%a IN ^(%%*^) DO ^(
  56. echo. FOR /F "usebackq delims=# tokens=1,*" %%%%b IN ^('%%%%a'^) DO ^(
  57. echo.    REM echo %%%%b sara' di colore %%%%c
  58. echo.    set /A count=!count!+1
  59. echo.    set nomefile=%%%%b
  60. echo.    IF %%%%c.==. ^(
  61. echo.        set colore=03
  62. echo.    ^) ELSE ^(
  63. echo.    set colore=%%%%c
  64. echo.    ^)
  65. echo.    REM SET /P ".=" %%%%b
  66. echo.    SET /P ".=%%$BS%% " ^<nul ^>%%%%b
  67. echo.    REM echo !count!^>%%%%b
  68. echo.    REM echo FINDSTR /A:%%%%c /C:"!count!" /S "%%%%b"
  69. echo.    REM more %%%%b
  70. echo.    set bin=%%%%b
  71. echo. ^)
  72. echo. REM FINE INNER FOR
  73. echo.    REM echo FINDSTR /A:!colore! /C:"!count!" /S "!nomefile!"
  74. echo.    FINDSTR /A:!colore! /C:" " /S "!nomefile!"
  75. echo.    REM goto end
  76. echo.^)
  77. echo.REM FINE OUTER FOR
  78. echo.echo.
  79. echo.REM ERROR HANDLING
  80. echo.goto chiusura
  81. echo.:errExist
  82. echo.echo 临时目录%%dstdir%%已存在.在继续或更改批处理中的路径之前将其删除.
  83. echo.goto pulizia
  84. echo.:chiusura
  85. echo.:pulizia
  86. echo.cd..
  87. echo.rd /S /Q %%dstdir%%
  88. echo.goto end
  89. echo.:end
  90. ) > color.bat
  91. SetLocal EnableDelayedExpansion

  93. :LOAD
  94.         if EXIST "%UserProFile%\Save.Txt" (
  95.                 echo.
  96.                 echo 发现存档^^!
  97.                 echo.
  98.                 echo 你想加载游戏吗?
  99.                 call color.bat [S]#0c 想 [N]#0c 不想
  100.                
  101.                 choice /N /C:SN
  102.                
  103.                 if errorlevel 2 (
  104.                         echo.
  105.                         echo 新的开始.
  106.                         pause >nul
  107.                        
  108.                         goto START
  109.                 )
  110.                 if errorlevel 1 (
  111.                         for /F "usebackq tokens=1-18 delims=," %%G in ("%UserProFile%\Save.Txt") do (
  112.                                 set AMBIENTE=%%G
  113.                                 set ATT=%%H
  114.                                 set DIF=%%I
  115.                                 set MAG=%%J
  116.                                 set DIF_M=%%K
  117.                                 set HP_MAX=%%L
  118.                                 set HP=%%M
  119.                                 set MAGIE=%%N
  120.                                 set LV=%%O
  121.                                 set EXP=%%P
  122.                                 set END_COMBACT=%%Q
  123.                                 set EQUIP_ARM=%%R
  124.                                 set EQUIP_CORPO=%%S
  125.                                 set EQUIP_ELM=%%T
  126.                                 set NAME=%%U
  127.                                 set SWT_LOC_A=%%V
  128.                                 set GOLD=%%W
  129.                                 set STORY=%%X
  130.                                 set /a ST_VELENO=0
  131.                                 set NAME_EN=
  132.                                 set /a HP_LOSE=3

  134.                                 set /a LOOP_L=0
  135.                                
  136.                                 goto LOOP_ECHO_LOAD
  137.                         )
  138.                 )
  139.         ) else (
  140.                 goto START
  141.         )

  143. :SAVE
  144.         set /a LOOP_S=0
  145.        
  146.         goto LOOP_ECHO_SAVE
  147.                
  148. :LOOP_ECHO_LOAD
  149.         if %LOOP_L% EQU 0 (
  150.                 cls
  151.                 echo.
  152.                 echo 正在加载 .
  153.                 set /a LOOP_L=%LOOP_L%+1
  154.                
  155.                 choice /N /C:P /T 0 /D P
  156.                 goto LOOP_ECHO_LOAD
  157.         )
  158.                                
  159.         if %LOOP_L% EQU 1 (
  160.                 cls
  161.                 echo.
  162.                 echo 正在加载 . .
  163.                 set /a LOOP_L=%LOOP_L%+1
  164.                
  165.                 choice /N /C:P /T 0 /D P
  166.                 goto LOOP_ECHO_LOAD
  167.         )
  168.        
  169.         if %LOOP_L% EQU 2 (
  170.                 cls
  171.                 echo.
  172.                 echo 正在加载 . . .
  173.                 set /a LOOP_L=0

  175.                 choice /N /C:P /T 0 /D P
  176.                 if errorlevel 1 goto %AMBIENTE%
  177.         )

  179. :LOOP_ECHO_SAVE
  180.         if %LOOP_S% EQU 0 (
  181.                 cls
  182.                 echo.
  183.                 echo 存档中 .
  184.                 set /a LOOP_S=%LOOP_S%+1
  185.                 choice /N /C:P /T 0 /D P
  186.                
  187.                 goto LOOP_ECHO_SAVE
  188.         )
  189.                                
  190.         if %LOOP_S% EQU 1 (
  191.                 cls
  192.                 echo.
  193.                 echo 存档中 . .
  194.                 set /a LOOP_S=%LOOP_S%+1
  195.                 choice /N /C:P /T 0 /D P
  196.                        
  197.                 goto LOOP_ECHO_SAVE
  198.         )
  199.        
  200.         if %LOOP_S% EQU 2 (
  201.                 cls
  202.                 echo.
  203.                 echo 存档中 . . .
  204.                 set /a LOOP_S=0

  206.                 choice /N /C:P /T 0 /D P
  207.                 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"

  209.                 goto %AMBIENTE%
  210.         )
  211.        
  212. :START
  213. set /a EQUIP_ARM=0
  214. :: 3= SPADA ATT +3
  215. :: 5= LANCIA ATT +5
  216. :: 7= PUGNALE ATT +7
  217. :: 2= ASTA +2 MAG
  218. :: 4= PISTOLA +4 MAG
  219. :: 8= LONGINUS +8 MAG

  221. set /a EQUIP_CORPO=0
  222. :: 1= MAGLIA DIF +1
  223. :: 3= GIUBOTTO DIF+3
  224. :: 8= CORAZZA DIF +8

  226. set /a EQUIP_ELM=0
  227. :: 2= CAPPELLO DIF_MAG +2
  228. :: 5= BASCO DIF_MAG +5
  229. :: 7= ELMO DIF_MAG +7

  231. set /a ATT=2
  232. set /a DIF=1
  233. set /a MAG=0
  234. set /a DIF_M=0
  235. set /a EXP=0
  236. set /a HP=30
  237. set /a HP_MAX=30
  238. set /a LV=1

  240. set /a ST_VELENO=0
  241. :: 1= AVVELENATO

  243. set /a HP_LOSE=3
  244. :: HP PERSI PER EFFETTO DEL VELENO

  246. set /a END_COMBACT=0

  248. set /a MAGIE=0
  249. :: FIRE=1
  250. :: ICE=2
  251. :: ENERGIA=3
  252. :: IDRO=4
  253. :: THUNDER=5
  254. :: ESNA=6

  256. set /a SWT_LOC_A=0
  257. :: VARIABILE PER I SOLDI TROVATI NEL MONDO

  259. set /a GOLD=0
  260. ::SOLDI DEL GIOCO

  262. set /a STORY=0
  263. ::VARIABILE DELLA STORIA

  265. set NAME_EN=


  268. cls
  269. echo.欢迎来到虚拟世界，这里使用了有史以来最好的图形引擎，你的大脑^^!
  270. pause >nul

  272. cls

  274. call color.bat 选择 [S]#0c 开始或选择 [N]#0c 退出
  275. choice /N /C:SN

  277. if errorlevel 2 goto END
  278. if errorlevel 1 goto BEGIN_GAME

  280. :BEGIN
  281.         cls
  282.         call color.bat 你的房子#0a
  283.         echo.
  284.         echo 你是离开房子还是在房间里踱步?

  286.         call color.bat 选择 [A]#0c 离开或选择 [D]#0c 停留
  287.         choice /N /C:AD
  288.        
  289.         if errorlevel 2 goto IN_HOME
  290.         if errorlevel 1 goto OUT_HOME

  292. :BEGIN_GAME
  293.         echo.
  294.         set /p NAME=你的名字叫什么?

  296.         if /i DEFINED NAME (
  297.                 echo.
  298.                 echo %NAME%你好, 你好，欢迎来到劳里的世界^^!
  299.                 echo 你准备好开始你的冒险了吗？
  300.                 call color.bat 按 [Enter键]#0c 开始。
  301.                 pause >nul
  302.         ) else (
  303.                 cls
  304.                 echo 请输入您的姓名^^!
  305.                 pause >nul
  306.                 goto BEGIN_GAME
  307.         )

  309. cls
  310. call color.bat 你的房子#0a
  311. echo.
  312. echo 嗯，刚刚醒来，马上就发现了一些奇怪的事情...
  313. echo 是啊...太安静了，有点不对劲...
  314. echo 走近前门想做点什么...
  315. echo 是离开房子还是在房间里踱步?

  317.         call color.bat 选择 [A]#0c 离开或选择 [D]#0c 停留
  318.         choice /N /C:AD
  319.        
  320.         if errorlevel 2 goto IN_HOME
  321.         if errorlevel 1 goto OUT_HOME

  323.         :OUT_HOME
  324.                 cls
  325.                 call color.bat 屋外#0a
  326.                 echo.
  327.                 echo 我听不到任何噪音...
  328.                 echo 我步行时注意到朋友的房子...
  329.                 echo 门开着...
  330.                 echo 决定进去还是继续?
  331.                
  332.                 call color.bat 选择 [A]#0c 进入或选择 [D]#0c 继续或 [X]#0c 返回
  333.                 choice /N /C:ADX
  334.                
  335.                 if errorlevel 3 goto BEGIN
  336.                 if errorlevel 2 goto STREET
  337.                 if errorlevel 1 goto FRIEND_HOUSE

  339.         :IN_HOME
  340.                 cls
  341.                 call color.bat 走廊#0a
  342.                 echo.
  343.                 echo 想去哪个房间?

  345.                 call color.bat 选择 [A]#0c 去厨房 [D]#0c 去卧室 [G]#0c 去浴室 [J]#0c 客厅
  346.                 choice /N /C:ADGJ

  348.                 if errorlevel 4 goto SALA
  349.                 if errorlevel 3 goto BAGNO
  350.                 if errorlevel 2 goto CAMERA
复制代码
回复

举报

HOPE2021
 楼主| 发表于 2021-11-6 11:22:23 | 显示全部楼层
新版本源码第二部分
  1.                 if errorlevel 1 goto CUCINA

  3.                 :CUCINA
  4.                         cls
  5.                         call color.bat 厨房#0a
  6.                         echo.
  7.                         echo 这里也没有人...电线断了...
  8.                         echo 妈妈一定忘了关上它...
  9.                         echo 回去吧...
  10.                         pause >nul
  11.                         goto BEGIN
  12.                 :CAMERA
  13.                         if %EQUIP_ARM% EQU 0 (
  14.                                 cls
  15.                                 call color.bat 卧室#0a
  16.                                 echo.
  17.                                 echo 床没铺好...
  18.                                 echo 我检查了壁橱...
  19.                                 call color.bat 找到#03 黑桃#0c [ATT#0c +3]#0c
  20.                                 set /a EQUIP_ARM=3
  21.                                 echo 回去吧...
  22.                                 pause >nul
  23.                                 goto BEGIN
  24.                         )
  25.                         if %EQUIP_ARM% GEQ 1 (
  26.                                 cls
  27.                                 call color.bat 卧室#0a
  28.                                 echo.
  29.                                 echo 床没铺好...
  30.                                 echo 我检查了壁橱...
  31.                                 echo 什么都没有了...
  32.                                 echo 回去吧...
  33.                                 pause >nul
  34.                                 goto BEGIN
  35.                         )
  36.                 :BAGNO
  37.                         cls
  38.                         call color.bat 浴室#0a
  39.                         echo.
  40.                         echo 啊... 我需要好好洗个澡...
  41.                         echo 回去吧...
  42.                         pause >nul
  43.                         goto BEGIN
  44.                 :SALA
  45.                         cls
  46.                         call color.bat 客厅#0a
  47.                         echo.
  48.                         echo 灯亮着... 真奇怪...
  49.                         echo 回去吧...
  50.                         pause >nul
  51.                         goto BEGIN

  53.         :FRIEND_HOUSE
  54.                 if %END_COMBACT% EQU 0 (
  55.                         cls
  56.                         call color.bat 朋友的家#0a
  57.                         echo.
  58.                         echo 这里似乎也没有人...
  59.                         echo 我想我听到了声音...
  60.                         echo 从客厅出来...
  61.                         echo 要做什么，给朋友打电话还是检查房间？
  62.                
  63.                         call color.bat 选择 [A]#0c 给朋友打电话或选择 [D]#0c 检查房间
  64.                         choice /N /C:AD

  66.                         if errorlevel 2 goto ROOM_FRIEND_HOUSE
  67.                         if errorlevel 1 goto VOICE_1
  68.                 ) else (
  69.                         cls
  70.                         call color.bat 朋友的家#0a
  71.                         echo.
  72.                         echo 一个死去的僵尸躺在地上...
  73.                         echo 似乎没有什么有趣的事...
  74.                         pause >nul
  75.                         goto OUT_HOME
  76.                 )

  78.                 :ROOM_FRIEND_HOUSE
  79.                         cls
  80.                         call color.bat 房间#0a
  81.                         echo.
  82.                         echo 哦，我的天啊，真是太可怕了...
  83.                         echo 我的邻居好像变成了僵尸^^!^^!^^!
  84.                         echo 攻击我^^!^^!^^!
  85.                         echo.
  86.                         pause >nul

  88.                                 set /a HP_EN=20
  89.                                 set /a HP_MAX_EN=20
  90.                                 set /a ATT_EN=1
  91.                                 set /a DIF_EN=1
  92.                                 set /a MAG_EN=0
  93.                                 set /a DIF_M_EN=0

  95.                                 set NAME_EN=僵尸
  96.                                 set AMBIENTE=FRIEND_HOUSE
  97.                                 set TURNO=COMBACT_1
  98.                                 set TURNO_EN=COMBACT_1_ENEMY

  100.                                 set /a ST_VELENO=0

  102.                                 set /a EXP_EN=3
  103.                                
  104.                                 goto COMBACT_1

  106.         :VOICE_1
  107.                 cls.
  108.                 call color.bat 朋友的家#0a
  109.                 echo.
  110.                 echo 试着打电话给邻居,
  111.                 echo 似乎没有人回答...
  112.                 echo %Name%试着提高声音...
  113.                 echo 有奇怪的吼声... 从房间里传来...
  114.                 echo 发生了什么?

  116.                 call color.bat 是要离开 [A]#0c 还是检查 [D]#0c
  117.                 choice /N /C:AD

  119.                 if errorlevel 2 goto ROOM_FRIEND_HOUSE
  120.                 if errorlevel 1 goto OUT_HOME
  121.                
  122.         :STREET
  123.                 cls
  124.                 call color.bat 街头#0a
  125.                 echo.
  126.                 echo 你站在十字路口...
  127.                 echo 冷风飒飒... 乌云密布
  128.                 echo 一个指示牌歪歪斜斜... 指着东南西北...
  129.                 echo.
  130.                 echo 该向那儿走?
  131.                 call color.bat [W]#0c 直走 [A]#0c 向左 [D]#0c 向右 [X]#0c 返回
  132.                
  133.                 choice /N /C:WADX

  135.                 if errorlevel 4 goto OUT_HOME
  136.                 if errorlevel 3 goto STREET_E
  137.                 if errorlevel 2 goto STREET_O
  138.                 if errorlevel 1 goto STREET_N

  140.         :STREET_N
  141.                 cls
  142.                 call color.bat 街头#0a
  143.                 echo.
  144.                 call color.bat [W]#0c 继续前行 [X]#0c 打道回府

  146.                 choice /N /C:WX

  148.                 if errorlevel 2 goto STREET
  149.                 if errorlevel 1 goto STREET_NN
  150.                
  151.                 :STREET_NN
  152.                         cls
  153.                         call color.bat 街头#0a
  154.                         echo.
  155.                         echo 这条路似乎到此为止...
  156.                         echo 最好回去...
  157.                         pause >nul
  158.        
  159.                         goto STREET_N

  161.         :STREET_O
  162.                 cls
  163.                 call color.bat 街头#0a
  164.                 echo.
  165.                 echo %Name%看到一座尖塔...
  166.                 call color.bat [W]#0c 直走 [A]#0c 左转 [X]#0c 返回

  168.                 choice /N /C:WAX

  170.                 if errorlevel 3 goto STREET
  171.                 if errorlevel 2 goto STREET_OS
  172.                 if errorlevel 1 goto STREET_OO

  174.                 :STREET_OO
  175.                         cls
  176.                         call color.bat 街头#0a
  177.                         echo.
  178.                         call color.bat [W]#0c 直走 [X]#0c 返回

  180.                         choice /N /C:WX

  182.                         if errorlevel 2 goto STREET_O
  183.                         if errorlevel 1 goto STREET_OOO
  184.                
  185.                         :STREET_OOO
  186.                                 cls
  187.                                 call color.bat 街头#0a
  188.                                 echo.
  189.                                 echo %Name%看到一座尖塔...
  190.                                 call color.bat [W]#0c 直走 [A]#0c 向左走 [D]#0c 向右走 [X]#0c 返回

  192.                                 choice /N /C:WADX

  194.                                 if errorlevel 4 goto STREET_OO
  195.                                 if errorlevel 3 goto STREET_OOON
  196.                                 if errorlevel 2 goto STREET_OOOS
  197.                                 if errorlevel 1 goto STREET_OOOO
  198.                                
  199.                                 :STREET_OOON
  200.                                         cls
  201.                                         call color.bat 街头#0a
  202.                                         echo.
  203.                                         echo 去酒吧，也许是个好主意...
  204.                                         echo 进去，我可以喝一杯或者...
  205.                                         echo 也许我应该晚一点回去...
  206.                                         echo.
  207.                                        
  208.                                         call color.bat [A]#0c 进去 [D]#0c 返回
  209.                                        
  210.                                         choice /N /C:AD
  211.                                        
  212.                                         if errorlevel 2 goto STREET_OOO
  213.                                         if errorlevel 1 goto BAR_1
  214.                                        
  215.                                 :STREET_OOOO
  216.                                         if %SWT_LOC_A% EQU 0 (
  217.                                                 cls
  218.                                                 call color.bat 街头#0a
  219.                                                 echo.
  220.                                                 echo 嘿，你找到3块金子了^^!
  221.                                                 set /a GOLD=%GOLD%+3
  222.                                                 pause >nul
  223.                                                
  224.                                                 set /a SWT_LOC_A=1
  225.                                                 goto STREET_OOO
  226.                                         )
  227.                                        
  228.                                         if %SWT_LOC_A% EQU 1 (
  229.                                                 cls
  230.                                                 call color.bat 街头#0a
  231.                                                 echo.
  232.                                                 echo 这里什么也没有... 这条路似乎到此为止...
  233.                                                 echo 最好回去...
  234.                                                 pause >nul

  236.                                                 goto STREET_OOO
  237.                                         )

  239.                                 :STREET_OOOS
  240.                                        
  241.                                         cls
  242.                                         call color.bat 街头#0a
  243.                                         echo.
  244.                                         echo 这条路似乎到此为止...
  245.                                                         echo 最好回去...
  246.                                         pause >nul

  248.                                         goto STREET_OOO
  249.                 :STREET_OS
  250.                         cls
  251.                         call color.bat 街头#0a
  252.                         echo.
  253.                         call color.bat [W]#0c 直走 [X]#0c 返回

  255.                         choice /N /C:WX

  257.                         if errorlevel 2 goto STREET_O
  258.                         if errorlevel 1 goto STREET_OSS

  260.                         :STREET_OSS
  261.                                 cls
  262.                                 call color.bat 街头#0a
  263.                                 echo.
  264.                                 echo %Name%找到了一个休息的地方,
  265.                                 echo 这里可以恢复精力...
  266.                                 set /a HP=%HP_MAX%
  267.                                 pause >nul

  269.                                 echo.
  270.                                 call color.bat [D]#0c 向右 [X]#0c 返回

  272.                                 choice /N /C:DX

  274.                                 if errorlevel 2 goto STREET_OS
  275.                                 if errorlevel 1 goto STREET_OSSO

  277.                                 :STREET_OSSO
  278.                                         cls
  279.                                         call color.bat 街头#0a
  280.                                         echo.
  281.                                         echo %Name%遇到了一个僵尸...
  282.                                         echo 它攻击%Name%
  283.                                         echo.
  284.                                         pause >nul

  286.                                                 set /a HP_EN=25
  287.                                                 set /a HP_MAX_EN=25
  288.                                                 set /a ATT_EN=1
  289.                                                 set /a DIF_EN=2
  290.                                                 set /a MAG_EN=0
  291.                                                 set /a DIF_M_EN=0

  293.                                                 set NAME_EN=僵尸
  294.                                                 set AMBIENTE=STREET_OSS
  295.                                                 set TURNO=COMBACT_1
  296.                                                 set TURNO_EN=COMBACT_1_ENEMY

  298.                                                 set /a ST_VELENO=0
  299.        
  300.                                                 set /a EXP_EN=7
  301.                                
  302.                                                 goto COMBACT_1


  305.         :STREET_E
  306.                 cls
  307.                 call color.bat 街头#0a
  308.                 echo.
  309.                 echo %Name%看到一座尖塔...
  310.                 call color.bat [A]#0c 向左 [D]#0c 向右 [X]#0c 返回

  312.                 choice /N /C:ADX

  314.                 if errorlevel 3 goto STREET
  315.                 if errorlevel 2 goto STREET_ES
  316.                 if errorlevel 1 goto STREET_EN

  318.                 :STREET_EN
  319.                         cls
  320.                         call color.bat 街头#0a
  321.                         echo.
  322.                         call color.bat [D]#0c 向右 [X]#0c 返回

  324.                         choice /N /C:DX

  326.                         if errorlevel 2 goto STREET_E
  327.                         if errorlevel 1 goto STREET_ENE
  328.                        
  329.                         :STREET_ENE
  330.                                 cls
  331.                                 call color.bat 街头#0a
  332.                                 echo.
  333.                                 call color.bat [W]#0c 直走 [X]#0c 返回

  335.                                 choice /N /C:WX

  337.                                 if errorlevel 2 goto STREET_EN
  338.                                 if errorlevel 1 goto STREET_ENEE
  339.                                
  340.                                 :STREET_ENEE
  341.                                         cls
  342.                                         call color.bat 街头#0a
  343.                                         echo.
  344.                                         echo %Name%找到了一个休息的地方,
  345.                                         echo 这里可以恢复精力...
  346.                                         set /a HP=%HP_MAX%
  347.                                         pause >nul

  349.                                         echo.
  350.                                         call color.bat [X]#0c 返回
复制代码
回复

举报

HOPE2021
 楼主| 发表于 2021-11-6 11:23:50 | 显示全部楼层
新版本源码第三部分


  3.                                         choice /N /C:X

  5.                                         if errorlevel 1 goto STREET_ENE
  6.                                
  7.                 :STREET_ES
  8.                         cls
  9.                         call color.bat 街头#0a
  10.                         echo.
  11.                         echo %Name%看到一座尖塔...
  12.                         call color.bat [W]#0c 直走 [A]#0c 向左 [D]#0c 向右 [X]#0c 返回

  14.                         choice /N /C:WADX

  16.                         if errorlevel 4 goto STREET_E
  17.                         if errorlevel 3 goto STREET_ESO
  18.                         if errorlevel 2 goto STREET_ESE
  19.                         if errorlevel 1 goto STREET_ESS
  20.                        
  21.                         :STREET_ESO
  22.                                 cls
  23.                                 call color.bat 街头#0a
  24.                                 echo.
  25.                                 call color.bat [W]#0c 直走 [X]#0c 返回

  27.                                 choice /N /C:WX

  29.                                 if errorlevel 2 goto STREET_ES
  30.                                 if errorlevel 1 goto STREET_ESOO
  31.                
  32.                         :STREET_ESE
  33.                                 cls
  34.                                 call color.bat 街头#0a
  35.                                 echo.
  36.                                 call color.bat [W]#0c 直走 [X]#0c 返回

  38.                                 choice /N /C:WX
  39.        
  40.                                 if errorlevel 2 goto STREET_ES
  41.                                 if errorlevel 1 goto STREET_ESEE
  42.                        
  43.                         :STREET_ESS
  44.                                 cls
  45.                                 call color.bat 街头#0a
  46.                                 echo.
  47.                                 call color.bat [A]#0c 向左 [X]#0c 返回

  49.                                 choice /N /C:AX

  51.                                 if errorlevel 2 goto STREET_ES
  52.                                 if errorlevel 1 goto STREET_ESSE
  53.                        
  54.                                 :STREET_ESOO
  55.                                         cls
  56.                                         call color.bat 街头#0a
  57.                                         echo.
  58.                                         echo 这条路似乎到此为止...
  59.                                         echo 最好回去...
  60.                                         pause >nul
  61.                                
  62.                                         goto STREET_ESO
  63.                                        
  64.                                 :STREET_ESEE
  65.                                         cls
  66.                                         call color.bat COMBATTI#0a
  67.                                         echo.
  68.                                         echo %Name%遇到了一个僵尸...
  69.                                         echo 它攻击%Name%
  70.                                         echo.
  71.                                         pause >nul
  72.                                        
  73.                                                 set /a HP_EN=25
  74.                                                 set /a HP_MAX_EN=25
  75.                                                 set /a ATT_EN=1
  76.                                                 set /a DIF_EN=2
  77.                                                 set /a MAG_EN=0
  78.                                                 set /a DIF_M_EN=0

  80.                                                 set NAME_EN=僵尸
  81.                                                 set AMBIENTE=STREET_ESE
  82.                                                 set TURNO=COMBACT_1
  83.                                                 set TURNO_EN=COMBACT_1_ENEMY

  85.                                                 set /a ST_VELENO=0
  86.        
  87.                                                 set /a EXP_EN=7
  88.                                
  89.                                                 goto COMBACT_1
  90.                                
  91.                                 :STREET_ESSE
  92.                                         cls
  93.                                         call color.bat 街头#0a
  94.                                         echo.
  95.                                         echo %Name%看到一座尖塔...
  96.                                         call color.bat [W]#0c 直走 [D]#0c 向右 [X]#0c 返回

  98.                                         choice /N /C:WDX

  100.                                         if errorlevel 3 goto STREET_ESS
  101.                                         if errorlevel 2 goto STREET_ESSES
  102.                                         if errorlevel 1 goto STREET_ESSEE
  103.                                        
  104.                                         :STREET_ESSES
  105.                                                 cls
  106.                                                
  107.                                                 if %STORY% LEQ 0 (
  108.                                                         call color.bat 街边-森林#0a
  109.                                                         echo.
  110.                                                         echo %Name%走进一片森林，听到远处有人声...
  111.                                                         echo 还是检查一下吧...
  112.                                                         echo.
  113.                                                         echo 那是%Name%遇见伴侣的时候...
  114.                                                         pause >nul
  115.                                                
  116.                                                         goto BOSCO
  117.                                                 ) else (
  118.                                                         call color.bat 街边-森林#0a
  119.                                                         echo.
  120.                                                         echo %Name%已经到达一个森林的入口，想做什么？
  121.                                                         call color.bat [W]#0c 去森林 [X]#0c 返回
  122.                                                         choice /N /C:WX
  123.                                                        
  124.                                                         if errorlevel 2 goto STREET_ESSE
  125.                                                         if errorlevel 1 goto BOSCO
  126.                                                 )
  127.                                        
  128.                                         :STREET_ESSEE
  129.                                                 cls
  130.                                                 call color.bat 街头#0a
  131.                                                 echo.
  132.                                                 echo 这条路似乎到此为止...
  133.                                                         echo 最好回去...
  134.                                                 pause >nul
  135.                                
  136.                                                 goto STREET_ESSE
  137.                                                
  138.         :BOSCO
  139.                 if %STORY% LEQ 0 (
  140.                         cls
  141.                         call color.bat 森林#0a
  142.                         echo.
  143.                         echo 嘿，前面有很多僵尸...
  144.                         echo 这里，可能需要这个...
  145.                         echo 啊，但是后来我听说了一家商店...
  146.                         echo 在那里... 哦，可以买一些必需品...
  147.                         echo.
  148.                         echo 您已获得: 毛衣
  149.                         set /a EQUIP_CORPO=1
  150.                         set /a STORY=%STORY%+1
  151.                         echo.
  152.                         echo 乔瓦尼离开了，呆在森林的你开始做什么？
  153.                         echo 继续前行还是返回?
  154.                        
  155.                         call color.bat [W]#0c 继续向前 [X]#0c 返回
  156.                         choice /N /C:WX
  157.                        
  158.                         if errorlevel 2 goto STREET_ESSES
  159.                         if errorlevel 1 goto BOSCO_1
  160.                 ) else (
  161.                         cls
  162.                         call color.bat 森林#0a
  163.                         echo.
  164.                         echo 你在树林里干什么?
  165.                         echo 继续前行或返回?
  166.                        
  167.                         call color.bat [W]#0c 继续前行 [X]#0c 返回
  168.                         choice /N /C:WX
  169.                        
  170.                         if errorlevel 2 goto STREET_ESSES
  171.                         if errorlevel 1 goto BOSCO_1
  172.                 )
  173.                
  174.         :BOSCO_1
  175.                 set /a VAR_INC=%RANDOM% %%100
  176.                
  177.                 if !VAR_INC! GEQ 60 (
  178.                         cls
  179.                         call color.bat 森林-战场#0a
  180.                         echo.
  181.                         echo %Name%遇到一个僵尸，它攻击%Name%...
  182.                         pause >nul
  183.                        
  184.                         set /a HP_EN=40
  185.                         set /a HP_MAX_EN=40
  186.                         set /a ATT_EN=4
  187.                         set /a DIF_EN=5
  188.                         set /a MAG_EN=0
  189.                         set /a DIF_M_EN=0

  191.                         set NAME_EN=僵尸1
  192.                         set AMBIENTE=BOSCO
  193.                         set TURNO=COMBACT_1
  194.                         set TURNO_EN=COMBACT_1_ENEMY

  196.                         set /a ST_VELENO=0

  198.                         set /a EXP_EN=10

  200.                         goto COMBACT_1
  201.                 ) else (
  202.                         cls
  203.                         call color.bat 森林#0a
  204.                         echo.
  205.                         echo 没有动静... 什么都没有吗?
  206.                         call color.bat [S]#0c 是的 [N]#0c 不是

  208.                         choice /N /C:SN

  210.                         if errorlevel 2 goto BOSCO
  211.                         if errorlevel 1 goto END
  212.                 )

  214.                 if !VAR_INC! GEQ 83 (
  215.                         cls
  216.                         call color.bat 森林-战场#0a
  217.                         echo.
  218.                         echo %Name%遇到两个僵尸，他们攻击%Name%^^!^^!^^!
  219.                         pause >nul

  221.                         set /a HP_EN=40
  222.                         set /a HP_MAX_EN=40
  223.                         set /a ATT_EN=4
  224.                         set /a DIF_EN=5
  225.                         set /a MAG_EN=0
  226.                         set /a DIF_M_EN=0

  228.                         set /a HP_EN_2=20
  229.                         set /a HP_MAX_EN_2=20
  230.                         set /a ATT_EN_2=3
  231.                         set /a DIF_EN_2=3
  232.                         set /a MAG_EN_2=0
  233.                         set /a DIF_M_EN_2=0

  235.                         set NAME_EN=僵尸1
  236.                         set NAME_EN_2=僵尸2
  237.                         set AMBIENTE=BOSCO
  238.                         set TURNO=COMBACT_2
  239.                         set TURNO_EN=COMBACT_2_ENEMY_NO1

  241.                         set /a MID_COMBACT=0

  243.                         set /a ST_VELENO=0

  245.                         set /a EXP_EN=10

  247.                         goto COMBACT_2
  248.                 ) else (
  249.                         cls
  250.                         call color.bat 森林#0a
  251.                         echo.
  252.                         echo 好像什么动静都没有... 但这是真的吗?
  253.                         call color.bat [S]#0c 是的 [N]#0c 不是

  255.                         choice /N /C:SN

  257.                         if errorlevel 2 goto BOSCO
  258.                         if errorlevel 1 goto END
  259.                 )
  260.                
  261.         :BAR_1
  262.                 set AMBIENTE=BAR_1
  263.                 cls
  264.         :S_BAR_DOMANDA
  265.                 call color.bat 酒吧#0a
  266.                 echo.
  267.                 echo ---==^> 归 %GOLD% 块金子的人所有 ^<==---
  268.                 echo.
  269.                 echo 欢迎来到这里最特别的酒吧，哈哈 ^^!^^!^^!
  270.                 echo 是啊... 你偶尔也会笑，这对你有好处...
  271.                 echo 回到我们这里，你想要什么？
  272.                 echo 如果你不知道该带什么，你可以写"Chiedi"来问我
  273.        
  274.         :S_BAR_DOMANDA_1
  275.                 echo.
  276.                 echo 你的愿望是什么?
  277.                 set /p DOMANDA=
  278.                
  279.                 if /i DEFINED DOMANDA (
  280.                         goto S_BAR_MENU
  281.                 ) else (
  282.                         echo.
  283.                                 echo 我不明白... 试着键入"Chiedi"
  284.                         pause >nul
  285.                         cls
  286.                         goto S_BAR_DOMANDA
  287.                 )
  288.        
  289.         :S_BAR_MENU
  290.         if /i %DOMANDA%==Chiedi (
  291.                 cls
  292.                 call color.bat BAR#0a
  293.                 echo.
  294.                 echo 菜单:
  295.                 echo.
  296.                 echo    - BEVI    -^> 查看鸡尾酒菜单.
  297.                 echo    - MANGIA  -^> 查看甜品菜单.
  298.                 echo    - SALVA   -^> 保存游戏进度.
  299.                 echo    - ESCI    -^> 离开酒吧.
  300.                
  301.                 goto S_BAR_DOMANDA_1
  302.         )

  304.         :MENU_BEVI
  305.         if /i %DOMANDA%==Bevi (
  306.                 cls
  307.                 call color.bat 菜单#0a
  308.                 echo.
  309.                 echo 菜单:
  310.                 echo.
  311.                 echo.    酒品        价格^(G块金子^)
  312.                 echo.  ------====^>^>^> ^<^<^<====------
  313.                 echo   - Campari              ^(3G^)
  314.                 echo   - Aperol               ^(4G^)
  315.                 echo   - Niente
  316.                
  317.                 echo.
  318.                 echo 你的愿望是什么[ 键入 Campari 或 Aperol 即可买酒 , 键入 Niente 即可返回 ]?
  319.                
  320.                 set /p BEVI=
  321.                 goto BEVI
  322.         )
  323.                
  324.         if /i %DOMANDA%==Mangia (

  326.                 cls
  327.                 call color.bat 菜单#0a
  328.                 echo.
  329.                 echo 菜单:
  330.                 echo.
  331.                 echo.    甜品        价格^(G块金子^)
  332.                 echo.  ------====^>^>^> ^<^<^<====------
  333.                 echo   - Struffoli            ^(3G^)
  334.                 echo   - Cassata              ^(4G^)
  335.                 echo   - Tiramisu             ^(5G^)
  336.                 echo   - Niente
  337.                
  338.                 echo.
  339.                 echo 你的愿望是什么[ 键入 Struffoli / Cassata / Tiramisu 即可购买甜品 , 键入 Niente 即可返回 ]?
  340.                
  341.                 set /p MANGIA=
  342.                 goto MANGIA
  343.         )
  344.                
  345.         if /i %DOMANDA%==Salva (
  346.                 echo.
  347.                 goto SAVE
  348.         )
  349.        
  350.         if /i %DOMANDA%==Esci (
  351.                 echo.
复制代码
回复

举报

HOPE2021
 楼主| 发表于 2021-11-6 11:25:50 | 显示全部楼层
本帖最后由 HOPE2021 于 2021-11-6 11:27 编辑

新版本源码第四部分
  1.                 echo %Name%离开了酒吧.
  2.                 pause >nul
  3.                 cls
  4.                 goto STREET_OOON
  5.         )
  6.                
  7.         echo.
  8.         echo 我不明白... 试着键入"Chiedi"
  9.         pause >nul
  10.         cls
  11.         goto S_BAR_DOMANDA
  12.                
  13.         :BEVI
  14.         if /i %BEVI%==Campari (
  15.                 if %GOLD% GEQ 3 (
  16.                         echo 这是你的 !BEVI! 和气泡酒
  17.                         echo 你想要更多吗?
  18.                         pause >nul
  19.                         set /a GOLD=%GOLD%-3
  20.                         goto S_BAR_MENU
  21.                 ) else (
  22.                         echo 你没有金子...
  23.                         echo 你想要更多吗?
  24.                         pause >nul
  25.                         goto S_BAR_MENU
  26.                 )
  27.         )
  28.        
  29.         if /i %BEVI%==Aperol (
  30.                 if %GOLD% GEQ 4 (
  31.                         echo 这是你的Spritz鸡尾酒... 祝你享受威尼斯的夕阳...
  32.                         echo 你想要更多吗?
  33.                         pause >nul
  34.                         set /a GOLD=%GOLD%-4
  35.                         goto S_BAR_MENU
  36.                 ) else (
  37.                         echo 你没有金子...
  38.                         echo 你想要更多吗?
  39.                         pause >nul
  40.                         goto S_BAR_MENU
  41.                 )
  42.         )
  43.        
  44.         if /i %BEVI%==Niente (
  45.                 echo 好的
  46.                 pause >nul
  47.                 cls
  48.                 goto S_BAR_DOMANDA
  49.         )
  50.        
  51.         echo.
  52.         echo 我不明白... 试着键入"Chiedi"
  53.         pause >nul
  54.         goto MENU_BEVI
  55.        
  56.         :MANGIA

  58.         if /i %MANGIA%==Struffoli (
  59.                 if %GOLD% GEQ 3 (
  60.                         echo 这是你的蜂蜜糖球...
  61.                         echo 你想要更多吗?
  62.                         pause >nul
  63.                         set /a GOLD=%GOLD%-3
  64.                         goto S_BAR_MENU
  65.                 ) else (
  66.                         echo 你没有金子...
  67.                         echo 你想要更多吗?
  68.                         pause >nul
  69.                         goto S_BAR_MENU
  70.                 )
  71.         )
  72.        
  73.         if /i %MANGIA%==Aperol (
  74.                 if %GOLD% GEQ 4 (
  75.                         echo 这是你的卡萨塔... 祝你享受西西里的快乐...
  76.                         echo 你想要更多吗?
  77.                         pause >nul
  78.                         set /a GOLD=%GOLD%-4
  79.                         goto S_BAR_MENU
  80.                 ) else (
  81.                         echo 你没有金子...
  82.                         echo 你想要更多吗?
  83.                         pause >nul
  84.                         goto S_BAR_MENU
  85.                 )
  86.         )
  87.        
  88.         if /i %MANGIA%==Aperol (
  89.                 if %GOLD% GEQ 5 (
  90.                         echo 这是你的提拉米苏... 祝你享受意大利的美味...
  91.                         echo 你想要更多吗?
  92.                         pause >nul
  93.                         set /a GOLD=%GOLD%-5
  94.                         goto S_BAR_MENU
  95.                 ) else (
  96.                         echo 你没有金子...
  97.                         echo 你想要更多吗?
  98.                         pause >nul
  99.                         goto S_BAR_MENU
  100.                 )
  101.         )
  102.        
  103.         if /i %MANGIA%==Niente (
  104.                 echo 好的
  105.                 pause >nul
  106.                 cls
  107.                 goto S_BAR_DOMANDA
  108.         )
  109.        
  110.         echo.
  111.         echo 我不明白... 试着键入"Chiedi"
  112.         pause >nul
  113.         goto MENU_BEVI

  115. :MENU_MAGIE
  116.         if %MAGIE% EQU 1 (
  117.                 echo.
  118.                 echo [火之激情] - 1
  119.                 echo [魔法栏空]
  120.                 echo [魔法栏空]
  121.                 echo [魔法栏空]
  122.                 echo [魔法栏空]
  123.                 echo [魔法栏空]
  124.                 echo [继续战斗] - Q
  125.                 echo.
  126.                
  127.                 choice /N /C:1Q /M "你想用什么魔法?: "
  128.                
  129.                 if errorlevel 2 goto %TURNO%
  130.                 if errorlevel 1 goto ER_1
  131.         )

  133.         if %MAGIE% EQU 2 (
  134.                 echo.
  135.                 echo [火之激情] - 1
  136.                 echo [冰之冷酷] - 2
  137.                 echo [魔法栏空]
  138.                 echo [魔法栏空]
  139.                 echo [魔法栏空]
  140.                 echo [魔法栏空]
  141.                 echo [继续战斗] - Q
  142.                 echo.
  143.                
  144.                 choice /N /C:12Q /M "你想用什么魔法?: "
  145.                
  146.                 if errorlevel 3 goto %TURNO%
  147.                 if errorlevel 2 goto ER_2
  148.                 if errorlevel 1 goto ER_1
  149.         )

  151.         if %MAGIE% EQU 3 (
  152.                 echo.
  153.                 echo [火之激情] - 1
  154.                 echo [冰之冷酷] - 2
  155.                 echo [全力以赴] - 3
  156.                 echo [魔法栏空]
  157.                 echo [魔法栏空]
  158.                 echo [魔法栏空]
  159.                 echo [继续战斗] - Q
  160.                 echo.
  161.                
  162.                 choice /N /C:123Q /M "你想用什么魔法?: "
  163.                
  164.                 if errorlevel 4 goto %TURNO%
  165.                 if errorlevel 3 goto ER_3
  166.                 if errorlevel 2 goto ER_2
  167.                 if errorlevel 1 goto ER_1
  168.         )

  170.         if %MAGIE% EQU 4 (
  171.                 echo.
  172.                 echo [火之激情] - 1
  173.                 echo [冰之冷酷] - 2
  174.                 echo [全力以赴] - 3
  175.                 echo [水之力量] - 4
  176.                 echo [魔法栏空]
  177.                 echo [魔法栏空]
  178.                 echo [继续战斗] - Q
  179.                 echo.
  180.                
  181.                 choice /N /C:1234Q /M "你想用什么魔法?: "
  182.                
  183.                 if errorlevel 5 goto %TURNO%
  184.                 if errorlevel 4 goto ER_4
  185.                 if errorlevel 3 goto ER_3
  186.                 if errorlevel 2 goto ER_2
  187.                 if errorlevel 1 goto ER_1
  188.         )

  190.         if %MAGIE% EQU 5 (
  191.                 echo.
  192.                 echo [火之激情] - 1
  193.                 echo [冰之冷酷] - 2
  194.                 echo [全力以赴] - 3
  195.                 echo [水之力量] - 4
  196.                 echo [电闪雷鸣] - 5
  197.                 echo [魔法栏空]
  198.                 echo [继续战斗] - Q
  199.                 echo.
  200.                
  201.                 choice /N /C:12345Q /M "你想用什么魔法?: "
  202.                
  203.                 if errorlevel 6 goto %TURNO%
  204.                 if errorlevel 5 goto ER_5
  205.                 if errorlevel 4 goto ER_4
  206.                 if errorlevel 3 goto ER_3
  207.                 if errorlevel 2 goto ER_2
  208.                 if errorlevel 1 goto ER_1
  209.         )

  211.         if %MAGIE% EQU 6 (
  212.                 echo.
  213.                 echo [火之激情] - 1
  214.                 echo [冰之冷酷] - 2
  215.                 echo [全力以赴] - 3
  216.                 echo [水之力量] - 4
  217.                 echo [电闪雷鸣] - 5
  218.                 echo [妙手回春] - 6
  219.                 echo [继续战斗] - Q
  220.                 echo.
  221.                
  222.                 choice /N /C:123456Q /M "你想用什么魔法?: "
  223.                
  224.                 if errorlevel 7 goto %TURNO%
  225.                 if errorlevel 6 goto ER_6
  226.                 if errorlevel 5 goto ER_5
  227.                 if errorlevel 4 goto ER_4
  228.                 if errorlevel 3 goto ER_3
  229.                 if errorlevel 2 goto ER_2
  230.                 if errorlevel 1 goto ER_1
  231.         )

  233. :ER_1
  234.         set /a DAMAGE_M=%VAR_MAG%+%MAG%-%DIF_M_EN%
  235.         set /a HP_EN=%HP_EN%-%DAMAGE_M%
  236.                        
  237.         echo %Name%使用了火之激情, 攻击力: %DAMAGE_M%
  238.                        
  239.         if %HP_EN% LEQ 0 (
  240.                 echo %NAME_EN% 已死亡.
  241.                 set /a END_COMBACT=1
  242.                 pause >nul
  243.                 goto CALCOLO_EXP
  244.         )
  245.                        
  246.         if %DAMAGE_M% GEQ %HP_MAX_EN% (
  247.                 echo %NAME_EN% 已死亡.
  248.                 set /a END_COMBACT=1
  249.                 pause >nul
  250.                 goto CALCOLO_EXP
  251.         ) else (
  252.                 pause >nul
  253.                 goto %TURNO_EN%
  254.         )

  256. :ER_2
  257.         set /a DAMAGE_M=%VAR_MAG%+%MAG%-%DIF_M_EN%
  258.         set /a HP_EN=%HP_EN%-%DAMAGE_M%

  260.         echo %Name%使用了冰之冷酷, 攻击力: %DAMAGE_M%
  261.                
  262.         if %HP_EN% LEQ 0 (
  263.                 echo %NAME_EN% 已死亡.
  264.                 set /a END_COMBACT=1
  265.                 pause >nul
  266.                 goto CALCOLO_EXP
  267.         )
  268.                        
  269.         if %DAMAGE_M% GEQ %HP_MAX_EN% (
  270.                 echo %NAME_EN% 已死亡.
  271.                 set /a END_COMBACT=1
  272.                 pause >nul
  273.                 goto CALCOLO_EXP
  274.         ) else (
  275.                 pause >nul
  276.                 goto %TURNO_EN%
  277.         )

  279. :ER_3
  280.         set /a HP_RESTORED=%HP%+(%VAR_MAG%+%MAG%)

  282.         if HP_RESTORED GEQ %HP_MAX% (
  283.                 set /a HP=%HP_MAX%
  284.                 echo %Name%已经全部恢复...
  285.                 pause >nul
  286.                 goto %TURNO_EN%
  287.         ) else (
  288.                 set /a HP=%HP_RESTORED%
  289.                 echo %Name%恢复: %HP_RESTORED% HP
  290.                 pause >nul
  291.                 goto %TURNO_EN%
  292.         )

  294. :ER_4
  295.         set /a DAMAGE_M=%VAR_MAG%+%MAG%-%DIF_M_EN%
  296.         set /a HP_EN=%HP_EN%-%DAMAGE_M%

  298.         echo %Name%使用了水之力量, 攻击力: %DAMAGE_M%
  299.        
  300.         if %HP_EN% LEQ 0 (
  301.                 echo %NAME_EN% 已死亡.
  302.                 set /a END_COMBACT=1
  303.                 pause >nul
  304.                 goto CALCOLO_EXP
  305.         )
  306.                        
  307.         if %DAMAGE_M% GEQ %HP_MAX_EN% (
  308.                 echo %NAME_EN% 已死亡.
  309.                 set /a END_COMBACT=1
  310.                 pause >nul
  311.                 goto CALCOLO_EXP
  312.         ) else (
  313.                 pause >nul
  314.                 goto %TURNO_EN%
  315.         )

  317. :ER_5
  318.         set /a DAMAGE_M=%VAR_MAG%+%MAG%-%DIF_M_EN%
  319.         set /a HP_EN=%HP_EN%-%DAMAGE_M%

  321.         echo %Name%使用了电闪雷鸣, 攻击力: %DAMAGE_M%
  322.        
  323.         if %HP_EN% LEQ 0 (
  324.                 echo %NAME_EN% 已死亡.
  325.                 set /a END_COMBACT=1
  326.                 pause >nul
  327.                 goto CALCOLO_EXP
  328.         )
  329.                        
  330.         if %DAMAGE_M% GEQ %HP_MAX_EN% (
  331.                 echo %NAME_EN% 已死亡.
  332.                 set /a END_COMBACT=1
  333.                 pause >nul
  334.                 goto CALCOLO_EXP
  335.         ) else (
  336.                 pause >nul
  337.                 goto %TURNO_EN%
  338.         )

  340. :ER_6
  341.         if %ST_VELENO% EQU 1 (
  342.                 echo 使用妙手回春，你不再中毒了.
  343.                 set /a ST_VELENO=0
  344.                 pause >nul
  345.                 goto %TURNO_EN%
  346.         ) else (
  347.                 echo %Name%无法使用妙手回春..
  348.                 pause >nul
  349.                 goto %TURNO_EN%
复制代码
回复

举报

HOPE2021
 楼主| 发表于 2021-11-6 11:28:41 | 显示全部楼层
新版本源码第五部分
  1.         )

  3. :CALCOLO_EXP
  4.         set /a EXP=%EXP%+%EXP_EN%
  5.         echo 你赢了: 获得 %EXP_EN% EXP
  6.         pause >nul
  7.        
  8.         if %LV% EQU 1 if %EXP% GEQ 10 (
  9.                 echo.
  10.                 echo 你的经验足够了...
  11.                 echo 升到第 2 级...
  12.                 pause >nul
  13.                 set /a ATT=%ATT%+3
  14.                 set /a DIF=%DIF%+2
  15.                 set /a MAG=%MAG%+0
  16.                 set /a DIF_M=%DIF_M%+1
  17.                 set /a HP_MAX=%HP_MAX%+15
  18.                 set /a HP=%HP_MAX%+15
  19.                 set /a MAGIE=1
  20.                 set /a LV=2
  21.                
  22.                 goto SAVE
  23.         ) else (
  24.                 goto SAVE
  25.         )
  26.         if %LV% LEQ 2 if %EXP% GEQ 30 (
  27.                 echo.
  28.                 echo 你的经验足够了...
  29.                 echo 升到第 3 级...
  30.                 pause >nul
  31.                 set /a ATT=%ATT%+1
  32.                 set /a DIF=%DIF%+1
  33.                 set /a MAG=%MAG%+2
  34.                 set /a DIF_M=%DIF_M%+1
  35.                 set /a HP_MAX=%HP_MAX%+20
  36.                 set /a HP=%HP_MAX%+20
  37.                 set /a MAGIE=2
  38.                 set /a LV=3
  39.                
  40.                 goto SAVE
  41.         ) else (
  42.                 goto SAVE
  43.         )
  44.         if %LV% LEQ 3 if %EXP% GEQ 50 (
  45.                 echo.
  46.                 echo 你的经验足够了...
  47.                 echo 升到第 4 级...
  48.                 pause >nul
  49.                 set /a ATT=%ATT%+3
  50.                 set /a DIF=%DIF%+2
  51.                 set /a MAG=%MAG%+1
  52.                 set /a DIF_M=%DIF_M%+2
  53.                 set /a HP_MAX=%HP_MAX%+30
  54.                 set /a HP=%HP_MAX%+30
  55.                 set /a MAGIE=3
  56.                 set /a LV=4
  57.                
  58.                 goto SAVE
  59.         ) else (
  60.                 goto SAVE
  61.         )
  62.         if %LV% LEQ 4 if %EXP% GEQ 80 (
  63.                 echo.
  64.                 echo 你的经验足够了...
  65.                 echo 升到第 5 级...
  66.                 pause >nul
  67.                 set /a ATT=%ATT%+1
  68.                 set /a DIF=%DIF%+3
  69.                 set /a MAG=%MAG%+3
  70.                 set /a DIF_M=%DIF_M%+1
  71.                 set /a HP_MAX=%HP_MAX%+34
  72.                 set /a HP=%HP_MAX%+34
  73.                 set /a MAGIE=4
  74.                 set /a LV=5
  75.                
  76.                 goto SAVE
  77.         ) else (
  78.                 goto SAVE
  79.         )
  80.         if %LV% LEQ 5 if %EXP% GEQ 115 (
  81.                 echo.
  82.                 echo 你的经验足够了...
  83.                 echo 升到第 6 级...
  84.                 pause >nul
  85.                 set /a ATT=%ATT%+2
  86.                 set /a DIF=%DIF%+2
  87.                 set /a MAG=%MAG%+2
  88.                 set /a DIF_M=%DIF_M%+2
  89.                 set /a HP_MAX=%HP_MAX%+38
  90.                 set /a HP=%HP_MAX%+38
  91.                 set /a MAGIE=5
  92.                 set /a LV=6
  93.                
  94.                 goto SAVE
  95.         ) else (
  96.                 goto SAVE
  97.         )
  98.         if %LV% LEQ 6 if %EXP% GEQ 150 (
  99.                 echo.
  100.                 echo 你的经验足够了...
  101.                 echo 升到第 7 级...
  102.                 pause >nul
  103.                 set /a ATT=%ATT%+3
  104.                 set /a DIF=%DIF%+4
  105.                 set /a MAG=%MAG%+3
  106.                 set /a DIF_M=%DIF_M%+4
  107.                 set /a HP_MAX=%HP_MAX%+45
  108.                 set /a HP=%HP_MAX%+45
  109.                 set /a MAGIE=6
  110.                 set /a LV=7
  111.                
  112.                 goto SAVE
  113.         ) else (
  114.                 goto SAVE
  115.         )

  117. :ATTACCA
  118.         set /a DAMAGE=(%VAR_ATT%+%ATT%+%EQUIP_ARM%)-%DIF_EN%
  119.        
  120.         if %COMBACT% EQU 1 (
  121.                 set /a HP_EN=%HP_EN%-%DAMAGE%
  122.                 echo %Name% 攻击了 %NAME_EN%, 攻击力: %DAMAGE%

  124.                 if !HP_EN! LEQ 0 (
  125.                         echo %NAME_EN% 已死亡...
  126.                         set /a END_COMBACT=1
  127.                         pause >nul
  128.                         goto CALCOLO_EXP
  129.                 )
  130.                        
  131.                 if !DAMAGE! GEQ %HP_MAX_EN% (
  132.                         echo %NAME_EN% 已死亡...
  133.                         set /a END_COMBACT=1
  134.                         pause >nul
  135.                         goto CALCOLO_EXP
  136.                 ) else (
  137.                         pause >nul
  138.                         goto %TURNO_EN%
  139.                 )
  140.         )
  141.        
  142.         if %COMBACT% EQU 2 (
  143.                 if %MID_COMBACT% EQU 0 (
  144.                         if %TAG% EQU 1 (
  145.                                 set /a HP_EN=%HP_EN%-%DAMAGE%
  146.                                 echo %Name% 攻击了 %NAME_EN%, 攻击力: %DAMAGE%
  147.        
  148.                                 if !HP_EN! LEQ 0 (
  149.                                         echo %NAME_EN% 已死亡...
  150.                                         set /a MID_COMBACT=1
  151.                                 pause >nul
  152.                                         goto COMBACT_2_ENEMY_NO2
  153.                                 )
  154.                        
  155.                                 if !DAMAGE! GEQ %HP_MAX_EN% (
  156.                                         echo %NAME_EN% 已死亡...
  157.                                         set /a MID_COMBACT=1
  158.                                         pause >nul
  159.                                         goto COMBACT_2_ENEMY_NO2
  160.                                 ) else (
  161.                                         pause >nul
  162.                                         goto COMBACT_2_ENEMY_NO1
  163.                                 )
  164.                         )
  165.                
  166.                         if %TAG% EQU 2 (
  167.                                 set /a HP_EN_2=%HP_EN_2%-%DAMAGE%
  168.                                 echo %Name% 攻击了 %NAME_EN%, 攻击力: %DAMAGE%
  169.        
  170.                                 if !HP_EN_2! LEQ 0 (
  171.                                         echo %NAME_EN_2% 已死亡...
  172.                                         set /a MID_COMBACT=2
  173.                                         pause >nul
  174.                                         goto COMBACT_2_ENEMY_NO1
  175.                                 )
  176.                        
  177.                                 if !DAMAGE! GEQ %HP_MAX_EN_2% (
  178.                                         echo %NAME_EN_2% 已死亡...
  179.                                         set /a MID_COMBACT=2
  180.                                         pause >nul
  181.                                         goto COMBACT_2_ENEMY_NO1
  182.                                 ) else (
  183.                                         pause >nul
  184.                                         goto COMBACT_2_ENEMY_NO1
  185.                                 )
  186.                         )
  187.                 )
  188.                
  189.                 if %MID_COMBACT% EQU 1 (
  190.                         set /a HP_EN_2=%HP_EN_2%-%DAMAGE%
  191.                         echo %Name% 攻击了 %NAME_EN_2%, 攻击力: %DAMAGE%

  193.                         if !HP_EN_2! LEQ 0 (
  194.                                 echo %NAME_EN_2% 已死亡...
  195.                                 set /a END_COMBACT=1
  196.                                 pause >nul
  197.                                 goto CALCOLO_EXP
  198.                         )

  200.                         if !DAMAGE! GEQ %HP_MAX_EN_2% (
  201.                                 echo %NAME_EN_2% 已死亡...
  202.                                 set /a END_COMBACT=1
  203.                                 pause >nul
  204.                                 goto CALCOLO_EXP
  205.                         ) else (
  206.                                 pause >nul
  207.                                 goto COMBACT_2_ENEMY_NO2
  208.                         )
  209.                 )

  211.                 if %MID_COMBACT% EQU 2 (
  212.                         set /a HP_EN=%HP_EN%-%DAMAGE%
  213.                         echo %Name% 攻击了 %NAME_EN%, 攻击力: %DAMAGE%

  215.                         if !HP_EN! LEQ 0 (
  216.                                 echo %NAME_EN% 已死亡...
  217.                                 set /a END_COMBACT=1
  218.                                 pause >nul
  219.                                 goto CALCOLO_EXP
  220.                         )

  222.                         if !DAMAGE! GEQ %HP_MAX_EN% (
  223.                                 echo %NAME_EN% 已死亡...
  224.                                 set /a END_COMBACT=1
  225.                                 pause >nul
  226.                                 goto CALCOLO_EXP
  227.                         ) else (
  228.                                 pause >nul
  229.                                 goto COMBACT_2_ENEMY_NO1
  230.                         )
  231.                 )
  232.         )

  234. :COMBACT_1
  235.         set /a FUGA=%RANDOM% %%100
  236.         set /a VAR_ATT=%RANDOM% %%5
  237.         set /a VAR_MAG=%RANDOM% %%5
  238.         set /a ST_DEF=0
  239.         set /a COMBACT=1
  240.        
  241.         cls

  243.         call color.bat 轮到你了#0a
  244.         echo.
  245.         echo "%NAME% -> HP: %HP%/%HP_MAX% | ATT: %ATT% | DIF: %DIF% | MAG: %MAG% | DIF_M: %DIF_M% | EXP: %EXP% | LV: %LV%"
  246.         echo "%NAME_EN% -> HP: %HP_EN%/%HP_MAX_EN% | ATT: %ATT_EN% | DIF: %DIF_EN% | MAG: %MAG_EN% | DIF_M: %DIF_M_EN%"
  247.         echo.
  248.                                
  249.         if %HP% LEQ 0 (
  250.                 echo.
  251.                 echo %Name%躺在地上... 流血不止... 缓缓地合上了双眼... 再见了... %Name%
  252.                 pause >nul
  253.                 goto END
  254.         )

  256.         if %HP_EN% LEQ 0 (
  257.                 echo %NAME_EN% 已死亡...
  258.                 set /a END_COMBACT=1
  259.                 pause >nul
  260.                 goto CALCOLO_EXP
  261.         ) else (               
  262.                 choice /N /C:ADMF /M "A[攻击] D[防御] M[魔法] F[逃跑]"

  264.                 if errorlevel 4 (
  265.                         echo 逃跑...
  266.                         if %FUGA% GEQ 50 (
  267.                                 echo %Name%设法逃走了...
  268.                                 pause >nul
  269.                                 goto %AMBIENTE%
  270.                         ) else (
  271.                                 echo %Name%无法逃走...
  272.                                 pause >nul
  273.                                 goto %TURNO_EN%
  274.                         )
  275.                 )
  276.        
  277.                 if errorlevel 3 (
  278.                         if %MAGIE% EQU 0 (
  279.                                 echo %Name%没有任何魔法... 做无用功...
  280.                                 pause >nul
  281.                                 goto %TURNO%
  282.                         )
  283.                         if %MAGIE% GEQ 1 goto MENU_MAGIE
  284.                 )
  285.        
  286.                 if errorlevel 2 (
  287.                         echo 防御^^!我挡^^!^^!^^!
  288.                         set /a ST_DEF=1
  289.                         pause >nul
  290.                         goto %TURNO_EN%
  291.                 )
  292.                
  293.                 if errorlevel 1 goto ATTACCA
  294.         )

  296. :COMBACT_1_ENEMY
  297.         set /a VELENO=%RANDOM% %%100
  298.         set /a VAR_DAMAGE=%RANDOM% %%4

  300.         if %ST_DEF% EQU 0 (
  301.                 set /a DAMAGE_EN=%VAR_DAMAGE%+%ATT_EN%-%DIF%
  302.         ) else (
  303.                 set /a DAMAGE_EN=%VAR_DAMAGE%+%ATT_EN%-(%DIF%+%EQUIP_CORPO%)
  304.         )
  305.        
  306.         if %DAMAGE_EN% LEQ 0 (
  307.                 set /a DAMAGE_EN=0
  308.         )
  309.                                
  310.         cls

  312.         call color.bat %NAME_EN%#0a 回合#0a
  313.         echo.
  314.         echo "%NAME% -> HP: %HP%/%HP_MAX% | ATT: %ATT% | DIF: %DIF% | MAG: %MAG% | |DIF_M: %DIF_M% | EXP: %EXP% | LV: %LV%"
  315.         echo "%NAME_EN% -> HP: %HP_EN%/%HP_MAX_EN% | ATT: %ATT_EN% | DIF: %DIF_EN% | MAG: %MAG_EN% | DIF_M: %DIF_M_EN%"
  316.         echo.
  317.         echo %NAME_EN%攻击了%Name%...
  318.         echo 攻击力: %DAMAGE_EN%
  319.                                
  320.         set /a HP=%HP%-%DAMAGE_EN%
  321.                                
  322.         if %HP_EN% LEQ 0 (
  323.                 echo %NAME_EN% 已死亡...
  324.                 set /a END_COMBACT=1
  325.                 pause >nul
  326.                 goto CALCOLO_EXP
  327.         )
  328.                        
  329.         if %HP% LEQ 0 (
  330.                 echo.
  331.                 echo %Name%躺在地上... 流血不止... 缓缓地合上了双眼... 再见了... %Name%
  332.                 pause >nul
  333.                 goto END
  334.         )

  336.         if %DAMAGE_EN% GEQ %HP_MAX% (
  337.                 echo.
  338.                 echo %Name%躺在地上... 流血不止... 缓缓地合上了双眼... 再见了... %Name%
  339.                 pause >nul
  340.                 goto END
  341.         ) else (
  342.                 if %ST_VELENO% EQU 0 (
  343.                         if %VELENO% GEQ 75 (
  344.                                 echo.
  345.                                 echo %Name%中毒了...
  346.                                 echo 损失: %HP_LOSE% HP
  347.                                 set /a HP=%HP%-3
  348.                                 set /a ST_VELENO=1
  349.                                 if %HP% LEQ 0 (
  350.                                         echo.
  351.                                         echo %Name%躺在地上... 流血不止... 缓缓地合上了双眼... 再见了... %Name%
复制代码
回复

举报

HOPE2021
 楼主| 发表于 2021-11-6 11:29:20 | 显示全部楼层
新版本源码第六部分
  1.                                         pause >nul
  2.                                         goto END
  3.                                 ) else (
  4.                                         pause >nul
  5.                                         goto %TURNO%
  6.                                 )
  7.                         ) else (
  8.                                 pause >nul
  9.                                 goto %TURNO%
  10.                         )
  11.                 ) else (
  12.                         echo 损失: %HP_LOSE% HP
  13.                         set /a HP=%HP%-3
  14.                         if %HP% LEQ 0 (
  15.                                 echo.
  16.                                 echo %Name%躺在地上... 流血不止... 缓缓地合上了双眼... 再见了... %Name%
  17.                                 pause >nul
  18.                                 goto END
  19.                         ) else (
  20.                                 pause >nul
  21.                                 goto %TURNO%
  22.                         )
  23.                 )
  24.         )

  26. :COMBACT_2
  27.         set /a FUGA=%RANDOM% %%100
  28.         set /a VAR_ATT=%RANDOM% %%5
  29.         set /a VAR_MAG=%RANDOM% %%5
  30.         set /a ST_DEF=0
  31.         set /a COMBACT=2
  32.        
  33.         if %MID_COMBACT% EQU 0 (
  34.                 set TURNO_EN=COMBACT_2_ENEMY_NO1
  35.         )
  36.        
  37.         if %MID_COMBACT% EQU 1 (
  38.                 set TURNO_EN=COMBACT_2_ENEMY_NO2
  39.         )
  40.        
  41.         if %MID_COMBACT% EQU 2 (
  42.                 set TURNO_EN=COMBACT_2_ENEMY_NO1
  43.         )

  45.         cls
  46.         call color.bat 轮到你了#0a
  47.         echo.
  48.        
  49.         if %MID_COMBACT% EQU 0 (
  50.                 echo "%NAME% -> HP: %HP%/%HP_MAX% | ATT: %ATT% | DIF: %DIF% | MAG: %MAG% | DIF_M: %DIF_M% | EXP: %EXP% | LV: %LV%"
  51.                 echo "%NAME_EN% -> HP: %HP_EN%/%HP_MAX_EN% | ATT: %ATT_EN% | DIF: %DIF_EN% | MAG: %MAG_EN% | DIF_M: %DIF_M_EN%"
  52.                 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%"
  53.                 echo.
  54.         )
  55.        
  56.         if %MID_COMBACT% EQU 1 (
  57.                 echo "%NAME% -> HP: %HP%/%HP_MAX% | ATT: %ATT% | DIF: %DIF% | MAG: %MAG% | DIF_M: %DIF_M% | EXP: %EXP% | LV: %LV%"
  58.                 echo "%NAME_EN% -> Morto.
  59.                 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%"
  60.                 echo.
  61.         )
  62.        
  63.         if %MID_COMBACT% EQU 2 (
  64.                 echo "%NAME% -> HP: %HP%/%HP_MAX% | ATT: %ATT% | DIF: %DIF% | MAG: %MAG% | DIF_M: %DIF_M% | EXP: %EXP% | LV: %LV%"
  65.                 echo "%NAME_EN% -> HP: %HP_EN%/%HP_MAX_EN% | ATT: %ATT_EN% | DIF: %DIF_EN% | MAG: %MAG_EN% | DIF_M: %DIF_M_EN%"
  66.                 echo "%NAME_EN_2% -> Morto.
  67.                 echo.
  68.         )
  69.        
  70.         if %HP% LEQ 0 (
  71.                 echo.
  72.                 echo %Name%躺在地上... 流血不止... 缓缓地合上了双眼... 再见了... %Name%
  73.                 pause >nul
  74.                 goto END
  75.         )
  76.                
  77.         if %HP_EN% LEQ 0 if %HP_EN_2% LEQ 0 (
  78.                 echo 僵尸死了...你看着，感到莫名的恶心...
  79.                 set /a END_COMBACT=1
  80.                 pause >nul
  81.                 goto CALCOLO_EXP
  82.         )
  83.        
  84.                 if %MID_COMBACT% EQU 0 (
  85.                         choice /N /C:12 /M "攻击谁? [1] %NAME_EN%, [2] %NAME_EN_2%"
  86.                        
  87.                         if errorlevel 2 (
  88.                                 set /a TAG=2
  89.                                 goto FINE_TARGET
  90.                         )
  91.                        
  92.                         if errorlevel 1 (
  93.                                 set /a TAG=1
  94.                                 goto FINE_TARGET
  95.                         )
  96.                 )
  97.                
  98.                 if %MID_COMBACT% EQU 1 (
  99.                         set /a TAG=2
  100.                 )
  101.                
  102.                 if %MID_COMBACT% EQU 2 (
  103.                         set /a TAG=1
  104.                 )
  105.                
  106.                 :FINE_TARGET
  107.                 echo.
  108.                 choice /N /C:ADMF /M "A[攻击] D[防御] M[魔法] F[逃跑]"

  110.                 if errorlevel 4 (
  111.                         echo Tenti la fugga
  112.                         if %FUGA% GEQ 50 (
  113.                                 echo %Name%设法逃走了...
  114.                                 pause >nul
  115.                                 goto %AMBIENTE%
  116.                         ) else (
  117.                                 echo %Name%无法逃走...
  118.                                 pause >nul
  119.                                 goto %TURNO_EN%
  120.                         )
  121.                 )
  122.        
  123.                 if errorlevel 3 (
  124.                         if %MAGIE% EQU 0 (
  125.                                 echo %Name%没有任何魔法... 做无用功...
  126.                                 pause >nul
  127.                                 goto %TURNO%
  128.                         )
  129.                         if %MAGIE% GEQ 1 goto MENU_MAGIE
  130.                 )
  131.        
  132.                 if errorlevel 2 (
  133.                         echo 防御^^!我挡^^!^^!^^!
  134.                         set /a ST_DEF=1
  135.                         pause >nul
  136.                         goto %TURNO_EN%
  137.                 )
  138.                
  139.                 if errorlevel 1 goto ATTACCA

  141. :COMBACT_2_ENEMY_NO1
  142.         set /a VELENO=%RANDOM% %%100
  143.         set /a VAR_DAMAGE=%RANDOM% %%4

  145.         if %ST_DEF% EQU 0 (
  146.                 set /a DAMAGE_EN=%VAR_DAMAGE%+%ATT_EN%-%DIF%
  147.         ) else (
  148.                 set /a DAMAGE_EN=%VAR_DAMAGE%+%ATT_EN%-(%DIF%+%EQUIP_CORPO%)
  149.         )
  150.        
  151.         if %DAMAGE_EN% LEQ 0 (
  152.                 set /a DAMAGE_EN=0
  153.         )

  155.         if %MID_COMBACT% EQU 2 (
  156.                 cls
  157.                 call color.bat %NAME_EN%#0a 回合#0a
  158.                 echo.
  159.                 echo "%NAME% -> HP: %HP%/%HP_MAX% | ATT: %ATT% | DIF: %DIF% | MAG: %MAG% | |DIF_M: %DIF_M% | EXP: %EXP% | LV: %LV%"
  160.                 echo "%NAME_EN% -> HP: %HP_EN%/%HP_MAX_EN% | ATT: %ATT_EN% | DIF: %DIF_EN% | MAG: %MAG_EN% | DIF_M: %DIF_M_EN%"
  161.                 echo "%NAME_EN_2% -> Morto.
  162.                 echo.
  163.         ) else (
  164.                 cls
  165.                 call color.bat %NAME_EN%#0a 回合#0a
  166.                 echo.
  167.                 echo "%NAME% -> HP: %HP%/%HP_MAX% | ATT: %ATT% | DIF: %DIF% | MAG: %MAG% | |DIF_M: %DIF_M% | EXP: %EXP% | LV: %LV%"
  168.                 echo "%NAME_EN% -> HP: %HP_EN%/%HP_MAX_EN% | ATT: %ATT_EN% | DIF: %DIF_EN% | MAG: %MAG_EN% | DIF_M: %DIF_M_EN%"
  169.                 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%"
  170.                 echo.
  171.         )
  172.        
  173.         echo %NAME_EN%攻击了%Name%...
  174.         echo 攻击力: %DAMAGE_EN%

  176.         set /a HP=%HP%-%DAMAGE_EN%

  178.         if %MID_COMBACT% EQU 0 (
  179.                 if %HP_EN% LEQ 0 (
  180.                         echo %NAME_EN% 已死亡...
  181.                         set /a MID_COMBACT=1
  182.                         pause >nul
  183.                         goto COMBACT_2_ENEMY_NO2
  184.                 )
  185.         )
  186.        
  187.         if %MID_COMBACT% EQU 2 (
  188.                 if %HP_EN% LEQ 0 (
  189.                         echo %NAME_EN% 已死亡...
  190.                         set /a END_COMBACT=1
  191.                         pause >nul
  192.                         goto CALCOLO_EXP
  193.                 )
  194.         )

  196.         if %HP% LEQ 0 (
  197.                 echo.
  198.                 echo %Name%躺在地上... 流血不止... 缓缓地合上了双眼... 再见了... %Name%
  199.                 pause >nul
  200.                 goto END
  201.         )

  203.         if %DAMAGE_EN% GEQ %HP_MAX% (
  204.                 echo.
  205.                 echo %Name%躺在地上... 流血不止... 缓缓地合上了双眼... 再见了... %Name%
  206.                 pause >nul
  207.                 goto END
  208.         ) else (
  209.                 if %ST_VELENO% EQU 0 (
  210.                         if %VELENO% GEQ 75 (
  211.                                 echo.
  212.                                 echo %Name%中毒了...
  213.                                 echo 损失: %HP_LOSE% HP
  214.                                 set /a HP=%HP%-3
  215.                                 set /a ST_VELENO=1
  216.                                 if %HP% LEQ 0 (
  217.                                         echo.
  218.                                         echo %Name%躺在地上... 流血不止... 缓缓地合上了双眼... 再见了... %Name%
  219.                                         pause >nul
  220.                                         goto END
  221.                                 ) else (
  222.                                         pause >nul
  223.                                         if %MID_COMBACT% EQU 0 (
  224.                                                 goto COMBACT_2_ENEMY_NO2
  225.                                         ) else (
  226.                                                 goto %TURNO%
  227.                                         )
  228.                                 )
  229.                         ) else (
  230.                                 pause >nul
  231.                                 if %MID_COMBACT% EQU 0 (
  232.                                         goto COMBACT_2_ENEMY_NO2
  233.                                 ) else (
  234.                                         goto %TURNO%
  235.                                 )
  236.                         )
  237.                 ) else (
  238.                         echo 损失: %HP_LOSE% HP
  239.                         set /a HP=%HP%-3
  240.                         if %HP% LEQ 0 (
  241.                                 echo.
  242.                                 echo %Name%躺在地上... 流血不止... 缓缓地合上了双眼... 再见了... %Name%
  243.                                 pause >nul
  244.                                 goto END
  245.                         ) else (
  246.                                 pause >nul
  247.                                 if %MID_COMBACT% EQU 0 (
  248.                                         goto COMBACT_2_ENEMY_NO2
  249.                                 ) else (
  250.                                         goto %TURNO%
  251.                                 )
  252.                         )
  253.                 )
  254.         )

  256. :COMBACT_2_ENEMY_NO2
  257.         set /a VELENO=%RANDOM% %%100
  258.         set /a VAR_DAMAGE=%RANDOM% %%4

  260.         if %ST_DEF% EQU 0 (
  261.                 set /a DAMAGE_EN=%VAR_DAMAGE%+%ATT_EN%-%DIF%
  262.         ) else (
  263.                 set /a DAMAGE_EN=%VAR_DAMAGE%+%ATT_EN%-(%DIF%+%EQUIP_CORPO%)
  264.         )
  265.        
  266.         if %DAMAGE_EN% LEQ 0 (
  267.                 set /a DAMAGE_EN=0
  268.         )

  270.         if %MID_COMBACT% EQU 1 (
  271.                 cls
  272.                 call color.bat %NAME_EN_2%#0a 回合#0a
  273.                 echo.
  274.                 echo "%NAME% -> HP: %HP%/%HP_MAX% | ATT: %ATT% | DIF: %DIF% | MAG: %MAG% | |DIF_M: %DIF_M% | EXP: %EXP% | LV: %LV%"
  275.                 echo "%NAME_EN% -> Morto.
  276.                 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%"
  277.                 echo.
  278.         ) else (
  279.                 cls
  280.                 call color.bat TURNO#0a %NAME_EN_2%#0a
  281.                 echo.
  282.                 echo "%NAME% -> HP: %HP%/%HP_MAX% | ATT: %ATT% | DIF: %DIF% | MAG: %MAG% | |DIF_M: %DIF_M% | EXP: %EXP% | LV: %LV%"
  283.                 echo "%NAME_EN% -> HP: %HP_EN%/%HP_MAX_EN% | ATT: %ATT_EN% | DIF: %DIF_EN% | MAG: %MAG_EN% | DIF_M: %DIF_M_EN%"
  284.                 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%"
  285.                 echo.
  286.         )
  287.        
  288.         echo %NAME_EN_2%攻击了%Name%...
  289.         echo 攻击力: %DAMAGE_EN%

  291.         set /a HP=%HP%-%DAMAGE_EN%

  293.         if %MID_COMBACT% EQU 0 (
  294.                 if %HP_EN_2% LEQ 0 (
  295.                         echo %NAME_EN_2%已死亡...
  296.                         set /a MID_COMBACT=2
  297.                         pause >nul
  298.                         goto COMBACT_2_ENEMY_NO1
  299.                 )
  300.         )
  301.        
  302.         if %MID_COMBACT% EQU 1 (
  303.                 if %HP_EN_2% LEQ 0 (
  304.                         echo %NAME_EN_2%已死亡...
  305.                         set /a END_COMBACT=1
  306.                         pause >nul
  307.                         goto CALCOLO_EXP
  308.                 )
  309.         )

  311.         if %HP% LEQ 0 (
  312.                 echo.
  313.                 echo %Name%躺在地上... 流血不止... 缓缓地合上了双眼... 再见了... %Name%
  314.                 pause >nul
  315.                 goto END
  316.         )

  318.         if %DAMAGE_EN% GEQ %HP_MAX% (
  319.                 echo.
  320.                 echo %Name%躺在地上... 流血不止... 缓缓地合上了双眼... 再见了... %Name%
  321.                 pause >nul
  322.                 goto END
  323.         ) else (
  324.                 if %ST_VELENO% EQU 0 (
  325.                         if %VELENO% GEQ 75 (
  326.                                 echo.
  327.                                 echo %Name%中毒了...
  328.                                 echo 损失: %HP_LOSE% HP
  329.                                 set /a HP=%HP%-3
  330.                                 set /a ST_VELENO=1
  331.                                 if %HP% LEQ 0 (
  332.                                         echo.
  333.                                         echo %Name%躺在地上... 流血不止... 缓缓地合上了双眼... 再见了... %Name%
  334.                                         pause >nul
  335.                                         goto END
  336.                                 ) else (
  337.                                         pause >nul
  338.                                         goto %TURNO%
  339.                                 )
  340.                         ) else (
  341.                                 pause >nul
  342.                                 goto %TURNO%
  343.                         )
  344.                 ) else (
  345.                         echo 损失: %HP_LOSE% HP
  346.                         set /a HP=%HP%-3
  347.                         if %HP% LEQ 0 (
  348.                                 echo.
  349.                                 echo %Name%躺在地上... 流血不止... 缓缓地合上了双眼... 再见了... %Name%
  350.                                 pause >nul
  351.                                 goto END
  352.                         ) else (
  353.                                 pause >nul
  354.                                 goto %TURNO%
  355.                         )
  356.                 )
  357.         )

  359. :END
  360. echo Game Over...
  361. pause >nul
  362. exit
复制代码
回复

举报

Batcher
发表于 2021-11-6 12:04:28 | 显示全部楼层
回复 2# HOPE2021


    建议把完整代码打包上传到网盘，太长的代码不要这样分开发，不适合他人查看。
回复

举报

netbenton
发表于 2021-11-6 12:16:34 | 显示全部楼层
还真有人想法跟我一样！我一直梦想用批处理做一个完美的RPG游戏。但楼主转的这个还不能算一个满意的答卷。哈哈，加油！
回复

举报

下一页 »
12下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-17 04:12 , Processed in 0.019388 second(s), 8 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表