中国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

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