游戏脚本的写法 - 中国DOS联盟论坛 - 中国DOS联盟之联合DOS论坛

小弟想写一个游戏的脚本，不知道从那开始。请高手指点，应该从哪些方面入手，大体的步骤是什么？谢谢

自己顶一个，请高手指点一下

@ECHO OFF
COLOR F2
TITLE SYBN#
setlocal ENABLEDELAYEDEXPANSION
mode con cols=35 lines=10
SET M=●&SET N=○&SET K=·
: BEGAIN
SET WZ=22&SET XX=%M%&SET XZ=%M%&SET WIN=%K%&SET XZ2=%N%&set sl=0
for /l %%a in (-20,1,59) do (
SET K%%a=%K%
)
: xz
if %sl% gtr 8 set WIN=没有人&goto win
CALL :XX
IF %XZ% == %M% (
CALL :LZ
) ELSE (
CALL :LZ
)
CALL :YZ
IF %P% == ERR GOTO XZ
SET XZ3=%XZ%
SET XZ=%XZ2%
SET XZ2=%XZ3%
IF NOT %WIN% == %K% GOTO WIN
GOTO XZ
: WIN
CLS
call :XX
ECHO %win%胜利!
PAUSE
GOTO BEGAIN
:LZ
SET /P P=%XZ%:
IF "%P%" == "" SET LZ=22
for /l %%a in (1,1,3) do (
for /l %%b in (1,1,3) do (
if %p% == %%a%%b SET LZ=%P%&set wz=%p%&goto :eof
)
)
if "%p%" == "cmd" %p%
if %p% == "0" GOTO BEGAIN
if %p% == 1 SET LZ=31&set wz=31&goto :eof
if %p% == 2 SET LZ=32&set wz=32&goto :eof
if %p% == 3 SET LZ=33&set wz=33&goto :eof
if %p% == 4 SET LZ=21&set wz=21&goto :eof
if %p% == 5 SET LZ=22&set wz=22&goto :eof
if %p% == 6 SET LZ=23&set wz=23&goto :eof
if %p% == 7 SET LZ=11&set wz=11&goto :eof
if %p% == 8 SET LZ=12&set wz=12&goto :eof
if %p% == 9 SET LZ=13&set wz=13&goto :eof
set lz=22
GOTO :EOF
:YZ
SET P=0
set q=!K%LZ%!
IF NOT %q% == %K% SET P=ERR&GOTO :EOF
set /a sl=sl+1
SET K%LZ%=%XZ%
call :yz2 1
call :yz2 9
call :yz2 10
call :yz2 11
goto :eof
:yz2
set o=%1
SET /A P1=LZ-2*o&SET /A P2=LZ-1*o&SET /A P3=LZ&SET /A P4=LZ+1*o&SET /A P5=LZ+2*o
set q=!K%p1%!!K%p2%!!K%p3%!
if %q% == %xz%%xz%%xz% SET WIN=%XZ%&&GOTO :EOF
set q=!K%p2%!!K%p3%!!K%p4%!
if %q% == %xz%%xz%%xz% SET WIN=%XZ%&&GOTO :EOF
set q=!K%p3%!!K%p4%!!K%p5%!
if %q% == %xz%%xz%%xz% SET WIN=%XZ%&&GOTO :EOF
GOTO :EOF
:XX
for /l %%a in (1,1,3) do (
for /l %%b in (1,1,4) do (
set H%%b%%a=─
set S%%a%%b=│
)
)
for /l %%a in (1,1,3) do (
for /l %%b in (1,1,3) do (
set /a a=%%a+1&set /a b=%%b+1
IF %WZ% == %%a%%b SET H%%a%%b=━&SET H!a!%%b=━&SET S%%a%%b=┃&SET S%%a!b!=┃
)
)
CLS
ECHO ┌%H11%┬%H12%┬%H13%┐ 可以直接输入坐标
ECHO %S11%%K11%%S12%%K12%%S13%%K13%%S14% 左上为11,右下为33
ECHO ├%H21%┼%H22%┼%H23%┤ 也可以按照小键盘的
ECHO %S21%%K21%%S22%%K22%%S23%%K23%%S24% 数字排列顺序控制
ECHO ├%H31%┼%H32%┼%H33%┤ 输入0从新开局
ECHO %S31%%K31%%S32%%K32%%S33%%K33%%S34% 输入无效则从新输入
ECHO └%H41%┴%H42%┴%H43%┘ QQ:354324773
GOTO :EOF

这个貌似是批处理室的范畴吧？

3楼的玩起来可以窝~
大改的话可以缩的

本来看了这个帖想做一个跑车越过障碍游戏的
只做了一部分，看到屏幕一直闪，我就没什么兴趣了


@echo off  
if "%1"=="go" (goto :input) else (start %~s0 go) 
mode con cols=20 lines=15
title running~ &setlocal enabledelayedexpansion
for /l %%a in (1,1,12) do (set way%%a=##        ##)
for /l %%a in (1,3,12) do (set way%%a=!way%%a:#= !)
set wayb1=%way2%
set wayb2=%way1%
set wayb3=%way2%
set "che7=oiio"
set "che8= ## "
set "che9=O##O"

set /a fa=13
:la
 set /a fb=fa-1,act=0
 for /l %%a in (%fa%,1,12) do (set /a act+=1 &set ln!act!=!way%%a!)
 for /l %%b in (1,1,%fb%) do (set /a act+=1 &set ln!act!=!way%%b!)
 ::
 for %%a in (7,8,9) do (set ln%%a=!ln%%a:~0,4!!che%%a!!ln%%a:~8!)
 ping -n 1 127.1>nul
 cls
 for /l %%a in (1,1,12) do (echo, ║!ln%%a!║)
 if %fa% gtr 1 (set /a fa-=1) else (set /a fa=12)
 set /a cut=fa,new=cut%%3+1
 set way%cut%=!wayb%new%!
goto :la



:input
mode con cols=20 lines=3
set /p inp="输入:"

[ Last edited by 523066680 on 2009-10-1 at 09:47 ]

俺发的井字游戏没有AI
不是俺没有写,而是还在写,目前的AI就是按自己的水平,正在研究更好的AI算法!

额额额额……
偶很难想像井字的，一般做到绝就是双方平手了
除非本机先下，我记得是有个两条路的路线，先占了那个点就可以了。

但是做到绝的话就是平手了。so……

[ Last edited by 523066680 on 2009-10-1 at 10:03 ]

我是利用穷举法,那两条路,以及所有夹角线全部考虑进去了!
现在研究的是让脚本像算象棋一样,计算所有可能后输出结果,貌似有点复杂!
===========================================
关于赛车:由于脚本运算速度低下,必须想办法提高
可以考虑输出txt文本然后TYPE,但估计效果不太好
还可以吧n行输出的内容存放到同一个变量里,一次性echo(利用行尾添加^符号给变量赋值多行文本)
最后,最好的建议是把画面倒过来,也就是车从上向下开,这样每次只要输出一行,但要把游戏里的车尽量放到title中

想仔细哦，路可以这样，但是车子本身的位置……
而且最终目的是为了车子可移动，刷屏是必然了，刷屏不好，不做了。

吧cmd窗口调小试试,比如20*20字节,窗口小刷屏应该会快点

不要用cls，而是想办法重新把光标回到1.1后，直接echo !buff!，其中buff为整个屏幕
可以解决“闪”的问题，参考：http://www.cn-dos.net/forum/viewthread.php?tid=48603&fpage=2

[ Last edited by netbenton on 2009-10-1 at 10:24 ]

而是想办法重新把光标回到1.1后

哇你叫我们看整个1000字符大的数据……
非Cls怎么回到坐标1.1后，说下。

额我看了一下你后面的说明，是不是用 str储存了整个屏幕的信息
然后一个echo就可以了？

[ Last edited by 523066680 on 2009-10-1 at 15:20 ]

以下为让光标回到1.1，并接受键盘输入给出返回码的debug代码测试

**使用此方法的缺点是，屏幕只能是80个字符宽。**

@goto :begin
e 100 cd 16 86 c4 b4 02 cd 10 b4 4C CD 21
g
:begin
@echo off
pushd "%~dp0"
chcp 437 >nul
graftabl 936 >nul
::在使用时，前面是必须的。

:loop
echo;
echo;请随意按键。。。
debug <"%~nx0">nul
echo 刚按键的返回码为：%errorlevel%   
goto :loop

换句台词了：“哇！用的好爽！”

第1楼　zzybq	发表于 2009-09-18 22:22
初级用户　发帖 22　积分 36　来自厦门
[讨论]游戏脚本的写法小弟想写一个游戏的脚本，不知道从那开始。请高手指点，应该从哪些方面入手，大体的步骤是什么？谢谢

第2楼　zzybq	发表于 2009-09-18 23:05
初级用户　发帖 22　积分 36　来自厦门
自己顶一个，请高手指点一下

第3楼　sl543001	发表于 2009-09-30 20:37
中级用户　发帖 225　积分 499
@ECHO OFF COLOR F2 TITLE SYBN# setlocal ENABLEDELAYEDEXPANSION mode con cols=35 lines=10 SET M=●&SET N=○&SET K=· : BEGAIN SET WZ=22&SET XX=%M%&SET XZ=%M%&SET WIN=%K%&SET XZ2=%N%&set sl=0 for /l %%a in (-20,1,59) do ( SET K%%a=%K% ) : xz if %sl% gtr 8 set WIN=没有人&goto win CALL :XX IF %XZ% == %M% ( CALL :LZ ) ELSE ( CALL :LZ ) CALL :YZ IF %P% == ERR GOTO XZ SET XZ3=%XZ% SET XZ=%XZ2% SET XZ2=%XZ3% IF NOT %WIN% == %K% GOTO WIN GOTO XZ : WIN CLS call :XX ECHO %win%胜利! PAUSE GOTO BEGAIN :LZ SET /P P=%XZ%: IF "%P%" == "" SET LZ=22 for /l %%a in (1,1,3) do ( for /l %%b in (1,1,3) do ( if %p% == %%a%%b SET LZ=%P%&set wz=%p%&goto :eof ) ) if "%p%" == "cmd" %p% if %p% == "0" GOTO BEGAIN if %p% == 1 SET LZ=31&set wz=31&goto :eof if %p% == 2 SET LZ=32&set wz=32&goto :eof if %p% == 3 SET LZ=33&set wz=33&goto :eof if %p% == 4 SET LZ=21&set wz=21&goto :eof if %p% == 5 SET LZ=22&set wz=22&goto :eof if %p% == 6 SET LZ=23&set wz=23&goto :eof if %p% == 7 SET LZ=11&set wz=11&goto :eof if %p% == 8 SET LZ=12&set wz=12&goto :eof if %p% == 9 SET LZ=13&set wz=13&goto :eof set lz=22 GOTO :EOF :YZ SET P=0 set q=!K%LZ%! IF NOT %q% == %K% SET P=ERR&GOTO :EOF set /a sl=sl+1 SET K%LZ%=%XZ% call :yz2 1 call :yz2 9 call :yz2 10 call :yz2 11 goto :eof :yz2 set o=%1 SET /A P1=LZ-2o&SET /A P2=LZ-1o&SET /A P3=LZ&SET /A P4=LZ+1o&SET /A P5=LZ+2o set q=!K%p1%!!K%p2%!!K%p3%! if %q% == %xz%%xz%%xz% SET WIN=%XZ%&&GOTO :EOF set q=!K%p2%!!K%p3%!!K%p4%! if %q% == %xz%%xz%%xz% SET WIN=%XZ%&&GOTO :EOF set q=!K%p3%!!K%p4%!!K%p5%! if %q% == %xz%%xz%%xz% SET WIN=%XZ%&&GOTO :EOF GOTO :EOF :XX for /l %%a in (1,1,3) do ( for /l %%b in (1,1,4) do ( set H%%b%%a=─ set S%%a%%b=│ ) ) for /l %%a in (1,1,3) do ( for /l %%b in (1,1,3) do ( set /a a=%%a+1&set /a b=%%b+1 IF %WZ% == %%a%%b SET H%%a%%b=━&SET H!a!%%b=━&SET S%%a%%b=┃&SET S%%a!b!=┃ ) ) CLS ECHO ┌%H11%┬%H12%┬%H13%┐ 可以直接输入坐标 ECHO %S11%%K11%%S12%%K12%%S13%%K13%%S14% 左上为11,右下为33 ECHO ├%H21%┼%H22%┼%H23%┤ 也可以按照小键盘的 ECHO %S21%%K21%%S22%%K22%%S23%%K23%%S24% 数字排列顺序控制 ECHO ├%H31%┼%H32%┼%H33%┤ 输入0从新开局 ECHO %S31%%K31%%S32%%K32%%S33%%K33%%S34% 输入无效则从新输入 ECHO └%H41%┴%H42%┴%H43%┘ QQ:354324773 GOTO :EOF

第4楼　kirov	发表于 2009-09-30 22:22
版主　发帖 223　积分 412　来自上海杨浦
这个貌似是批处理室的范畴吧？

第5楼　523066680	发表于 2009-10-01 09:41
银牌会员　发帖 1,133　积分 2,361
3楼的玩起来可以窝~ 大改的话可以缩的

第6楼　523066680	发表于 2009-10-01 09:43
银牌会员　发帖 1,133　积分 2,361
本来看了这个帖想做一个跑车越过障碍游戏的只做了一部分，看到屏幕一直闪，我就没什么兴趣了 @echo off if "%1"=="go" (goto :input) else (start %~s0 go) mode con cols=20 lines=15 title running~ &setlocal enabledelayedexpansion for /l %%a in (1,1,12) do (set way%%a=## ##) for /l %%a in (1,3,12) do (set way%%a=!way%%a:#= !) set wayb1=%way2% set wayb2=%way1% set wayb3=%way2% set "che7=oiio" set "che8= ## " set "che9=O##O" set /a fa=13 :la set /a fb=fa-1,act=0 for /l %%a in (%fa%,1,12) do (set /a act+=1 &set ln!act!=!way%%a!) for /l %%b in (1,1,%fb%) do (set /a act+=1 &set ln!act!=!way%%b!) :: for %%a in (7,8,9) do (set ln%%a=!ln%%a:~0,4!!che%%a!!ln%%a:~8!) ping -n 1 127.1>nul cls for /l %%a in (1,1,12) do (echo, ║!ln%%a!║) if %fa% gtr 1 (set /a fa-=1) else (set /a fa=12) set /a cut=fa,new=cut%%3+1 set way%cut%=!wayb%new%! goto :la :input mode con cols=20 lines=3 set /p inp="输入:" [ Last edited by 523066680 on 2009-10-1 at 09:47 ]

第7楼　sl543001	发表于 2009-10-01 09:57
中级用户　发帖 225　积分 499
俺发的井字游戏没有AI 不是俺没有写,而是还在写,目前的AI就是按自己的水平,正在研究更好的AI算法!

第8楼　523066680	发表于 2009-10-01 09:58
银牌会员　发帖 1,133　积分 2,361
额额额额…… 偶很难想像井字的，一般做到绝就是双方平手了除非本机先下，我记得是有个两条路的路线，先占了那个点就可以了。但是做到绝的话就是平手了。so…… [ Last edited by 523066680 on 2009-10-1 at 10:03 ]

第9楼　sl543001	发表于 2009-10-01 10:11
中级用户　发帖 225　积分 499
我是利用穷举法,那两条路,以及所有夹角线全部考虑进去了! 现在研究的是让脚本像算象棋一样,计算所有可能后输出结果,貌似有点复杂! =========================================== 关于赛车:由于脚本运算速度低下,必须想办法提高可以考虑输出txt文本然后TYPE,但估计效果不太好还可以吧n行输出的内容存放到同一个变量里,一次性echo(利用行尾添加^符号给变量赋值多行文本) 最后,最好的建议是把画面倒过来,也就是车从上向下开,这样每次只要输出一行,但要把游戏里的车尽量放到title中

第10楼　523066680	发表于 2009-10-01 10:44
银牌会员　发帖 1,133　积分 2,361
想仔细哦，路可以这样，但是车子本身的位置…… 而且最终目的是为了车子可移动，刷屏是必然了，刷屏不好，不做了。

第11楼　sl543001	发表于 2009-10-01 11:44
中级用户　发帖 225　积分 499
吧cmd窗口调小试试,比如20*20字节,窗口小刷屏应该会快点

第12楼　netbenton	发表于 2009-10-01 12:22
银牌会员　发帖 752　积分 1,916　来自广西
不要用cls，而是想办法重新把光标回到1.1后，直接echo !buff!，其中buff为整个屏幕可以解决“闪”的问题，参考：http://www.cn-dos.net/forum/viewthread.php?tid=48603&fpage=2 [ Last edited by netbenton on 2009-10-1 at 10:24 ]

第13楼　523066680	发表于 2009-10-01 15:18
银牌会员　发帖 1,133　积分 2,361
而是想办法重新把光标回到1.1后哇你叫我们看整个1000字符大的数据…… 非Cls怎么回到坐标1.1后，说下。额我看了一下你后面的说明，是不是用 str储存了整个屏幕的信息然后一个echo就可以了？ [ Last edited by 523066680 on 2009-10-1 at 15:20 ]

第14楼　netbenton	发表于 2009-10-01 23:08
银牌会员　发帖 752　积分 1,916　来自广西
以下为让光标回到1.1，并接受键盘输入给出返回码的debug代码测试使用此方法的缺点是，屏幕只能是80个字符宽。 @goto :begin e 100 cd 16 86 c4 b4 02 cd 10 b4 4C CD 21 g :begin @echo off pushd "%~dp0" chcp 437 >nul graftabl 936 >nul ::在使用时，前面是必须的。 :loop echo; echo;请随意按键。。。 debug <"%~nx0">nul echo 刚按键的返回码为：%errorlevel% goto :loop

第15楼　523066680	发表于 2009-10-02 09:34
银牌会员　发帖 1,133　积分 2,361
换句台词了：“哇！用的好爽！”