这个游戏是一个类似于魔塔的游戏

a2002

这个游戏是一个类似于魔塔的游戏（可以说是魔塔的变种），但难度却和魔塔差不多。
太囧了，原创区竟然没权限发不了
话不多说，先上图：




全景: (这是第三层的)


游戏地图20*20，版本17.6.29（2017年6月29日编写完成）

其中CKey.exe,CPaint.exe和EUDC.exe取自Defanive，PlaySound.exe自编,感谢Defanive的第三方,这也算宣传了EUDC吧

还有ttf字体,也选自他编的21层魔塔批处理

这个游戏，是我根据魔塔想出来的,和魔塔差不多

游戏为7层地图，每层20*20，打败大魔王结束游戏（有一定的难度，但实测通关过）

还有，我才初三，见识短浅，不喜勿喷

**********游戏操作**********
*Esc键退出并解除系统占用
*B键切换背景音乐（现只有2个）
*C键设置，进入界面后上下键选择，左右键控制，空格确定
*L键读取（较慢）
*R键重新开始（较慢）
*S键保存游戏，存档是Data\SaveData.dat
*U键使用道具，进入界面后上下键选择，空格确定，Esc关闭

以下是主程序源码(有些乱)

@echo off
:Restart
title 冒险者&set "Music_Control=exit"&taskkill /f /im "PlaySound.exe">nul 2>nul&set "Music_Control="
setlocal enabledelayedexpansion
call :Module_Check
color 0f&mode 40,25&echo.&echo.&echo.&echo.&echo.&echo.&echo.&echo.&echo.&echo.&echo           游戏初始化...
ren "%~dp0Data\N_Game_BGM-1.*" "Game_BGM-1.*">nul 2>nul&ren "%~dp0Data\Game_BGM-2.*" "N_Game_BGM-2.*">nul 2>nul
if "%1" neq "" goto :PlayBGM
start /b "" cmd /c "%~f0" BGM
rem 冒险者游戏，由a2002编写完成，版本：17.6.29
 
call :Module_InitEUDC
call :Module_InitString
call :Module_InitBlocks
call :Module_InitMaps
call :Module_InitFloorPoint
echo           载入地图中...
call :Module_TranslateMaps
cls
 
:Game_Control
call :Module_Echo
:Game_Control_ReChoice
Ckey 27 38 40 37 39 83 76 67 72 85 66 82
if !errorlevel! equ 6 call :PlaySound "Char.mp3"&set Player_>"%~dp0Data\SaveData.dat"&set Map_>>"%~dp0Data\SaveData.dat"&set "Player_Echo_Message=游戏数据保存成功！"&goto :Game_Control
if !errorlevel! equ 7 if exist "%~dp0Data\SaveData.dat" (call :PlaySound "Char.mp3"&for /f "usebackq tokens=*" %%a in ("%~dp0Data\SaveData.dat") do set "%%a"
set "Player_Echo_Message=读取中，请稍后..."&call :Module_DrawMsg&call :ClearMaps&call :Module_TranslateMaps&set "Player_Echo_Message=游戏数据读取成功！"&goto :Game_Control) else (call :PlaySound "Cancel.mp3"&set "Player_Echo_Message=未发现存档记录！"&goto :Game_Control)
set "Player_Echo_Message=H键打开帮助"
if !errorlevel! equ 1 goto :Game_Exit
if !errorlevel! equ 2 if !Player_X! neq 1 (set /a "Player_New_X=Player_X-1","Player_New_Y=Player_Y"&set Player_Onto=g) else goto :Game_Control
if !errorlevel! equ 3 if !Player_X! neq 20 (set /a "Player_New_X=Player_X+1","Player_New_Y=Player_Y"&set Player_Onto=d) else goto :Game_Control
if !errorlevel! equ 4 if !Player_Y! neq 1 (set /a "Player_New_Y=Player_Y-1","Player_New_X=Player_X"&set Player_Onto=e) else goto :Game_Control
if !errorlevel! equ 5 if !Player_Y! neq 20 (set /a "Player_New_Y=Player_Y+1","Player_New_X=Player_X"&set Player_Onto=f) else goto :Game_Control
if !errorlevel! equ 8 set Player_Choice=1&call :PlaySound "Char.mp3"&goto :Module_Config
if !errorlevel! equ 9 call :Module_ShowChat d "版本!Player_Game_Version!　部分第三方及图片由Ｄｅｆａｎｉｖｅ提供，由ａ２００２编写完成，Ｌ／Ｓ键读取／保存，Ｃ／Ｕ键设置／使用道具，空格键确定，ＥＳＣ退出，Ｒ键重新开始，参见ｒｅａｄｍｅ" "" "游戏帮助："&goto :Game_Control
if !errorlevel! equ 10 goto :UseItem
if !errorlevel! equ 11 goto :SetBGM
if !errorlevel! equ 12 endlocal&goto :Restart
set /a "t1=!Player_New_Y!-1"
set "Event_Block=!Map_%Player_NFloor%_%Player_New_X%:~%t1%,1!"
goto :Event_!Block_Event_%Event_Block%!
goto :Game_Control
 
:PlayBGM
!Music_Control!
PlaySound "%~dp0Data\Game_BGM*"
goto :PlayBGM
 
:Module_Check
for %%# in (1.tte BasicData.dat) do if not exist "%~dp0Data\%%#" (echo 找不到数据文件，无法继续&pause>nul&exit)
if /i not "%processor_architecture%" equ "X86" (echo 电脑版本不兼容，无法继续&pause>nul&exit)
for %%# in ("Ckey" "CPaint" "EUDC" "PlaySound") do if not exist "%%~#.exe" call :B64DECODE "%%~#.exe"
goto :eof
 
:Module_InitEUDC
EUDC 0&reg add "HKCU\EUDC\936" /f /v "SystemDefaultEUDCFont" /d "%~dp0Data\1.tte" >nul 2>nul&EUDC 1
goto :eof
 
:Module_InitString
set "RunPath=%~dp0"&set "RunFile=%~nx0"&set "Char_Space=　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　"
set "TPL_Color=0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f"
set "Player_NFloor=1"&set "Player_HP=100"&set "Player_At=0"&set "Player_De=0"
set "Player_YK=0"&set "Player_GK=0"&set "Player_PK=0"&set "Player_Onto=d"&set "Player_BeenTo=1"
set "Player_Echo_Message=Made by a2002，H键打开帮助"
set "Player_Mo=0"&set "Player_Ex=0"&set "Player_KBook=0"
set "Player_Set_Music=1"&set "Player_Message_Set_Music=游戏音效"
set "Player_Set_EDE=1"&set "Player_Message_Set_EDE=取物延迟"
set "Player_Set_SAD=2"&set "Player_Message_Set_SAD=战前查看怪物信息"
set "Player_Set_Note=2"&set "Player_Message_Set_Note=记录留言（不建议关闭）"&set "CN_Note=记事本，用来记录所获得的信息"&set "Player_Use_Note=0"&set "Player_Max_Note=0"
set "Player_Use_Cs=0"&set "CN_Cs=幸运十字架，用来提升自己的能力"
set "Player_Use_JF=0"&set "CN_JF=传送器，用来跳转楼层"
set "Player_Use_MC=0"&set "CN_MC=圣水瓶，可以使生命翻倍"
set "Player_Use_RP=0"&set "CN_RP=中心对称转换器，传送玩家（慎重使用）"
goto :eof
 
:Module_InitBlocks
cd /d %temp%
findstr "^^#Block#" "!RunPath!Data\BasicData.dat" >#GameTmp#.tmp
for /f "tokens=2-7 delims=_" %%a in (#GameTmp#.tmp) do (
set "Block_Top_%%a=%%b"&set "Block_Bottom_%%a=%%c"&set "Block_Event_%%a=%%d"&set "Block_Color_%%a=%%e"&set "Block_Msg_%%a=%%f"
set Block_ColorA_%%a=!Block_Color_%%a!&set Block_ColorA_%%a=!Block_ColorA_%%a:a=Ａ!&set Block_ColorA_%%a=!Block_ColorA_%%a:b=Ｂ!&set Block_ColorA_%%a=!Block_ColorA_%%a:c=Ｃ!&set Block_ColorA_%%a=!Block_ColorA_%%a:d=Ｄ!&set Block_ColorA_%%a=!Block_ColorA_%%a:e=Ｅ!&set Block_ColorA_%%a=!Block_ColorA_%%a:f=Ｆ!)
findstr "^^#Msg#" "!RunPath!Data\BasicData.dat" >#GameTmp#.tmp
for /f "tokens=2-7 delims=_" %%a in (#GameTmp#.tmp) do set Player_Game_Name=%%a&set Player_Game_Version=%%b
del #GameTmp#.tmp >nul 2>nul
cd /d "%RunPath%"
goto :eof
 
:Module_InitMaps
cd /d %temp%
findstr "^^#Map#" "!RunPath!Data\BasicData.dat" >#GameTmp#.tmp
for /f "tokens=2,3 delims=_" %%a in (#GameTmp#.tmp) do (
for /l %%c in (0,20,380) do (
set t1=%%b&set /a t2=%%c/20+1
set "Map_%%a_!t2!=!t1:~%%c,20!
))
del #GameTmp#.tmp >nul 2>nul
cd /d "%RunPath%"
goto :eof
 
:Module_InitFloorPoint
cd /d %temp%
findstr "^^#Point#" "!RunPath!Data\BasicData.dat" >#GameTmp#.tmp
for /f "tokens=2-6 delims=_" %%a in (#GameTmp#.tmp) do set "EI_%%a_1_X=%%b"&set "EI_%%a_1_Y=%%c"&set "EI_%%a_2_X=%%d"&set "EI_%%a_2_Y=%%e"
set Player_X=!EI_1_1_X!&set Player_Y=!EI_1_1_Y!
del #GameTmp#.tmp >nul 2>nul
cd /d "%RunPath%"
goto :eof
 
:ClearMaps
for /l %%# in (1,1,100) do if defined Color_Map_%%#_1 set "Color_Map_%%#_1="
goto :eof
 
:Module_TranslateMaps
if defined Color_Map_!Player_NFloor!_1 goto :eof
for /l %%# in (1,1,20) do (
set "t1=!Map_%Player_NFloor%_%%#!"&set "t2=!t1!"&set "t3=!t1!"
for /f "tokens=3 delims=_" %%a in ('set Block_Top_') do set Top_Map_!Player_NFloor!_%%#=!t1:%%a!&set "t1=!Top_Map_%Player_NFloor%_%%#!"
for /f "tokens=3 delims=_" %%a in ('set Block_Bottom_') do set Bottom_Map_!Player_NFloor!_%%#=!t2:%%a!&set "t2=!Bottom_Map_%Player_NFloor%_%%#!"
for /f "tokens=3,4 delims=_=" %%a in ('set Block_ColorA_') do set Color_Map_!Player_NFloor!_%%#=!t3:%%a=%%b%%b!&set "t3=!Color_Map_%Player_NFloor%_%%#!"
set Color_Map_!Player_NFloor!_%%#=!Color_Map_%Player_NFloor%_%%#:Ａ=a!&set Color_Map_!Player_NFloor!_%%#=!Color_Map_%Player_NFloor%_%%#:Ｂ=b!&set Color_Map_!Player_NFloor!_%%#=!Color_Map_%Player_NFloor%_%%#:Ｃ=c!&set Color_Map_!Player_NFloor!_%%#=!Color_Map_%Player_NFloor%_%%#:Ｄ=d!&set Color_Map_!Player_NFloor!_%%#=!Color_Map_%Player_NFloor%_%%#:Ｅ=e!&set Color_Map_!Player_NFloor!_%%#=!Color_Map_%Player_NFloor%_%%#:Ｆ=f!)
goto :eof
 
:Game_Exit
cls&EUDC 0&reg add "HKCU\EUDC\936" /f /v "SystemDefaultEUDCFont" /d "EUDC.TTE" >nul 2>nul&EUDC 1
call :Module_ShowChat b "按╳关闭" "1" "" ""
CKey ?
 
:Module_Echo
set Color=&for /l %%a in (1,1,12) do set S_%%a=■
set "t=0"&set "t1=!Player_HP!        "&set "t2=!Player_YK!,!Player_GK!,!Player_PK!        "&set "t3=!Player_At!        "&set "t4=!Player_De!        "&set "t5=!Player_Mo!        "&set "t6=!Player_Ex!        "
(if !Player_X! lss 6 set /a t+=1)&(if !Player_Y! lss 6 set /a t+=2)&(if !Player_Y! gtr 14 set /a t+=4)&(if !Player_X! gtr 14 set /a t+=8)
set S_!t!=□&if !t! equ 0 set S_6=□
set "Echo=  !S_3!!S_1!!S_5!血量：!t1:~0,8!  钥匙：!t2:~0,10!  !S_2!!S_6!!S_4!攻击：!t3:~0,8!  防御：!t4:~0,8!    !S_10!!S_8!!S_12!金币：!t5:~0,8!  经验：!t6:~0,8!  "
set /a "Echo_X=!Player_X!-4","Echo_Y=!Player_Y!-5"&set Color=
(if !Player_X! lss 5 set Echo_X=1)&(if !Player_X! gtr 15 set Echo_X=11)&(if !Player_Y! lss 5 set Echo_Y=0)&(if !Player_Y! gtr 15 set Echo_Y=10)
set /a "t1=Echo_X+9","t2=Echo_Y*4","t3=t2/2"
for /l %%# in (!Echo_X!,1,!t1!) do (
set Echo=!Echo!!Top_Map_%Player_NFloor%_%%#:~%t3%,20!!Bottom_Map_%Player_NFloor%_%%#:~%t3%,20!
set Color=!Color!!Color_Map_%Player_NFloor%_%%#:~%t2%,40!!Color_Map_%Player_NFloor%_%%#:~%t2%,40!)
set /a "t1=Player_Y-Echo_Y","t2=Player_X-Echo_X+1","t3=t1*2+t2*40+51","t4=t3+2","t5=t4+20"
set "Echo=!Echo:~0,%t3%!!Block_Top_%Player_Onto%!!Echo:~%t4%,18!!Block_Bottom_%Player_Onto%!!Echo:~%t5%!"
CPaint 0 0 0fe2e2e20f0f0f0a0a0a0a0f0f0f0f0a0a0a0a0a0fe2e2e20f0f0f0a0a0a0a0f0f0f0f0a0a0a0a0f0fe2e2e20f0f0f0a0a0a0a0f0f0f0f0a0a0a0a0f!Color! "!Echo!"
title !Player_Game_Name! - 第 !Player_NFloor! 层
call :Module_DrawMsg&goto :eof
 
:Module_DrawPlayer
set "t=!Block_Color_%Player_Onto%!!Block_Color_%Player_Onto%!"
set /a "t1=Player_Y*2-Echo_Y*2-2","t2=Player_X*2-Echo_X*2+3","t3=t2+1"
CPaint !t1! !t2! !t! "!Block_Top_%Player_Onto%!"
CPaint !t1! !t3! !t! "!Block_Bottom_%Player_Onto%!"
goto :eof
 
:Module_DrawMsg
CPaint 0 23 "!TPL_Color!!TPL_Color!" "!Player_Echo_Message!!Char_Space!!Char_Space!"
goto :eof
 
:UseItem
set "Char_Top=┏━━━━━━━━道具━━━━━━━━┓"&set "Char_Bottom=┗━━━━━━━━━━━━━━━━━━┛"&set "Player_Choice=1"&set "Msg_1="&set "Msg="&set "t=0"
for /f "tokens=3,4 delims=_=" %%a in ('set Player_Use_') do if "%%b" equ "1" (set /a "t+=1"&set "Msg_!t!=!CN_%%a!"&set "Basic_!t!=UseItem_%%a")
if not defined Msg_1 call :PlaySound "Cancel.mp3"&set "Player_Echo_Message=你没有可使用的道具！"&goto :Game_Control
for /l %%# in (1,1,!t!) do set "Msg_%%#=!Msg_%%#!!Char_Space!"&set "Msg=!Msg!┃!Msg_%%#:~0,18!┃"
set "Msg=!Msg!!Char_Space!!Char_Space!!Char_Space!!Char_Space!!Char_Space!!Char_Space!!Char_Space!!Char_Space!"
set "Msg=!Msg:　　　　　　　　　　　　　　　　　　　　=┃　　　　　　　　　　　　　　　　　　┃!"
set "Color=!TPL_Color!!TPL_Color!!TPL_Color!!TPL_Color!"&set "Color=!Color!!Color!!Color!!Color!!Color!!Color!!Color!"
:UseItem_loop
call :PlaySound "Choice.mp3"&set /a "t1=Player_Choice*40+2"
CPaint 0 0 "!Color:~0,%t1%!!TPL_Color:~1,36!!Color!" "!Char_Top!!Msg:~0,460!!Char_Bottom!"
CKey 27 32 38 40
if !errorlevel! equ 1 call :PlaySound "Cancel.mp3"&goto :Game_Control
if !errorlevel! equ 2 goto :!Basic_%Player_Choice%!
if !errorlevel! equ 3 if "!Player_Choice!" equ "1" (set "Player_Choice=!t!") else (set /a "Player_Choice-=1")
if !errorlevel! equ 4 if "!Player_Choice!" equ "!t!" (set "Player_Choice=1") else (set /a "Player_Choice+=1")
goto :UseItem_loop
 
:UseItem_Note
if !Player_Set_Note! equ 2 goto :Game_Control
if !Player_Max_Note! equ 0 call :PlaySound "Cancel.mp3"&set "Player_Echo_Message=你开启记事本时还未与人交谈过！"&goto :Game_Control
set /a "t4=Player_Max_Note+1"
for /l %%# in (!t4!,1,999) do set "Player_Note_Save_%%#="
set "Player_Choice=1"&set "t1=关"&if !Player_Set_Note! equ 1 set "t1=开"
set "Char_Top=┏━━━━━━记事本（!t1!）━━━━━━┓"&set "Char="
set "Char_Between=┣━━━━━━━━━━━━━━━━━━┫"&set "Char_Bottom=┗━━━━━━━━━━━━━━━━━━┛"&set "t=0"
for /f "tokens=4,5 delims=_=" %%a in ('set Player_Note_Save_') do set /a "t+=1"&set "t2=0%%a"&set "Msg_!t!=%%b!Char_Space!!Char_Space!!Char_Space!"&if %%a leq !Player_Max_Note! set "Char=!Char!┃　　　　　　　第 !t2:~-2! 条　　　　　　　┃"
set "Char=!Char!!Char_Space!!Char_Space!!Char_Space!!Char_Space!!Char_Space!!Char_Space!!Char_Space!"
set "Char=!Char:　　　　　　　　　　　　　　　　　　　　=┃　　　　　　　    　　　　　　　　　┃!"
set "t1=20"&set "Echo_Choice=1"&set "Color=!TPL_Color!!TPL_Color!!TPL_Color!!TPL_Color!!TPL_Color!"&set "Color=!Color!!Color!!Color!!Color!!Color!"
:UseItem_NotePad_loop
call :PlaySound "Choice.mp3"&set "Msg=!Msg_%Player_Choice%!"
set "Choice_Massage=┃!Msg:~0,18!┃┃!Msg:~18,18!┃┃!Msg:~36,18!┃┃!Msg:~54,18!┃"
set /a "t2=Echo_Choice*40+2","t3=(Player_Choice-Echo_Choice)*22"
CPaint 0 0 "!Color:~0,%t2%!!TPL_Color:~1,36!!Color!" "!Char_Top!!Char:~%t3%,396!!Char_Between!!Choice_Massage!!Char_Bottom!"
CKey 38 40 32
if !errorlevel! equ 1 (if !Player_Choice! equ 1 (set "Player_Choice=!Player_Max_Note!"&set "Echo_Choice=18") else (set /a Echo_Choice-=1&set /a Player_Choice-=1))
if !errorlevel! equ 2 (if !Player_Choice! equ !Player_Max_Note! (set "Player_Choice=1"&set "Echo_Choice=1") else (set /a Echo_Choice+=1&set /a Player_Choice+=1))
if !errorlevel! equ 3 call :PlaySound "Cancel.mp3"&goto :Game_Control
if !Echo_Choice! gtr !Player_Max_Note! set "Echo_Choice=!Player_Max_Note!"
if !Echo_Choice! lss 1 set "Echo_Choice=1"
if !Echo_Choice! gtr 18 set "Echo_Choice=18"
goto :UseItem_NotePad_loop
 
:UseItem_Cs
call :PlaySound "GetItem2.mp3"
set /a "Player_HP+=Player_HP/3","Player_At+=Player_At/3","Player_De+=Player_De/3"
set "Player_Use_Cs=0"&set "Player_Echo_Message=使用了十字架，能力提升三分之一"
goto :Game_Control
 
:UseItem_JF
set "Player_Choice=1"&set "Char="
set "Char_Top=┏━━━━━━━跳转楼层━━━━━━━┓"
for /l %%# in (1,1,!Player_BeenTo!) do set "t1=0%%#"&set "Char=!Char!┃　　　　　　　第 !t1:~-2! 层　　　　　　　┃"
set "Char=!Char!!Char_Space!!Char_Space!!Char_Space!!Char_Space!!Char_Space!!Char_Space!!Char_Space!!Char_Space!"
set "Char=!Char:　　　　　　　　　　　　　　　　　　　　=┃　　　　　　　　    　　　　　　　　┃!"
set "Char_Bottom=┗━━━━━━━━━━━━━━━━━━┛"&set "Color=!TPL_Color!!TPL_Color!!TPL_Color!!TPL_Color!"&set "Color=!Color!!Color!!Color!!Color!!Color!!Color!"
:UseItem_JF_loop
call :PlaySound "Choice.mp3"
set /a "t1=Player_Choice*40+2"
CPaint 0 0 "!Color:~0,%t1%!!TPL_Color:~1,36!!Color!" "!Char_Top!!Char:~0,506!!Char_Bottom!"
CKey 38 40 27 32
if !errorlevel! equ 1 (if !Player_Choice! equ 1 (set Player_Choice=!Player_BeenTo!) else (set /a Player_Choice-=1))
if !errorlevel! equ 2 (if !Player_Choice! equ !Player_BeenTo! (set Player_Choice=1) else (set /a Player_Choice+=1))
if !errorlevel! equ 3 call :PlaySound "Cancel.mp3"&goto :Game_Control
if !errorlevel! equ 4 (
if !Player_NFloor! gtr !Player_Choice! (set t9=2) else (set t9=1)
set "Player_NFloor=!Player_Choice!"
set "Player_Echo_Message=载入地图中，请稍后"&call :Module_DrawMsg&call :Module_TranslateMaps
set "Player_Echo_Message=进入 第 !Player_NFloor! 层"&call :PlaySound "Stair.mp3"
call :Command_2 !Player_NFloor! !t9!&goto :Game_Control)
goto :UseItem_JF_loop
 
:UseItem_MC
call :PlaySound "GetItem2.mp3"
set /a "Player_HP*=2"
set "Player_Use_MC=0"&set "Player_Echo_Message=使用了圣水，生命翻倍"
goto :Game_Control
 
:UseItem_RP
set /a "t1=21-Player_X","t2=21-Player_Y","t3=t2-1"
set "t4=!Map_%Player_NFloor%_%t1%:~%t3%,1!"
if "!t4!" equ "b" (
set /a "Player_X=t1","Player_Y=t2"&call :PlaySound "Enter.mp3"
set "Player_Use_RP=0"&set "Player_Echo_Message=传送成功！") else (
call :PlaySound "Cancel.mp3"&set "Player_Echo_Message=对应点不是平地，不能进入！")
goto :Game_Control
 
:SetBGM
set "Music_Control="&call :Module_ShowChoice b "选择曲目：" "Ｂａｓｉｃ　ＢＧＭ" "Ｂｌｏｏｄｙ　Ｔｅａｒｓ" "关闭背景音乐" "" "背景音乐"
for %%# in (4 5) do if !Choice_Return! equ %%# call :PlaySound "Cancel.mp3"&goto :Game_Control
ren "%~dp0Data\Game_BGM-1.*" "N_Game_BGM-1.*">nul 2>nul&ren "%~dp0Data\Game_BGM-2.*" "N_Game_BGM-2.*">nul 2>nul
for %%# in (1 2) do if !Choice_Return! equ %%# ren "%~dp0Data\N_Game_BGM-%%#.*" "Game_BGM-%%#.*">nul 2>nul&taskkill /f /im "PlaySound.exe">nul 2>nul&set "Music_Control="&goto Game_Control
set "Music_Control=exit"&taskkill /f /im "PlaySound.exe">nul 2>nul&set "Player_Echo_Message=BGM已关闭"&goto Game_Control
 
:Module_Config
set "Color="&set "t6=0"&for /l %%# in (1,1,25) do set "Color=!Color!!TPL_Color!"&set "Set_%%#="
set "Char=┏━━━━━━━━设置━━━━━━━━┓"&set "t2=23"
for /f "tokens=3,4 delims=_=" %%a in ('set Player_Set_') do (if %%b neq 2 (
set "t1=关"&if !Player_Set_%%a! equ 1 set "t1=开"
set /a "t6+=1"&set "Set_!t6!=Player_Set_%%a"
set "t3=!Player_Message_Set_%%a!!Char_Space!"
set "Char=!Char!┃!t3:~0,16!　!t1!┃"&set /a t2-=1))
if !t2! neq 0 for /l %%# in (1,1,!t2!) do set "Char=!Char!┃!Char_Space:~0,18!┃"
set "Char=!Char!┗━━━━━━━━━━━━━━━━━━┛"
set /a "t4=Player_Choice*40+2","t5=t4+36"
set Color=!Color:~0,%t4%!!TPL_Color:~1,36!!Color:~%t5%!
CPaint 0 0 "!Color!" "!Char!"
CKey 32 38 40 37 39
if !errorlevel! equ 1 call :PlaySound "Cancel.mp3"&goto :Game_Control
call :PlaySound "Choice.mp3"
if !errorlevel! equ 2 if !Player_Choice! neq 1 (set /a Player_Choice-=1) else (set Player_Choice=!t6!)
if !errorlevel! equ 3 if !Player_Choice! neq !t6! (set /a Player_Choice+=1) else (set Player_Choice=1)
if !errorlevel! equ 4 if defined Set_!Player_Choice! set !Set_%Player_Choice%!=0
if !errorlevel! equ 5 if defined Set_!Player_Choice! set !Set_%Player_Choice%!=1
goto :Module_Config
 
:Module_Calc
for /f "tokens=1-7 delims=," %%a in ("!Block_Msg_%Event_Block%!") do set "M_Na=%%a"&set "M_HP=%%b"&set "M_At=%%c"&set "M_De=%%d"&set "M_Mo=%%e"&set "M_Ex=%%f"&set "M_Ty=%%g"
set /a "P_M=Player_At-M_De"&set /a "M_P=M_At-Player_De"
if !M_P! lss 0 set "M_P=0"
if !P_M! leq 0 (set "HP_Return=-") else (
set /a "HP_Return=M_HP/P_M","t1=M_HP%%P_M"
if "!t1!" equ "0" set /a "HP_Return-=1"
set /a "HP_Return*=M_P"
if "!M_Ty!"=="1" set /a "HP_Return+=100"
if "!M_Ty!"=="2" set /a "HP_Return+=300"
if "!M_Ty!"=="3" set /a "HP_Return+=Player_HP/4"
if "!M_Ty!"=="4" set /a "HP_Return+=Player_HP/3")
goto :eof
 
:Module_SaveNote
if "!Player_Set_Note!" equ "1" set /a "Player_Max_Note+=1"&if "!Player_Max_Note:~0,-1!" neq "" (set "Player_Note_Save_!Player_Max_Note!=%~1") else (set "Player_Note_Save_0!Player_Max_Note!=%~1")
goto :eof
 
:Module_ShowChat
call :Module_DrawPlayer
if "%~5" equ "1" call :Module_SaveNote "%~4%~2"
if "%~3" equ "" call :PlaySound "Char.mp3"
set "Head=%~4!Char_Space:　=━!"
set "t1=%~2!Char_Space!!Char_Space!"
if "!t1:~30,15!" equ "!Char_Space:~0,15!" set "t1=!Char_Space:~0,15!!t1!"
if "!t1:~60,15!" equ "!Char_Space:~0,15!" set "t1=!Char_Space:~0,15!!t1!"
set "Char=┏!Head:~0,18!┓┃　　　!t1:~0,15!┃┃　　　!t1:~15,15!┃┃!Block_Top_%~1!　!t1:~30,15!┃┃!Block_Bottom_%~1!　!t1:~45,15!┃┃　　　!t1:~60,15!┃┃　　　!t1:~75,15!┃┗━━━━━━━━━━━━━━━━━━┛"
set "Color=!TPL_Color!!TPL_Color!!TPL_Color!0f!Block_Color_%~1!!Block_Color_%~1!0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f!Block_Color_%~1!!Block_Color_%~1!0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f0f!TPL_Color!!TPL_Color!!TPL_Color!"
CPaint 0 15 !Color! !Char!&CKey 32
call :PlaySound "Cancel.mp3"
goto :eof
 
:Module_ShowChoice
call :Module_DrawPlayer
set "Player_Choice=1"&set "t1=%~2!Char_Space!"&set "t2=%~3!Char_Space!"&set "t3=%~4!Char_Space!"&set "t4=%~5!Char_Space!"&set "t5=%~6!Char_Space!"&set "Head=%~7!Char_Space:　=━━!"
for /l %%# in (2,1,6) do if "!t%%#!" equ "!Char_Space!" set "t%%#=ＮＯ　ＣＨＯＩＣＥ!Char_Space!"
set "Char=┏!Head:~0,18!┓┃　　　!t1:~0,15!┃┃　　　!t2:~0,15!┃┃!Block_Top_%~1!　!t3:~0,15!┃┃!Block_Bottom_%~1!　!t4:~0,15!┃┃　　　!t5:~0,15!┃┃　　　取消　　　　　　　　　　　　　┃┗━━━━━━━━━━━━━━━━━━┛"
:Module_ShowChoice_loop
call :PlaySound "Choice.mp3"
for /l %%# in (1,1,5) do set Choice_%%#_Color=!TPL_Color:~0,30!
set Choice_!Player_Choice!_Color=!TPL_Color:~1,30!
set "Color=!TPL_Color!!TPL_Color!0f0f0f0f!Choice_1_Color!0f0f!Block_Color_%~1!!Block_Color_%~1!0f!Choice_2_Color!0f0f!Block_Color_%~1!!Block_Color_%~1!0f!Choice_3_Color!0f0f0f0f0f!Choice_4_Color!0f0f0f0f0f!Choice_5_Color!0f!TPL_Color!"
CPaint 0 15 !Color! !Char!&CKey 38 40 32
if !errorlevel! equ 1 if !Player_Choice! neq 1 (set /a Player_Choice-=1) else (set Player_Choice=5)
if !errorlevel! equ 2 if !Player_Choice! neq 5 (set /a Player_Choice+=1) else (set Player_Choice=1)
if !errorlevel! equ 3 (set Choice_Return=!Player_Choice!&goto :eof)
goto :Module_ShowChoice_loop
 
:PlaySound
if !Player_Set_Music! equ 1 start /b "" "PlaySound.exe" "%~dp0Data\%~1"
goto :eof
 
:Module_SetBlock
set /a "t1=%~3-1","t2=t1*2","t3=t2+2","t4=t2*2","t5=t3*2"
set "Map_%~1_%~2=!Map_%~1_%~2:~0,%t1%!%~4!Map_%~1_%~2:~%~3!"
set "Top_Map_%~1_%~2=!Top_Map_%~1_%~2:~0,%t2%!!Block_Top_%~4!!Top_Map_%~1_%~2:~%t3%!"
set "Bottom_Map_%~1_%~2=!Bottom_Map_%~1_%~2:~0,%t2%!!Block_Bottom_%~4!!Bottom_Map_%~1_%~2:~%t3%!"
set "Color_Map_%~1_%~2=!Color_Map_%~1_%~2:~0,%t4%!!Block_Color_%~4!!Block_Color_%~4!!Color_Map_%~1_%~2:~%t5%!"
goto :eof
 
:Module_Get
call :Module_SetBlock !Player_NFloor! !Player_New_X! !Player_New_Y! b
if "!Player_Set_EDE!" equ "0" set /a "Player_X=!Player_New_X!","Player_Y=!Player_New_Y!"
goto :eof
 
:Command_1
set Echo_%4_%5=!Map_%1_%2:~%3,1!
goto :eof
:Command_2
set Player_X=!EI_%~1_%~2_X!&set Player_Y=!EI_%~1_%~2_Y!
goto :eof
 
:Event_0
call :Module_DrawPlayer&goto :Game_Control_ReChoice
 
:Event_1
set /a "Player_X=!Player_New_X!","Player_Y=!Player_New_Y!"
goto :Game_Control
 
:Event_2
goto :Event_Place_!Player_NFloor!_!Player_New_X!_!Player_New_Y!
 
:Event_3
for /f "tokens=1,2 delims=," %%a in ("!Block_Msg_%Event_Block%!") do (
if !Player_%%b! equ 0 (
call :PlaySound "Cancel.mp3"
set "Player_Echo_Message=你没有%%a钥匙！"
goto :Game_Control)
call :Module_Get&set /a Player_%%b-=1&call :PlaySound "Door.mp3"&set "Player_Echo_Message=使用了%%a钥匙打开门。"&goto :Game_Control)
 
:Event_4
set /a Player_NFloor+=1
if !Player_NFloor! gtr !Player_BeenTo! set "Player_BeenTo=!Player_NFloor!"
set "Player_Echo_Message=载入地图中，请稍后"&call :Module_DrawMsg&call :Module_TranslateMaps
set "Player_Echo_Message=进入 第 !Player_NFloor! 层"&call :PlaySound "Stair.mp3"
set Player_X=!EI_%Player_NFloor%_1_X!&set Player_Y=!EI_%Player_NFloor%_1_Y!
goto :Game_Control
 
:Event_5
set /a Player_NFloor-=1
set "Player_Echo_Message=载入地图中，请稍后"&call :Module_DrawMsg&call :Module_TranslateMaps
set "Player_Echo_Message=进入 第 !Player_NFloor! 层"&call :PlaySound "Stair.mp3"
set Player_X=!EI_%Player_NFloor%_2_X!&set Player_Y=!EI_%Player_NFloor%_2_Y!
goto :Game_Control
 
:Event_6
for /f "tokens=1-4 delims=," %%a in ("!Block_Msg_%Event_Block%!") do (set "Player_Echo_Message=获得%%b"&set /a Player_%%a+=%%c&call :PlaySound "%%d")
call :Module_Get&goto :Game_Control
 
:Event_7
for /f "tokens=1-5 delims=," %%a in ("!Block_Msg_%Event_Block%!") do (call :PlaySound "%%d"&call :Module_ShowChat "!Event_Block!" "%%b" 1 "信息：" "1"&set Player_Set_%%a=%%c&if "%%e" equ "1" set "Player_Use_%%a=1")
call :Module_Get&goto :Game_Control
 
:Event_8
call :PlaySound "Cancel.mp3"&set "Player_Echo_Message=你不能打开这扇门！"
goto :Game_Control
 
:Event_9
call :Module_Calc
if !Player_Set_SAD! equ 1 (call :PlaySound "Char.mp3"
set "Char1=!M_Na!：攻防：!M_At!-!M_De! 金经：!M_Mo!-!M_Ex!"
if "!HP_Return!" neq "-" (set "Char2=若战胜它，你将损失!HP_Return!血量") else (set "Char2=无法战胜这个怪物！")
CPaint 0 23 "!TPL_Color!!TPL_Color!" "!Char1!"&CPaint 0 24 "!TPL_Color!!TPL_Color!" "!Char2!"
Ckey 32 27&if !errorlevel! equ 2 call :PlaySound "Cancel.mp3"&goto :Game_Control)
if "!HP_Return!" neq "-" if !HP_Return! lss !Player_HP! (
set /a Player_HP-=HP_Return&set /a Player_Mo+=M_Mo&set /a Player_Ex+=M_Ex&call :Module_Get
if "!Event_Block!" equ "⑥" goto :Game_End
call :PlaySound "Fight.mp3"&set "Player_Echo_Message=打败!M_Na!，获得金经：!M_Mo!-!M_Ex!，损失!HP_Return!血量！"&goto :Game_Control)
call :PlaySound "Cancel.mp3"&set "Player_Echo_Message=无法战胜"
goto :Game_Control
 
:Event_A
for /f "tokens=1-5 delims=," %%a in ("!Block_Msg_%Event_Block%!") do (call :PlaySound "%%d"&call :Module_ShowChat "!Event_Block!" "%%b" 1 "信息：" "1"&set Player_%%a=%%c&if "%%e" equ "1" set "Player_Use_%%a=1")
call :Module_Get&goto :Game_Control
 
:Event_B
call :Module_Get&goto :Game_Control
 
:Event_Place_1_3_4
set /a "Player_At+=3","Player_De+=3","Player_YK+=1","Player_GK+=1","Player_PK+=1"
call :PlaySound "Prop.mp3"
set "Player_Echo_Message=获得宝箱，攻防+3，各种钥匙+1"&call :Module_Get
goto :Game_Control
 
:Event_Place_1_5_8
set /a "Player_Mo+=50"
call :Module_ShowChat n "欢迎来到!Player_Game_Name!游戏，我先给你一些金币吧！" "" "老人：" "1"
set "Player_Echo_Message=获得 50 金币"&call :Module_Get
goto :Game_Control
 
:Event_Place_1_13_10
call :Module_ShowChoice l "交金币就开路！" "交１００金币" "一会儿再说" "" "" "挡道的人："
if !Choice_Return! equ 1 (if !Player_Mo! geq 100 (set "Player_Echo_Message=上交 100 金币"&call :PlaySound "Enter.mp3"&set /a Player_Mo-=100&call :Module_Get) else (call :PlaySound "Cancel.mp3"&set "Player_Echo_Message=没有 100 金币")) else call :PlaySound "Cancel.mp3"
goto :Game_Control
 
:Event_Place_1_16_12
call :Module_ShowChoice ３ "我有一副宝石，出５０金经就给你" "交５０金经" "一会儿再说" "" "" "商人："
if !Choice_Return! equ 1 (if !Player_Mo! geq 50 if !Player_Ex! geq 50 (
call :PlaySound "Enter.mp3"
set /a Player_Mo-=50,Player_Ex-=50
set /a Player_At+=1,Player_De+=1
set "Player_Echo_Message=交易成功！"&call :Module_DrawMsg
call :Module_ShowChat ３ "告诉你一件事，蓝门只能做任务打开，其他门用钥匙打开" "1" "商人：" "1"
call :Module_Get&goto :Game_Control)
call :PlaySound "Cancel.mp3"
call :Module_ShowChat ３ "等你有５０金经再说吧" "1" "商人：" ""&goto :Game_Control
) else call :PlaySound "Cancel.mp3"&goto :Game_Control
 
:Event_Place_2_2_7
goto :Event_1
 
:Event_Place_2_2_8
if !Player_KBook! equ 0 (if "!Map_2_2:~6,1!" equ "b" (call :Module_ShowChat n "一张黄皮纸书卷，带你走向新的世界。" "" "老人：" "1"&call :Module_SetBlock 2 2 7 c) else (goto :Game_Control_ReChoice)) else (call :Module_ShowChat n "你找到了书卷，新世界的大门已打开。" "" "老人：" "1"&call :Module_Get&call :Module_SetBlock 2 9 8 b)
goto :Game_Control
 
:Event_Place_2_4_15
call :Module_ShowChat d "你自由了，快帮助我！" "" "勇士：" ""
call :Module_ShowChat n "好吧，给你个盾吧。" "1" "老人：" ""
set /a "Player_De+=30"&set "Player_Echo_Message=获得钢盾，防御+30"
call :Module_Get&goto :Game_Control
 
:Event_Place_2_4_16
call :Module_ShowChat d "你得救了，快谢谢我！" "" "勇士：" ""
call :Module_ShowChat n "好吧，给你把剑吧。" "1" "老人：" ""
set /a "Player_At+=70"&set "Player_Echo_Message=获得钢剑，攻击+70"
call :Module_Get&goto :Game_Control
 
:Event_Place_3_2_7
call :Module_ShowChat n "我曾发现一堵墙有个洞，于是我把它弄成一个隐藏的墙了，找到它吧，内有大量宝藏。" "" "老人：" "1"
call :Module_SetBlock 2 18 14 "八"
call :Module_Get&goto :Game_Control
 
:Event_Place_3_2_9
call :Module_ShowChoice n "消耗经验，你可以：" "提升１级（１００点）" "增加５点攻击（３０点）" "增加５点防御（３０点）" "增加９００点生命（３０点）" "老人："
if "!Choice_Return!" equ "5" call :PlaySound "Cancel.mp3"&goto :Game_Control
if "!Choice_Return!" equ "1" (
if !Player_Ex! geq 100 (set /a "Player_Ex-=100","Player_HP+=1000","Player_At+=7","Player_De+=7"&call :PlaySound "Enter.mp3"&set "Player_Echo_Message=提升了一级"&goto :Game_Control) else (set "Player_Echo_Message=你的经验不够！"&call :PlaySound "Cancel.mp3"&goto :Game_Control)) else (
if !Player_Ex! geq 30 (set /a Player_Ex-=30
if "!Choice_Return!" equ "2" set /a Player_At+=5
if "!Choice_Return!" equ "3" set /a Player_De+=5
if "!Choice_Return!" equ "4" set /a Player_HP+=900
set "Player_Echo_Message=交易成功！"&goto :Game_Control
) else (set "Player_Echo_Message=你的经验不够！"&call :PlaySound "Cancel.mp3"&goto :Game_Control))
 
:Event_Place_3_3_15
set /a "Player_At+=7","Player_De+=7","Player_HP+=1000"
call :PlaySound "Prop.mp3"
set "Player_Echo_Message=获得宝箱，等级提升一级"&call :Module_Get
goto :Game_Control
 
:Event_Place_3_8_4
call :Module_ShowChoice n "使用２５金币，你可以：" "增加８００点生命" "增加４点攻击" "增加４点防御" "" "老人："
if !Player_Mo! lss 25 call :PlaySound "Cancel.mp3"&goto :Game_Control
if "!Choice_Return!" equ "1" set /a "Player_Mo-=25","Player_HP+=800"&set "Player_Echo_Message=交易成功！"&goto :Game_Control
if "!Choice_Return!" equ "2" set /a "Player_Mo-=25","Player_At+=4"&set "Player_Echo_Message=交易成功！"&goto :Game_Control
if "!Choice_Return!" equ "3" set /a "Player_Mo-=25","Player_De+=4"&set "Player_Echo_Message=交易成功！"&goto :Game_Control
call :PlaySound "Cancel.mp3"&goto :Game_Control
 
:Event_Place_3_8_11
set /a "Player_YK+=1","Player_GK+=1","Player_PK+=1"
call :PlaySound "Prop.mp3"
set "Player_Echo_Message=获得宝箱，各种钥匙+1"&call :Module_Get
goto :Game_Control
 
:Event_Place_3_12_15
call :Module_ShowChoice n "你可以在这里购买钥匙：" "买黄钥匙（￥１０）" "买绿钥匙（￥５０）" "买紫钥匙（￥１００）" "" "老人："
if "!Choice_Return!" equ "1" (if !Player_Mo! geq 10 (set /a "Player_Mo-=10","Player_YK+=1"&call :PlaySound "Enter.mp3"&set "Player_Echo_Message=交易成功！"&goto :Game_Control) else (call :PlaySound "Cancel.mp3"&set "Player_Echo_Message=没有 10 金币"&goto :Game_Control))
if "!Choice_Return!" equ "2" (if !Player_Mo! geq 50 (set /a "Player_Mo-=50","Player_GK+=1"&call :PlaySound "Enter.mp3"&set "Player_Echo_Message=交易成功！"&goto :Game_Control) else (call :PlaySound "Cancel.mp3"&set "Player_Echo_Message=没有 50 金币"&goto :Game_Control))
if "!Choice_Return!" equ "3" (if !Player_Mo! geq 100 (set /a "Player_Mo-=100","Player_PK+=1"&call :PlaySound "Enter.mp3"&set "Player_Echo_Message=交易成功！"&goto :Game_Control) else (call :PlaySound "Cancel.mp3"&set "Player_Echo_Message=没有 100 金币"&goto :Game_Control))
call :PlaySound "Cancel.mp3"&goto :Game_Control
 
:Event_Place_4_15_13
set /a "Player_YK+=4","Player_HP+=500"
call :PlaySound "Prop.mp3"
set "Player_Echo_Message=获得宝箱，黄钥匙+4，血+500"&call :Module_Get
goto :Game_Control
 
:Event_Place_5_13_4
call :Module_ShowChoice n "使用１００金币，你可以：" "增加４０００点生命" "增加２０点攻击" "增加２０点防御" "" "老人："
if !Player_Mo! lss 100 call :PlaySound "Cancel.mp3"&goto :Game_Control
if "!Choice_Return!" equ "1" set /a "Player_Mo-=100","Player_HP+=4000"&set "Player_Echo_Message=交易成功！"&goto :Game_Control
if "!Choice_Return!" equ "2" set /a "Player_Mo-=100","Player_At+=20"&set "Player_Echo_Message=交易成功！"&goto :Game_Control
if "!Choice_Return!" equ "3" set /a "Player_Mo-=100","Player_De+=20"&set "Player_Echo_Message=交易成功！"&goto :Game_Control
call :PlaySound "Cancel.mp3"&goto :Game_Control
 
:Event_Place_6_3_19
call :Module_ShowChoice n "你可以在这里出售钥匙：" "卖黄钥匙（￥７）" "卖绿钥匙（￥３５）" "卖紫钥匙（￥７０）" "" "老人："
if "!Choice_Return!" equ "1" (if !Player_YK! geq 1 (set /a "Player_Mo+=7","Player_YK-=1"&call :PlaySound "Enter.mp3"&set "Player_Echo_Message=交易成功！"&goto :Game_Control) else (call :PlaySound "Cancel.mp3"&set "Player_Echo_Message=没有 黄钥匙"&goto :Game_Control))
if "!Choice_Return!" equ "2" (if !Player_GK! geq 1 (set /a "Player_Mo+=35","Player_GK-=1"&call :PlaySound "Enter.mp3"&set "Player_Echo_Message=交易成功！"&goto :Game_Control) else (call :PlaySound "Cancel.mp3"&set "Player_Echo_Message=没有 绿钥匙"&goto :Game_Control))
if "!Choice_Return!" equ "3" (if !Player_PK! geq 1 (set /a "Player_Mo+=70","Player_PK-=1"&call :PlaySound "Enter.mp3"&set "Player_Echo_Message=交易成功！"&goto :Game_Control) else (call :PlaySound "Cancel.mp3"&set "Player_Echo_Message=没有 紫钥匙"&goto :Game_Control))
call :PlaySound "Cancel.mp3"&goto :Game_Control
 
:Event_Place_6_5_19
call :Module_ShowChoice n "消耗经验，你可以：" "提升３级（２７０点）" "增加１７点攻击（９５点）" "增加１７点防御（９５点）" "增加３７００点生命（９５点）" "老人："
if "!Choice_Return!" equ "5" call :PlaySound "Cancel.mp3"&goto :Game_Control
if "!Choice_Return!" equ "1" (
if !Player_Ex! geq 270 (set /a "Player_Ex-=270","Player_HP+=3000","Player_At+=21","Player_De+=21"&call :PlaySound "Enter.mp3"&set "Player_Echo_Message=提升了三级"&goto :Game_Control) else (set "Player_Echo_Message=你的经验不够！"&call :PlaySound "Cancel.mp3"&goto :Game_Control)) else (
if !Player_Ex! geq 95 (set /a Player_Ex-=95
if "!Choice_Return!" equ "2" set /a Player_At+=17
if "!Choice_Return!" equ "3" set /a Player_De+=17
if "!Choice_Return!" equ "4" set /a Player_HP+=3700
set "Player_Echo_Message=交易成功！"&goto :Game_Control
) else (set "Player_Echo_Message=你的经验不够！"&call :PlaySound "Cancel.mp3"&goto :Game_Control))
 
:Event_Place_6_13_17
set /a "Player_At+=21","Player_De+=21","Player_HP+=3000"
call :PlaySound "Prop.mp3"
set "Player_Echo_Message=获得宝箱，等级提升三级"&call :Module_Get
goto :Game_Control
 
:Event_Place_7_4_10
call :Module_ShowChat n "用５００经验换攻击１２０的剑！" "" "老人：" ""
if !Player_Ex! geq 500 (set /a "Player_At+=120","Player_Ex-=500"&set "Player_Echo_Message=获得 神圣剑，攻击+120"&call :Module_Get
) else (call :Module_ShowChat n "等你有５００经验再说吧！" "1" "老人：" "")
goto :Game_Control
 
:Event_Place_7_6_10
call :Module_ShowChat n "用５００金币换防御１２０的盾！" "" "老人：" ""
if !Player_Mo! geq 500 (set /a "Player_De+=120","Player_Mo-=500"&set "Player_Echo_Message=获得 神圣盾，防御+120"&call :Module_Get
) else (call :Module_ShowChat n "等你有５００金币再说吧！" "1" "老人：" "")
goto :Game_Control
 
:Event_Place_7_8_2
goto :Event_Place_3_8_11
 
:Event_Place_7_10_6
call :Module_ShowChat Ｙ "停止吧，愚蠢的人类！" "" "红衣魔王：" "1"
call :Module_Get&goto :Game_Control
 
:Event_Place_7_10_8
call :Module_ShowChat Ｚ "止步吧，愚蠢的人类！" "" "大魔王：" "1"
call :Module_Get&goto :Game_Control
 
:Event_Place_7_13_15
call :Module_ShowChat ⑥ "废话少说，决斗吧！" "" "大魔王：" "1"
call :Module_Get&goto :Game_Control
 
:Game_End
cls
call :Module_ShowChat d "杀死魔王，游戏结束！" "" "" ""
call :Module_ShowChat b "由ａ２００２制作，版本：!Player_Game_Version!，部分图片、第三方参照了Ｄｅｆａｎｉｖｅ。" "1" "" ""
goto :Game_Exit
 
:B64DECODE
call :%~1
certutil -decode "%~dp0.tmp" "%~1">nul
del "%~dp0.tmp"
goto :eof
 
:CKey.exe
echo TVqQAAMAAAAEAAAA//8AALgAAAAAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA4AAAAA4fug4AtAnNIbgBTM0hVGhpcwBwcm9ncmFtIGNhbm5vdCBiZSBydW4gaW4gRE9TIG1vZGUuDQ0KJAAAAAAAAACXvFKJ09082tPdPNrT3TzavMI22tjdPNpQwTLa0t082rzCONrR3Tza09092sXdPNqxwi/a0N082jvCN9rR3TzaUmljaNPdPNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABQRQAATAEBADziRE4AAAAAAAAAAOAADwELAQYAEAUAAAAAAAAAAAAA0AMAAAACAAAQBwAAAABAABAAAAAQAAAABAAAAAAAAAAEAAAAAAAAABAHAAAAAgAAAAAAAAMAAAAAABAAABAAAAAAEAAAEAAAAAAAABAAAAAAAAAAAAAAADgFAAA8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAWAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC50ZXh0AAAAAgUAAAACAAAQBQAAAAIAAAAAAAAAAAAAAAAAACAAAGDgBQAAzAUAAAAAAAD+BQAABgYAABQGAAAiBgAALAYAAEIGAABKBgAAWAYAAGAGAABwBgAAgAYAAIwGAACgBgAAsAYAAMAGAADOBgAA4AYAAPQGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAoAAAAAAAAAAAAAAAAACgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAAAAAAAAAAoKAAAAAAAAAAABAAAAAAAAAAAAAAAAAAAA/////8AEQADUBEAAAAAAAFWL7IPsFIN9CAFWdQczwOmiAAAAi0UMaOwCQAD/cATolgAAAFmFwFl1K4s1GAJAAGjAAkAA/9bHBCS0AkAA/9bHBCScAkAA/9bHBCRwAkAA/9ZZ67hXavb/FQACQACLPRQCQACJRQiNRQxQjUXsagFQ/3UI/xUEAkAAZoN97AF15oN98AB04GoBXv/XOTB+1/8VEAJAAIsA/zSw/xUMAkAAWQ+3TfY7yHQJRv/XOzB83+u0i8ZfXsnDzP8lHAJAAFWL7Gr/aAADQABoEAVAAGShAAAAAFBkiSUAAAAAg+wgU1ZXiWXog2X8AGoB/xVIAkAAWYMNLAVAAP+DDTAFQAD//xVEAkAAiw0oBUAAiQj/FUACQACLDSQFQACJCKE8AkAAiwCjNAVAAOjDAAAAgz3wAkAAAHUMaP4EQAD/FTgCQABZ6JQAAABoZAJAAGhgAkAA6H8AAAChIAVAAIlF2I1F2FD/NRwFQACNReBQjUXUUI1F5FD/FTACQABoXAJAAGhYAkAA6EwAAAD/FSwCQACLTeCJCP914P911P915Ohd/v//g8QwiUXcUP8VKAJAAItF7IsIiwmJTdBQUegPAAAAWVnDi2Xo/3XQ/xUgAkAA/yUkAkAA/yU0AkAAaAAAAwBoAAABAOgbAAAAWVnDM8DDw8zMzMzMzMzMzMzMzMzM/yVMAkAA/yVQAkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHQFAAAAAAAAAAAAAPAFAAAAAgAAgAUAAAAAAAAAAAAANgYAAAwCAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOAFAADMBQAAAAAAAP4FAAAGBgAAFAYAACIGAAAsBgAAQgYAAEoGAABYBgAAYAYAAHAGAACABgAAjAYAAKAGAACwBgAAwAYAAM4GAADgBgAA9AYAAAAAAAANAlJlYWRDb25zb2xlSW5wdXRBAFIBR2V0U3RkSGFuZGxlAABLRVJORUwzMi5kbGwAAD0CYXRvaQAAYwBfX3BfX19hcmd2AABiAF9fcF9fX2FyZ2MAAJ4CcHJpbnRmAAC4AnN0cmNtcAAATVNWQ1JULmRsbAAA0wBfZXhpdABIAF9YY3B0RmlsdGVyAEkCZXhpdAAAZABfX3BfX19pbml0ZW52AFgAX19nZXRtYWluYXJncwAPAV9pbml0dGVybQCDAF9fc2V0dXNlcm1hdGhlcnIAAJ0AX2FkanVzdF9mZGl2AABqAF9fcF9fY29tbW9kZQAAbwBfX3BfX2Ztb2RlAACBAF9fc2V0X2FwcF90eXBlAADKAF9leGNlcHRfaGFuZGxlcjMAALcAX2NvbnRyb2xmcAAAAAAAAAAAAAAAAAAAAAA^=>.tmp
goto :eof
 
:CPaint.exe
echo TVqQAAMAAAAEAAAA//8AALgAAAAAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA4AAAAA4fug4AtAnNIbgBTM0hVGhpcyBwcm9ncmFtIGNhbm5vdCBiZSBydW4gaW4gRE9TIG1vZGUuDQ0KJAAAAAAAAACXvFKJ09082tPdPNrT3TzavMI22tjdPNpQwTLa0t082rzCONrR3Tza09092sXdPNqxwi/a0N082jvCN9rR3TzaUmljaNPdPNoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABQRQAATAEBACHfRE4AAAAAAAAAAOAADwELAQYAIAUAAAAAAAAAAAAAxgMAAAACAAAgBwAAAABAABAAAAAQAAAABAAAAAAAAAAEAAAAAAAAACAHAAAAAgAAAAAAAAMAAAAAABAAABAAAAAAEAAAEAAAAAAAABAAAAAAAAAAAAAAACgFAAA8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAWAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC50ZXh0AAAAFgUAAAACAAAgBQAAAAIAAAAAAAAAAAAAAAAAACAAAGDKBQAA6AUAAAgGAAAYBgAAvAUAAAAAAAAyBgAAQgYAAFYGAABeBgAAbAYAAHQGAACEBgAAlAYAAKAGAAC0BgAAxAYAANQGAADiBgAA9AYAAAgHAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAAAAAAAAAAAAAAAAP////+2BEAAygRAAAAAAACD7AxTVVaLdCQgV4s9HAJAAItGBFD/14tOCNHgUWaJRCQs/9eLVgyDxAhmiUQkJlL/FQwCQACZK8KL2NH7jQSdAAAAAFDo5gAAAIPEBIvoM/+JbCQYhdt+QolsJBCLTgyKFHlS6IcAAACL6ItGDMHlBIpMeAFR6HUAAACLTCQYA8WDxAhHZokBZolBAoPBBDv7iUwkEHzGi2wkGGr1/xUIAkAAi04Qi/iLRCQkjVQkFFJQUf8VDAJAAItWEFBSV/8VBAJAAItMJCSNRCQUUI0UG1FSVVf/FQACQABX/xUQAkAAi0QkFF9eXVuDxAzDkJCKRCQEPDB8Czw5fwcPvsCD6DDDPEF8CzxGfwcPvsCD6DfDPGF8CzxmfwcPvsCD6FfDM8DDkJCQkJCQkJCQkJCQ/yUYAkAAVYvsav9ogAJAAGgABUAAZKEAAAAAUGSJJQAAAACD7CBTVleJZeiDZfwAagH/FUgCQABZgw0cBUAA/4MNIAVAAP//FUQCQACLDRgFQACJCP8VQAJAAIsNFAVAAIkIoTwCQACLAKMkBUAA6MMAAACDPXACQAAAdQxo9ARAAP8VOAJAAFnolAAAAGhkAkAAaGACQADofwAAAKEQBUAAiUXYjUXYUP81DAVAAI1F4FCNRdRQjUXkUP8VMAJAAGhcAkAAaFgCQADoTAAAAP8VLAJAAItN4IkI/3Xg/3XU/3Xk6Of9//+DxDCJRdxQ/xUoAkAAi0XsiwiLCYlN0FBR6A8AAABZWcOLZej/ddD/FSACQAD/JSQCQAD/JTQCQABoAAADAGgAAAEA6BUAAABZWcMzwMPDzMzMzMzMzMz/JUwCQAD/JVACQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAZAUAAAAAAAAAAAAAJAYAAAACAAB8BQAAAAAAAAAAAABKBgAAGAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAygUAAOgFAAAIBgAAGAYAALwFAAAAAAAAMgYAAEIGAABWBgAAXgYAAGwGAAB0BgAAhAYAAJQGAACgBgAAtAYAAMQGAADUBgAA4gYAAPQGAAAIBwAAAAAAABsAQ2xvc2VIYW5kbGUA2gJXcml0ZUNvbnNvbGVPdXRwdXRBdHRyaWJ1dGUA2wJXcml0ZUNvbnNvbGVPdXRwdXRDaGFyYWN0ZXJBAABSAUdldFN0ZEhhbmRsZQAACANsc3RybGVuQQAAS0VSTkVMMzIuZGxsAAAPAD8/MkBZQVBBWElAWgAAPQJhdG9pAABNU1ZDUlQuZGxsAADTAF9leGl0AEgAX1hjcHRGaWx0ZXIASQJleGl0AABkAF9fcF9fX2luaXRlbnYAWABfX2dldG1haW5hcmdzAA8BX2luaXR0ZXJtAIMAX19zZXR1c2VybWF0aGVycgAAnQBfYWRqdXN0X2ZkaXYAAGoAX19wX19jb21tb2RlAABvAF9fcF9fZm1vZGUAAIEAX19zZXRfYXBwX3R5cGUAAMoAX2V4Y2VwdF9oYW5kbGVyMwAAtwBfY29udHJvbGZwAAAAAAAAAAAAAAAA>.tmp
goto :eof
 
:EUDC.exe
echo TVqQAAMAAAAEAAAA//8AALgAAAAAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA0AAAAA4fug4AtAnNIbgBTM0hVGhpcyBwcm9ncmFtIGNhbm5vdCBiZSBydW4gaW4gRE9TIG1vZGUuDQ0KJAAAAAAAAADfvFKJm9082pvdPNqb3Tza9MI22pDdPNoYwTLamt082vTCONqZ3Tzam9092ojdPNr5wi/amN082nPCN9qZ3TzaUmljaJvdPNoAAAAAAAAAAFBFAABMAQEA8rEmTgAAAAAAAAAA4AAPAQsBBgCgBAAAAAAAAAAAAACEAwAA8AEAAJAGAAAAAEAAEAAAABAAAAAEAAAAAAAAAAQAAAAAAAAAkAYAAPABAAAAAAAAAwAAAAAAEAAAEAAAAAAQAAAQAAAAAAAAEAAAAAAAAAAAAAAA7AQAADwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPABAABMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALnRleHQAAACUBAAA8AEAAKAEAADwAQAAAAAAAAAAAAAAAAAAIAAAYIYFAAB0BQAAAAAAAKQFAACuBQAAxAUAAMwFAADaBQAA4gUAAPIFAAACBgAADgYAACIGAAAyBgAAQgYAAFAGAABiBgAAdgYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADAAAAAxAAAARW5hYmxlRVVEQwAAR0RJMzIuZGxsAAAACkVVREMgWyAxIHwgMCBdCgAAAAAKRW5hYmxlIG9yIERpc2FibGUgRVVEQwoAAAAAClZlciAwLjEgKFZDKyspIEJ5IERlZmFuaXZlCgAAAAAKRVVEQwAAAC8/AAABAAAA/////3QEQACIBEAAAAAAAIN8JAQBVnRAi3QkDGjIAkAA/3YE6IUAAABZhcBZdS2LNfwBQABowAJAAP/WxwQkoAJAAP/WxwQkhAJAAP/WxwQkcAJAAP/WWTPAXsNoZAJAAP8V8AFAAGhYAkAAUP8V9AFAAGhUAkAAo8wEQAD/dgToKQAAAFmFwFl1BGoB6xRoUAJAAP92BOgSAAAAWYXAWXW2UP8VzARAAA+2wF7D/yUAAkAAVYvsav9o0AJAAGjABEAAZKEAAAAAUGSJJQAAAACD7CBTVleJZeiDZfwAagH/FSwCQABZgw3gBEAA/4MN5ARAAP//FSgCQACLDdwEQACJCP8VJAJAAIsN2ARAAIkIoSACQACLAKPoBEAA6MMAAACDPcwCQAAAdQxosgRAAP8VHAJAAFnolAAAAGhIAkAAaEQCQADofwAAAKHUBEAAiUXYjUXYUP810ARAAI1F4FCNRdRQjUXkUP8VFAJAAGhAAkAAaDwCQADoTAAAAP8VEAJAAItN4IkI/3Xg/3XU/3Xk6Hn+//+DxDCJRdxQ/xUMAkAAi0XsiwiLCYlN0FBR6A8AAABZWcOLZej/ddD/FQQCQAD/JQgCQAD/JRgCQABoAAADAGgAAAEA6BcAAABZWcMzwMPDzMzMzMzMzMzMzP8lMAJAAP8lNAJAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKAUAAAAAAAAAAAAAlgUAAPABAAA0BQAAAAAAAAAAAAC4BQAA/AEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAhgUAAHQFAAAAAAAApAUAAK4FAADEBQAAzAUAANoFAADiBQAA8gUAAAIGAAAOBgAAIgYAADIGAABCBgAAUAYAAGIGAAB2BgAAAAAAAD4BR2V0UHJvY0FkZHJlc3MAAMIBTG9hZExpYnJhcnlBAABLRVJORUwzMi5kbGwAAJ4CcHJpbnRmAAC4AnN0cmNtcAAATVNWQ1JULmRsbAAA0wBfZXhpdABIAF9YY3B0RmlsdGVyAEkCZXhpdAAAZABfX3BfX19pbml0ZW52AFgAX19nZXRtYWluYXJncwAPAV9pbml0dGVybQCDAF9fc2V0dXNlcm1hdGhlcnIAAJ0AX2FkanVzdF9mZGl2AABqAF9fcF9fY29tbW9kZQAAbwBfX3BfX2Ztb2RlAACBAF9fc2V0X2FwcF90eXBlAADKAF9leGNlcHRfaGFuZGxlcjMAALcAX2NvbnRyb2xmcAAAAAAAAAAAAAAAAAAA>.tmp
goto :eof
 
:PlaySound.exe
echo TVqQAAMAAAAEAAAA//8AALgAAAAAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA8AAAAA4fug4AtAnNIbgBTM0hVGhpcwBwcm9ncmFtIGNhbm5vdCBiZSBydW4gaW4gRE9TIG1vZGUuDQ0KJAAAAAAAAAATvUePV9wp3FfcKdxX3CncCv4j3FzcKdzUwCfcVtwp3Ar+LdxV3CncV9wo3EDcKdwO/zrcUtwp3FfcKdxV3Cncv8Mj3FbcKdwI/iLcVtwp3JDaL9xW3CncUmljaFfcKdwAAAAAAAAAAAAAAAAAAAAAUEUAAEwBAwAo/uQ5AAAAAAAAAADgAA8BCwEGAAAQAAAAEAAAAFAAAFBkAAAAYAAAAHAAAAAAQAAAEAAAAAIAAAQAAAAAAAAABAAAAAAAAAAAgAAAABAAAAAAAAADAAAAAAAQAAAQAAAAABAAABAAAAAAAAAQAAAAAAAAAAAAAAAAcAAADAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABVUFgwAAAAAABQAAAAEAAAAAAAAAAEAAAAAAAAAAAAAAAAAACAAADgVVBYMQAAAAAAEAAAAGAAAAAGAAAABAAAAAAAAAAAAAAAAAAAQAAA4FVQWDIAAAAAABAAAABwAAAAAgAAAAoAAAAAAAAAAAAAAAAAAEAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMy45MQBVUFghDQkFCu3rQ2IU174G5EIAAEcEAAAAEAAAAAAA6///l/zpSwIAAMyD7AxWi3QkFFdqAIsGVv9QOPfe//6LDo1UJAhSFVEciz0AIEAtRB1qMd/2vtn/1zMMT1KNIxgUIFBKIIXt9t77wHzci0wxiyMQhVEUHFJRkjC3399vcBiD+AF0BQkCdbmLqv8VCKJfM8DbLbj9XoPEDMOQAIHsGCCLjGkMVlfzvvd+tGgEARVQ5TO5V1djBLNv2wMkiXyAaKAaagFXaJAOIv7Ba1ogBiQoT1BW8Dv3D4yBeG+Q4H1rXGOALghDsgw7fxElEHAU3/eQLGAYV1IcUTSkfDJ7h/JpKhRSUDIdDBMH7T8I6vBS6LT+//8qEK8E4L7/Zm8kjjvHdAaLEBtSCGDAmnfZgCM+IhAMR7xlOPzGX16BxBwzAaEglN8uFjBVVxUcDoPAQGgsMJmDi1MYzykA6VjBv2HDts5+X/QQSFNWjVkEiVyDPxB8izNW6J4qIuiF7VZ9tZ/Z374VmGgUgoPCQFLrDqEfEMAg9/eKZqiSIDCDwwRIgnW8XlvFQWD3n1TFX13Di2zPHT/iA4V9xwVQfGBpVYvsPrDL92losKSQE2ShKFVkiSWK/+DjDs8gM1eJZeiDZfyAO6+9eY9EWYMNYHr/DWS5MvK2z0ANXBiJCBswWM339juhPBgAo2ga6Df9/2c9TADb9nn2dQxoitifGOiV1GgMMGgIHNxve1CAHKFUgEXYjQXFNfA17xtaE+BQB9TkIxU0vmeed2AEZABNKRDaTeBmeHkLCnXgBdTk6HKXMP4vvvaT3GgsPkXslYsJiU3QUFHoEHlvcNhsWVlHwVfQPyR77569zP8lKAwLFMI9AwgBw/JMT9sPVQnD/kdIABQ0MzgBhvb/f7RoqFbUCs4RsDoAIK8Lp3DAH7GcXP7QP7PrNuRPUp9TqeiF2pD/AEvBXxMsARQ0PwHBllFACikUCEdLQwFhBbRVRSn/8hxFfBABV2FpdEZv/3/5/3JTaW5nbGVPYmplY3RNdWx0aUJ5dGVUb1dpZPfuf/llQ2hhckNsb3NlSGFuZE9viXzOfvd+fl9fcAVfe4tlbnYcEu1uv/sVcm0yXXR1cxZhdGgLgma3sn3fcHI9dGZKb2JWZXgMWGNwvzB7BwVp42VEJahjb20Hd+XdbW/5kGeJdQtn73a/s3McMYlyb2ybFmFkasV0PRt7919mZGn4bGZp+j1wTvCd/SN0eXBl2WNlz19ogXIzff9pDoWUUENvQ3JlYf1JbvYH392TO0siVW6QaWFsaXofv5xhbUkbz1BFTAEEACia5T/k/uQ54AAPAQsBBgQIu70nT1sSACAaQBcCRS+2224AD6BPOAMA127tJgQPDAG8TEFba55QpQEuu3cKPk14dEic8AQGR9/DCxY0YC5yZKNhIdIC5toaJicFQKRpT7suTCBsME4CDG63/abAn3NyY+UgTw4k3L7VnwhsIRBBAACoJEmS/wAAAAAAAAAAAGC+AGBAAI2+ALD//1eDzf/rEJCQkJCQkIoGRogHRwHbdQeLHoPu/BHbcu24AQAAAAHbdQeLHoPu/BHbEcAB23MLdRmLHoPu/BHbchBIAdt1B4seg+78EdsRwOvUMcmD6ANyEcHgCIoGRoPw/3R40fiJxesLAdt1B4seg+78EdsRyQHbdQeLHoPu/BHbEcl1IEEB23UHix6D7vwR2xHJAdtz73UJix6D7vwR23Pkg8ECgf0A+///g9EBjRQvg/38dg+KAkKIB0dJdffpT////5CLAoPCBIkHg8cEg+kEd/EBz+k4////Xo2+AEAAAIsHCcB0PItfBI2EMABgAAAB81CDxwj/llBgAACVigdHCMB03In5V0jyrlX/llRgAAAJwHQHiQODwwTr4f+WZGAAAIuuWGAAAI2+APD//7sAEAAAUFRqBFNX/9WNhw8CAACAIH+AYCh/WFBUUFNX/9VYYY1EJIBqADnEdfqD7IDpmqz//wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHxwAABQcAAAAAAAAAAAAAAAAAAAiXAAAGxwAAAAAAAAAAAAAAAAAACUcAAAdHAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAnnAAAKxwAAC8cAAAzHAAANpwAADocAAAAAAAAPZwAAAAAAAA/HAAAAAAAABLRVJORUwzMi5ETEwATVNWQ1JULmRsbABvbGUzMi5kbGwAAABMb2FkTGlicmFyeUEAAEdldFByb2NBZGRyZXNzAABWaXJ0dWFsUHJvdGVjdAAAVmlydHVhbEFsbG9jAABWaXJ0dWFsRnJlZQAAAEV4aXRQcm9jZXNzAAAAX2lvYgAAQ29Jbml0aWFsaXplAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA>.tmp
goto :eofCOPY

下载地址:https://pan.baidu.com/s/1eSCcfVO

a2002

这游戏22号就已完成，但要考试，搁置在电脑里

现在放假了，改进了一下，加快了移动速度，但加载地图却变慢了

准备提速，7月1日完成

改进了第三方，使批处理自作第三方

在我的Win7 32位下测试成功，64位就别试了，会导致第三方死循环

老刘1号

友情提示，这是第三方区

bailong360

回复 3# 老刘1号
可能没有权限吧

老刘1号

回复 4# bailong360


    嗯……不管怎么说，给楼主点个赞～

a2002

也是醉了，原创bat不让进，只好搁在这了

a2002

算是宣传Defanive的第三方了

523066680

比我初中的时候有本事多了。视野可以再扩展一下。

a2002

回复 8# 523066680


    唉，我也是做了近20天啊，做到一半出错了，就不想在做了，后来不甘心，才坚持做完的

a2002

回复 8# 523066680


    视野10*10，这是设定好的，只是还有很多道具，暂时不想做了。

老刘1号

XP SP2 x64
XP SP3
测试失败

523066680

视野可以再扩展一下。

游戏开发的视野，没有必要用批处理这么累地去实现。

老刘1号

游戏开发的视野，没有必要用批处理这么累地去实现。
523066680 发表于 2017-7-3 23:37

赞同……
累，费事不说，兼容性也不好啊……

a2002

XP SP2 x64
XP SP3
测试失败
老刘1号 发表于 2017-7-3 22:55

    EUDC这第三方从Defanive那弄来的，只支持32位，没办法啊

a2002

游戏开发的视野，没有必要用批处理这么累地去实现。
523066680 发表于 2017-7-3 23:37

    不这么的话，其他功能的画面就不占比例了

CPaint换行太慢，所以我CPaint不敢回车啊