批处理rpg小游戏
bat吧
全部回复
仅看楼主
level 4
Kkoro◆ 楼主
一楼喂度娘
2011年11月16日 12点11分 1
level 4
Kkoro◆ 楼主
if %Y%==4 Colr 42 3 4 12 14 & ping -n 127.0>nul & cls & goto battle
if %Y%==6 Colr 42 5 4 12 14 & ping -n 127.0>nul & goto item
if %Y%==8 Colr 42 7 4 12 14 & ping -n 127.0>nul & goto shop
if %Y%==10 Colr 42 9 4 12 14 & ping -n 127.0>nul & goto pra
if %Y%==12 Colr 42 11 4 12 14 & ping -n 127.0>nul & goto mag
)
if %x% geq 14 if %x% leq 17 if %y%==14 Colr 13 13 4 12 14 & ping -n 127.0>nul & goto state
goto menu
:state
Curs /pos 0 0
echo.
echo.
echo.
echo   ┃         ┃    ┃  生命:%hp%
echo.
echo   ┃    /∨\    ┃    ┃  魔法:%mp%
echo.
echo   ┃         ┃    ┃  攻击:%atk%
echo.
echo   ┗━━━━━━━━━┛    ┃  防御:%def%
echo.
echo     ┏━━━━━┓      ┃  金钱:%gold%
echo.
echo     ┃  返回  ┃      ┃  经验:%exp%
Cmos 0 -1 1
set /a P=%errorlevel%
set /a X=%P:~0,-3%
set /a Y=%P%-1000*%X%
if %x% geq 14 if %x% leq 17 if %y%==14 Colr 13 13 4 12 14 & ping -n 127.0>nul & goto menu
goto state
:pra
Curs /pos 0 0
echo.
echo.
echo.
echo   ┃         ┃    ┃ 每次训练能力 ┃
echo.
echo   ┃    /∨\    ┃    ┃ 消耗经验1点 ┃
echo.
echo   ┃         ┃    ┃ 增加能力2点 ┃
echo.
echo   ┗━━━━━━━━━┛    ┃   攻击   ┃
echo.
echo     ┏━━━━━┓      ┃   防御   ┃
echo.
echo     ┃ 经验:%exp%
Cmos 0 -1 1
set /a P=%errorlevel%
set /a X=%P:~0,-3%
set /a Y=%P%-1000*%X%
if %x% geq 43 if %x% leq 46 (
if %y%==14 Colr 42 13 4 12 14 & ping -n 127.0>nul & goto menu
if not %exp%==0 (
if %y%==10 Colr 42 9 4 12 14 & ping -n 127.0>nul & set /a exp-=1 & set /a atk+=2
if %y%==12 Colr 42 11 4 12 14 & ping -n 127.0>nul & set /a exp-=1 & set /a def+=2
)
)
goto pra
:mag
Curs /pos 0 0
echo.
echo.
echo.
echo   ┃         ┃    ┃ 5点一个技能 ┃
echo.
echo   ┃    /∨\    ┃    ┃   防御   ┃
echo.
echo   ┃         ┃    ┃   重击   ┃
echo.
echo   ┗━━━━━━━━━┛    ┃   暗器   ┃
echo.
echo     ┏━━━━━┓      ┃   回血   ┃
echo.
echo     ┃ 经验:%exp%
Cmos 0 -1 1
set /a P=%errorlevel%
set /a X=%P:~0,-3%
set /a Y=%P%-1000*%X%
if %x% geq 43 if %x% leq 46 (
if %y%==14 Colr 42 13 4 12 14 & ping -n 127.0>nul & goto menu
if not %exp% lss 3 (
if %y%==6 if %j1%==0 Colr 42 5 4 12 14 & ping -n 127.0>nul & set /a exp-=5 & set j1=1
if %y%==8 if %j2%==0 Colr 42 7 4 12 14 & ping -n 127.0>nul & set /a exp-=5 & set j2=1
if %y%==10 if %j3%==0 Colr 42 9 4 12 14 & ping -n 127.0>nul & set /a exp-=5 & set j3=1
if %y%==12 if %j4%==0 Colr 42 11 4 12 14 & ping -n 127.0>nul & set /a exp-=5 & set j4=1

2011年11月16日 12点11分 3
level 4
Kkoro◆ 楼主
)
)
goto mag
:shop
Curs /pos 0 0
echo.
echo.
echo.
echo   ┃         ┃    ┃  血丸:10  ┃
echo.
echo   ┃    /∨\    ┃    ┃  灵丹:10  ┃
echo.
echo   ┃         ┃    ┃ 攻击宝石:50 ┃
echo.
echo   ┗━━━━━━━━━┛    ┃ 防御宝石:50 ┃
echo.
echo     ┏━━━━━┓      ┃ 小经验丹:100 ┃
echo.
echo     ┃ 金:%gold%
Cmos 0 -1 1
set /a P=%errorlevel%
set /a X=%P:~0,-3%
set /a Y=%P%-1000*%X%
if %x% geq 43 if %x% leq 46 (
if %y%==14 Colr 42 13 4 12 14 & ping -n 127.0>nul & goto menu
)
if %x% geq 38 if %x% lss 52 (
if %y%==4 if %gold% geq 10 Colr 40 3 8 12 14 & ping -n 127.0>nul & set /a gold-=10 & set /a i1+=1
if %y%==6 if %gold% geq 10 Colr 40 5 8 12 14 & ping -n 127.0>nul & set /a gold-=10 & set /a i2+=1
if %y%==8 if %gold% geq 50 Colr 38 7 12 12 14 & ping -n 127.0>nul & set /a gold-=50 & set /a i3+=1
if %y%==10 if %gold% geq 50 Colr 38 9 12 12 14 & ping -n 127.0>nul & set /a gold-=50 & set /a i4+=1
if %y%==12 if %gold% geq 100 Colr 38 11 13 12 14 & ping -n 127.0>nul & set /a gold-=100 & set /a i5+=1
)
goto shop
:item
Curs /pos 0 0
echo.
echo.
echo.
echo   ┃         ┃    ┃  血丸:%i1%
echo.
echo   ┃    /∨\    ┃    ┃  灵丹:%i2%
echo.
echo   ┃         ┃    ┃ 攻击宝石:%i3%
echo.
echo   ┗━━━━━━━━━┛    ┃ 防御宝石:%i4%
echo.
echo     ┏━━━━━┓      ┃ 小经验丹:%i5%
echo.
echo     ┃ 金钱:%gold%
Cmos 0 -1 1
set /a P=%errorlevel%
set /a X=%P:~0,-3%
set /a Y=%P%-1000*%X%
if %x% geq 43 if %x% leq 46 (
if %y%==14 Colr 42 13 4 12 14 & ping -n 127.0>nul & goto menu
)
if %x% geq 38 if %x% lss 52 (
if %y%==4 if not %i1%==0 Colr 40 3 4 12 14 & ping -n 127.0>nul & set /a i1-=1 & set /a hp+=50
if %y%==6 if not %i2%==0 Colr 40 5 4 12 14 & ping -n 127.0>nul & set /a i2-=1 & set /a mp+=20
if %y%==8 if not %i3%==0 Colr 38 7 8 12 14 & ping -n 127.0>nul & set /a i3-=1 & set /a atk+=1
if %y%==10 if not %i4%==0 Colr 38 9 8 12 14 & ping -n 127.0>nul & set /a i4-=1 & set /a def+=1
if %y%==12 if not %i5%==0 Colr 38 11 8 12 14 & ping -n 127.0>nul & set /a i5-=1 & set /a exp+=1
)
goto item
:battle
set /a bti=%kill%+1
set /a datk=10+(%random%%%5+5)*%bti%
set /a ddef=200*%bti%/%datk%
set /a dad=%datk%+%ddef%
set /a dhp=2000*%bti%/%dad%
set /a dmp=%dhp%/20*10
set /a dgold=%dad%+%dhp%
set sd=1
set sa=1
set dd=1
:bc
Curs /pos 0 0
echo.
echo               第%bti%战
echo.
echo   ┏━━━━━━━┓┏━━━━━━┓┏━━━━━━━┓
echo   ┃       ┃┃      ┃┃       ┃
echo   ┃   ●   ┃┃  攻击  ┃┃   ○   ┃

2011年11月16日 12点11分 4
level 4
Kkoro◆ 楼主
echo   ┃   /∨\   ┃┃      ┃┃   /∨\   ┃
echo   ┃   /\   ┃┃  技能  ┃┃   /\   ┃
echo   ┃       ┃┃      ┃┃       ┃
echo   ┣━━━━━━━┫┃  物品  ┃┣━━━━━━━┫
echo   ┃       ┃┃      ┃┃       ┃
echo   ┃       ┃┃  逃跑  ┃┃       ┃
echo   ┃       ┃┃      ┃┃       ┃
echo   ┃       ┃┗━━━━━━┛┃       ┃
echo   ┃       ┃        ┃       ┃
echo   ┗━━━━━━━┛        ┗━━━━━━━┛
:bcl
Curs /pos 8 10
echo 生命:%hp%
Curs /pos 42 10
echo 生命:%dhp%
Curs /pos 8 11
echo 魔法:%mp%
Curs /pos 42 11
echo 魔法:%dmp%
Curs /pos 8 12
echo 攻击:%atk%
Curs /pos 42 12
echo 攻击:%datk%
Curs /pos 8 13
echo 防御:%def%
Curs /pos 42 13
echo 防御:%ddef%
:bcll
Cmos 0 -1 1
set /a P=%errorlevel%
set /a X=%P:~0,-3%
set /a Y=%P%-1000*%X%
if %x% geq 28 if %x% leq 32 (
if %y%==6 Colr 28 5 4 12 14 & ping -n 127.0>nul & set mode=0 & goto phrase
if %y%==8 Colr 28 7 4 12 14 & ping -n 127.0>nul & goto bujl
if %y%==10 Colr 28 9 4 12 14 & ping -n 127.0>nul & goto buit
if %y%==12 Colr 28 11 4 12 14 & ping -n 127.0>nul & set exp=0 & cls & goto menu
)
goto bcll
:buit
Curs /pos 28 5
echo 血丸
Curs /pos 28 7
echo 灵丹
Curs /pos 28 9
echo 返回
Curs /pos 28 11
echo     ┃
:buitl
Cmos 0 -1 1
set /a P=%errorlevel%
set /a X=%P:~0,-3%
set /a Y=%P%-1000*%X%
if %x% geq 28 if %x% leq 32 (
if %y%==6 if not %i1%==0 Colr 28 5 4 12 14 & ping -n 127.0>nul & set /a i1-=1 & set /a hp+=50 & set mode=10 & goto phrase
if %y%==8 if not %i2%==0 Colr 28 7 4 12 14 & ping -n 127.0>nul & set /a i2-=1 & set /a mp+=20 & set mode=10 & goto phrase
if %y%==10 Colr 28 9 4 12 14 & ping -n 127.0>nul & goto bc
)
goto buitl
:bujl
Curs /pos 28 5
echo 重击
Curs /pos 28 7
echo 暗器
Curs /pos 28 9
echo 回血
Curs /pos 28 11
echo 返回
:bujll
Cmos 0 -1 1
set /a P=%errorlevel%
set /a X=%P:~0,-3%
set /a Y=%P%-1000*%X%
if %x% geq 28 if %x% leq 32 (
if %y%==6 if not %mp% lss 10 if %j2%==1 Colr 28 5 4 12 14 & ping -n 127.0>nul & set /a mode=1 & goto phrase
if %y%==8 if not %mp% lss 10 if %j3%==1 Colr 28 7 4 12 14 & ping -n 127.0>nul & set /a mode=2 & goto phrase
if %y%==10 if not %mp% lss 10 if %j4%==1 Colr 28 9 4 12 14 & ping -n 127.0>nul & set /a mode=3 & goto phrase
if %y%==12 Colr 28 11 4 12 14 & ping -n 127.0>nul & goto bc
)
goto bujll
:phrase
Curs /pos 22 3
echo         ┏
Curs /pos 22 4
echo         ┃
Curs /pos 22 5
echo         ┃
Curs /pos 22 6
echo         ┃
Curs /pos 22 7
echo         ┃

2011年11月16日 12点11分 5
level 4
Kkoro◆ 楼主
Curs /pos 22 8
echo         ┃
Curs /pos 22 9
echo         ┣
Curs /pos 22 10
echo         ┃
Curs /pos 22 11
echo         ┃
Curs /pos 22 12
echo         ┃
Curs /pos 22 13
echo         ┃
if %mode%==10 goto edm
Curs /pos 24 5
echo 我方:
Curs /pos 24 6
if %mode%==0 echo 使用普通攻击&set dd=1&set sa=1
if %mode%==1 echo 使用重击技能&set dd=1&set sa=2&set /a mp-=10
if %mode%==2 echo 使用暗器技能&set dd=0&set sa=1&set /a mp-=10
if %mode%==3 echo 使用回血技能&set /a mp-=10
set /a damage=(%atk%-%ddef%*%dd%)*%sa%
if %damage% lss 0 set damage=0
Curs /pos 24 7
if not %mode%==3 (
echo 造成伤害%damage%
set /a dhp-=%damage%
) else (
echo 增加生命50
set /a hp+=50
)
ping -n 2 127.0>nul
:edm
if %dmp% lss 10 (set mode=0) else (set /a mode=%random%%%4)
Curs /pos 24 5
echo 敌方:
Curs /pos 24 6
if %mode%==0 echo 使用普通攻击&set dd=1&set sa=1
if %mode%==1 echo 使用重击技能&set dd=1&set sa=2&set /a dmp-=10
if %mode%==2 echo 使用暗器技能&set dd=0&set sa=1&set /a dmp-=10
if %mode%==3 echo 使用回血技能&set /a dmp-=10
set /a damage=(%datk%-%def%*%dd%-%j1%*5)*%sa%
if %damage% lss 0 set damage=0
Curs /pos 24 7
if not %mode%==3 (
echo 造成伤害%damage%
set /a hp-=%damage%
) else (
echo 增加生命50
set /a dhp+=50
)
ping -n 2 127.0>nul
if %dhp% leq 0 goto win
if %hp% leq 0 goto lose
goto bc
:win
cls
echo.
echo.
echo               第%bti%战
echo.
echo               胜利!
echo.
echo             获得金钱:%dgold%
echo             获得经验:3
ping -n 3 127.0>nul
if %bti%==11 goto over
set /a gold+=%dgold%
set /a exp+=3
set /a kill+=1
goto menu
:lose
cls
echo.
echo.
echo               第%bti%战
echo.
echo               失败!
echo.
ping -n 3 127.0>nul
exit
:over
cls
Curs /crv 0
set "l1=无尽的厮杀,终于完成了这个任务"
set "l2=从此,再也没有人见到他了……"
set "l3=……"
set "l4=谢谢游戏!"
set "l5=作者:wlsmen"
for /l %%a in (1,1,5) do (
ping -n 2 127.0>nul
for /l %%b in (0,1,18) do (
set /a x=%%b*2+7
set /a y=%%a*2+1
set "text=!l%%a:~%%b,1!"
if not "!text!"=="" (
Curs /pos !x! !y!
echo.!text!
ping -n 127.0>nul
)
)
)
ping -n 2 127.0>nul
Curs /crv 1
goto gmenu
:about
echo.
echo.
echo              关于游戏
echo.
echo    批处理迷你RPG,作者:wlsmen
echo.
echo    本游戏纯属无聊之作,细节方面实在没做好,见谅。
echo.
echo    命令行、批处理长期以来都不受重视,以至于专注于命令行
echo  程序研发的人也少之又少。其实批处理配合第三方工具,可以完
echo  成很多任务。
echo.
echo    本批处理用到的工具:Cmos(支持鼠标)、CurS(光标控制)
echo  Colr(变色).
Cmos 0 -1 1
goto gmenu
2011年11月16日 12点11分 6
不行,只好交给万能删除机。[不高兴]
2022年08月19日 12点08分
level 11
我在批处理之家看过这个。。LZ是转载还是发布
2011年11月16日 12点11分 7
level 4
Kkoro◆ 楼主
转载...
2011年11月16日 12点11分 8
level 5
,gmos不是可运行的程序,也不是。。。。这个怎么办?
2013年08月20日 01点08分 9
挖坟还怎么办 直接封号。。。 是不行了 。。。 一次警告 还有 是CMOS不是gmos。。。。
2013年08月20日 02点08分
@- 没错 是CMOS 运行不了 yellow色的背景... 红色的字
2015年09月22日 05点09分
2015年09月24日 13点09分
2015年09月25日 14点09分
level 11
不知道发文件吗?
2013年08月20日 02点08分 11
level 12
不会直接发存档吗……
lz
是得有多勤劳
2013年08月20日 07点08分 12
level 1
有没有带我打游戏的?
2022年07月26日 03点07分 13
1