@echo off
title 2B魔塔 by 大虾仁
mode con cols=60 lines=38
:setup
cls
setlocal enabledelayedexpansion
echo Loading...
set do=0
set cache=0
set cache1=0
set w=100
set x=15
set y=10
set prex=15
set prey=20
set hp=1000
set atk=100
set def=100
set money=0
set yelkey=0
set blukey=0
set redkey=0
set monname=0
set monhp=0
set monatk=0
set mondef=0
set atkhp=0
set jian=神圣剑
set dun=神圣盾
set maxstage=101
set shop=0
set pay=0
set paylast=20
set payhp=0
set payatk=0
set paydef=0
set help=0
set notepad=0
set note=1
set updown=0
set cross=0
set ice=0
set gao=0
set holy=0
set bomb=0
set fly=0
set flydown=0
set flyup=0
set quake=0
set lucky=0
set magickey=0
set bi=0
set s110thief=0
set stat=by 大虾仁
for /f "delims=, tokens=1-11" %%c in (2bmtmap.txt) do (
set s!w!10!y!id=%%c
set s!w!11!y!id=%%d
set s!w!12!y!id=%%e
set s!w!13!y!id=%%f
set s!w!14!y!id=%%g
set s!w!15!y!id=%%h
set s!w!16!y!id=%%i
set s!w!17!y!id=%%j
set s!w!18!y!id=%%k
set s!w!19!y!id=%%l
set s!w!20!y!id=%%m
if !y! == 20 (
set y=9
set /a w=!w!+1
)
set /a y=!y!+1
)
set w=101
set y=20
goto :%w%

:disp
for /l %%a in (10,1,20) do (
for /l %%b in (10,1,20) do (
set s%%a%%b=◎
if !s%w%%%a%%bid! == 0 (
set s%%a%%b=
) else (
if !s%w%%%a%%bid! == 1 (
set s%%a%%b=■
) else (
if !s%w%%%a%%bid! == yeldoor (
set s%%a%%b=〓
) else (
if !s%w%%%a%%bid! == yelkey (
set s%%a%%b=黄
) else (
if !s%w%%%a%%bid! == blank set s%%a%%b=
if !s%w%%%a%%bid! == fakeempty set s%%a%%b=
if !s%w%%%a%%bid! == fakewall set s%%a%%b=■
if !s%w%%%a%%bid! == bludoor set s%%a%%b=〓
if !s%w%%%a%%bid! == reddoor set s%%a%%b=〓
if !s%w%%%a%%bid! == xdoor set s%%a%%b=╳
if !s%w%%%a%%bid! == blukey set s%%a%%b=蓝
if !s%w%%%a%%bid! == redkey set s%%a%%b=红
if !s%w%%%a%%bid! == up set s%%a%%b=△
if !s%w%%%a%%bid! == down set s%%a%%b=▽
if !s%w%%%a%%bid! == redbot set s%%a%%b=●
if !s%w%%%a%%bid! == blubot set s%%a%%b=●
if !s%w%%%a%%bid! == reddiam set s%%a%%b=◆
if !s%w%%%a%%bid! == bludiam set s%%a%%b=◆
if !s%w%%%a%%bid! == shop set s%%a%%b=$
if !s%w%%%a%%bid! == thief set s%%a%%b=@@
if !s%w%%%a%%bid! == old set s%%a%%b=♀
if !s%w%%%a%%bid! == merchant set s%%a%%b=‰
if !s%w%%%a%%bid! == merchantok set s%%a%%b=‰
if !s%w%%%a%%bid! == updown set s%%a%%b=★
if !s%w%%%a%%bid! == notepad set s%%a%%b=★
if !s%w%%%a%%bid! == cross set s%%a%%b=★
if !s%w%%%a%%bid! == ice set s%%a%%b=★
if !s%w%%%a%%bid! == gao set s%%a%%b=★
if !s%w%%%a%%bid! == bomb set s%%a%%b=★
if !s%w%%%a%%bid! == lucky set s%%a%%b=★
if !s%w%%%a%%bid! == magickey set s%%a%%b=★
if !s%w%%%a%%bid! == bi set s%%a%%b=★
if !s%w%%%a%%bid! == fly set s%%a%%b=★
if !s%w%%%a%%bid! == flyup set s%%a%%b=★
if !s%w%%%a%%bid! == flydown set s%%a%%b=★
if !s%w%%%a%%bid! == quake set s%%a%%b=★
if !s%w%%%a%%bid! == tiejian set s%%a%%b=★
if !s%w%%%a%%bid! == tiedun set s%%a%%b=★
if !s%w%%%a%%bid! == yinjian set s%%a%%b=★
if !s%w%%%a%%bid! == yindun set s%%a%%b=★
if !s%w%%%a%%bid! == qsjian set s%%a%%b=★
if !s%w%%%a%%bid! == qsdun set s%%a%%b=★
if !s%w%%%a%%bid! == shenjian set s%%a%%b=★
if !s%w%%%a%%bid! == shendun set s%%a%%b=★
if !s%w%%%a%%bid! == ssjian set s%%a%%b=★
if !s%w%%%a%%bid! == ssdun set s%%a%%b=★
if !s%w%%%a%%bid! == yj set s%%a%%b=∷
if !s%w%%%a%%bid! == princess set s%%a%%b=⊙
)
)
)
)
)
)
set s%x%%y%=▲
cls
if %hp% lss 0 (
echo Game Over!!!
pause>nul
goto :setup
)
echo ╔═══════════╗
echo ║ 2B魔塔 by 大虾仁 ║
echo ╚═══════════╝
echo 你的位置在 %w:~-2% 层
echo 生命值：%hp% 攻击力：%atk% 防御力：%def% 金钱：%money%
echo 黄钥匙：%yelkey% 蓝钥匙：%blukey% 红钥匙：%redkey%
echo 武器：%jian% 防具：%dun%
echo ╔═══════════╗
for /l %%a in (10,1,20) do echo ║!s10%%a!!s11%%a!!s12%%a!!s13%%a!!s14%%a!!s15%%a!!s16%%a!!s17%%a!!s18%%a!!s19%%a!!s20%%a!║
echo ╚═══════════╝
echo %stat%
set stat=S.保存游戏 L.载入存档 R.重新开始 U.使用道具
goto :main

:main
CKey -1 37 39 40 38 27 70 85 83 76 33 34 82
if %errorlevel% == 1 (
if not %x% == 10 (
set prex=!x!
set prey=!y!
set /a x=%x%-1
)
goto :general
)
if %errorlevel% == 2 (
if not %x% == 20 (
set prex=!x!
set prey=!y!
set /a x=%x%+1
)
goto :general
)
if %errorlevel% == 3 (
if not %y% == 20 (
set prex=!x!
set prey=!y!
set /a y=%y%+1
)
goto :general
)
if %errorlevel% == 4 (
if not %y% == 10 (
set prex=!x!
set prey=!y!
set /a y=%y%-1
)
goto :general
)
if %errorlevel% == 5 (
echo 按任意键退出...
pause>nul
exit
)
if %errorlevel% == 6 (
ckey -1 13 16 17 18 19 20 27 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 144 145
if !errorlevel! == 61 (
ckey -1 13 16 17 18 19 20 27 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 144 145
if !errorlevel! == 43 (
ckey -1 13 16 17 18 19 20 27 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 144 145
if !errorlevel! == 51 (
ckey -1 13 16 17 18 19 20 27 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 144 145
if !errorlevel! == 65 (
ckey -1 13 16 17 18 19 20 27 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 144 145
if !errorlevel! == 55 (
ckey -1 13 16 17 18 19 20 27 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 144 145
if !errorlevel! == 61 (
set hp=9999
set atk=999
set def=999
set yelkey=20
set blukey=20
set redkey=5
pause
)
)
)
)
)
)
)
if %errorlevel% == 7 goto :useitem
if %errorlevel% == 8 (
set>2BMTSave.txt
copy 2bmtnotepad.txt 2bmtsavenotepad.txt /y >nul
set stat=游戏数据 保存成功
)
if %errorlevel% == 9 (
for /f %%a in (2BMTSave.txt) do set %%a
copy 2bmtsavenotepad.txt 2bmtnotepad.txt /y >nul
set stat=游戏数据 已成功读取
)
if %errorlevel% == 10 goto :useup
if %errorlevel% == 11 goto :usedown
if %errorlevel% == 12 goto :setup
goto :disp

:useitem
cls
if %help% == 1 echo H：怪物手册
if %notepad% == 1 echo N：备忘录
if %updown% == 1 echo PgUp、PgDn：魔杖
if %ice% == 1 echo I：冰冻魔法
if %cross% == 1 echo 十字架
if %lucky% == 1 echo 幸运金币
if %bi% == 1 echo 屠龙匕
if %holy% == 1 echo W：圣水
if %magickey% == 1 echo K：魔法钥匙
if %gao% == 1 echo P：镐
if %quake% == 1 echo Q：地震卷轴
if %bomb% == 1 echo B：炸弹
if %fly% gtr 0 echo J：瞬移 x!fly!
if %flyup% == 1 echo U：向上传送
if %flydown% == 1 echo D：向下传送
echo Esc：返回
ckey -1 27 72 78 33 34 87 80 73 66 74 75 85 68 81
if %errorlevel% == 1 goto :disp
if %errorlevel% == 2 if !help! == 1 (
cls
for /l %%a in (10,1,20) do (
for /l %%b in (10,1,20) do (
for /f "delims=, tokens=1-6" %%c in (2bmtmon.txt) do if %%c == !s%w%%%a%%bid! echo %%d：生命值%%e，攻击力%%f，防御力%%g，金钱%%h
)
)
echo.
pause
)
if %errorlevel% == 3 if !notepad! == 1 (
if not exist 2bmtnotepad.txt (
cls
echo 你取得留言簿后还未与人交谈过！！！
echo.
pause
) else (
cls
for /f "delims=#, tokens=1,2" %%a in (2bmtnotepad.txt) do (
echo 第 %%a 条： %%b
)
echo.
pause
)
)
if %errorlevel% == 4 if !updown! == 1 goto :useup
if %errorlevel% == 5 if !updown! == 1 goto :usedown
if %errorlevel% == 6 if !holy! == 1 (
set /a cache=0.74*!atk!+0.74*!def!
set /a hp=!hp!+!cache!
set stat=你的生命增加 !cache! 点
set holy=0
)
if %errorlevel% == 7 if !gao! == 1 goto :usegao
if %errorlevel% == 8 if !ice! == 1 goto :useice
if %errorlevel% == 9 if !bomb! == 1 goto :usebomb
if %errorlevel% == 10 if !fly! gtr 0 goto :fly
if %errorlevel% == 11 if !magickey! == 1 goto :usemkey
if %errorlevel% == 12 if !flyup! == 1 goto :flyup
if %errorlevel% == 13 if !flydown! == 1 goto :flydown
if %errorlevel% == 14 if !flydown! == 1 goto :quake
goto :%w%

:useup
set /a cache=!x!-1
if defined s%w%!cache!%y%id if !s%w%%cache%%y%id! == up set do=1
if defined s%w%!cache!%y%id if !s%w%%cache%%y%id! == down set do=1
set /a cache=!x!+1
if defined s%w%!cache!%y%id if !s%w%%cache%%y%id! == up set do=1
if defined s%w%!cache!%y%id if !s%w%%cache%%y%id! == down set do=1
set /a cache=!y!-1
if defined s%w%%x%!cache!id if !s%w%%x%%cache%id! == up set do=1
if defined s%w%%x%!cache!id if !s%w%%x%%cache%id! == down set do=1
set /a cache=!y!+1
if defined s%w%%x%!cache!id if !s%w%%x%%cache%id! == up set do=1
if defined s%w%%x%!cache!id if !s%w%%x%%cache%id! == down set do=1
if %do% == 0 set stat=请在楼梯边上使用
if %do% == 1 (
if !maxstage! == !w! (
set stat=这是你能到达的最高楼层
) else (
for /l %%a in (10,1,20) do (
for /l %%b in (10,1,20) do (
if !s%w%%%a%%bid! == up (
set x=%%a
set y=%%b
)
)
)
)
)
set do=0
goto :%w%

:usedown
set /a cache=!x!-1
if defined s%w%!cache!%y%id if !s%w%%cache%%y%id! == up set do=1
if defined s%w%!cache!%y%id if !s%w%%cache%%y%id! == down set do=1
set /a cache=!x!+1
if defined s%w%!cache!%y%id if !s%w%%cache%%y%id! == up set do=1
if defined s%w%!cache!%y%id if !s%w%%cache%%y%id! == down set do=1
set /a cache=!y!-1
if defined s%w%%x%!cache!id if !s%w%%x%%cache%id! == up set do=1
if defined s%w%%x%!cache!id if !s%w%%x%%cache%id! == down set do=1
set /a cache=!y!+1
if defined s%w%%x%!cache!id if !s%w%%x%%cache%id! == up set do=1
if defined s%w%%x%!cache!id if !s%w%%x%%cache%id! == down set do=1
if %do% == 0 set stat=请在楼梯边上使用
if %do% == 1 (
if !w! == 101 (
set stat=这是你能到达的最低楼层
) else (
for /l %%a in (10,1,20) do (
for /l %%b in (10,1,20) do (
if !s%w%%%a%%bid! == down (
set x=%%a
set y=%%b
)
)
)
)
)
set do=0
goto :%w%

:usegao
set /a cache=!x!-1
if defined s%w%!cache!%y%id if !s%w%%cache%%y%id! == 1 set s%w%!cache!%y%id=0
set /a cache=!x!+1
if defined s%w%!cache!%y%id if !s%w%%cache%%y%id! == 1 set s%w%!cache!%y%id=0
set /a cache=!y!-1
if defined s%w%%x%!cache!id if !s%w%%x%%cache%id! == 1 set s%w%%x%!cache!id=0
set /a cache=!y!+1
if defined s%w%%x%!cache!id if !s%w%%x%%cache%id! == 1 set s%w%%x%!cache!id=0
set gao=0
goto :%w%

:useice
set /a cache=!x!-1
if defined s%w%!cache!%y%id if !s%w%%cache%%y%id! == yj set s%w%!cache!%y%id=0
set /a cache=!x!+1
if defined s%w%!cache!%y%id if !s%w%%cache%%y%id! == yj set s%w%!cache!%y%id=0
set /a cache=!y!-1
if defined s%w%%x%!cache!id if !s%w%%x%%cache%id! == yj set s%w%%x%!cache!id=0
set /a cache=!y!+1
if defined s%w%%x%!cache!id if !s%w%%x%%cache%id! == yj set s%w%%x%!cache!id=0
goto :%w%

:usebomb
set cache1=0
set /a cachex1=!x!-1
set /a cachex2=!x!+1
set /a cachey1=!y!-1
set /a cachey2=!y!+1
for /f "delims=, tokens=1-6" %%a in (2bmtmon.txt) do (
set do=1
if %%a == kldz set do=0
if %%a == qsdz set do=0
if %%a == kldz set do=0
if %%a == bigoct set do=0
if %%a == ml set do=0
if %%a == dfs set do=0
if %%a == fking set do=0
if %%a == king set do=0
if defined s%w%!cachex1!%y%id if !s%w%%cachex1%%y%id! == %%a if !do! == 1 (
set s%w%!cachex1!%y%id=0
set /a cache1=!cache1!+%%f
)
if defined s%w%!cachex1!%y%id if !s%w%%cachex2%%y%id! == %%a if !do! == 1 (
set s%w%!cachex2!%y%id=0
set /a cache1=!cache2!+%%f
)
if defined s%w%%x%!cachey1!id if !s%w%%x%%cachey1%id! == %%a if !do! == 1 (
set s%w%%x%!cachey1!id=0
set /a cache1=!cache1!+%%f
)
if defined s%w%%x%!cachey2!id if !s%w%%x%%cachey2%id! == %%a if !do! == 1 (
set s%w%%x%!cachey2!id=0
set /a cache1=!cache1!+%%f
)
)
set /a money=!money!+!cache1!
set stat=你一共获得 !cache1! 金币
set bomb=0
goto :%w%

:fly
set /a cachex1=30-!x!
set /a cachey1=30-!y!
if !s%w%%cachex1%%cachey1%id! == 0 (
set x=!cachex1!
set y=!cachey1!
set /a fly=!fly!-1
) else (
set stat=对应单元格不是平地不能进入！
)
goto :%w%

:flyup
if not !w! == 49 (
set /a cache=!w!+1
if !s%cache%%x%%y%id! == 0 (
set w=!cache!
set flyup=0
) else (
set stat=上一层此位置有东西
)
)
goto :%w%

:flydown
set /a cache=!w!-1
if !s%cache%%x%%y%id! == 0 (
set w=!cache!
set flydown=0
) else (
set stat=下一层此位置有东西
)
goto :%w%

:usemkey
for /l %%a in (10,1,20) do (
for /l %%b in (10,1,20) do (
if !s%w%%%a%%bid! == yeldoor (
set s%w%%%a%%bid=0
)
)
)
set magickey=0
goto :%w%

:quake
for /l %%a in (10,1,20) do (
for /l %%b in (10,1,20) do (
if !s%w%%%a%%bid! == 1 (
set s%w%%%a%%bid=0
)
)
)
set quake=0
goto :%w%

:shop
set /a pay=%paylast%+%shop%*20
set /a payhp=100*%shop%+100
if %money% lss %pay% (
cls
echo 提升能力需要 !pay! 金币。你的现金不够。
echo.
pause
set x=!prex!
set y=!prey!
goto :eof
)
cls
echo 你若给我 %pay% 金币，我就替你提升以下一种能力
echo 1. 生命力 + %payhp%
echo 2. 攻击力 + %payatk%
echo 3. 防御力 + %paydef%
echo Q. 谢谢，下次再说
ckey -1 49 50 51 81
if %errorlevel% == 1 (
set /a hp=!hp!+!payhp!
set /a shop=!shop!+1
set /a money=!money!-!pay!
set paylast=!pay!
)
if %errorlevel% == 2 (
set /a atk=!atk!+!payatk!
set /a shop=!shop!+1
set /a money=!money!-!pay!
set paylast=!pay!
)
if %errorlevel% == 3 (
set /a def=!def!+!paydef!
set /a shop=!shop!+1
set /a money=!money!-!pay!
set paylast=!pay!
)
set x=!prex!
set y=!prey!
goto :eof

:general
if %w% gtr %maxstage% set maxstage=!w!
if !s%w%%x%%y%id! == 1 (
set x=!prex!
set y=!prey!
)
if !s%w%%x%%y%id! == xdoor (
set x=!prex!
set y=!prey!
)
if !s%w%%x%%y%id! == fakewall (
set s%w%%x%%y%id=0
set x=!prex!
set y=!prey!
)
if !s%w%%x%%y%id! == fakeempty (
set s%w%%x%%y%id=1
set x=!prex!
set y=!prey!
)
if !s%w%%x%%y%id! == yelkey (
set /a yelkey=!yelkey!+1
set s%w%%x%%y%id=0
set stat=得到了 黄钥匙
)
if !s%w%%x%%y%id! == blukey (
set /a blukey=!blukey!+1
set s%w%%x%%y%id=0
set stat=得到了 蓝钥匙
)
if !s%w%%x%%y%id! == redkey (
set /a redkey=!redkey!+1
set s%w%%x%%y%id=0
set stat=得到了 红钥匙
)
if !s%w%%x%%y%id! == yeldoor (
if %yelkey% gtr 0 (
echo 使用黄钥匙开门？（Y/N）
ckey -1 89 78
if !errorlevel! == 1 (
set /a yelkey=!yelkey!-1
set s%w%%x%%y%id=0
)
) else (
set stat=你没有黄钥匙！！！
)
set x=!prex!
set y=!prey!
)
if !s%w%%x%%y%id! == bludoor (
if %blukey% gtr 0 (
echo 使用蓝钥匙开门？（Y/N）
ckey -1 89 78
if !errorlevel! == 1 (
set /a blukey=!blukey!-1
set s%w%%x%%y%id=0
)
) else (
set stat=你没有蓝钥匙！！！
)
set x=!prex!
set y=!prey!
)
if !s%w%%x%%y%id! == reddoor (
if %redkey% gtr 0 (
echo 使用红钥匙开门？（Y/N）
ckey -1 89 78
if !errorlevel! == 1 (
set /a redkey=!redkey!-1
set s%w%%x%%y%id=0
)
) else (
set stat=你没有红钥匙！！！
)
set x=!prex!
set y=!prey!
)
if !s%w%%x%%y%id! == reddiam (
set /a atk=!atk!+1
set s%w%%x%%y%id=0
set stat=你的攻击力增加 1 点
)
if !s%w%%x%%y%id! == bludiam (
set /a def=!def!+1
set s%w%%x%%y%id=0
set stat=你的防御力增加 1 点
)
if !s%w%%x%%y%id! == redbot (
set /a hp=!hp!+50
set s%w%%x%%y%id=0
set stat=你的生命增加了 50 点
)
if !s%w%%x%%y%id! == blubot (
set /a hp=!hp!+200
set s%w%%x%%y%id=0
set stat=你的生命增加了 200 点
)
for /f "delims=," %%a in (2bmtmon.txt) do if %%a == !s%w%%x%%y%id! call :battle
set /a cachex1=!x!-1
set /a cachex2=!x!+1
set /a cachey1=!y!-1
set /a cachey2=!y!+1
if not !dun! == 神圣盾 (
if defined s%w%!cachex1!%y%id if !s%w%%cachex1%%y%id! == cjws set /a hp=!hp!-100
if defined s%w%!cachex1!%y%id if !s%w%%cachex1%%y%id! == gjws set /a hp=!hp!-200
if defined s%w%!cachex1!%y%id if !s%w%%cachex2%%y%id! == cjws set /a hp=!hp!-100
if defined s%w%!cachex1!%y%id if !s%w%%cachex2%%y%id! == gjws set /a hp=!hp!-200
if defined s%w%%x%!cachey1!id if !s%w%%x%%cachey1%id! == cjws set /a hp=!hp!-100
if defined s%w%%x%!cachey1!id if !s%w%%x%%cachey1%id! == gjws set /a hp=!hp!-200
if defined s%w%%x%!cachey2!id if !s%w%%x%%cachey2%id! == cjws set /a hp=!hp!-100
if defined s%w%%x%!cachey2!id if !s%w%%x%%cachey2%id! == gjws set /a hp=!hp!-200
if defined s%w%!cachex1!%y%id if !s%w%%cachex1%%y%id! == mfjw if defined s%w%!cachex2!%y%id if !s%w%%cachex2%%y%id! == mfjw set /a hp=!hp!/2
if defined s%w%%x%!cachey1!id if !s%w%%x%%cachey1%id! == mfjw if defined s%w%%x%!cachey2!id if !s%w%%x%%cachey2%id! == mfjw set /a hp=!hp!/2
)
goto :%w%

:battle
for /f "delims=, tokens=1-6" %%a in (2bmtmon.txt) do (
if %%a == !s%w%%x%%y%id! (
set monname=%%b
set monhp=%%c
set monatk=%%d
set mondef=%%e
set monmoney=%%f
)
)
echo !monname!：生命值!monhp!，攻击力!monatk!，防御力!mondef!，金钱!monmoney!
if !s%w%%x%%y%id! == ml if !bi! == 1 set /a atk=!atk!*2
if !s%w%%x%%y%id! == sr if !cross! == 1 set /a atk=!atk!*2
if !s%w%%x%%y%id! == srws if !cross! == 1 set /a atk=!atk!*2
if !s%w%%x%%y%id! == vampire if !cross! == 1 set /a atk=!atk!*2
if !mondef! gtr %atk% (
set x=!prex!
set y=!prey!
echo 不可攻击
pause>nul
goto :eof
)
echo 攻击？（Y/N）
ckey -1 89 78
if %errorlevel% == 1 goto :atk
if %errorlevel% == 2 (
if !s%w%%x%%y%id! == ml if !bi! == 1 set /a atk=!atk!/2
if !s%w%%x%%y%id! == sr if !cross! == 1 set /a atk=!atk!/2
if !s%w%%x%%y%id! == srws if !cross! == 1 set /a atk=!atk!/2
if !s%w%%x%%y%id! == vampire if !cross! == 1 set /a atk=!atk!/2
set x=!prex!
set y=!prey!
goto :eof
)

:atk
if %monhp% lss 0 (
if !lucky! == 1 set /a monmoney=!monmoney!*2
set /a money=!money!+!monmoney!
set stat=!monname! 被打败了，你获得了 !monmoney! 金币
if !s%w%%x%%y%id! == ml if !bi! == 1 set /a atk=!atk!/2
if !s%w%%x%%y%id! == sr if !cross! == 1 set /a atk=!atk!/2
if !s%w%%x%%y%id! == srws if !cross! == 1 set /a atk=!atk!/2
if !s%w%%x%%y%id! == vampire if !cross! == 1 set /a atk=!atk!/2
set s%w%%x%%y%id=0
goto :eof
)
if %hp% lss 0 goto :eof
if !monatk! lss !def! (set atkhp=0) else (set /a atkhp=!monatk!-!def!)
set /a hp=!hp!-!atkhp!
set /a atkhp=!atk!-!mondef!
set /a monhp=!monhp!-!atkhp!
goto :atk

:100
if !s%w%%x%%y%id! == up (
set /a w=!w!+1
set x=11
set y=10
)
if !s%w%%x%%y%id! == lucky (
set s%w%%x%%y%id=0
set lucky=1
set stat=你得到 幸运金币 战后获得双倍金钱
)

:101
if !s%w%%x%%y%id! == up (
set /a w=!w!+1
set x=10
set y=11
)
if !s%w%%x%%y%id! == updown (
set s%w%%x%%y%id=0
set updown=1
set stat=你得到 魔杖，PgUp、PgDn，可以飞往到过的楼层。
)
goto :disp

:102
if !s%w%%x%%y%id! == up (
set /a w=!w!+1
set x=11
set y=20
)
if !s%w%%x%%y%id! == down (
set /a w=!w!-1
set x=11
set y=10
)
if !s1021511id! == 0 if !s1021711id! == 0 (
set s1021414id=0
set s1021417id=0
set s1021420id=0
set s1021814id=0
set s1021817id=0
set s1021820id=0
)
if !s%w%%x%%y%id! == old (
for /f "delims=# tokens=1,2" %%a in (2bmtdialog.txt) do (
if %%a == 82 (
cls
echo %%b
echo.
pause
set /a money=!money!+1000
set s%w%%x%%y%id=0
set x=!prex!
set y=!prey!
)
)
)
if !s%w%%x%%y%id! == merchant (
for /f "delims=# tokens=1,2" %%a in (2bmtdialog.txt) do (
if %%a == 84 (
cls
echo %%b
echo.
echo Y. 我太需要了 N.下次再说
ckey -1 89 78
if !errorlevel! == 1 (
set /a atk=!atk!*103/100
set /a def=!def!*103/100
set s%w%%x%%y%id=0
set stat=你受到了祝福，攻击和防御都提升了百分之3
)
set x=!prex!
set y=!prey!
)
)
)
if s%w%%x%%y% == s1021216 (
if !s1021216id! == thief (
for /f "delims=# tokens=1,2" %%a in (2bmtdialog.txt) do (
if %%a == 6 (
cls
echo %%b
echo.
pause
)
)
set s1021216id=0
set s1021116id=0
set s1021018id=thief
set x=!prex!
set y=!prey!
)
)
if s%w%%x%%y% == s1021018 (
if !s1021018id! == thief (
for /f "delims=# tokens=1,2" %%a in (2bmtdialog.txt) do (
if %%a == 7 (
cls
echo %%b
echo.
pause
)
)
if s%w%%x%%y% == s1021920 (
if !s1021920id! == thief (
for /f "delims=# tokens=1,2" %%a in (2bmtdialog.txt) do (
if %%a == 28 (
cls
echo %%b
echo.
pause
set x=!prex!
set y=!prey!
set s1021920id=0
set s1351419id=thief
set s1351318id=0
)
)
)
)
set s1021018id=0
set x=!prex!
set y=!prey!
)
)
goto :disp

:103
if !s%w%%x%%y%id! == up (
set /a w=!w!+1
set x=20
set y=19
)
if !s%w%%x%%y%id! == down (
set /a w=!w!-1
set x=10
set y=19
)
if !s%w%%x%%y%id! == old (
for /f "delims=# tokens=1,2" %%a in (2bmtdialog.txt) do (
if %%a == 83 (
cls
echo %%b
echo.
pause
set stat=你得到 游戏手册，查看敌人参数
set help=1
set s%w%%x%%y%id=0
set x=!prex!
set y=!prey!
)
)
)
if s%w%%x%%y% == s1031418 (
if !s1031416id! == king (
for /l %%n in (1,1,5) do (
for /f "delims=# tokens=1,2" %%a in (2bmtdialog.txt) do (
if %%n == %%a (
cls
echo %%b
echo.
pause
)
)
)
set s1031416id=0
set w=102
set x=12
set y=17
set hp=400
set atk=10
set def=10
set jian=无
set dun=无
)
)
goto :disp

:104
if !s%w%%x%%y%id! == up (
set /a w=!w!+1
set x=11
set y=20
)
if !s%w%%x%%y%id! == down (
set /a w=!w!-1
set x=20
set y=19
)
if !s%w%%x%%y%id! == shop (
set payatk=2
set paydef=4
call :shop
)
if !s%w%%x%%y%id! == old (
for /f "delims=# tokens=1,2" %%a in (2bmtdialog.txt) do (
if %%a == 12 (
cls
echo %%b
echo.
pause
set s%w%%x%%y%id=0
set x=!prex!
set y=!prey!
if !notepad! gtr 0 (
echo !note!#%%b >>2bmtnotepad.txt
set /a note=!note!+1
)
)
)
)

:105
if !s%w%%x%%y%id! == up (
set /a w=!w!+1
set x=10
set y=11
)
if !s%w%%x%%y%id! == down (
set /a w=!w!-1
set x=10
set y=19
)
if !s%w%%x%%y%id! == notepad (
set s%w%%x%%y%id=0
set notepad=1
set stat=你得到 备忘录，自动记录谈话内容
)
if !s%w%%x%%y%id! == tiejian (
set s%w%%x%%y%id=0
set jian=铁剑
set /a atk=!atk!+10
set stat=你得到了 铁剑，攻击力增加 10 点
)
goto :disp

:106
if !s%w%%x%%y%id! == up (
set /a w=!w!+1
set x=20
set y=19
)
if !s%w%%x%%y%id! == down (
set /a w=!w!-1
set x=10
set y=11
)
if !s%w%%x%%y%id! == merchant (
for /f "delims=# tokens=1,2" %%a in (2bmtdialog.txt) do (
if %%a == 85 (
cls
echo %%b
echo.
echo Y. 我太需要了 N.下次再说
ckey -1 89 78
if !errorlevel! == 1 (
if !money! geq 50 (
set /a money=!money!-50
set /a blukey=!blukey!+1
set s%w%%x%%y%id=merchantok
) else (
set stat=你的钱不够
)
)
set x=!prex!
set y=!prey!
)
)
)
if !s%w%%x%%y%id! == merchantok (
for /f "delims=# tokens=1,2" %%a in (2bmtdialog.txt) do (
if %%a == 14 (
cls
echo %%b
echo.
pause
set s%w%%x%%y%id=0
set x=!prex!
set y=!prey!
if !notepad! gtr 0 (
echo !note!#%%b >>2bmtnotepad.txt
set /a note=!note!+1
)
)
)
)
if !s%w%%x%%y%id! == old (
for /f "delims=# tokens=1,2" %%a in (2bmtdialog.txt) do (
if %%a == 13 (
cls
echo %%b
echo.
pause
set s%w%%x%%y%id=0
set x=!prex!
set y=!prey!
if !notepad! gtr 0 (
echo !note!#%%b >>2bmtnotepad.txt
set /a note=!note!+1
)
)
)
)
goto :disp

:107
if !s%w%%x%%y%id! == up (
set /a w=!w!+1
set x=10
set y=11
)
if !s%w%%x%%y%id! == down (
set /a w=!w!-1
set x=20
set y=19
)
if !s%w%%x%%y%id! == merchant (
for /f "delims=# tokens=1,2" %%a in (2bmtdialog.txt) do (
if %%a == 86 (
cls
echo %%b
echo.
echo Y. 我太需要了 N.下次再说
ckey -1 89 78
if !errorlevel! == 1 (
if !money! geq 50 (
set /a money=!money!-50
set /a yelkey=!yelkey!+5
set s%w%%x%%y%id=merchantok
) else (
set stat=你的钱不够
)
)
set x=!prex!
set y=!prey!
)
)
)
if !s%w%%x%%y%id! == merchantok (
for /f "delims=# tokens=1,2" %%a in (2bmtdialog.txt) do (
if %%a == 15 (
cls
echo %%b
echo.
pause
set s%w%%x%%y%id=0
set x=!prex!
set y=!prey!
if !notepad! gtr 0 (
echo !note!#%%b >>2bmtnotepad.txt
set /a note=!note!+1
)
)
)
)
goto :disp

:108
if !s%w%%x%%y%id! == up (
set /a w=!w!+1
set x=15
set y=11
)
if !s%w%%x%%y%id! == down (
set /a w=!w!-1
set x=10
set y=11
)
if !s1081814id! == 0 if !s1082014id! == 0 set s1081913id=0
goto :disp

:109
if !s%w%%x%%y%id! == up (
set /a w=!w!+1
set x=10
set y=19
)
if !s%w%%x%%y%id! == down (
set /a w=!w!-1
set x=15
set y=11
)
if !s%w%%x%%y%id! == tiedun (
set s%w%%x%%y%id=0
set dun=铁盾
set /a def=!def!+10
set stat=你得到了 铁盾，防御力增加 10 点
)
goto :disp

:110
if !s%w%%x%%y%id! == up (
set /a w=!w!+1
set x=15
set y=19
)
if !s%w%%x%%y%id! == down (
set /a w=!w!-1
set x=10
set y=19
)
if s%w%%x%%y% == s1101514 (
if !s1101513id! == kldz (
for /f "delims=# tokens=1,2" %%a in (2bmtdialog.txt) do (
if %%a == 9 (
cls
echo %%b
echo.
pause
set s1101012id=0
set s1101112id=0
set s1101113id=0
set s1101212id=0
set s1101812id=0
set s1101912id=0
set s1101913id=0
set s1102012id=0
set s1101413id=klr
set s1101414id=klr
set s1101415id=klr
set s1101513id=klsb
set s1101515id=klsb
set s1101613id=klr
set s1101614id=klr
set s1101615id=klr
set s1101313id=xdoor
set s1101713id=xdoor
set s1101512id=xdoor
set s1101516id=xdoor
set s1101510id=kldz
)
)
)
)
if !s1101510id! == kldz if !s1101413id! == 0 if !s1101414id! == 0 if !s1101415id! == 0 if !s1101513id! == 0 if !s1101515id! == 0 if !s1101613id! == 0 if !s1101614id! == 0 if !s1101615id! == 0 set s1101512id=0
if !s1101510id! == kldz if s%w%%x%%y% == s1101511 (
for /f "delims=# tokens=1,2" %%a in (2bmtdialog.txt) do (
if %%a == 10 (
cls
echo %%b
echo.
pause
)
)
)
if !s1101516id! == xdoor if !s1101510id! == 0 (
for /f "delims=# tokens=1,2" %%a in (2bmtdialog.txt) do (
if %%a == 11 (
cls
echo %%b
echo.
pause
)
)
set s1101313id=0
set s1101713id=0
set s1101516id=0
set s1101012id=reddiam
set s1101112id=reddiam
set s1101212id=reddiam
set s1101013id=blubot
set s1101113id=blubot
set s1101213id=blubot
set s1101812id=bludiam
set s1101912id=bludiam
set s1102012id=bludiam
set s1101813id=yelkey
set s1101913id=yelkey
set s1102013id=yelkey
set s1101520id=up
set s110thief=1
)
if s%w%%x%%y% == s1101519 (
if !s110thief! == 1 (
for /f "delims=# tokens=1,2" %%a in (2bmtdialog.txt) do (
if %%a == 8 (
cls
echo %%b
echo.
pause
set s110thief=0
set s1021920id=thief
)
)
)
)
goto :disp

:111
if !s%w%%x%%y%id! == up (
set /a w=!w!+1
set x=19
set y=20
)
if !s%w%%x%%y%id! == down (
set /a w=!w!-1
set x=15
set y=19
)
if !s1111014id! == 0 if !s1111214id! == 0 set s1111113id=0
if !s%w%%x%%y%id! == yindun (
set dun=银盾
set s%w%%x%%y%id=0
set /a def=!def!+20
set stat=你得到了 银盾，防御力增加 20 点
)
goto :disp

:112
if !s%w%%x%%y%id! == up (
set /a w=!w!+1
set x=11
set y=20
)
if !s%w%%x%%y%id! == down (
set /a w=!w!-1
set x=20
set y=19
)
if !s%w%%x%%y%id! == shop (
set payatk=4
set paydef=8
call :shop
)
if !s1122010id! == 0 set s1122010id=merchant
if s%w%%x%%y% == s1122010 (
if !s%w%%x%%y%id! == merchant (
for /f "delims=# tokens=1,2" %%a in (2bmtdialog.txt) do (
if %%a == 88 (
cls
echo %%b
echo.
echo Y. 我太需要了 N.下次再说
ckey -1 89 78
if !errorlevel! == 1 (
if !money! geq 1000 (
set /a money=!money!-1000
set /a yelkey=!yelkey!+1
) else (
set stat=你的钱不够
)
)
set x=!prex!
set y=!prey!
)
)
)
)
if s%w%%x%%y% == s1121010 (
if !s%w%%x%%y%id! == merchant (
for /f "delims=# tokens=1,2" %%a in (2bmtdialog.txt) do (
if %%a == 87 (
cls
echo %%b
echo.
echo Y. 我太需要了 N.下次再说
ckey -1 89 78
if !errorlevel! == 1 (
if !money! geq 800 (
set /a money=!money!-800
set /a redkey=!redkey!+1
set s%w%%x%%y%id=merchantok
) else (
set stat=你的钱不够
)
)
set x=!prex!
set y=!prey!
)
)
)
if !s%w%%x%%y%id! == merchantok (
for /f "delims=# tokens=1,2" %%a in (2bmtdialog.txt) do (
if %%a == 16 (
cls
echo %%b
echo.
pause
set s%w%%x%%y%id=0
set x=!prex!
set y=!prey!
if !notepad! gtr 0 (
echo !note!#%%b >>2bmtnotepad.txt
set /a note=!note!+1
)
)
)
)
)
goto :disp

:113
if !s%w%%x%%y%id! == up (
set /a w=!w!+1
set x=20
set y=19
)
if !s%w%%x%%y%id! == down (
set /a w=!w!-1
set x=11
set y=20
)
if !s%w%%x%%y%id! == ssjian (
set jian=神圣剑
set s%w%%x%%y%id=0
set /a atk=!atk!+100
set stat=你得到了 神圣剑，攻击力增加 100 点
)
goto :disp

:114
if !s%w%%x%%y%id! == up (
set /a w=!w!+1
set x=15
set y=19
)
if !s%w%%x%%y%id! == down (
set /a w=!w!-1
set x=19
set y=20
)
if !s1141010id! == 0 if !s1141210id! == 0 if !s1141111id! == 0 set s1141012id=redkey
goto :disp

:115
if !s%w%%x%%y%id! == up (
set /a w=!w!+1
set x=15
set y=11
)
if !s%w%%x%%y%id! == down (
set /a w=!w!-1
set x=15
set y=19
)
if !s1151515id! == 0 set s1151512id=0
if !s%w%%x%%y%id! == gao (
set stat=你得到 镐 可破坏你周围的堵墙
set gao=1
set s%w%%x%%y%id=0
)
if !s%w%%x%%y%id! == merchant (
for /f "delims=# tokens=1,2" %%a in (2bmtdialog.txt) do (
if %%a == 89 (
cls
echo %%b
echo.
echo Y. 我太需要了 N.下次再说
ckey -1 89 78
if !errorlevel! == 1 (
if !money! geq 200 (
set /a money=!money!-200
set /a blukey=!blukey!+1
set s%w%%x%%y%id=merchantok
) else (
set stat=你的钱不够
)
)
set x=!prex!
set y=!prey!
)
)
)
if !s%w%%x%%y%id! == merchantok (
for /f "delims=# tokens=1,2" %%a in (2bmtdialog.txt) do (
if %%a == 17 (
cls
echo %%b
echo.
pause
set s%w%%x%%y%id=0
set x=!prex!
set y=!prey!
if !notepad! gtr 0 (
echo !note!#%%b >>2bmtnotepad.txt
set /a note=!note!+1
)
)
)
)
if !s%w%%x%%y%id! == thief (
for /f "delims=# tokens=1,2" %%a in (2bmtdialog.txt) do (
if %%a == 18 (
cls
echo %%b
echo.
pause
)
)
set s1151710id=0
set s%w%%x%%y%id=0
set x=!prex!
set y=!prey!
)
goto :disp

:116
if !s%w%%x%%y%id! == up (
set /a w=!w!+1
set x=15
set y=19
)
if !s%w%%x%%y%id! == down (
set /a w=!w!-1
set x=15
set y=11
)
if s%w%%x%%y% == s1161020 (
if !s%w%%x%%y%id! == old (
for /f "delims=# tokens=1,2" %%a in (2bmtdialog.txt) do (
if %%a == 19 (
cls
echo %%b
echo.
pause
set s%w%%x%%y%id=0
set x=!prex!
set y=!prey!
if !notepad! gtr 0 (
echo !note!#%%b >>2bmtnotepad.txt
set /a note=!note!+1
)
)
)
)
)
if !s1162020id! == 0 set s1162020id=old
if s%w%%x%%y% == s1162020 (
if !s%w%%x%%y%id! == old (
for /f "delims=# tokens=1,2" %%a in (2bmtdialog.txt) do (
if %%a == 90 (
cls
echo %%b
echo.
pause
set holy=1
set s%w%%x%%y%id=blank
set stat=你得到 圣水 按攻击和防御提升生命点数
set x=!prex!
set y=!prey!
if !notepad! gtr 0 (
echo !note!#%%b >>2bmtnotepad.txt
set /a note=!note!+1
)
)
)
)
)
goto :disp

:117
if !s%w%%x%%y%id! == up (
set /a w=!w!+1
set x=15
set y=11
)
if !s%w%%x%%y%id! == down (
set /a w=!w!-1
set x=15
set y=19
)
if !s1171017id! == 0 if !s1171217id! == 0 set s1171116id=0
if !s1171014id! == 0 if !s1171214id! == 0 set s1171113id=0
if !s1171817id! == 0 if !s1172017id! == 0 set s1171916id=0
if !s1171814id! == 0 if !s1172014id! == 0 set s1171913id=0
if !s%w%%x%%y%id! == yinjian (
set jian=银剑
set s%w%%x%%y%id=0
set /a atk=!atk!+20
set stat=你得到了 银剑，攻击力增加 20 点
)
goto :disp

:118
if !s%w%%x%%y%id! == up (
set /a w=!w!+1
set x=10
set y=11
)
if !s%w%%x%%y%id! == down (
set /a w=!w!-1
set x=15
set y=11
)
if !s%w%%x%%y%id! == old (
for /f "delims=# tokens=1,2" %%a in (2bmtdialog.txt) do (
if %%a == 20 (
cls
echo %%b
echo.
pause
set s%w%%x%%y%id=0
set x=!prex!
set y=!prey!
if !notepad! gtr 0 (
echo !note!#%%b >>2bmtnotepad.txt
set /a note=!note!+1
)
)
)
)
goto :disp

:119
if !s%w%%x%%y%id! == up (
set /a w=!w!+1
set x=15
set y=19
)
if !s%w%%x%%y%id! == down (
set /a w=!w!-1
set x=10
set y=11
)
if %cross% == 0 if !s1191512id! == 0 set s1191512id=cross
if !s%w%%x%%y%id! == cross (
set stat=你得到 十字架 对吸血鬼和兽人攻击力加倍
set cross=1
set s%w%%x%%y%id=0
)
goto :disp

:120
if !s%w%%x%%y%id! == up (
set /a w=!w!+1
set x=15
set y=11
)
if !s%w%%x%%y%id! == down (
set /a w=!w!-1
set x=15
set y=19
)
if s%w%%x%%y% == s1201517 if !s1201516id! == bigbat (
set s1201414id=0
set s1201415id=0
set s1201416id=0
set s1201514id=0
set s1201515id=vampire
set s1201516id=0
set s1201614id=0
set s1201615id=0
set s1201616id=0
set s1201518id=xdoor
for /f "delims=# tokens=1,2" %%a in (2bmtdialog.txt) do (
if %%a == 21 (
cls
echo %%b
echo.
pause
)
)
)
if !s1201512id! == xdoor if !s1201615id! == 0 if !s1201515id! == 0 (
for /f "delims=# tokens=1,2" %%a in (2bmtdialog.txt) do (
if %%a == 22 (
cls
echo %%b
echo.
pause
)
)
set s1201512id=0
set s1201518id=0
set s1201413id=yelkey
set s1201513id=yelkey
set s1201613id=yelkey
set s1201314id=reddiam
set s1201315id=reddiam
set s1201316id=reddiam
set s1201714id=bludiam
set s1201715id=bludiam
set s1201716id=bludiam
set s1201417id=blubot
set s1201517id=blubot
set s1201617id=blubot
)
goto :disp

:121
if !s%w%%x%%y%id! == up (
set /a w=!w!+1
set x=15
set y=19
)
if !s%w%%x%%y%id! == down (
set /a w=!w!-1
set x=15
set y=11
)
if !s%w%%x%%y%id! == old (
for /f "delims=# tokens=1,2" %%a in (2bmtdialog.txt) do (
if %%a == 23 (
cls
echo %%b
echo.
pause
set s%w%%x%%y%id=0
set x=!prex!
set y=!prey!
if !notepad! gtr 0 (
echo !note!#%%b >>2bmtnotepad.txt
set /a note=!note!+1
)
)
)
)
goto :disp

:122
if !s%w%%x%%y%id! == up (
set /a w=!w!+1
set x=10
set y=11
)
if !s%w%%x%%y%id! == down (
set /a w=!w!-1
set x=15
set y=19
)
goto :disp

:123
if !s%w%%x%%y%id! == up (
set /a w=!w!+1
set x=11
set y=20
)
if !s%w%%x%%y%id! == down (
set /a w=!w!-1
set x=15
set y=16
)
if !s%w%%x%%y%id! == old (
for /f "delims=# tokens=1,2" %%a in (2bmtdialog.txt) do (
if %%a == 24 (
cls
echo %%b
echo.
pause
set s%w%%x%%y%id=0
set x=!prex!
set y=!prey!
if !notepad! gtr 0 (
echo !note!#%%b >>2bmtnotepad.txt
set /a note=!note!+1
)
)
)
)
goto :disp

:124
if !s%w%%x%%y%id! == up (
set /a w=!w!+1
set x=11
set y=20
)
if !s%w%%x%%y%id! == down (
set /a w=!w!-1
set x=20
set y=11
)
if s%w%%x%%y% == s1241510 if !s1241410id! == 1 (
set x=15
set y=16
set w=150
)
goto :disp

:125
if !s%w%%x%%y%id! == up (
set /a w=!w!+1
set x=11
set y=20
)
if !s%w%%x%%y%id! == down (
set /a w=!w!-1
set x=11
set y=20
)
if !s1251515id! == dfs if s%w%%x%%y% == s1251518 (
for /f "delims=# tokens=1,2" %%a in (2bmtdialog.txt) do (
if %%a == 63 (
cls
echo %%b
echo.
pause
)
)
)
if !s1251515id! == 0 (
set s1251317id=redkey
set s1251417id=redkey
set s1251617id=redkey
set s1251717id=redkey
set s1251515id=blank
)
goto :disp

:126
if !s%w%%x%%y%id! == up (
set /a w=!w!+1
set x=11
set y=20
)
if !s%w%%x%%y%id! == down (
set /a w=!w!-1
set x=11
set y=20
)
if !s%w%%x%%y%id! == princess (
for /f "delims=# tokens=1,2" %%a in (2bmtdialog.txt) do (
if %%a == 64 (
cls
echo %%b
echo.
pause
)
if %%a == 65 (
cls
echo %%b
echo.
pause
set s1241513id=0
set s1241512id=0
set s1241511id=0
set s1241510id=0
set s1241410id=1
set s1241610id=1
)
)
)
goto :disp

:127
if !s%w%%x%%y%id! == up (
set /a w=!w!+1
set x=19
set y=20
)
if !s%w%%x%%y%id! == down (
set /a w=!w!-1
set x=11
set y=20
)
if !s%w%%x%%y%id! == old (
for /f "delims=# tokens=1,2" %%a in (2bmtdialog.txt) do (
if %%a == 25 (
cls
echo %%b
echo.
pause
set s%w%%x%%y%id=0
set x=!prex!
set y=!prey!
if !notepad! gtr 0 (
echo !note!#%%b >>2bmtnotepad.txt
set /a note=!note!+1
)
)
)
)
goto :disp

:128
if !s%w%%x%%y%id! == up (
set /a w=!w!+1
set x=10
set y=19
)
if !s%w%%x%%y%id! == down (
set /a w=!w!-1
set x=19
set y=20
)
if !s%w%%x%%y%id! == merchant (
for /f "delims=# tokens=1,2" %%a in (2bmtdialog.txt) do (
if %%a == 91 (
cls
echo %%b
echo.
echo Y. 我太需要了 N.下次再说
ckey -1 89 78
if !errorlevel! == 1 (
set /a money=!money!+100
set /a yelkey=!yelkey!-1
)
set x=!prex!
set y=!prey!
)
)
)
goto :disp

:129
if !s%w%%x%%y%id! == up (
set /a w=!w!+1
set x=15
set y=19
)
if !s%w%%x%%y%id! == down (
set /a w=!w!-1
set x=11
set y=20
)
if !s%w%%x%%y%id! == thief (
set do=1
for /l %%a in (10,1,20) do (
for /l %%b in (10,1,20) do (
if !s123%%a%%bid! == fakeempty set do=0
)
)
if !do! == 0 (
for /f "delims=# tokens=1,2" %%a in (2bmtdialog.txt) do (
if %%a == 26 (
cls
echo %%b
echo.
pause
set x=!prex!
set y=!prey!
)
)
) else (
for /f "delims=# tokens=1,2" %%a in (2bmtdialog.txt) do (
if %%a == 27 (
cls
echo %%b
echo.
pause
set x=!prex!
set y=!prey!
set s%w%%x%%y%id=0
set s1291512id=0
)
)
)
)
goto :disp

:130
if !s%w%%x%%y%id! == up (
set /a w=!w!+1
set x=15
set y=11
)
if !s%w%%x%%y%id! == down (
set /a w=!w!-1
set x=15
set y=19
)
if !s1301513id! == xdoor if !s1301214id! == 0 if !s1301314id! == 0 if !s1301414id! == 0 if !s1301614id! == 0 if !s1301714id! == 0 if !s1301814id! == 0 set s1301513id=0
goto :disp

:131
if !s%w%%x%%y%id! == up (
set /a w=!w!+1
set x=15
set y=20
)
if !s%w%%x%%y%id! == down (
set /a w=!w!-1
set x=15
set y=11
)
if !s%w%%x%%y%id! == old (
for /f "delims=# tokens=1,2" %%a in (2bmtdialog.txt) do (
if %%a == 29 (
cls
echo %%b
echo.
pause
set s%w%%x%%y%id=0
set x=!prex!
set y=!prey!
if !notepad! gtr 0 (
echo !note!#%%b >>2bmtnotepad.txt
set /a note=!note!+1
)
)
)
)
if !s%w%%x%%y%id! == merchant (
for /f "delims=# tokens=1,2" %%a in (2bmtdialog.txt) do (
if %%a == 92 (
cls
echo %%b
echo.
echo Y. 我太需要了 N.下次再说
ckey -1 89 78
if !errorlevel! == 1 (
if !money! geq 1000 (
set /a money=!money!-1000
set /a blukey=!blukey!+1
set /a yelkey=!yelkey!+4
set s%w%%x%%y%id=merchantok
) else (
set stat=你的钱不够
)
)
set x=!prex!
set y=!prey!
)
)
)
if !s%w%%x%%y%id! == merchantok (
for /f "delims=# tokens=1,2" %%a in (2bmtdialog.txt) do (
if %%a == 30 (
cls
echo %%b
echo.
pause
set s%w%%x%%y%id=0
set x=!prex!
set y=!prey!
if !notepad! gtr 0 (
echo !note!#%%b >>2bmtnotepad.txt
set /a note=!note!+1
)
)
)
)
goto :disp

:132
if !s%w%%x%%y%id! == up (
set /a w=!w!+1
set x=19
set y=10
)
if !s%w%%x%%y%id! == down (
set /a w=!w!-1
set x=15
set y=19
)
if !s1322020id! == 0 (
if s%w%%x%%y% == s1321519 (
for /f "delims=# tokens=1,2" %%a in (2bmtdialog.txt) do (
if %%a == 31 (
cls
echo %%b
echo.
pause
set s1321519id=qsdz
call :battle
set y=19
if !s1321519id! == 0 (
for /f "delims=# tokens=1,2" %%c in (2bmtdialog.txt) do (
if %%c == 32 (
cls
echo %%d
echo.
pause
set s1322020id=blank
)
)
) else (
goto :132
)
)
)
)
)
if !s%w%%x%%y%id! == shop (
set payatk=8
set paydef=16
call :shop
)
if !s1321118id! == xdoor if !s1321019id! == 0 if !s1321219id! == 0 set s1321118id=0
goto :disp

:133
if !s%w%%x%%y%id! == up (
set /a w=!w!+1
set x=11
set y=10
)
if !s%w%%x%%y%id! == down (
set /a w=!w!-1
set x=19
set y=10
)
if !s%w%%x%%y%id! == old (
for /f "delims=# tokens=1,2" %%a in (2bmtdialog.txt) do (
if %%a == 33 (
cls
echo %%b
echo.
pause
set s%w%%x%%y%id=0
set x=!prex!
set y=!prey!
if !notepad! gtr 0 (
echo !note!#%%b >>2bmtnotepad.txt
set /a note=!note!+1
)
)
)
)
if s%w%%x%%y% == s1331914 if not !s1332014id! == 0 (
set s1331913id=xdoor
set s1331917id=xdoor
)
if !s1332014id! == 0 if !s1331814id! == 0 if !s1332016id! == 0 if !s1331816id! == 0 (
set s1331913id=0
set s1331917id=0
)
if s%w%%x%%y% == s1331819 set s1331719id=1
if !s%w%%x%%y%id! == qsjian (
set jian=骑士剑
set /a atk=!atk!+40
set s%w%%x%%y%id=0
set stat=你得到了 骑士剑，攻击力增加 40 点
)
goto :disp

:134
if !s%w%%x%%y%id! == up (
set /a w=!w!+1
set x=15
set y=19
)
if !s%w%%x%%y%id! == down (
set /a w=!w!-1
set x=11
set y=10
)
goto :disp

:135
if !s%w%%x%%y%id! == up (
set /a w=!w!+1
set x=20
set y=11
)
if !s%w%%x%%y%id! == down (
set /a w=!w!-1
set x=15
set y=19
)
if !s%w%%x%%y%id! == thief (
for /f "delims=# tokens=1,2" %%a in (2bmtdialog.txt) do (
if %%a == 39 (
cls
echo %%b
echo.
pause
)
if %%a == 40 (
cls
echo %%b
echo.
pause
)
if %%a == 41 (
cls
echo %%b
echo.
pause
set s%w%%x%%y%id=0
)
)
)
if !s1351515id! == 0 set s1351512id=0
goto :disp

:136
if !s%w%%x%%y%id! == up (
set /a w=!w!+1
set x=20
set y=19
)
if !s%w%%x%%y%id! == down (
set /a w=!w!-1
set x=19
set y=10
)
if !s%w%%x%%y%id! == old (
for /f "delims=# tokens=1,2" %%a in (2bmtdialog.txt) do (
if %%a == 34 (
cls
echo %%b
echo.
pause
set s%w%%x%%y%id=0
set x=!prex!
set y=!prey!
if !notepad! gtr 0 (
echo !note!#%%b >>2bmtnotepad.txt
set /a note=!note!+1
)
)
)
)
goto :disp

:137
if !s%w%%x%%y%id! == up (
set /a w=!w!+1
set x=11
set y=10
)
if !s%w%%x%%y%id! == down (
set /a w=!w!-1
set x=20
set y=19
)
if !s%w%%x%%y%id! == old (
for /f "delims=# tokens=1,2" %%a in (2bmtdialog.txt) do (
if %%a == 35 (
cls
echo %%b
echo.
pause
set s%w%%x%%y%id=0
set x=!prex!
set y=!prey!
if !notepad! gtr 0 (
echo !note!#%%b >>2bmtnotepad.txt
set /a note=!note!+1
)
)
)
)
if !s%w%%x%%y%id! == bomb (
set bomb=1
set s%w%%x%%y%id=0
set stat=你得到 炸弹，可炸死你周围的敌人
)
goto :disp

:138
if !s%w%%x%%y%id! == up (
set /a w=!w!+1
set x=20
set y=11
)
if !s%w%%x%%y%id! == down (
set /a w=!w!-1
set x=11
set y=10
)
if !s%w%%x%%y%id! == merchant (
for /f "delims=# tokens=1,2" %%a in (2bmtdialog.txt) do (
if %%a == 93 (
cls
echo %%b
echo.
echo Y. 我太需要了 N.下次再说
ckey -1 89 78
if !errorlevel! == 1 (
if !money! geq 200 (
set /a money=!money!-200
set /a yelkey=!yelkey!+3
set s%w%%x%%y%id=merchantok
) else (
set stat=你的钱不够
)
)
set x=!prex!
set y=!prey!
)
)
)
if !s%w%%x%%y%id! == merchantok (
for /f "delims=# tokens=1,2" %%a in (2bmtdialog.txt) do (
if %%a == 36 (
cls
echo %%b
echo.
pause
set s%w%%x%%y%id=0
set x=!prex!
set y=!prey!
if !notepad! gtr 0 (
echo !note!#%%b >>2bmtnotepad.txt
set /a note=!note!+1
)
)
)
)
if s%w%%x%%y% == s1381115 set s1381114id=1
if !s1381118id! == xdoor if !s1381019id! == 0 if !s1381219id! == 0 set s1381118id=0
if !s%w%%x%%y%id! == qsdun (
set dun=骑士盾
set /a def=!def!+40
set s%w%%x%%y%id=0
set stat=你得到了 骑士盾，防御力增加 40 点
)
goto :disp

:139
if !s%w%%x%%y%id! == up (
set /a w=!w!+1
set x=19
set y=20
)
if !s%w%%x%%y%id! == down (
set /a w=!w!-1
set x=19
set y=10
)
if !s%w%%x%%y%id! == merchant (
for /f "delims=# tokens=1,2" %%a in (2bmtdialog.txt) do (
if %%a == 94 (
cls
echo %%b
echo.
echo Y. 我太需要了 N.下次再说
ckey -1 89 78
if !errorlevel! == 1 (
if !money! geq 2000 (
set /a money=!money!-2000
set /a blukey=!blukey!+3
set s%w%%x%%y%id=merchantok
) else (
set stat=你的钱不够
)
)
set x=!prex!
set y=!prey!
)
)
)
if !s%w%%x%%y%id! == merchantok (
for /f "delims=# tokens=1,2" %%a in (2bmtdialog.txt) do (
if %%a == 37 (
cls
echo %%b
echo.
pause
set s%w%%x%%y%id=0
set x=!prex!
set y=!prey!
if !notepad! gtr 0 (
echo !note!#%%b >>2bmtnotepad.txt
set /a note=!note!+1
)
)
)
)
if !s%w%%x%%y%id! == old (
for /f "delims=# tokens=1,2" %%a in (2bmtdialog.txt) do (
if %%a == 38 (
cls
echo %%b
echo.
pause
set s%w%%x%%y%id=0
set x=!prex!
set y=!prey!
if !notepad! gtr 0 (
echo !note!#%%b >>2bmtnotepad.txt
set /a note=!note!+1
)
)
)
)
if !s1391111id! == yeldoor if !s1391311id! == 0 if !s1391511id! == yeldoor if !s1391113id! == yeldoor if !s1391313id! == yeldoor if !s1391513id! == 0 if !s1391115id! == yeldoor if !s1391315id! == yeldoor if !s1391515id! == yeldoor set s1391313id=fly
if !s%w%%x%%y%id! == fly (
set fly=3
set s%w%%x%%y%id=0
set stat=你得到了 瞬移，可用3次到达中心对称对应点
)
goto :disp

:140
if !s%w%%x%%y%id! == up (
set /a w=!w!+1
set x=15
set y=11
)
if !s%w%%x%%y%id! == down (
set /a w=!w!-1
set x=19
set y=20
)
if s%w%%x%%y% == s1401516 if !s1401413id! == gzs (
for /f "delims=# tokens=1,2" %%a in (2bmtdialog.txt) do (
if %%a == 42 (
cls
echo %%b
echo.
pause
set s1401516id=gzs
call :battle
set y=16
if !s%w%%x%%y%id! == 0 (
set s1401413id=0
) else (
goto :140
)
)
)
)
if s%w%%x%%y% == s1401516 if !s1401413id! == 0 if !s1401313id! == gzs (
set s1401516id=gzs
call :battle
set y=16
if !s%w%%x%%y%id! == 0 (
set s1401313id=0
) else (
goto :140
)
)
if s%w%%x%%y% == s1401516 if !s1401313id! == 0 if !s1401213id! == gzs (
set s1401516id=gzs
call :battle
set y=16
if !s%w%%x%%y%id! == 0 (
set s1401213id=0
) else (
goto :140
)
)
if s%w%%x%%y% == s1401516 if !s1401213id! == 0 if !s1401613id! == zs (
for /f "delims=# tokens=1,2" %%a in (2bmtdialog.txt) do (
if %%a == 43 (
cls
echo %%b
echo.
pause
set s1401516id=zs
call :battle
set y=16
if !s%w%%x%%y%id! == 0 (
set s1401613id=0
) else (
goto :140
)
)
)
)
if s%w%%x%%y% == s1401516 if !s1401613id! == 0 if !s1401713id! == zs (
set s1401516id=zs
call :battle
set y=16
if !s%w%%x%%y%id! == 0 (
set s1401713id=0
) else (
goto :140
)
)
if s%w%%x%%y% == s1401516 if !s1401713id! == 0 if !s1401813id! == zs (
set s1401516id=zs
call :battle
set y=16
if !s%w%%x%%y%id! == 0 (
set s1401813id=0
) else (
goto :140
)
)
if s%w%%x%%y% == s1401516 if !s1401813id! == 0 if !s1401311id! == ssjs (
for /f "delims=# tokens=1,2" %%a in (2bmtdialog.txt) do (
if %%a == 44 (
cls
echo %%b
echo.
pause
set s1401516id=ssjs
call :battle
set y=16
if !s%w%%x%%y%id! == 0 (
set s1401311id=0
) else (
goto :140
)
)
)
)
if s%w%%x%%y% == s1401516 if !s1401311id! == 0 if !s1401211id! == ssjs (
set s1401516id=ssjs
call :battle
set y=16
if !s%w%%x%%y%id! == 0 (
set s1401211id=0
) else (
goto :140
)
)
if s%w%%x%%y% == s1401516 if !s1401211id! == 0 if !s1401111id! == ssjs (
set s1401516id=ssjs
call :battle
set y=16
if !s%w%%x%%y%id! == 0 (
set s1401111id=0
) else (
goto :140
)
)
if s%w%%x%%y% == s1401516 if !s1401111id! == 0 if !s1401711id! == qs (
for /f "delims=# tokens=1,2" %%a in (2bmtdialog.txt) do (
if %%a == 45 (
cls
echo %%b
echo.
pause
set s1401516id=qs
call :battle
set y=16
if !s%w%%x%%y%id! == 0 (
set s1401711id=0
) else (
goto :140
)
)
)
)
if s%w%%x%%y% == s1401516 if !s1401711id! == 0 if !s1401811id! == qs (
set s1401516id=qs
call :battle
set y=16
if !s%w%%x%%y%id! == 0 (
set s1401811id=0
) else (
goto :140
)
)
if s%w%%x%%y% == s1401516 if !s1401811id! == 0 if !s1401911id! == qs (
set s1401516id=qs
call :battle
set y=16
if !s%w%%x%%y%id! == 0 (
set s1401911id=0
) else (
goto :140
)
)
if s%w%%x%%y% == s1401516 if !s1401510id! == qsdz if !s1401911id! == 0 (
for /f "delims=# tokens=1,2" %%a in (2bmtdialog.txt) do (
if %%a == 46 (
cls
echo %%b
echo.
pause
set s1401516id=qsdz
call :battle
set y=16
if !s%w%%x%%y%id! == 0 (
set s1401510id=0
) else (
goto :140
)
)
)
)
if s%w%%x%%y% == s1401516 if !s1401510id! == 0 (
for /f "delims=# tokens=1,2" %%a in (2bmtdialog.txt) do (
if %%a == 47 (
cls
echo %%b
echo.
pause
set s1401510id=up
set s1401111id=yelkey
set s1401211id=yelkey
set s1401311id=yelkey
set s1401711id=reddiam
set s1401811id=reddiam
set s1401911id=reddiam
set s1401213id=blubot
set s1401313id=blubot
set s1401413id=blubot
set s1401613id=bludiam
set s1401713id=bludiam
set s1401813id=bludiam
)
)
)
goto :disp

:141
if !s%w%%x%%y%id! == up (
set /a w=!w!+1
set x=14
set y=20
)
if !s%w%%x%%y%id! == down (
set /a w=!w!-1
set x=15
set y=11
)
if s%w%%x%%y% == s1411811 set s1411911id=gjws
goto :disp

:142
if !s%w%%x%%y%id! == up (
set /a w=!w!+1
set x=10
set y=11
)
if !s%w%%x%%y%id! == down (
set /a w=!w!-1
set x=15
set y=19
)
if !s1421519id! == qsdz if s%w%%x%%y% == s1421419 (
for /f "delims=# tokens=1,2" %%a in (2bmtdialog.txt) do (
if %%a == 48 (
cls
echo %%b
echo.
pause
)
if %%a == 49 (
cls
echo %%b
echo.
pause
)
if %%a == 50 (
cls
echo %%b
echo.
pause
)
if %%a == 51 (
cls
echo %%b
echo.
pause
)
if %%a == 52 (
cls
echo %%b
echo.
pause
)
if %%a == 53 (
cls
echo %%b
echo.
pause
set s1421519id=0
)
)
)
if !s%w%%x%%y%id! == old (
for /f "delims=# tokens=1,2" %%a in (2bmtdialog.txt) do (
if %%a == 54 (
cls
echo %%b
echo.
pause
set s%w%%x%%y%id=0
set x=!prex!
set y=!prey!
if !notepad! gtr 0 (
echo !note!#%%b >>2bmtnotepad.txt
set /a note=!note!+1
)
)
)
)
goto :disp

:143
if !s%w%%x%%y%id! == up (
set /a w=145
set x=11
set y=10
)
if !s%w%%x%%y%id! == down (
set /a w=!w!-1
set x=10
set y=11
)
if s%w%%x%%y% == s1431710 if !s1431810id! == mfjw (
set s1431610id=1
set s1431810id=0
set s1431910id=1
set s1432010id=mfjw
)
if !s%w%%x%%y%id! == shendun (
set dun=圣盾
set /a def=!def!+50
set s%w%%x%%y%id=0
set stat=你得到了 圣盾，防御力增加 50 点
)
goto :disp

:145
if !s%w%%x%%y%id! == up (
set /a w=!w!+1
set x=20
set y=11
)
if !s%w%%x%%y%id! == down (
set /a w=143
set x=10
set y=19
)
if !s%w%%x%%y%id! == old (
for /f "delims=# tokens=1,2" %%a in (2bmtdialog.txt) do (
if %%a == 55 (
cls
echo %%b
echo.
pause
set s%w%%x%%y%id=0
set x=!prex!
set y=!prey!
if !notepad! gtr 0 (
echo !note!#%%b >>2bmtnotepad.txt
set /a note=!note!+1
)
)
)
)
if !s%w%%x%%y%id! == merchant (
for /f "delims=# tokens=1,2" %%a in (2bmtdialog.txt) do (
if %%a == 95 (
cls
echo %%b
echo.
echo Y. 我太需要了 N.下次再说
ckey -1 89 78
if !errorlevel! == 1 (
if !money! geq 1000 (
set /a money=!money!-1000
set /a hp=!hp!+2000
set s%w%%x%%y%id=merchantok
) else (
set stat=你的钱不够
)
)
set x=!prex!
set y=!prey!
)
)
)
if !s%w%%x%%y%id! == merchantok (
for /f "delims=# tokens=1,2" %%a in (2bmtdialog.txt) do (
if %%a == 56 (
cls
echo %%b
echo.
pause
set s%w%%x%%y%id=0
set x=!prex!
set y=!prey!
if !notepad! gtr 0 (
echo !note!#%%b >>2bmtnotepad.txt
set /a note=!note!+1
)
)
)
)
if !s1451619id! == xdoor if !s1451718id! == 0 if !s1451720id! == 0 set s1451619id=0
if !s1451319id! == xdoor if !s1451418id! == 0 if !s1451420id! == 0 set s1451319id=0
if !s%w%%x%%y%id! == flyup (
set s%w%%x%%y%id=0
set flyup=1
set stat=你得到 向上传送，传送到楼上对应位置
)
goto :disp

:146
if !s%w%%x%%y%id! == up (
set /a w=!w!+1
set x=20
set y=19
)
if !s%w%%x%%y%id! == down (
set /a w=!w!-1
set x=19
set y=10
)
if !s%w%%x%%y%id! == shop (
set payatk=10
set paydef=20
call :shop
)
if !s%w%%x%%y%id! == old (
for /f "delims=# tokens=1,2" %%a in (2bmtdialog.txt) do (
if %%a == 57 (
cls
echo %%b
echo.
pause
set s%w%%x%%y%id=0
set x=!prex!
set y=!prey!
if !notepad! gtr 0 (
echo !note!#%%b >>2bmtnotepad.txt
set /a note=!note!+1
)
)
)
)
if !s%w%%x%%y%id! == magickey (
set s%w%%x%%y%id=0
set magickey=1
set stat=你得到 魔法钥匙，可打开一层楼所有的黄门
)
goto :disp

:147
if !s%w%%x%%y%id! == up (
set /a w=!w!+1
set x=20
set y=19
)
if !s%w%%x%%y%id! == down (
set /a w=!w!-1
set x=20
set y=19
)
if !s%w%%x%%y%id! == merchant (
for /f "delims=# tokens=1,2" %%a in (2bmtdialog.txt) do (
if %%a == 96 (
cls
echo %%b
echo.
echo Y. 我太需要了 N.下次再说
ckey -1 89 78
if !errorlevel! == 1 (
if !money! geq 4000 (
set /a money=!money!-4000
set quake=1
set stat=你得到地震卷轴，可破坏一层楼的墙
set s%w%%x%%y%id=merchantok
) else (
set stat=你的钱不够
)
)
set x=!prex!
set y=!prey!
)
)
)
if !s%w%%x%%y%id! == merchantok (
for /f "delims=# tokens=1,2" %%a in (2bmtdialog.txt) do (
if %%a == 58 (
cls
echo %%b
echo.
pause
set s%w%%x%%y%id=0
set x=!prex!
set y=!prey!
if !notepad! gtr 0 (
echo !note!#%%b >>2bmtnotepad.txt
set /a note=!note!+1
)
)
)
)
goto :disp

:148
if !s%w%%x%%y%id! == up (
set /a w=!w!+1
set x=11
set y=20
)
if !s%w%%x%%y%id! == down (
set /a w=!w!-1
set x=11
set y=10
)
if !s%w%%x%%y%id! == old (
for /f "delims=# tokens=1,2" %%a in (2bmtdialog.txt) do (
if %%a == 58 (
cls
echo %%b
echo.
pause
set s%w%%x%%y%id=0
set x=!prex!
set y=!prey!
if !notepad! gtr 0 (
echo !note!#%%b >>2bmtnotepad.txt
set /a note=!note!+1
)
)
)
)
if !s%w%%x%%y%id! == shenjian (
set jian=圣剑
set /a atk=!atk!+50
set s%w%%x%%y%id=0
set stat=你得到了 圣剑，攻击力增加 50 点
)
goto :disp

:149
if !s%w%%x%%y%id! == down (
set /a w=!w!-1
set x=10
set y=19
)
if !s1491518id! == xdoor if !s1491419id! == 0 if !s1491619id! == 0 set s1491518id=0
if !s1491516id! == xdoor if !s1491417id! == 0 if !s1491617id! == 0 (
set s1491516id=0
set s1491417id=blank
)
if !s1492020id! == 0 if !s1491920id! == 0 if s%w%%x%%y% == s1491515 (
for /f "delims=# tokens=1,2" %%a in (2bmtdialog.txt) do (
if %%a == 60 (
cls
echo %%b
echo.
pause
set s1491516id=xdoor
set s1491411id=mfjw
set s1491511id=mfjw
set s1491611id=mfjw
set s1491412id=mfjw
set s1491512id=king
set s1491612id=mfjw
set s1491413id=mfjw
set s1491513id=mfjw
set s1491613id=mfjw
set s1492020id=blank
)
)
)
if !s1491411id! == mfjw if !s1491511id! == 0 if !s1491611id! == mfjw if !s1491412id! == 0 if !s1491512id! == king if !s1491612id! == 0 if !s1491413id! == mfjw if !s1491513id! == 0 if !s1491613id! == mfjw (
for /f "delims=# tokens=1,2" %%a in (2bmtdialog.txt) do (
if %%a == 61 (
cls
echo %%b
echo.
pause
set s1491512id=fking
)
)
)
if !s1492020id! == blank if !s1491920id! == 0 if !s1491512id! == 0 (
set s1491920id=blank
for /f "delims=# tokens=1,2" %%a in (2bmtdialog.txt) do (
if %%a == 62 (
cls
echo %%b
echo.
pause
set s1491411id=redkey
set s1491611id=bi
set s1491113id=reddiam
set s1491213id=reddiam
set s1491313id=reddiam
set s1491713id=bludiam
set s1491813id=bludiam
set s1491913id=bludiam
set s1491414id=blubot
set s1491514id=blubot
set s1491614id=blubot
)
)
)
if !s%w%%x%%y%id! == bi (
set bi=1
set s%w%%x%%y%id=0
set stat=你得到了 屠龙匕，对龙的攻击力加倍
)
goto :disp

:150
if !s%w%%x%%y%id! == thief (
for /f "delims=# tokens=1,2" %%a in (2bmtdialog.txt) do (
if %%a == 66 (
cls
echo %%b
echo.
pause
)
if %%a == 67 (
cls
echo %%b
echo.
pause
)
if %%a == 68 (
cls
echo %%b
echo.
pause
)
if %%a == 69 (
cls
echo %%b
echo.
pause
)
if %%a == 70 (
cls
echo %%b
echo.
pause
)
if %%a == 71 (
cls
echo %%b
echo.
pause
)
if %%a == 72 (
cls
echo %%b
echo.
pause
)
if %%a == 73 (
cls
echo %%b
echo.
pause
)
if %%a == 74 (
cls
echo %%b
echo.
pause
)
if %%a == 75 (
cls
echo %%b
echo.
pause
)
if %%a == 76 (
cls
echo %%b
echo.
pause
)
if %%a == 77 (
cls
echo %%b
echo.
pause
)
if %%a == 78 (
cls
echo %%b
echo.
pause
)
if %%a == 79 (
cls
echo %%b
echo.
pause
set s1501514id=king
set x=!prex!
set y=!prey!
)
)
)
if !s1501514id! == 0 (
for /f "delims=# tokens=1,2" %%a in (2bmtdialog.txt) do (
if %%a == 80 (
cls
echo %%b
echo.
pause
goto :setup
)
)
)
goto :disp
复制代码