保存后我要试运行保存的游戏 [!]
[确定] [返回]
:
:last
[DOS] [重启] [关机]
[?返回]
:
:test
call w.bat box 2,30 @%0:reg
if errorlevel 100 goto flee
if not "%name%"=="" if not "%year%"=="" if "%wrb%"=="2" goto start
wbat box 对不起，您面试没通过！再试试？
goto test
:flee
wbat box "想逃跑？" 逃吧,重来
if errorlevel 2 goto test
:_flee
wbat box DOS,重启,关机
if errorlevel 100 goto _flee
if errorlevel 3 off
if errorlevel 2 reboot
goto final
:start
z:
cd\wbat
wbat cls ! text 24,2 (red on blue) @%0:studio ! box "寻趣园等您好久了！" 继续...
if errorlevel 100 goto nogame
:ask
wbat box 游戏选单,不想玩了
if errorlevel 100 goto nogame
if errorlevel 2 goto nogame
rem if errorlevel 1 go on
:game
wbat cls ! text 24,2 (red on blue) @%0:studio
call w.bat box 4,12 @%0:ls #%barpos%+1
if errorlevel 100 goto ask
set barpos=%?%
set oldgame=%gamedir%
if %wbat%==a set gamedir=skyroads
if %wbat%==b set gamedir=speedcar
if %wbat%==c set gamedir=wolf3d
if %wbat%==d set gamedir=doom
if %wbat%==e set gamedir=swda
if %wbat%==f set gamedir=pal
if %wbat%==g set gamedir=legend
if %wbat%==h set gamedir=sanguo
if %wbat%==i set gamedir=xiangqi
if %wbat%==j set gamedir=siguo
if %wbat%==k set gamedir=shoutan
if %wbat%==l set gamedir=huarong
if %wbat%==m set gamedir=test
if %wbat%==n set gamedir=car
if "%wbat%"=="f" goto pal
if "%wbat%"=="g" goto playcd
if "%wbat%"=="i" goto playcd
:play
wbat box @%0:where
if errorlevel 3 goto game
if errorlevel 2 goto hardinit
wbat cls
set harddir=
if "%oldgame%"=="%gamedir%" goto same
deltree /y z:\%oldgame% >nul
xcopy %romcd%\%gamedir% z:\%gamedir%\ /e /s /y
:same
if "%gamedir%"=="skyroads" goto skyroads
if "%gamedir%"=="wolf3d" goto wolf3d
if "%gamedir%"=="doom" goto doom
if "%gamedir%"=="swda" goto swda
if "%gamedir%"=="pal" goto stagepal
if "%gamedir%"=="sanguo" goto sanguo
goto memhi
:skyroads
set stage=skyroads.cfg
goto add
:wolf3d
set stage=savegam?.wl6
goto add
:doom
set stage=doomsav?.dsg
goto add
:swda
set stage=save\*.*
goto add
:stagepal
set stage=?.rpg
goto add
:sanguo
set stage=*.r3s
:add
wbat cls ! text 24,2 (red on blue) @%0:studio
wbat box "要添加游戏进度文件吗？" 添加,不添加
if errorlevel 2 goto memhi
:askdir
wbat cls ! text 24,2 (red on blue) @%0:studio
call w.bat fix box 7,13 @%0:gamesave
if errorlevel 4 goto play
if errorlevel 3 goto chkadd
if errorlevel 2 goto addexpl
call diskfind
goto askdir
:chkadd
call chkputad.bat
if not "%back%"=="askdir" goto copyadd
set back=
goto askdir
:copyadd
wbat cls
rem if "%gamesave%"=="" goto noinput
if "%gamedir%"=="swda" goto addswda
if exist "%gamesave%\%stage%" goto haveadd
:noaddfl
wbat box "找不到进度文件！" 返回
goto askdir
:haveadd
copy "%gamesave%\%stage%" z:\%gamedir% /y
goto memhi
:addswda
if exist "%gamesave%\%stage%" goto swdaaddy
goto noaddfl
:swdaaddy
copy "%gamesave%\%stage%" z:\%gamedir%\save /y
goto memhi
:addexpl
if exist drive.txt goto scaned
call diskfind
:scaned
call truenest gamesave
goto askdir
:memhi
wbat box @%0:fore
:doplay
cd\%gamedir%
call play.bat
goto postplay
:hardinit
set harddir=d:\%gamedir%
:hard
wbat cls ! text 24,2 (red on blue) @%0:studio
wbat fix box @%0:_hard
if errorlevel 100 goto game
if errorlevel 4 goto play
if errorlevel 3 goto chkhard
if errorlevel 2 goto hardexpl
call diskfind
goto hard
:hardexpl
if exist drive.txt goto scaned2
call diskfind
:scaned2
call truenest harddir
goto hard
:chkhard
set gamesave=%harddir%
call chkputad.bat
set harddir=%gamesave%
set gamesave=
if not "%back%"=="askdir" goto playhard
set back=
goto hard
:playhard
if exist "%harddir%\play.bat" goto haveplay
if exist "%harddir%\%gamedir%\play.bat" goto resetdir
wbat box "找不到游戏文件！" 返回
goto hard
:resetdir
set harddir=%harddir%\%gamedir%
:haveplay
get z "%harddir%" /w1
%get%:
cd "%harddir%"
call play
:postplay
z:
cd\wbat
if "%run%"=="fail" wbat box 运行失败！
set run=
rem if "%gamedir%"=="pal" goto pal
if not "%gamedir%"=="skyroads" goto played
wbat box "要不劳而获吗？" 要,不要
if errorlevel 2 goto played
:dovalue
call w.bat box @%0:cheat
if errorlevel 4 goto played
if errorlevel 3 goto modgame
if errorlevel 2 goto zero
call allcheat
goto dovalue
:zero
call prevar
goto dovalue
:modgame
call crackarg
if exist z:\skyroads.cfg goto crackok
wbat box "破解失败！" 继续...
goto played
:crackok
if "%harddir%"=="" goto memplay
copy z:\skyroads.cfg "%harddir%" /y
goto asksee
:memplay
copy z:\skyroads.cfg z:\skyroads /y
:asksee
wbat box "要重新运行游戏，看一下不劳而获的结果吗？" 看一下,不想看
if errorlevel 2 goto played
if "%harddir%"=="" goto doplay
goto haveplay
:played
z:
cd\wbat
if not "%harddir%"=="" goto start
if %saveyn%==%gamedir% goto start
wbat cls ! text 24,2 (red on blue) @%0:studio ! box "保存该游戏吗?" 不保存,保 存
if errorlevel 100 goto start
if errorlevel 2 goto asksave
goto start
:asksave
wbat box "保存游戏进度文件还是整个游戏？" 进度文件,整个游戏
if errorlevel 2 goto saveopt
if not "%stage%"=="" goto stagey
wbat box "对不起，这个游戏没有进度文件！" 不保存游戏,保存整个游戏
if errorlevel 2 goto saveopt
goto start
:stagey
if exist z:\%gamedir%\%stage% goto havezadd
wbat box "您尚未保存过游戏进度！" 不保存游戏,保存整个游戏
if errorlevel 2 goto saveopt
goto start
:havezadd
set save=passed
:saveopt
set savedir=d:\%gamedir%
:savebox
wbat cls ! text 24,2 (red on blue) @%0:studio
call w.bat fix box @%0:_save
if errorlevel 100 goto start
if errorlevel 4 goto asksave
if errorlevel 3 goto dosave
if errorlevel 2 goto explore
call diskfind
goto savebox
:explore
if exist drive.txt goto scaned3
call diskfind
:scaned3
call truenest savedir
goto savebox
:dosave
if not "%save%"=="passed" goto allsave
if "%wcb1%"=="0" goto allsave
wbat box "对不起，只有选择保存整个游戏，才能试运行游戏。" 返回
set wcb1=0
goto savebox
:allsave
call chkputsv.bat
if not "%back%"=="savebox" goto chkdir
set back=
goto savebox
:chkdir
echo %savedir%|find /i "%gamedir%">nul
if errorlevel 1 goto gamename
set enddir=%savedir%
goto dirmake
:gamename
set enddir=%savedir%\%gamedir%
:dirmake
wbat cls ! text 24,2 (red on blue) @%0:studio ! box "要显示选定的文件夹吗？" 显 示,不显示
if errorlevel 2 goto chkdir
wbat box "%enddir%" 确定,返回
if errorlevel 2 goto savebox
call multidir.bat
:tocopy
wbat cls
if "%save%"=="passed" goto passed
copy z:\%gamedir% "%enddir%" /y
if not exist %enddir%\play.bat goto savefail
echo %gamedir%|find /i "swda" >nul
if errorlevel 1 goto saveok
:swdapass
wbat cls
for %%a in (ba rx save vc) do md "%enddir%\%%a" >nul
for %%a in (ba rx save vc) do copy z:\%gamedir%\%%a "%enddir%\%%a" /y >nul
for %%a in (ba\ba49.rsk rx\ri079.rix save\save.zaq vc\sp135.voc) do if not exist %enddir%\%%a goto
savefail
wbat cls ! text 24,2 (red on blue) @%0:studio
goto saveok
:passed
if %gamedir%==swda goto swdapass
if exist z:\%gamedir%\%stage% goto havezadd
wbat box "您尚未保存过游戏进度！" 不保存游戏,保存整个游戏
if errorlevel 2 goto saveopt
goto start
:havezadd
copy z:\%gamedir%\%stage% "%enddir%" /y
if exist "%enddir%\%stage%" goto start
:savefail
wbat box 保存失败！
goto savebox
:saveok
if "%save%"=="passed" goto start
set saveyn=%gamedir%
if "%wcb1%"=="0" goto start
get z "%enddir%" /w1 >nul
%get%:
cd "%enddir%"
call play.bat
if "%run%"=="fail" wbat box 试运行失败！
set run=
goto start
:playcd
%romcd%
cd\%wbat%
call play.bat
z:
cd\wbat
goto start
:pal
set gamedir=pal
wbat box 5,10 (cyan on brown) @%0:query
if errorlevel 100 goto game
if errorlevel 3 goto game
if errorlevel 2 goto play
call w.bat list 20,65 @%0:mem
if errorlevel 100 goto pal
if "%wbat%"=="32" goto 32
set memmb=%wbat%
call d:\wbat\againram.bat
z:
cd\wbat
wbat box back to continue.bat
goto play
:32
goto play
:nogame
wbat box (black on brown) @%0:last
if errorlevel 100 goto ask
if errorlevel 3 off
if errorlevel 2 reboot
goto final
:term
a:\againram.bat
:final
wbat cls
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
TRUENEST.BAT (DOS浏览器)
@echo off
goto begin
:dirbars "上一级—→"[x]
[退 出]
[预 选]
[看文件]
[看目录]
:
:filebars " 上一级—→"[x]
[退 出]
[运行批处理文件]
[运行可执行文件]
[编辑文本文件]
[查看文件信息]
:
:begin
if exist drive.txt goto drive
wbat cls ! box "没有驱动器！" 退出
goto end
:drive
call w.bat list drive.txt
if errorlevel 100 goto end
:putdisk
if not exist notready.txt goto init1
find /i "%wbat%" notready.txt>nul
if errorlevel 1 goto init1
wbat box "您还没有在%wbat%盘放入盘片！" 重试
call diskfind
goto putdisk
:init1
set get=1
set dir%get%=%wbat%
:dirb
wbat box @%0:dirbars
if errorlevel 100 goto sub1
if errorlevel 4 goto dir
if errorlevel 3 goto file
if errorlevel 2 goto pick
goto end
:dir
if %get%==0 goto drive
if %get%==1 goto rootdir
echo dir "%%dir%get%%%" /b/ad/one %%"%%>%%"%% put.nst>nestvar.bat
call nestvar
goto subdir
:rootdir
dir %dir1%\ /b/ad/one>put.nst
:subdir
get f put.nst /vfsize>nul
if not "%fsize%"=="0" goto havedir
wbat box "没有子目录！" 上一级,退出
if errorlevel 2 goto end
goto dirb
:havedir
call w.bat list put.nst
if errorlevel 100 goto dirb
get r "+" %get% /w1 /vgetadd1>nul
echo set dir%getadd1%=%%dir%get%%%\%wbat%>nestvar.bat
call nestvar
wbat box @%0:dirbars
if errorlevel 100 goto havedir
if errorlevel 4 goto diradd1
if errorlevel 3 goto fileadd1
if errorlevel 2 goto pickadd1
goto end
:file
if %get%==1 goto rootfile
echo dir "%%dir%get%%%" /b/a-d/one %%"%%>%%"%% put.nst>nestvar.bat
call nestvar
goto subfile
:rootfile
dir %dir1%\ /b/a-d/one>put.nst
:subfile
get f put.nst /vfsize>nul
if not "%fsize%"=="0" goto havefile
wbat box "没有文件！" 上一级,退出
if errorlevel 2 goto end
goto dirb
:havefile
call w.bat list put.nst
if errorlevel 100 goto dirb
:fileb
wbat box @%0:filebars
if errorlevel 100 goto havefile
if errorlevel 5 goto info
if errorlevel 4 goto text
if errorlevel 3 goto exec-bat
if errorlevel 2 goto exec-bat
goto end
:info
echo dir "%%dir%get%%%\%wbat%" /a %%"%%>%%"%% putfile.nst>nestvar.bat
call nestvar
wbat list putfile.nst
goto fileb
:text
echo edit "%%dir%get%%%\%wbat%">nestvar.bat
call nestvar
goto fileb
:exec-bat
echo "%%dir%get%%%\%wbat%">nestvar.bat
call nestvar
goto fileb
:pick
echo set %1=%%dir%get%%%>nestvar.bat
call nestvar
goto end
:sub1
get r "-" %get% /w1>nul
goto dir
:diradd1
get r "+" %get% /w1>nul
goto dir
:fileadd1
get r "+" %get% /w1>nul
goto file
:pickadd1
get r "+" %get% /w1>nul
goto pick
:end
for %%a in (nestvar.bat put.nst putfile.nst) do if exist %%a del %%a
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
MULTIDIR.BAT (主要用GET完成的,DOS下,创建多层<无限制>带间隔的长文件名目录)
@echo off
:start
set lfn=%enddir%
dir "%lfn%" /w/ad|find /i "%lfn%"
if not errorlevel 1 goto final
md "%lfn%"
dir "%lfn%" /w/ad|find /i "%lfn%"
if not errorlevel 1 goto final
set pos=
set left=%lfn%
set right=
:toleft
get # "%left%" ';\'; /x
set pos=%get%
get z "%lfn%" %pos%
set right=%get%
get r "-" %pos% /w1
get z "%left%" /w%get%
set left=%get%
dir "%left%" /w/ad|find /i "%left%"
if not errorlevel 1 goto toright
goto toleft
:toright
if "%right%"=="" goto end
get # "%right%" ';\';
if "%get%"=="0" goto last
get r "+" %pos% /w%get%
set pos=%get%
get r "-" %pos% /w1
get z "%lfn%" /w%get%
set left=%get%
get z "%lfn%" %pos%
set right=%get%
md "%left%"
dir "%left%" /w/ad|find /i "%left%"
if not errorlevel 1 goto toright
set lfn=%left%
goto fail
:last
md "%lfn%"
:end
dir "%lfn%" /w/ad|find /i "%lfn%"
if not errorlevel 1 goto ok
:fail
wbat box "创建目录失败！^%lfn%" 重试,返回
if errorlevel 2 goto final
goto start
:ok
wbat box "创建目录成功！^%lfn%" 继续...
:final
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
CHKPUTAD.BAT (检测字符输入)
@echo off
if not "%gamesave%"=="" goto inputted
wbat box "您还没有输入！" 返回
goto back
:inputted
call diskfind
if exist drive.txt goto havedrv
wbat box "没有盘！" 返回
goto back
:havedrv
get z "%gamesave%" /w1
find /i "%get%" drive.txt>nul
if not errorlevel 1 goto validd
wbat box "不存在%get%:盘 ！" 返回
goto back
:validd
if not exist notready.txt goto notnot
get z "%gamesave%" /w1
find /i "%get%" notready.txt>nul
if errorlevel 1 goto notnot
wbat box "您还没有在%get%:盘放入盘片！" 继续...
goto back
:notnot
get z "%gamesave%" 1 >nul
if "%get%"=="" goto two
if "%get%"==":" goto two
if "%get%"==":\" goto two
get z "%gamesave%" 1 /w2 >nul
if "%get%"==":\" goto diryn
rem wbat cls ! text 24,2 (red on blue) @continue.bat:studio
wbat box "输入非法！" 返回
goto back
:diryn
dir "%gamesave%" /w/ad|find /i "%gamesave%">nul
if not errorlevel 1 goto end
wbat box "没有这个目录:^%gamesave%" 返回
goto back
:two
get z "%gamesave%" /w1
set gamesave=%get%:
goto end
:back
set back=askdir
:end
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
CRACKSKY.BAT (用DEBUG做的小小的修改游戏成绩的BAT)
@echo off
copy %romcd%\skyroads\skyroads.cfg z:\ /y
echo n z:\skyroads.cfg>crack
echo l0>>crack
if "%1"=="" goto end
echo e 6 %1 00>>crack
set get=6
shift
:crack
if "%1"=="" goto end
get r "+" $%get% /w2 /h
echo e %get% %1 00>>crack
shift
goto crack
:end
echo rcx>>crack
echo 42>>crack
echo w0>>crack
echo q>>crack
debug<crack
del crack