China DOS Union

Give it a try. This is based on 1.1.31. If it doesn't work, let me know again.

@echo off&color f1&title SYBN Snake Main Program&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 {Snake Script Animation} contains SYBC 1.1.31 initialization, press any key to continue...

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 ]

Oh, I already have the sybc for Dou Di Zhu, but the task execution doesn't work.

Note: I can't surf the Internet at midnight, so I can't reply in time.

Batch processing plus assembly, that's impressive, I give it an upvote

The snake game can run, but the code on the 7th floor cannot run

The code on floor 7 has been updated to sybc1.1.31, give it a try again.

Which version of Dou Di Zhu (Landlord) is this?

It's the code posted on the 20th floor or so of that Dou Di Zhu (Landlord) post.

There can also be tasks,

Task:
Please use the spaceship to fly to Mars to collect rock samples.
Then prompt
The spaceship has flown to Mars, but the space probe is damaged. Cannot proceed further.
The fire crystal stone must be found to repair it. Rock samples can be collected first.
(When collecting rock samples, the fire crystal stone is found, then return safely)

Floor 7, still can't run, it shows 'The system cannot execute the specified program'

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

There was a line of code that I forgot to change, but I've already changed it.
SET V=;RCX;120;N SYBC.COM;W;Q

7th floor Still can't run, showing 'The system cannot execute the specified program'

Can the landlord compile a text processor under CMD? As long as it supports basic functions like automatic line wrapping in the window and saving, etc. It would be even better if it imitates the interface of WPS For DOS, hehe... Although there are many text editors under Windows, I still want to write in CMD.

Start
Run

cmd

edit

LS, that Edit is the DOS Edit, nothing special. I just want to write things in CMD for fun, heh heh...
I used to play with Vim before, but I'm still not used to it, so I had to give up. I wonder what other Edit-like software that supports Chinese and automatic line wrapping in CMD?