|
GOTOmsdos
铂金会员
C++启程者
积分 5154
发帖 1827
注册 2003-7-18
状态 离线
|
『楼 主』:
第一次用WBAT写的自制综合光盘游戏主菜单:,与大家共勉
第一次用WBAT写的自制综合光盘游戏主菜单:,与大家共勉
(可直接用光盘启动后自动运行,解决了WBAT程序好象不能在光盘运行,天汇与鼠标冲突,仙剑奇侠传只允许内存32MB之内等等问题.不用硬盘,自动把光盘游戏复制到内存盘玩,非常流畅,玩完可再回游戏主菜单.经多次测试,最后成功!)
@ECHO OFF
PROMPT $P$G
path a:\
tw32 /np >nul
ctmouse /u >nul
ctmouse /n >nul
cls
wbat box @%0:sound
if errorlevel 2 goto start
set blaster=a220 i5 d1 h5 p330
set sbpci=z:\sound
xcopy %romcd%\sound z:\sound\ /e /s
z:\sound\sbinit
goto start
:sound "您要加载声卡驱动吗?" [x]
本光盘配有通用的 Sound Blaster (创新) 声卡驱动文件
如果您电脑的声卡兼容创新，一般会成功加载驱动，但如果
不兼容并强制加载驱动，很可能不成功甚至出现死机或噪音
等现象。如不清楚，建议查看一下您的声卡说明书。
[加 载] [不加载]
:
:studio
木鸢工作室 羊城苑
2003-2005 Copyright TM reserved
:
:ls " 想玩哪一个? " [x]
[a 太空之路 ]
[b 赛车追捕 ]
[c 刺杀希特勒 ]
[d 毁灭战士 ]
[e 轩辕剑枫之舞]
[f 仙剑奇侠传 ]
[g 金庸群侠传 ]
[h 三国群英传 ]
[i 中国传统象棋]
[j 四国大战 ]
[k 手谈围棋 ]
[l 华容道 ]
[m 知识测验 ]
[n 最差的小游戏]
:
:query "您知道内存容量吗?" [x]
要玩这个游戏，程序需要知道您的
电脑的内存容量来调整到适合游戏
运行的内存限度否则可能无法运行。
[我知道] [试一下] [返回吧]
:
:mem "内存多大?" [x]
32
64
96
128
160
192
224
256
288
320
352
384
416
448
480
512
:
:start
wbat cls ! text 24,2 (red on blue) @%0:studio ! box "寻趣乐园等您好久了！" 继续...
if errorlevel 100 goto nogame
set ?=0
:ask
wbat box 游戏选单,不想玩了
if errorlevel 100 goto nogame
if errorlevel 2 goto nogame
rem if errorlevel 1 go on
:game
call w.bat box 4,12 @%0:ls #%?%+1
if errorlevel 100 goto nogame
if "%wbat%"=="f" goto pal
if "%wbat%"=="g" goto playcd
if "%wbat%"=="i" goto playcd
:play
wbat cls
xcopy %romcd%\%wbat% z:\%wbat%\ /e /s
cd\%wbat%
call play.bat
cd\wbat
goto start
:playcd
%romcd%
cd\%wbat%
call play.bat
z:
cd\wbat
goto start
: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%
goto term
:32
wbat cls
xcopy %romcd%\f z:\f\ /e /s
cd\f
call play.bat
cd\wbat
goto start
:nogame
wbat box DOS,重启,关机
if errorlevel 100 goto ask
if errorlevel 3 goto off
if errorlevel 2 goto reboot
goto final
:reboot
reboot
 ff
off
:term
againram.bat
:final
wbat cls
[此贴子已经被作者于2005-4-13 0:45:03编辑过]
|
|
 2005-4-13 00:00 |
|
|
Wengier
系统支持
“新DOS时代”站长
积分 27734
发帖 10521
注册 2002-10-9
状态 离线
|
『第
2 楼』:
看了上面的文件，有幾個問題想提一下。一是關於聲卡驅動，其實SBINIT衹支持創新的SB PCI 16/128/512和SB Audigy聲卡，對於創新的其它聲卡，如PCI的SB PCI 64V、SB Live!等等，以及ISA的所有聲卡均不支持（當然，至於其它非創新的聲卡就更不用說了）。所以我總覺得“本光盘配有通用的创新声卡驱动文件”這句話好像有點說不過去，應該改一下才好。再就是關於“內存多大”的問題，其實我覺得並沒有必要問這個問題，而是應該用程序去自動檢測才好，比如我上次在論壇寫的那段批處理文件（那個批處理文件我在我的幾臺電腦上已試過，可以通過它來直接運行仙劍，而不用任何用戶乾預）。如果問這個問題的話一是麻煩，二是很多用戶買電腦並不一定知道自己的電腦的內存有多大（他們衹管能用就行，才不管硬件的具體參數呢），三是上面的列表中的數字很不全，容易造成問題（比如我的兩臺舊電腦都是48MB內存，就沒辦法選了）。如果用程序來自動檢測內存大小的話，則這些問題全都解決了，而且兼容性和通用性更強。最後謝謝您的分享，希望繼續努力使得它更加完善！
|
Wengier - 新DOS时代
欢迎大家来到我的“新DOS时代”网站，里面有各类DOS软件和资料，地址：
http://wendos.mycool.net/
E-Mail & MSN: wengierwu AT hotmail.com （最近比较忙，有事请联系DOSroot和雨露，谢谢！）
 |
|
|
2005-4-14 00:00 |
|
|
GOTOmsdos
铂金会员
C++启程者
积分 5154
发帖 1827
注册 2003-7-18
状态 离线
|
『第
3 楼』:
谢谢关注! 我再考虑一下..
又加了一些功能: 比如,进入之前加了以登记入园形式的暗藏进入游戏的秘密通道选项,如果选的不对就进不了了...
保存游戏,(其中包括自己做的简易浏览器,供查看目录,,创建多层带间隔的长名目录),正在增加图形修改游戏进度...修改SKYROADS已成功...
下面帖出,供大家参考:
.主程序:
@ECHO OFF
PROMPT $P$G
path a:\
tw32 /np >nul
ctmouse /u >nul
ctmouse /n >nul
lh doslfn
cls
rem :drv
rem get z "%cdrom1%" /w1
rem set takecd=%get%
rem get #e "C:,D:,E:,F:,G:,H:,I:,J:,K:,L:,M:,N:,,P:,Q:,R:,S:,T:,U:,V:,W:,X:,Y:" ''''%takecd%''''
rem set takedrv=%get%
set barpos=0
set saveyn=0
set name=
set year=
set book=
set stat=
set core=
set score=
set salary=
set gamedir=0
wbat box @%0:sound
cls
if errorlevel 2 goto test
set blaster=a220 i5 d1 h5 p330
set sbpci=z:\sound
xcopy %romcd%\sound z:\sound\ /e /s /y
z:\sound\sbinit
cls
if errorlevel 1 wbat box 加载失败！
goto test
:sound "您要加载声卡驱动吗?" [x]
本光盘配有通用的 Sound Blaster (创新) 声卡驱动文件
如果您电脑的声卡兼容创新，一般会成功加载驱动，但如果
不兼容并强制加载驱动，很可能不成功甚至出现死机或噪音
等现象。如不清楚，建议查看一下您的声卡说明书。
[加 载] [不加载]
:
:studio
~木鸢工作室~ 羊城苑
2003-2005 Copyright TM reserved
:
:reg "寻趣园面试台" [x]
江湖绰号？[$ name 20,! ] （必填）
闯荡几个春秋了？[$ year 2,!] （必填）
著作有几本了？[$ book 2] 统计员论文有几篇了？[$ stat 2]
~核心~期刊论文有几篇了？[$ core 2]
平均学生评分多少？[$ score 2]
有~房~吗？[!]
薪俸多高啊？[$ salary 8]
有~车~吗？[!]
平时喜欢干啥？
看闲书 [!]
看电视 [!]
上网闲逛 [!]
~电脑游戏~玩疯了 [!]
逛街 [!]
到哥们儿那坐坐 [!] ~佳人~伺候？[.]
[面试结束] 孑然一身？[.]
:
:ls " 想玩哪一个? " [x]
[a 太空之路 ]
[b 赛车追捕 ]
[c 刺杀希特勒 ]
[d 毁灭战士 ]
[e 轩辕剑枫之舞]
[f 仙剑奇侠传 ]
[g 金庸群侠传 ]
[h 三国群英传 ]
[i 中国传统象棋]
[j 四国大战 ]
[k 手谈围棋 ]
[l 华容道 ]
[m 知识测验 ]
[n 最差的小游戏]
:
:query "您知道内存容量吗?" [x]
要玩这个游戏，程序需要知道您的
电脑的内存容量来调整到适合游戏
运行的限度，否则可能无法运行。
[我知道] [试一下] [返回吧]
:
:mem "内存多大?" [x]
32
64
96
128
160
192
224
256
288
320
352
384
416
448
480
512
:
:fore "您将要在内存盘中玩" [x]
现在已把该游戏从光盘复制到了内存盘，运行游戏期间您可以保存游戏进度
但重启电脑后就被清空，所以，如果在重启后要从保存的进度继续玩，就要
在结束该游戏后把它保存到硬盘(或其他介质)，以后再运行本光盘选择从硬
盘运行该游戏(当然，您也可用其他方式运行保存的游戏)。
在您退出游戏后会出现询问您是否保存游戏的对话框。
[开始玩吧]
:
:cheat "自欺欺人对话框" [x]
track1 [$t1 1] track16 [$t16 1]
track2 [$t2 1] track17 [$t17 1]
track3 [$t3 1] track18 [$t18 1]
track4 [$t4 1] track19 [$t19 1]
track5 [$t5 1] track20 [$t20 1]
track6 [$t6 1] track21 [$t21 1]
track7 [$t7 1] track22 [$t22 1]
track8 [$t8 1] track23 [$t23 1]
track9 [$t9 1] track24 [$t24 1]
track10 [$t10 1] track25 [$t25 1]
track11 [$t11 1] track26 [$t26 1]
track12 [$t12 1] track27 [$t27 1]
track13 [$t13 1] track28 [$t28 1]
track14 [$t14 1] track29 [$t29 1]
track15 [$t15 1] track30 [$t30 1]
[全部设为最大值] [全部设为最小值] [确定] [返回]
:
:_save "保存游戏" [x]
您可以改变下面的默认保存路径 [扫描驱动器]
我要保存到: [$ savedir 96,! ][★]
保存后我要试运行保存的游戏 [!]
[确定] [返回]
:
: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
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
call w.bat box 4,12 @%0:ls #%barpos%+1
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 errorlevel 100 goto ask
if "%wbat%"=="f" goto pal
if "%wbat%"=="g" goto playcd
if "%wbat%"=="i" goto playcd
:play
wbat cls
if exist z:\%oldgame%\play.bat deltree /y z:\%oldgame% >nul
xcopy %romcd%\%gamedir% z:\%gamedir%\ /e /s /y
wbat box @%0:fore
:seecheat
cd\%gamedir%
call play.bat
if "%run%"=="fail" wbat box 运行失败！
set run=
if not "%gamedir%"=="skyroads" goto played
cd\wbat
wbat box "要不劳而获吗？" 要,不要
if errorlevel 2 goto played
:zero
call prevar
:allmod
call w.bat box @%0:cheat
if errorlevel 4 goto played
if errorlevel 3 goto modgame
if errorlevel 2 goto zero
call allcheat
goto allmod
:modgame
call crackarg
wbat box "要重新运行游戏，看一下不劳而获的结果吗？" 看一下,不想看
if errorlevel 2 goto played
goto seecheat
:played
cd\wbat
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
rem set savedrv=c
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 start
if errorlevel 3 goto chkput
if errorlevel 2 goto explore
wbat cls
if exist drive.txt del drive.txt
call finddisk.bat C: D: E: F: G: H: I: J: K: L: M: N: P: Q: R: S: T: U: V: W: X:
goto savebox
:explore
call miniexpl.bat
goto savebox
:chkput
rem wbat cls ! text 24,2 (red on blue) @%0:studio
get z "%savedir%" 1 >nul
if "%get%"=="" goto two
if "%get%"==":" goto two
if "%get%"==":\" goto two
get z "%savedir%" 1 /w2 >nul
if "%get%"==":\" goto copygame
wbat cls ! text 24,2 (red on blue) @%0:studio ! box 输入非法！
goto savebox
:two
get z "%savedir%" /w1
set savedir=%get%:
:copygame
wbat cls ! text 24,2 (red on blue) @%0:studio ! box "要显示待创建的文件夹吗？" yes,no
if errorlevel 2 goto chkdir
wbat box %savedir%
:chkdir
echo %savedir%|find "%gamedir%">nul
if errorlevel 1 goto gamename
set enddir=%savedir%
goto dirmake
:gamename
set enddir=%savedir%\%gamedir%
:dirmake
call multidir.bat
:tocopy
wbat cls
copy z:\%gamedir% "%enddir%" /y
if not exist %enddir%\play.bat goto savefail
echo %enddir%|find "swda" >nul
if errorlevel 1 goto saveok
for %%a in (ba rx save vc) do md "%enddir%\%%a"
for %%a in (ba rx save vc) do copy z:\%gamedir%\%%a "%enddir%\%%a" /y
for %%a in (ba\ba49.rsk rx\ri079.rix save\save.zaq vc\sp135.voc) do if not exist %enddir%\%%a goto savefail
goto saveok
wbat cls ! text 24,2 (red on blue) @%0:studio
:savefail
wbat box 保存失败！
goto savebox
:saveok
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=
z:
cd\wbat
goto start
:playcd
%romcd%
cd\%wbat%
call play.bat
z:
cd\wbat
goto start
: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%
goto term
:32
wbat cls
xcopy %romcd%\f z:\f\ /e /s /y
cd\f
call play.bat
cd\wbat
goto start
:nogame
wbat box (black on brown) @%0:last
if errorlevel 100 goto ask
if errorlevel 3 off
if errorlevel 2 reboot
goto final
:term
againram.bat
:final
wbat cls
被调用的:MINIEXPL.BAT (自制小浏览器)
FINDDISK.BAT 扫描驱动器
.......
....
@echo off
:loop
if "%1"=="" goto end
dir %1\ /w/ad | find "%1" >nul
if not errorlevel 1 echo %1>>drive.txt
shift
goto loop
:end
MULTIDIR.BAT 创建多层长名目录
@echo off
set lfn=%enddir%
get z "%lfn%" 1
dir "%lfn%" /w/ad|find /i "%get%"
if not errorlevel 1 goto final
md "%lfn%"
get z "%lfn%" 1
dir "%lfn%" /w/ad|find /i "%get%"
if not errorlevel 1 goto final
:start
set pos=
set fore=%lfn%
set ahead=
:toleft
get # "%fore%" ''''\'''' /x
set pos=%get%
get z "%lfn%" %pos%
set ahead=%get%
get r "-" %pos% /w1
get z "%fore%" /w%get%
set fore=%get%
get z "%fore%" 1
dir "%fore%" /w/ad|find /i "%get%"
if not errorlevel 1 goto toright
goto toleft
:toright
if "%ahead%"=="" goto end
get # "%ahead%" ''''\''''
if "%get%"=="0" goto last
get r "+" %pos% /w%get%
set pos=%get%
get r "-" %pos% /w1
get z "%lfn%" /w%get%
set fore=%get%
get z "%lfn%" %pos%
set ahead=%get%
get z "%fore%" 1
dir "%fore%" /w/ad|find /i "%get%"
if not errorlevel 1 goto toright
md "%fore%"
goto toright
:last
md "%lfn%"
:end
get z "%lfn%" 1
dir "%lfn%" /w/ad|find /i "%get%"
if not errorlevel 1 goto ok
wbat box "folder creation FAIL !" retry,back
if errorlevel 2 goto final
goto start
k
wbat box "folder creation SUCCEEDED !" continue...
:final
修改小游戏进度:
@echo off
if exist crack del crack
echo n z:\skyroads\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
@echo off
crack %t1% %t2% %t3% %t4% %t5% %t6% %t7% %t8% %t9% %t10% %t11% %t12% %t13% %t14% %t15% %t16% %t17% %t18% %t19% %t20% %t21% %t22% %t23% %t24% %t25% %t26% %t27% %t28% %t29% %t30%
@echo off
for %%a in (1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30) do set t%%a=7
[此贴子已经被作者于2005-4-21 18:21:40编辑过]
|
|
|
2005-4-21 00:00 |
|
|
GOTOmsdos
铂金会员
C++启程者
积分 5154
发帖 1827
注册 2003-7-18
状态 离线
|
『第
4 楼』:
最近做上面的东东,发现DOS好象不能嵌套多层变量,加了COMMAND /C 也没大用,顶多多显示一层比如, 有%VAR%=10,把VAR赋给%1,,,, 就不能用%%1%来取到10, 同理,SET VAR2=VAR, %%VAR%%也不能取到10,也就是说,如果想用另一个变量同时取到某个变量名本身及其值! 这样就不方便了,比如,我上边的修改游戏成绩:有很多对值,一对值就是两个项目(用变量描述,比如T1表示第一号赛道,%T1%表示通过的次数),加起来就是60变量!但通过一个%1解决不了.如下:把T1 T2 T3...用SHIFT赋给%1, 用%%1%取到值,但不能嵌套用FOR %%A IN (1 2 3 ....) DO CALL XXX T%%A %T%%A% 也不能嵌套所以,害的我要列出60个变量!!??
|
|
|
2005-4-21 00:00 |
|
|
GOTOmsdos
铂金会员
C++启程者
积分 5154
发帖 1827
注册 2003-7-18
状态 离线
|
『第
5 楼』:
发现XCOPY XXCOPY不支持带间隔的长文件名? 但COPY却可以! 不过不能复制子目录
怪不怪!
XCOPY16可以,也可以复制子目录,但好象可能出错
那个 ACOPY 也不行!
总的感觉,这个问题难解决,不知道有没有完满的程序?
[此贴子已经被作者于2005-4-21 21:18:45编辑过]
|
|
|
2005-4-21 00:00 |
|
|
GOTOmsdos
铂金会员
C++启程者
积分 5154
发帖 1827
注册 2003-7-18
状态 离线
|
『第
6 楼』:
与上相关的另一个问题:好象 WBAT的输入区域 INPUT AREA没有序号吧? 害的我要再用变量.
|
|
|
2005-4-21 00:00 |
|
|
9zhmke
中级用户
积分 355
发帖 99
注册 2003-1-6
状态 离线
|
『第
7 楼』:
没用过WBAT，感觉功能太少了，还不如NDOS，以前我也发布过一个批处理做的菜单，应该比你这个要智能些吧。
|
|
|
2005-5-12 00:00 |
|
|
GOTOmsdos
铂金会员
C++启程者
积分 5154
发帖 1827
注册 2003-7-18
状态 离线
|
|
|
2005-5-12 00:00 |
|
|
9zhmke
中级用户
积分 355
发帖 99
注册 2003-1-6
状态 离线
|
『第
9 楼』:
已上传到这里： http://old.9zz.net/tmp/ndos.rar 里面有个game.bat 就是以前做的菜单，供你参考注：这个game.bat 要和NDOS的目录描述配合使用，给目录改上名字后自动调用。
|
|
|
2005-5-12 00:00 |
|
|
defrag
中级用户
痴迷ＤＯＳ者
积分 456
发帖 570
注册 2004-10-9
状态 离线
|
|
|
2005-7-9 00:00 |
|
|
不得不爱
超级版主
我爱DOS
积分 5310
发帖 2044
注册 2005-9-26
来自 四川南充
状态 离线
|
|
|
2005-12-8 11:33 |
|
|
