[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
你想要的是不是这个
代码第一部分
源码如下
  1. @echo off
  2. :ysdmx
  3. SETLOCAL ENABLEDELAYEDEXPANSION
  4. mode con: cols=80 lines=30
  5. title 加载中...
  6. @echo off
  7. for /l %%i in (1,1,100) do (
  8. color 2d&echo -
  9. color 4f&echo -
  10. color 5d&echo -
  11. color 6c&echo -
  12. color 00&echo -
  13. color 2a&echo -
  14. color 4e&echo -
  15. color 36&echo -
  16. color 2d&echo -
  17. color 4f&echo -
  18. color 5d&echo -
  19. color 6c&echo -
  20. color 00&echo -
  21. color 2a&echo -
  22. color 4e&echo -
  23. color 36&echo -
  24. )
  25. title 游戏菜单
  26. :cd
  27. cls
  28. color 46
  29. echo.
  30. echo.
  31. echo.
  32. echo.
  33. echo.
  34. echo ╔━━━━╗
  35. echo ★菜单★
  36. echo ╚━━━━╝
  37. echo ╔ ╗╔━━━━╗
  38. echo 1 ┃开始游戏┃
  39. echo ╚ ╝╚━━━━╝
  40. echo ╔ ╗╔━━━━╗
  41. echo 2 ┃游戏说明┃
  42. echo ╚ ╝╚━━━━╝
  43. echo ╔ ╗╔━━━━╗
  44. echo 3 ┃退出游戏┃
  45. echo ╚ ╝╚━━━━╝
  46. echo.
  47. echo 请输入选项:
  48. set /p you=
  49. if %you%==1 goto ksyx
  50. if %you%==2 goto yxsm
  51. if %you%==3 goto tcyx
  52. echo 输入错误,请重新输入!
  53. pause>nul
  54. goto cd
  55. :tcyx
  56. echo
  57. exit
  58. :yxsm
  59. color 12
  60. echo
  61. cls
  62. echo ╲ ╱
  63. echo ╔━╗ ╲ ╱ ╔━━━━━━━━━━━━╗
  64. echo ┃小┃╔━━━╗┃勇士大闯关是升级打怪的游┃
  65. echo ┃机┃┃● ●┃┃戏,猪大师隆重出品 ┃
  66. echo ┃器┃┃ ☉ ┃┃ ┃
  67. echo ┃人╠╣ ┌┐ ┃╚━━━━━━━━━━━━╝
  68. echo ╚━╝╚━━━╝
  69. ping /n 5 127.1>nul
  70. cls
  71. echo ╲ ╱
  72. echo ╔━╗ ╲ ╱ ╔━━━━━━━━━━━━╗
  73. echo ┃小┃╔━━━╗┃按开始游戏开始,本版本无 ┃
  74. echo ┃机┃┃● ●┃┃挂,输入勇士名称回车确定┃
  75. echo ┃器┃┃ ☉ ┃┃,武器店是买武器 ┃
  76. echo ┃人╠╣ ┌┐ ┃╚━━━━━━━━━━━━╝
  77. echo ╚━╝╚━━━╝
  78. ping /n 5 127.1>nul
  79. cls
  80. echo ╲ ╱
  81. echo ╔━╗ ╲ ╱ ╔━━━━━━━━━━━━╗
  82. echo ┃小┃╔━━━╗┃装备店是买装备的地方,闲┃
  83. echo ┃机┃┃● ●┃┃话少说,已打败boss为目标┃
  84. echo ┃器┃┃ ☉ ┃┃升级指导人是升级的地方!┃
  85. echo ┃人╠╣ ┌┐ ┃╚━━━━━━━━━━━━╝
  86. echo ╚━╝╚━━━╝
  87. echo 按任意键返回菜单!
  88. pause>nul
  89. goto cd
  90. :ksyx
  91. echo
  92. cls
  93. title 勇士大闯关1.9
  94. color 12
  95. echo ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  96. echo ▓ 创建角色 ▓
  97. echo ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  98. echo.此游戏是1.9版本哦^_^!
  99. echo 说明一下,在城别什么都不选就按回车,否则会关闭!
  100. echo.1、增加了菜单!
  101. echo.2.增加了声音。
  102. echo.3.增加了小机器人!
  103. echo.
  104. echo 请输入勇士昵称:
  105. set /p nc=
  106. echo
  107. set lv=1
  108. set rhp=30
  109. set rhpsx=30
  110. set rmp=30
  111. set rmpsx=30
  112. set rgj=20
  113. set rfy=10
  114. set yl=0
  115. set ds=0
  116. set exp=0
  117. set sjexp=20
  118. set wqmc=无
  119. set wqgj=0
  120. set fzmc=无
  121. set qnfyj=无
  122. set fzfy=0
  123. set ydmc=无
  124. set ydqx=0
  125. set mzmc=无
  126. set mzmf=0
  127. set mfhf=3
  128. set sjexpdz=10
  129. set hh=1
  130. set jcy=0
  131. set xhy=0
  132. set jnl1=空技能栏
  133. set jnl2=空技能栏
  134. set /a bosszgr=%random%%%10
  135. :jyc
  136. cls
  137. echo ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  138. echo ▓ 菜菜城 ▓
  139. echo ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓%nc%▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  140. echo 昵称:%nc% 气血:%rhp%/%rhpsx% 法力:%rmp%/%rmpsx% 攻击:%rgj% 防御:%rfy%
  141. echo 等级:%lv% 经验:%exp%/%sjexp% 银两:%yl% 点数:%ds%
  142. echo 武器:%wqmc% 攻击+%wqgj% 服装:%fzmc% 防御+%fzfy% 商城:S 充值:P
  143. echo 腰带:%ydmc% 气血上限+%ydqx% 饰品:%mzmc% 魔法上限+%mzmf%
  144. echo ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  145. echo ╲ ╱
  146. echo ╔━╗ ╲ ╱ ╔━━━━━━━━━━━━╗
  147. echo ┃小┃╔━━━╗┃欢迎来到菜菜城!这里是城┃
  148. echo ┃机┃┃∩ ∩┃┃市,城市是没有怪的哦!只┃
  149. echo ┃器┃┃ △ ┃┃有出城才能打怪哦! ┃
  150. echo ┃人╠╣ ┌┐ ┃╚━━━━━━━━━━━━╝
  151. echo ╚━╝╚━━━╝
  152. echo.
  153. echo 1.武器店 8.保存记录
  154. echo.
  155. echo 2.服装店 9.读取记录
  156. echo.
  157. echo 3.饰品店
  158. echo.
  159. echo 4.药店
  160. echo.
  161. echo 5.酒店
  162. echo.
  163. echo 6.升级指导人
  164. echo.
  165. echo 7.出城
  166. echo.
  167. echo 请输入:
  168. set /p you=
  169. if %you%==1 goto wqd
  170. if %you%==2 goto fzd
  171. if %you%==3 goto spd
  172. if %you%==4 goto yd
  173. if %you%==5 goto jd
  174. if %you%==6 goto sjzdr
  175. if %you%==7 goto cw
  176. if %you%==8 goto svjl
  177. if %you%==9 goto rejl
  178. if %you%==s goto shop
  179. if %you%==p goto pay
  180. if %you%==44444 goto bosszg
  181. echo
  182. echo 输入错误!请重新输入!
  183. pause
  184. goto jyc
  185. :svjl
  186. echo
  187. cls
  188. echo.
  189. echo 真的要保存记录?
  190. echo.
  191. echo 1.保存记录
  192. echo.
  193. echo 2.返回
  194. set /p zhen=
  195. if %zhen%==1 goto savejl
  196. goto jyc
  197. :savejl
  198. echo
  199. cls&setlocal enabledelayedexpansion
  200. del 勇士大闯关存档
  201. md 勇士大闯关存档>nul 2>nul
  202. for %%a in (lv rhp rmp rmpsx rhpsx rgj rfy yl ds exp sjexp wqmc wqgj fzmc fzfy ydmc ydqx mzmc mzmf mfhf sjexpdz hh jcy xhy jnl1 jnl2 qnfyj bosszgr) do (
  203. echo v!%%a!v>>勇士大闯关存档\%%a.txt
  204. )
  205. cls
  206. echo.
  207. echo 保存记录成功!
  208. pause
  209. goto jyc
  210. :rejl
  211. echo
  212. cls
  213. echo.
  214. echo 真的要读取记录?
  215. echo.
  216. echo 1.读取记录
  217. echo.
  218. echo 2.返回
  219. set /p zhen=
  220. if %zhen%==1 goto readjl
  221. :readjl
  222. if not exist "勇士大闯关存档" goto nojl
  223. cls&setlocal enabledelayedexpansion
  224. for %%b in (lv rhp rmp rmpsx rhpsx rgj rfy yl ds exp sjexp wqmc wqgj fzmc fzfy ydmc ydqx mzmc mzmf mfhf sjexpdz hh jcy xhy jnl1 jnl2 qnfyj bosszgr) do (
  225. set /p %%b2=<勇士大闯关存档\%%b.txt
  226. set /a %%b=!%%b2:~1,-1!
  227. )
  228. cls
  229. echo.
  230. echo 读取记录成功!
  231. pause
  232. goto jyc
  233. :nojl
  234. echo
  235. cls
  236. echo.
  237. echo 没有保存记录!
  238. pause
  239. goto jyc
  240. :wqd
  241. echo
  242. cls
  243. echo ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  244. echo ▓ 武器店 ▓
  245. echo ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  246. echo 昵称:%nc% 气血:%rhp%/%rhpsx% 法力:%rmp%/%rmpsx% 攻击:%rgj% 防御:%rfy%
  247. echo 等级:%lv% 经验:%exp%/%sjexp% 银两:%yl% 点数:%ds%
  248. echo 武器:%wqmc% 攻击+%wqgj% 服装:%fzmc% 防御+%fzfy%
  249. echo 腰带:%ydmc% 气血上限+%ydqx% 饰品:%mzmc% 魔法上限+%mzmf%
  250. echo ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  251. echo ╲ ╱
  252. echo ╔━╗ ╲ ╱ ╔━━━━━━━━━━━━╗
  253. echo ┃小┃╔━━━╗┃这里是武器店,武器店可以┃
  254. echo ┃机┃┃∩ ∩┃┃购买武器来提升攻击力,打┃
  255. echo ┃器┃┃ △ ┃┃怪可获得金钱! ┃
  256. echo ┃人╠╣ ┌┐ ┃╚━━━━━━━━━━━━╝
  257. echo ╚━╝╚━━━╝
  258. echo 名称 属性 价格
  259. echo 1.红缨枪 攻击+10 100
  260. echo 2.曲尖枪 攻击+30 100
  261. echo 3.锯齿矛 攻击+60 200
  262. echo 4.乌金三叉戟 攻击+100 255
  263. echo 5.火焰枪 攻击+150 255
  264. echo 6.墨杆金钩 攻击+200 255
  265. echo 7.玄铁矛 攻击+250 255
  266. echo 8.金蛇信 攻击+310 1000
  267. echo 9.丈八点钢矛 攻击+380 1000
  268. echo 10.暗夜 攻击+450 10000
  269. echo 11.梨花 攻击+450 10000
  270. echo 12.霹雳 攻击+450 10000
  271. echo 0.返回
  272. echo.
  273. echo 请输入:
  274. set /p you=
  275. if %you%==1 goto hyq
  276. if %you%==2 goto qjq
  277. if %you%==3 goto jcm
  278. if %you%==4 goto wjsyc
  279. if %you%==5 goto huoyanqiang
  280. if %you%==6 goto mgjg
  281. if %you%==7 goto xtm
  282. if %you%==8 goto jsx
  283. if %you%==9 goto zbdgm
  284. if %you%==10 goto ay
  285. if %you%==11 goto lh
  286. if %you%==12 goto pl
  287. if %you%==0 goto jyc
  288. echo.
  289. echo 输入错误!请重新输入!
  290. pause
  291. goto wqd
  292. :hyq
  293. set zwqmc=红缨枪
  294. set /a zwqgj=10
  295. set /a wqjg=100
  296. goto wqgm
  297. :qjq
  298. set zwqmc=曲尖枪
  299. set /a zwqgj=30
  300. set /a wqjg=100
  301. goto wqgm
  302. :jcm
  303. set zwqmc=锯齿矛
  304. set /a zwqgj=60
  305. set /a wqjg=200
  306. goto wqgm
  307. :wjsyc
  308. set zwqmc=乌金三夜叉
  309. set /a zwqgj=100
  310. set /a wqjg=255
  311. goto wqgm
  312. :huoyanqiang
  313. set zwqmc=火焰枪
  314. set /a zwqgj=150
  315. set /a wqjg=255
  316. goto wqgm
  317. :mgjg
  318. set zwqmc=墨杆金钩
  319. set /a zwqgj=200
  320. set /a wqjg=255
  321. goto wqgm
  322. :xtm
  323. set zwqmc=玄蛇矛
  324. set /a zwqgj=250
  325. set /a wqjg=255
  326. goto wqgm
  327. :jsx
  328. set zwqmc=金蛇信
  329. set /a zwqgj=310
  330. set /a wqjg=1000
  331. goto wqgm
  332. :zbdgm
  333. set zwqmc=丈八点钢矛
  334. set /a zwqgj=380
  335. set /a wqjg=1000
  336. goto wqgm
  337. :ay
  338. set zwqmc=暗夜
  339. set /a zwqgj=450
  340. set /a wqjg=10000
  341. goto wqgm
  342. :lh
  343. set zwqmc=梨花
  344. set /a zwqgj=450
  345. set /a wqjg=10000
  346. goto wqgm
  347. :pl
  348. set zwqmc=霹雳
  349. set /a zwqgj=450
  350. set /a wqjg=10000
  351. goto wqgm
  352. :wqgm
  353. if %wqjg% leq %yl% goto gmwqcg
  354. echo.
  355. echo
  356. echo 银两不足,购买失败!
  357. pause
  358. goto wqd
  359. :gmwqcg
  360. set /a yl=%yl%-%wqjg%
  361. set wqmc=%zwqmc%
  362. set wqgj=%zwqgj%
  363. set /a rgj=%rgj%+%wqgj%
  364. echo
  365. echo.
  366. echo 购买成功!
  367. pause
复制代码
1

评分人数

TOP

暂时只有第一部分,正在寻找其他部分代码中(找到了发附件)
1

评分人数

TOP

返回列表