中国DOS联盟

试试这个,这是基于1.1.31的,再不行再告诉我,

@echo off&color f1&title SYBN 贪吃蛇 主程序&SETLOCAL ENABLEDELAYEDEXPANSION&(CHCP 437&GRAFTABL 936)>NUL SET SYBCOM=A100`80BE AC00 3C 375 83E9 3C00 ACFF 4275`2CBE AC00 E08A 86AC 50C4 BE1F 0 3CAC`7553 ACFB 593C F675 3CAC 7542 ACF1 433C`EC75 3CAC 7553 ACE7 3D3C E275 14EB 3CAC`743A 3C0F 740D 3C4D 7400 8349 1EE 48EB`54B4 E8AC 93 ADE8 3C00 7F18 8A37 E8F0`87 A1E8 3C00 7F4F 8A2B B0D0 F602 50E2`A0B0 E6F6 35F 57F8 3CAC 7424 E80A 6A`49E8 8A00 EBCA E817 3F CA8A 10EB B0`16CD C48A 4CB4 21CD 815F A0C7 5700 B850`B800 750 2B5A 8AEE ACD1 243C D974 3B3C`8C74 D3C DE74 3C DA74 233C 575 D783`EB01 AA01 C28A EBAA E8E0 1D 3C93 7E39`402 8009 39FB 37E C380 2409 800F FE3`10B2 E2F6 C302 D08A ACC3 203C FB74 D3C`A274 3C 9E74 D88A 3CAC 7420 3CEC 740D`3C93 7400 C38F 2C93 8030 30EB AB4 E4F6`C302 C3` SET SYBCV=`A80`DB FF``RCX`120`G`Q ECHO {贪吃蛇 脚本动画} 内含SYBC 1.1.31 初始化,按任意键继续... SET V=;RCX;120;N SYBC.COM;W;Q if not exist sybc.com (ECHO.%SYBCOM:`=&ECHO.DW %&ECHO.% SET SYBK=SYBK1=┌─┐│└┘┼;SYBK2=┏━┓┃┗┛╋;SYBK3=╔═╗║╚╝╬;c1=1f;c2=fa;c3=f2;c4=f5;ls=01 SET %SYBK:;=&SET % set ys=3 :new cls for /l %%a in (10000,1,12500) do set s%%a=0 set thf=+1&set tlf=+0&set f1=-1 set /a th=12,tl=15,chang=3,t3=11230,t1=11230,t2=11230,cqs=0,bjs=0,bjx=24,bjz=0,bjy=39,bjh=23,bjl=38,hd=10,changjx=300,ranc=0 for /l %%a in (1,1,100) do title 正在放置食物:%%a/100&&call :rans2 :go title 小蛇出动咯... set /a ranc+=1 if %ranc% gtr 100 ( pause>NUL titlt 小蛇憋死啦！ goto :new ) ::title %t0%,%BZ0%,%t1%,%BZ1%,%t2%,%BZ2%,%t3%,%BZ3%,%time%,%t% if %chang% gtr %changjx% goto :new if %th% gtr %BJx% if %cqs% == 1 (goto over) else set th=%BJs% if %th% lss %BJs% if %cqs% == 1 (goto over) else set th=%BJx% if %tl% gtr %BJy% if %cqs% == 1 (goto over) else set tl=%BJz% if %tl% lss %BJz% if %cqs% == 1 (goto over) else set tl=%BJy% set /a t=10000+th*100+tl*2 if !S%t%! == 1 set /a tl=tlc,th=thc&&goto ran set ranc=0 if !S%t%! == 2 call :rans set s%t%=1 for /l %%a in (1,1,%chang%) do set /a a=%%a-1&set t!a!=!t%%a!&set BZ!a!=!BZ%%a! set t%chang%=%t% if not "%t0%" == "" set s%t0%=0&set SYBCS=%t0%f1 set /a BZW=chang-1 set /a BZW2=chang-2 for /l %%a in (2,1,%BZW2%) do set SYBCS=!SYBCS!;:!t%%a!1f!BZ%%a! set /a thc=th,tlc=tl set /a tc=10000+thc*100+tlc*2 if %thf% == -0 if %f1% == -1 (set bz=!SYBK%ys%:~0,1!) else (if %f1% == +1 (set bz=!SYBK%ys%:~4,1!) else (if %f1% == -0 (set bz=!SYBK%ys%:~1,1!) else (if %f1% == +0 (set bz=!SYBK%ys%:~1,1!)))) if %thf% == +0 if %f1% == -1 (set bz=!SYBK%ys%:~2,1!) else (if %f1% == +1 (set bz=!SYBK%ys%:~5,1!) else (if %f1% == -0 (set bz=!SYBK%ys%:~1,1!) else (if %f1% == +0 (set bz=!SYBK%ys%:~1,1!)))) if %thf% == -1 if %f1% == -1 (set bz=!SYBK%ys%:~3,1!) else (if %f1% == +1 (set bz=!SYBK%ys%:~3,1!) else (if %f1% == -0 (set bz=!SYBK%ys%:~5,1!) else (if %f1% == +0 (set bz=!SYBK%ys%:~4,1!)))) if %thf% == +1 if %f1% == -1 (set bz=!SYBK%ys%:~3,1!) else (if %f1% == +1 (set bz=!SYBK%ys%:~3,1!) else (if %f1% == -0 (set bz=!SYBK%ys%:~2,1!) else (if %f1% == +0 (set bz=!SYBK%ys%:~0,1!)))) set BZ%BZW%=%BZ% set f1=%thf% set SYBCS=!SYBCS!;:!to!1f%bz% set BZ%chang%=%bz% set to=%tc% set bz2=%bz% set SYBCS=!SYBCS!;:!t%chang%!C1:D ::echo %SYBCS%>>sy.txt call :SYBCS ::pause>nul :ran set /a ran=%random%%%%hd% if %ran% == 0 if not %thf% == -1 set thf=+1&set tlf=-0 if %ran% == 1 if not %thf% == +1 set thf=-1&set tlf=+0 if %ran% == 2 if not %tlf% == -1 set tlf=+1&set thf=-0 if %ran% == 3 if not %tlf% == +1 set tlf=-1&set thf=+0 set /a th=th%thf%,tl=tl%tlf% goto go :rans set !S%t%!=0 set /a chang2=chang,chang+=1 set t%chang%=!t%chang2%! call :SYBC 12400f0长度: ; :rans2 set /a rh=%random%%%bjh+bjs,rl=%random%%%bjl+bjz set /a rt=10000+rh*100+rl*2 if "!s%rt%!" == "1" goto rans2 if "!s%rt%!" == "2" goto rans2 set S%rt%=2 call :SYBC %rt%f2◎ goto :eof :over pause :SYBCS (ECHO.%SYBCOM:`=&ECHO.DW %&ECHO.%SYBCV:`=&ECHO.%)|DEBUG>NUL goto :EOF :SYBC IF "%1" == "" SET SYBCCD=00&GOTO SYBCC SET SYBCCD=54 set SYBCC=%* :SYBCC SET V=`A80`DB %SYBCCD% 00 "%SYBCC%" 0D``RCX`120`G`Q (ECHO.%SYBCOM:`=&ECHO.DW %&ECHO.%V:`=&ECHO.%)|DEBUG>NUL EXIT /B %ERRORLEVEL%

[ Last edited by sl543001 on 2010-4-5 at 20:46 ]

哦， 我已经有斗地主的sybc,就是执行任务不行

注意：我不能半夜上网，所以不能及时回复。

批处理加汇编是吧, 厉害，顶了

贪吃蛇可以运行，就是第 7 楼的代码不能运行

7楼代码已更新为sybc1.1.31,再试试看

斗地主是呢个版本的?

就是那个 在那个斗地主的帖子的 20几楼贴出的代码

还可以有任务，

任务：
请用飞船飞到火星采集岩石样本。
然后提示
飞船已经飞到火星，但太空探测器受损。无法继续前进，
必须找到火晶石才能修复。可以先采集岩石样本。
（采集岩石样本的时候，发现火晶石，然后安全返回）

7楼 还是不能运行的，显示 ‘系统无法执行指定程序’

[ Last edited by ZJHJ on 2010-4-4 at 11:09 ]

有一行代码忘了改,已经改了
SET V=;RCX;120;N SYBC.COM;W;Q

7楼 还是不能运行的，显示 ‘系统无法执行指定程序’

楼主可不可以编个CMD下的文本处理器？
只要支持窗口自动换行，保存之类的基本功能就行了，如果能仿照WPS For DOS的界面就更好了，嘻嘻……
虽然Windows下有很多文本编辑器，但还是想在CMD下写字呢

开始
运行
cmd
edit

LS，那个Edit就是DOS下的Edit啊，没什么意思，我是想在CMD中写东西呢，好玩而已，呵呵……
以前玩过Vim，还是有些不习惯，只能放弃了。不知CMD下还有什么支持中文的、可以自动换行的Edit类软件？