|
netbenton
银牌会员
     批处理编程迷
积分 1916
发帖 752
注册 2008-12-28 来自 广西
状态 离线
|
    『楼 主』:
[原创]推箱子批处理游戏
使用 LLM 解释/回答一下
推箱子游戏
2009-8-29更新
纯批,不用三方,不生成任何临时文件(除玩家的记录),小巧,自由增加关级,转换后放到最后即可
2009-08-30 更新
连玩家记录也不用临时文件了。
2009-09-06 更新
消除了刷屏时闪烁的问题
2009-09-14 更新
支持超大地图
2010-03-22 修正了增强版的一个小BUG
@goto :begin 1@ 此为记录数据行,请不要删移!
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
rem color 2f
set "a=i83=10;i1=7;i72=1;i80=3;i75=2;i77=4;i73=8;i81=9;i57=5;i28=6;c1=n-;c2=m-;c3=n+;c4=m+;∷=^^!r!n!.!m!^^!-∷;☆=^^!r!n!.!m!^^!-☆;▓∷=▓-∷;▓☆=★-∷;★∷=▓-☆;★☆=★-☆;原=∷
set %a:;=&set %
setlocal enabledelayedexpansion
for /f "tokens=2,3 delims=囧" %%a in (%~nx0) do (
set var=!var!%%a
if "%%b" equ "" (
set lev!n!=!var!
set/a n+=1
set var=
)
)
set a=a=■;b=∷;c=▓;d=☆;e=★;f=大;tc=abcdefg;tn=1234567890;g=;/a end=n,z=8180,x=0,n=0,m=0;$a=
set cr=^
&set %a:;=&set %
set/p yg=< %~nx0 >nul
set yg=!yg:~13,52!
set lev=%yg:@=&rem %
set yg= !yg:* =!
set/a n0=0,n9=17,m0=-1
goto :skend
:restart
endlocal&set lev=%lev%
:skend
cls&setlocal enabledelayedexpansion
set str=!lev%lev%!
for /l %%a in (1,1,14) do (set/a "y=(z-x)/2+x"
for %%b in (!y!) do if "!str:~%%b,1!" equ "" (set/a z=y) else (set/a x=y)
)
for /l %%a in (0,1,!x!) do (set/a t=%%a+1
for %%b in (!t!) do (
for /f "tokens=1-3 delims=-" %%1 in ("!str:~%%a,1!-!str:~%%b,1!-!n!") do (
if "!tc:%%1=!" neq "!tc!" (
if "!tn:%%2=!" neq "!tn!" (set k=%%2) else (set k=1)
for /l %%k in (1,1,!k!) do (set r!n!.!m!=!%%1!&set rr!%%1!=!n!.!m!
if "!%%1!" equ "☆" set "ke=!ke!^!r!n!.!m!^!"
set /a m+=1
)
) else (if "%%1" equ " " set /a n+=1,m=0)
)
))
setlocal enabledelayedexpansion
for /l %%a in (1,1,!n!) do set lev%%a=
set /a n=!rr大:.=,m=!
set ji=%ke%&set ji=!ji:☆=★!
if "!yg: %lev% =!" neq "!yg!" (set cyg=☆已过☆) else set cyg=
title 批处理推箱子 第%lev%关 !cyg!
:loop
(
if !n! geq !n9! set /a n0=n-17,n9=n
if !n0! lss 0 set /a n0=0,n9=17
if !n! lss !n0! set /a n0=n,n9=n+17
if !m! geq !m9! set /a m0=m-33,m9=m
if !m0! lss 0 set /a m0=0,m9=33
if !m! lss !m0! set /a m0=m,m9=m+33
set/a en0=n0-2,em0=m0-2,en9=n9+2,em9=m9+2
if "!m0!!m9!" neq "%m0%%m9%" (
set ebs=
for /l %%b in (!em0!,1,!em9!) do (
set "ebs=!ebs!^!@%%b^!^^^!$a^!@%%b^!^^^!
)
)
)
for /l %%a in (!en0!,1,!en9!) do (
for %%c in ("!ebs:@=r%%a.!") do (
for %%d in ("%%~c") do (set ebuf=!ebuf!%%~d!cr!)
)
)
if "%ke%" equ "!ji!" cls&echo !ebuf! 恭喜你过关了!&pause&goto me9
set ebuf=!ebuf!方向键移动,空格后退一步,回车重来, Pu上一关,Pd下一关,Esc退出,Del删除记录。玩法:用“大”把“▓”全部推到“☆”内为过关
set/p=!ebuf!<nul
set ebuf=
debug <%~nx0 >nul
set err=%errorlevel%
set in=!i%err%!
if !in! equ 0 goto :loop
if !in! gtr 4 goto :me%in%
set/a sm=m,sn=n,!c%in%!=1,bm=m,bn=n,!c%in%!=1
for /f "tokens=1,2" %%a in ("!r%bn%.%bm%! !r%bn%.%bm%!!r%n%.%m%!") do (
for %%c in ("!%%a!!%%b!") do (
for /f "tokens=1,2 delims=-" %%1 in (%%c) do (
if "!%%b!" neq "" set save=r%sn%.%sm%=!r%sn%.%sm%!^&set r%bn%.%bm%=!r%bn%.%bm%!^&set r%n%.%m%=!r%n%.%m%!^&set 原=%原%^&set/a m=%sm%,n=%sn%
set r%sn%.%sm%=!原!&set r%bn%.%bm%=大&set r%n%.%m%=%%1&set/a m=bm,n=bn&set 原=%%2
goto :loop
)
set/a m=sm,n=sn
)
)
goto :loop
:me5
if defined save (
set r%n%.%m%=%原%
set %save%
set save=
)
goto :loop
:me6
endlocal&goto :restart
:me7
if "!yg:~50!" neq "" set yg=!yg:* =!&goto :me7
set a=a 10d`db "!lev!@!yg! "``w`q
(echo %a:`=&echo;%) |debug %~nx0 >nul
exit /b
:me8
set/a lev-=2
:me9
set/a lev+=1
if !lev! equ !end! set lev=1
if !lev! equ 0 set/a lev=end-1
endlocal&(if %in% leq 4 set yg=!yg!!lev! )&set lev=%lev%&goto :restart
:me10
endlocal&set yg=&set lev=1
for /l %%a in (1,1,52) do set yg=!yg!
goto :restart
:囧a9a ab8a ab4d2fba ab2a2b4a ab2a4b2a aba2b5a ab4c2b2a ab8a ab8a a9a
:囧a8g ab3ab2a abdbcdba a2ca2b2a ab2a2ca2 abdfb3a ab2ab3a a8
:囧a9a4 abdb2db2dbdba5 ab9b6a5 abdabda2badb9a aba2b2a9a2b3a abcbcb9b6a abcb3cbcba7b3a ab3cb2a4g5a5 a4bcba g3abfba g3a5
:囧ga4g5 gab2a a2dfa abdca6 abc2bcb2a2 abd2b4a2 a4b2a4 g3a4
:囧g5a4g a6b2a abcb2cb2a abab2daba2 ab2dbadfba a2cabdcb2a gab3a5 ga5
:囧g5a6g g5ab4a ga5ba2ba2 gabcb2cb2cba a2badada2dba abcb2cda2dba ab2d2bcfbca2 a8b2a g7a4
:囧a9g2 ab7a ab2cbcbca a2baca2ba gabd2bd2a2 ga2d2bd2ba g2aba2caba2 g2acbcbcb2a g2ab6fa g2a9
:囧a5g7 ab3a8 abfdbdbdbdba a2bababababa gabcbcbcbcba ga6b2a3 g6a4
:囧g4a4g a5b2a abcb3ca ab2dadba a2ba3ba2 gabdadb2a gacbfbcba gab2a5 ga4
:囧g2a8g a3b2fb3a ab3cbcb2a ab2cbcbcba a5ca5 g3a2bdbd2a g3ab2dab2a g3abdb3da g3a4b2a2 g6a4
:囧a9g ab2fb4a ac7a ad3ad3a ad7a ac3bc3a ab7a a9
:囧a9ag ab8a2 abcacacacfa adbdcd3cda adbdcd3cda abcacacaca2 ab8a a9a
:囧a2 a9a ab2ab2ad2a afbcbcbdba ab3cb2cba abababadba a9a
:囧g9g7a4g9g2 g5a5g3a4b2a a4gab3a6b4a9a ab2a3bab8ab9b2a abcd5ababcbabad2ab4c2aba ab2a2d3cb2abcabad2b2a2b3cba3 ab4ca2cabacbcbad2ab2a2cabcb2a abcacb3cb2abcb2ad2b3ab2cbcb2a a2b3a3cabad3a2d2ab2abcacb3a ga2ba2bab3ad2a3bdb3abcbcba3 a3bab2a9ab2ab2ab3a4 ab7a2b6ab2ab4a6 abcacacbab3cbcb2a9ab2a adcdb2cbab2cbcbcb8cb3ca ad3a2b2a5ca9b2dadba a4b3a6bdbd2ab3a2ba3ba2 g3ab2db2cbab2dab2adaca2bdadb2a g3a3d2bcbabdb3dab4acb3cba g3a3c2bcbaba2b2a2dacbab2a5 ga3bdcdbab3a6b3a2ba2 gab2cd3ca5g4adacab2a gab3a2dcbag6a2b5a2 ga6b3a囧@
:囧g6abdaca3 g6a5g6ab4a g9g8afba3 g9g8a4
:囧g9g7a4 g5a5g3a4b2a a4gab3a6b4a9a ab2a3bab8ab9b2a abcd5ababcbabad2ab4c2aba ab2a2d3cb2abcabad2b2a2b3cba3 ab4ca2cabacbcbad2ab2a2cabcb2a abcacb3cb2abcb2ad2b3ab2cbcb2a a2b3a3cabad3a2d2ab2abcacb3a ga2ba2bab3ad2a3bdb3abcbcba3 a3bab2a9ab2ab2ab3a4 ab7a2b6ab2ab4a6 abcacacbab3cbcb2a9ab2a adcdb2cbab2cbcbcb8cb3ca ad3a2b2a5ca9b2dadba a4b3a6bdbd2ab3a2ba3ba2 g3ab2db2cbab2dab2adaca2bdadb2a g3a3d2bcbabdb3dab4acb3cba g3a3c2bcbaba2b2a2dacbab2a5 ga3bdcdbab3a6b3a2ba2 gab2cd3ca5g4adacab2a gab3a2dcbag6a2b5a2 ga6b3ag6ab囧@
:囧daca3 g6a5g6ab4a g9g8afba3 g9g8aba2g9g9g9g9g3a7 g9g8ab2ag9g9g9g9g3adbdbda g9g8ab2ag9g9g9g9g3ab5a g9g8ab2ag9g9g9g9g3adbdbda g9g8ab2ag9g9g9g9g3ab5a g9g8ab2ag9g9g9g9g3adb4a g9g8ab2ag9g9g9g9g3a4ba2 g9g8ab2ag9g9g9g9g6aba g9g8ab2ag9g9g9g9g6aba g9g8ab2ag9g9g9g9g6aba g9g8ab2ag9g9g9g9g6aba g9g8ab2ag9g9g9g9g6aba g9g8ab2ag9g9g9g9g6aba g9g8ab2ag9g9g9g9g6aba g9g8ab2ag9g9g9g9g6aba g9g8ab2ag9g9g9g9g6aba g9g8ab2ag9g9g9g9g6aba g9g8ab2ag9g9g9g9g6aba g9g8ab2ag9g9g2a7g9g6aba g9g8ab2ag9g9g2ab5ag9g6aba g9g8ab2ag9g9g2囧@
:囧ab5ag9g6aba g9g8ab2ag9g9g2acbcbcag9g6aba g9g8ab2ag9g9g2ab5ag9g6aba g9g8ab2ag9g9g2acbcbcag9g6aba g9g8ab2a9a9a4b5a9a8ba g9g8ab4cb9b9b9b9b6a g9g8ab9b9b9b9b9b2a g9g8a9a9a9a9a9a4
Last edited by netbenton on 2010-3-22 at 00:19 ]
Push Box Game
Updated on 2009-8-29
Pure batch, no third parties, no temporary files generated (except player's records), compact, freely add levels, convert and put at the end
Updated on 2009-08-30
No temporary files even for player records.
Updated on 2009-09-06
Eliminated the flickering problem when refreshing the screen
Updated on 2009-09-14
Supports super large maps
Corrected a small bug in the enhanced version on 2010-03-22
@goto :begin 1@ This is the record data line, please do not delete or move!
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
rem color 2f
set "a=i83=10;i1=7;i72=1;i80=3;i75=2;i77=4;i73=8;i81=9;i57=5;i28=6;c1=n-;c2=m-;c3=n+;c4=m+;∷=^^!r!n!.!m!^^!-∷;☆=^^!r!n!.!m!^^!-☆;▓∷=▓-∷;▓☆=★-∷;★∷=▓-☆;★☆=★-☆;原=∷
set %a:;=&set %
setlocal enabledelayedexpansion
for /f "tokens=2,3 delims=囧" %%a in (%~nx0) do (
set var=!var!%%a
if "%%b" equ "" (
set lev!n!=!var!
set/a n+=1
set var=
)
)
set a=a=■;b=∷;c=▓;d=☆;e=★;f=大;tc=abcdefg;tn=1234567890;g=;/a end=n,z=8180,x=0,n=0,m=0;$a=
set cr=^
&set %a:;=&set %
set/p yg=< %~nx0 >nul
set yg=!yg:~13,52!
set lev=%yg:@=&rem %
set yg= !yg:* =!
set/a n0=0,n9=17,m0=-1
goto :skend
:restart
endlocal&set lev=%lev%
:skend
cls&setlocal enabledelayedexpansion
set str=!lev%lev%!
for /l %%a in (1,1,14) do (set/a "y=(z-x)/2+x"
for %%b in (!y!) do if "!str:~%%b,1!" equ "" (set/a z=y) else (set/a x=y)
)
for /l %%a in (0,1,!x!) do (set/a t=%%a+1
for %%b in (!t!) do (
for /f "tokens=1-3 delims=-" %%1 in ("!str:~%%a,1!-!str:~%%b,1!-!n!") do (
if "!tc:%%1=!" neq "!tc!" (
if "!tn:%%2=!" neq "!tn!" (set k=%%2) else (set k=1)
for /l %%k in (1,1,!k!) do (set r!n!.!m!=!%%1!&set rr!%%1!=!n!.!m!
if "!%%1!" equ "☆" set "ke=!ke!^!r!n!.!m!^!"
set /a m+=1
)
) else (if "%%1" equ " " set /a n+=1,m=0)
)
))
setlocal enabledelayedexpansion
for /l %%a in (1,1,!n!) do set lev%%a=
set /a n=!rr大:.=,m=!
set ji=%ke%&set ji=!ji:☆=★!
if "!yg: %lev% =!" neq "!yg!" (set cyg=☆已过☆) else set cyg=
title 批处理推箱子 第%lev%关 !cyg!
:loop
(
if !n! geq !n9! set /a n0=n-17,n9=n
if !n0! lss 0 set /a n0=0,n9=17
if !n! lss !n0! set /a n0=n,n9=n+17
if !m! geq !m9! set /a m0=m-33,m9=m
if !m0! lss 0 set /a m0=0,m9=33
if !m! lss !m0! set /a m0=m,m9=m+33
set/a en0=n0-2,em0=m0-2,en9=n9+2,em9=m9+2
if "!m0!!m9!" neq "%m0%%m9%" (
set ebs=
for /l %%b in (!em0!,1,!em9!) do (
set "ebs=!ebs!^!@%%b^!^^^!$a^!@%%b^!^^^!
)
)
)
for /l %%a in (!en0!,1,!en9!) do (
for %%c in ("!ebs:@=r%%a.!") do (
for %%d in ("%%~c") do (set ebuf=!ebuf!%%~d!cr!)
)
)
if "%ke%" equ "!ji!" cls&echo !ebuf! 恭喜你过关了!&pause&goto me9
set ebuf=!ebuf!方向键移动,空格后退一步,回车重来, Pu上一关,Pd下一关,Esc退出,Del删除记录。玩法:用“大”把“▓”全部推到“☆”内为过关
set/p=!ebuf!<nul
set ebuf=
debug <%~nx0 >nul
set err=%errorlevel%
set in=!i%err%!
if !in! equ 0 goto :loop
if !in! gtr 4 goto :me%in%
set/a sm=m,sn=n,!c%in%!=1,bm=m,bn=n,!c%in%!=1
for /f "tokens=1,2" %%a in ("!r%bn%.%bm%! !r%bn%.%bm%!!r%n%.%m%!") do (
for %%c in ("!%%a!!%%b!") do (
for /f "tokens=1,2 delims=-" %%1 in (%%c) do (
if "!%%b!" neq "" set save=r%sn%.%sm%=!r%sn%.%sm%!^&set r%bn%.%bm%=!r%bn%.%bm%!^&set r%n%.%m%=!r%n%.%m%!^&set 原=%原%^&set/a m=%sm%,n=%sn%
set r%sn%.%sm%=!原!&set r%bn%.%bm%=大&set r%n%.%m%=%%1&set/a m=bm,n=bn&set 原=%%2
goto :loop
)
set/a m=sm,n=sn
)
)
goto :loop
:me5
if defined save (
set r%n%.%m%=%原%
set %save%
set save=
)
goto :loop
:me6
endlocal&goto :restart
:me7
if "!yg:~50!" neq "" set yg=!yg:* =!&goto :me7
set a=a 10d`db "!lev!@!yg! "``w`q
(echo %a:`=&echo;%) |debug %~nx0 >nul
exit /b
:me8
set/a lev-=2
:me9
set/a lev+=1
if !lev! equ !end! set lev=1
if !lev! equ 0 set/a lev=end-1
endlocal&(if %in% leq 4 set yg=!yg!!lev! )&set lev=%lev%&goto :restart
:me10
endlocal&set yg=&set lev=1
for /l %%a in (1,1,52) do set yg=!yg!
goto :restart
:囧a9a ab8a ab4d2fba ab2a2b4a ab2a4b2a aba2b5a ab4c2b2a ab8a ab8a a9a
:囧a8g ab3ab2a abdbcdba a2ca2b2a ab2a2ca2 abdfb3a ab2ab3a a8
:囧a9a4 abdb2db2dbdba5 ab9b6a5 abdabda2badb9a aba2b2a9a2b3a abcbcb9b6a abcb3cbcba7b3a ab3cb2a4g5a5 a4bcba g3abfba g3a5
:囧ga4g5 gab2a a2dfa abdca6 abc2bcb2a2 abd2b4a2 a4b2a4 g3a4
:囧g5a4g a6b2a abcb2cb2a abab2daba2 ab2dbadfba a2cabdcb2a gab3a5 ga5
:囧g5a6g g5ab4a ga5ba2ba2 gabcb2cb2cba a2badada2dba abcb2cda2dba ab2d2bcfbca2 a8b2a g7a4
:囧a9g2 ab7a ab2cbcbca a2baca2ba gabd2bd2a2 ga2d2bd2ba g2aba2caba2 g2acbcbcb2a g2ab6fa g2a9
:囧a5g7 ab3a8 abfdbdbdbdba a2bababababa gabcbcbcbcba ga6b2a3 g6a4
:囧g4a4g a5b2a abcb3ca ab2dadba a2ba3ba2 gabdadb2a gacbfbcba gab2a5 ga4
:囧g2a8g a3b2fb3a ab3cbcb2a ab2cbcbcba a5ca5 g3a2bdbd2a g3ab2dab2a g3abdb3da g3a4b2a2 g6a4
:囧a9g ab2fb4a ac7a ad3ad3a ad7a ac3bc3a ab7a a9
:囧a9ag ab8a2 abcacacacfa adbdcd3cda adbdcd3cda abcacacaca2 ab8a a9a
:囧a2 a9a ab2ab2ad2a afbcbcbdba ab3cb2cba abababadba a9a
:囧g9g7a4g9g2 g5a5g3a4b2a a4gab3a6b4a9a ab2a3bab8ab9b2a abcd5ababcbabad2ab4c2aba ab2a2d3cb2abcabad2b2a2b3cba3 ab4ca2cabacbcbad2ab2a2cabcb2a abcacb3cb2abcb2ad2b3ab2cbcb2a a2b3a3cabad3a2d2ab2abcacb3a ga2ba2bab3ad2a3bdb3abcbcba3 a3bab2a9ab2ab2ab3a4 ab7a2b6ab2ab4a6 abcacacbab3cbcb2a9ab2a adcdb2cbab2cbcbcb8cb3ca ad3a2b2a5ca9b2dadba a4b3a6bdbd2ab3a2ba3ba2 g3ab2db2cbab2dab2adaca2bdadb2a g3a3d2bcbabdb3dab4acb3cba g3a3c2bcbaba2b2a2dacbab2a5 ga3bdcdbab3a6b3a2ba2 gab2cd3ca5g4adacab2a gab3a2dcbag6a2b5a2 ga6b3a囧@
:囧g6abdaca3 g6a5g6ab4a g9g8afba3 g9g8a4
:囧g9g7a4 g5a5g3a4b2a a4gab3a6b4a9a ab2a3bab8ab9b2a abcd5ababcbabad2ab4c2aba ab2a2d3cb2abcabad2b2a2b3cba3 ab4ca2cabacbcbad2ab2a2cabcb2a abcacb3cb2abcb2ad2b3ab2cbcb2a a2b3a3cabad3a2d2ab2abcacb3a ga2ba2bab3ad2a3bdb3abcbcba3 a3bab2a9ab2ab2ab3a4 ab7a2b6ab2ab4a6 abcacacbab3cbcb2a9ab2a adcdb2cbab2cbcbcb8cb3ca ad3a2b2a5ca9b2dadba a4b3a6bdbd2ab3a2ba3ba2 g3ab2db2cbab2dab2adaca2bdadb2a g3a3d2bcbabdb3dab4acb3cba g3a3c2bcbaba2b2a2dacbab2a5 ga3bdcdbab3a6b3a2ba2 gab2cd3ca5g4adacab2a gab3a2dcbag6a2b5a2 ga6b3ag6ab囧@
:囧daca3 g6a5g6ab4a g9g8afba3 g9g8aba2g9g9g9g9g3a7 g9g8ab2ag9g9g9g9g3adbdbda g9g8ab2ag9g9g9g9g3ab5a g9g8ab2ag9g9g9g9g3adbdbda g9g8ab2ag9g9g9g9g3ab5a g9g8ab2ag9g9g9g9g3adb4a g9g8ab2ag9g9g9g9g3a4ba2 g9g8ab2ag9g9g9g9g6aba g9g8ab2ag9g9g9g9g6aba g9g8ab2ag9g9g9g9g6aba g9g8ab2ag9g9g9g9g6aba g9g8ab2ag9g9g9g9g6aba g9g8ab2ag9g9g9g9g6aba g9g8ab2ag9g9g9g9g6aba g9g8ab2ag9g9g9g9g6aba g9g8ab2ag9g9g9g9g6aba g9g8ab2ag9g9g9g9g6aba g9g8ab2ag9g9g9g9g6aba g9g8ab2ag9g9g2a7g9g6aba g9g8ab2ag9g9g2ab5ag9g6aba g9g8ab2ag9g9g2囧@
:囧ab5ag9g6aba g9g8ab2ag9g9g2acbcbcag9g6aba g9g8ab2ag9g9g2ab5ag9g6aba g9g8ab2ag9g9g2acbcbcag9g6aba g9g8ab2a9a9a4b5a9a8ba g9g8ab4cb9b9b9b9b6a g9g8ab9b9b9b9b9b2a g9g8a9a9a9a9a9a4
Last edited by netbenton on 2010-3-22 at 00:19 ]
此帖被 +111 点积分 点击查看详情 评分人:【 yishanju 】 | 分数: +15 | 时间:2009-8-26 16:48 | 评分人:【 ficn 】 | 分数: +1 | 时间:2009-8-27 08:52 | 评分人:【 523066680 】 | 分数: +15 | 时间:2009-8-29 06:10 | 评分人:【 slore 】 | 分数: +20 | 时间:2009-9-6 02:05 | 评分人:【 tireless 】 | 分数: +15 | 时间:2009-9-6 08:02 | 评分人:【 moniuming 】 | 分数: +15 | 时间:2009-9-6 23:59 | 评分人:【 lotus516 】 | 分数: +8 | 时间:2009-9-11 01:47 | 评分人:【 jmz573515 】 | 分数: +15 | 时间:2009-9-17 05:56 | 评分人:【 sl543001 】 | 分数: +2 | 时间:2009-10-1 17:13 | 评分人:【 zouzhxi 】 | 分数: +4 | 时间:2009-10-5 17:06 | 评分人:【 cup319 】 | 分数: +1 | 时间:2010-7-7 23:58 |
|
附件
1: txz.rar (2009-9-6 03:20, 3.67 KiB,下载次数: 149)
附件
2: txz增强版.rar (2010-3-22 20:19, 9.05 KiB,下载次数: 111)
|

精简
=> 个人 网志  |
|
2009-8-26 11:12 |
|
|
yishanju
银牌会员
     [b]看你妹啊[/b]
积分 1488
发帖 1357
注册 2006-5-20
状态 离线
|
|
2009-8-26 16:48 |
|
|
netbenton
银牌会员
     批处理编程迷
积分 1916
发帖 752
注册 2008-12-28 来自 广西
状态 离线
|
『第 3 楼』:
使用 LLM 解释/回答一下
进一步精简代码,主程序只有2K!!
下一步将把地图数据压缩,并放进主程序内。。。
@echo off
set c1=n-
set c2=m-
set c3=n+
set c4=m+
set lev=0
set r=0
set end=11
set ·=^^!r!n!.!m!^^!-·
set ☆=^^!r!n!.!m!^^!-☆
set ▓·=▓-·
set ▓☆=★-·
set ★·=▓-☆
set ★☆=★-☆
:restart
setlocal enabledelayedexpansion
if not exist level!lev!.txt echo 第%lev%关 不存在。。。&pause&goto :me9
for /f "delims=" %%a in (level!lev!.txt) do (set str=%%a
if not defined a (set/a a=8180,c=0
for /l %%a in (1,1,14) do ( set/a "b=(a-c)/2+c"
for %%b in (!b!) do if "!str:~%%b,1!" equ "" (set/a a=b) else (set/a c=b)
))
for /l %%b in (0,1,!a!) do (set r!r!.%%b=!str:~%%b,1!&set "ab!str:~%%b,1!=!r!.%%b"
if "!str:~%%b,1!" equ "☆" set "ke=!ke!^!r!r!.%%b^!"
)
set /a r+=1
)
for /l %%a in (0,1,!a!) do (set "ech=!ech!^!rm.%%a^!")
set /a n=!ab大:.=,m=!
set 原=·
mode con: cols=40 lines=20
set ji=%ke%&set ji=!ji:☆=★!
:loop
cls&echo;&echo;&echo 批处理推箱子 第%lev%关
for /l %%a in (0,1,!r!) do for /f "delims=" %%b in ("!ech:m=%%a!") do echo; %%~b
if "%ke%" equ "!ji!" echo 过关。。。&pause&goto me9
echo;
echo wasd移动,b后退一步,r重新开始,
echo f上一关,g下一关,q退出。
Choice /c:wasdbrqfg>nul
set/a in=!errorlevel!
if !in! gtr 4 goto :me%in%
set/a sm=m,sn=n,!c%in%!=1,bm=m,bn=n,!c%in%!=1
for /f "tokens=1,2" %%a in ("!r%bn%.%bm%! !r%bn%.%bm%!!r%n%.%m%!") do (
for %%c in ("!%%a!!%%b!") do (
for /f "tokens=1,2 delims=-" %%1 in (%%c) do (
if "!%%b!" neq "" set save=r%sn%.%sm%=!r%sn%.%sm%!^&set r%bn%.%bm%=!r%bn%.%bm%!^&set r%n%.%m%=!r%n%.%m%!^&set 原=%原%^&set/a m=%sm%,n=%sn%
set r%sn%.%sm%=!原!&set r%bn%.%bm%=大&set r%n%.%m%=%%1&set/a m=bm,n=bn&set 原=%%2
goto :loop
)
set/a m=sm,n=sn
)
)
goto :loop
:me5
if defined save (
set r%n%.%m%=%原%
set %save%
set save=
)
goto :loop
:me6
endlocal&goto :restart
:me7
exit /b
:me8
set/a lev-=2
:me9
set/a lev+=1
if !lev! equ !end! set lev=1
endlocal&set lev=%lev%&goto :restart
Further streamline the code, the main program is only 2K!!
The next step is to compress the map data and put it into the main program...
@echo off
set c1=n-
set c2=m-
set c3=n+
set c4=m+
set lev=0
set r=0
set end=11
set ·=^^!r!n!.!m!^^!-·
set ☆=^^!r!n!.!m!^^!-☆
set ▓·=▓-·
set ▓☆=★-·
set ★·=▓-☆
set ★☆=★-☆
:restart
setlocal enabledelayedexpansion
if not exist level!lev!.txt echo Level %lev% does not exist...&pause&goto :me9
for /f "delims=" %%a in (level!lev!.txt) do (set str=%%a
if not defined a (set/a a=8180,c=0
for /l %%a in (1,1,14) do ( set/a "b=(a-c)/2+c"
for %%b in (!b!) do if "!str:~%%b,1!" equ "" (set/a a=b) else (set/a c=b)
))
for /l %%b in (0,1,!a!) do (set r!r!.%%b=!str:~%%b,1!&set "ab!str:~%%b,1!=!r!.%%b"
if "!str:~%%b,1!" equ "☆" set "ke=!ke!^!r!r!.%%b^!"
)
set /a r+=1
)
for /l %%a in (0,1,!a!) do (set "ech=!ech!^!rm.%%a^!")
set /a n=!ab大:.=,m=!
set 原=·
mode con: cols=40 lines=20
set ji=%ke%&set ji=!ji:☆=★!
:loop
cls&echo;&echo;&echo Batch Sokoban Level %lev%
for /l %%a in (0,1,!r!) do for /f "delims=" %%b in ("!ech:m=%%a!") do echo; %%~b
if "%ke%" equ "!ji!" echo Passed...&pause&goto me9
echo;
echo wasd to move, b to step back, r to restart,
echo f to previous level, g to next level, q to exit.
Choice /c:wasdbrqfg>nul
set/a in=!errorlevel!
if !in! gtr 4 goto :me%in%
set/a sm=m,sn=n,!c%in%!=1,bm=m,bn=n,!c%in%!=1
for /f "tokens=1,2" %%a in ("!r%bn%.%bm%! !r%bn%.%bm%!!r%n%.%m%!") do (
for %%c in ("!%%a!!%%b!") do (
for /f "tokens=1,2 delims=-" %%1 in (%%c) do (
if "!%%b!" neq "" set save=r%sn%.%sm%=!r%sn%.%sm%!^&set r%bn%.%bm%=!r%bn%.%bm%!^&set r%n%.%m%=!r%n%.%m%!^&set 原=%原%^&set/a m=%sm%,n=%sn%
set r%sn%.%sm%=!原!&set r%bn%.%bm%=大&set r%n%.%m%=%%1&set/a m=bm,n=bn&set 原=%%2
goto :loop
)
set/a m=sm,n=sn
)
)
goto :loop
:me5
if defined save (
set r%n%.%m%=%原%
set %save%
set save=
)
goto :loop
:me6
endlocal&goto :restart
:me7
exit /b
:me8
set/a lev-=2
:me9
set/a lev+=1
if !lev! equ !end! set lev=1
endlocal&set lev=%lev%&goto :restart
|

精简
=> 个人 网志  |
|
2009-8-27 08:21 |
|
|
yishanju
银牌会员
     [b]看你妹啊[/b]
积分 1488
发帖 1357
注册 2006-5-20
状态 离线
|
『第 4 楼』:
使用 LLM 解释/回答一下
这水平高得只能让我拜服,呵呵
This level is so high that it can only make me bow in admiration, heh heh
|

有问题请发论坛或者自行搜索,再短消息问我的统统是SB |
|
2009-8-27 10:04 |
|
|
netbenton
银牌会员
     批处理编程迷
积分 1916
发帖 752
注册 2008-12-28 来自 广西
状态 离线
|
    『第 5 楼』:
使用 LLM 解释/回答一下
好了,地图压缩并放入主程序中了,只有3.07K,包含了10关的地图
为了尽量缩小代码,变得没那么易读了
@echo off
set "a=c1=n-;c2=m-;c3=n+;c4=m+;·=^^!r!n!.!m!^^!-·;☆=^^!r!n!.!m!^^!-☆;▓·=▓-·;▓☆=★-·;★·=▓-☆;★☆=★-☆;原=·
set %a:;=&set %
pushd %~dp0
setlocal enabledelayedexpansion
for /f "tokens=2* delims=囧" %%a in (%~nx0) do (set lev!n!=%%a&set/a n+=1)
set a=lev=1;a=■;b=·;c=▓;d=☆;e=★;f=大;tc=abcdefg;tn=1234567890;g= ;/a end=n,z=8180,x=0,n=1,m=1
set %a:;=&set %
mode con: cols=40 lines=20
:restart
setlocal enabledelayedexpansion
set str=!lev%lev%!
for /l %%a in (1,1,14) do (set/a "y=(z-x)/2+x"
for %%b in (!y!) do if "!str:~%%b,1!" equ "" (set/a z=y) else (set/a x=y)
)
for /l %%a in (0,1,!x!) do (set/a t=%%a+1
for %%b in (!t!) do (
for /f "tokens=1-3 delims=-" %%1 in ("!str:~%%a,1!-!str:~%%b,1!-!n!") do (
if "!tc:%%1=!" neq "!tc!" (
if "!tn:%%2=!" neq "!tn!" (set k=%%2) else (set k=1)
for /l %%k in (1,1,!k!) do (set r!n!.!m!=!%%1!&set rr!%%1!=!n!.!m!
if "!%%1!" equ "☆" set "ke=!ke!^!r!n!.!m!^!"
set "r%%3=!r%%3!^!r!n!.!m!^!"&set/a m+=1)
) else (if "%%1" equ " " set /a n+=1,m=1)
)
))
set /a r=n,n=!rr大:.=,m=!
set ji=%ke%&set ji=!ji:☆=★!
:loop
cls&echo;&echo;&echo 批处理推箱子 第%lev%关
for /l %%a in (1,1,!r!) do for %%b in ("!r%%a!") do echo; %%~b
if "%ke%" equ "!ji!" echo 恭喜你过关了!&pause&goto me9
echo;&echo wasd移动,b后退一步,r重新开始&echo f上一关,g下一关,q退出。
Choice /c:wasdbrqfg>nul
set/a in=!errorlevel!
if !in! gtr 4 goto :me%in%
set/a sm=m,sn=n,!c%in%!=1,bm=m,bn=n,!c%in%!=1
for /f "tokens=1,2" %%a in ("!r%bn%.%bm%! !r%bn%.%bm%!!r%n%.%m%!") do (
for %%c in ("!%%a!!%%b!") do (
for /f "tokens=1,2 delims=-" %%1 in (%%c) do (
if "!%%b!" neq "" set save=r%sn%.%sm%=!r%sn%.%sm%!^&set r%bn%.%bm%=!r%bn%.%bm%!^&set r%n%.%m%=!r%n%.%m%!^&set 原=%原%^&set/a m=%sm%,n=%sn%
set r%sn%.%sm%=!原!&set r%bn%.%bm%=大&set r%n%.%m%=%%1&set/a m=bm,n=bn&set 原=%%2
goto :loop
)
set/a m=sm,n=sn
)
)
goto :loop
:me5
if defined save (
set r%n%.%m%=%原%
set %save%
set save=
)
goto :loop
:me6
endlocal&goto :restart
:me7
exit /b
:me8
set/a lev-=2
:me9
set/a lev+=1
if !lev! equ !end! set lev=1
if !lev! equ 0 set/a lev=end-1
endlocal&set lev=%lev%&goto :restart
:囧a9a ab8a ab4d2fba ab2a2b4a ab2a4b2a aba2b5a ab4c2b2a ab8a ab8a a9a
:囧a8g ab3ab2a abdbcdba a2ca2b2a ab2a2ca2 abdfb3a ab2ab3a a8
:囧g5a4g a6b2a abcb2cb2a abab2daba2 ab2dbadfba a2cabdcb2a gab3a5 ga5
:囧ga4g5 gab2a a2dfa abdca6 abc2bcb2a2 abd2b4a2 a4b2a4 g3a4
:囧g5a6g g5ab4a ga5ba2ba2 gabcb2cb2cba a2badada2dba abcb2cda2dba ab2d2bcfbca2 a8b2a g7a4
:囧a9g2 ab7a ab2cbcbca a2baca2ba gabd2bd2a2 ga2d2bd2ba g2aba2caba2 g2acbcbcb2a g2ab6fa g2a9
:囧a5g7 ab3a8 abfdbdbdbdba a2bababababa gabcbcbcbcba ga6b2a3 g6a4
:囧g4a4g a5b2a abcb3ca ab2dadba a2ba3ba2 gabdadb2a gacbfbcba gab2a5 ga4
:囧g2a8g a3b2fb3a ab3cbcb2a ab2cbcbcba a5ca5 g3a2bdbd2a g3ab2dab2a g3abdb3da g3a4b2a2 g6a4
:囧a9g ab2fb4a ac7a ad3ad3a ad7a ac3bc3a ab7a a9
:囧a9ag ab8a2 abcacacacfa adbdcd3cda adbdcd3cda abcacacaca2 ab8a a9a
如果您想增加关级,用下面的代码压缩后,贴到主程序的最后就可以了。
地图源数据格式,可在一楼下载
@echo off&setlocal enabledelayedexpansion
set a=lev=;a=■;b=·;c=▓;d=☆;e=★;f=大;tc=abcdefg;tn=1234567890;g=
set %a:;=&set %
(for /l %%a in (0,1,10) do (if exist level%%a.txt (
set de=
for /f "delims=" %%b in (level%%a.txt) do set str=%%b&call :sub
for %%b in (a-■;b-·;c-▓;d-☆;e-★;f-大;"g- ") do (for /f "tokens=1,2 delims=-" %%1 in ("%%~b") do (
set de=!de:%%2=%%1!
))
echo :囧!de:1=!
)))>ys.txt
goto :eof
:sub
if defined str (
if "!o!" equ "!str:~,1!" (set/a n+=1) else (set de=!de!!o!!n!&set o=!str:~,1!&set n=1)
if !n! gtr 9 set de=!de!!o!9&set/a n-=9
set str=!str:~1!
goto :sub
)
set de=!de!!o!!n! &set o=&set n=
经过这个批处理游戏的编写,我又学到了一个巧,
变量定义的紧凑格式:
set "a=c1=n-;c2=m-;c3=n+;c4=m+;·=^^!r!n!.!m!^^!-·;☆=^^!r!n!.!m!^^!-☆;▓·=▓-·;▓☆=★-·;★·=▓-☆;★☆=★-☆;原=·
set %a:;=&set %
Okay, the map is compressed and put into the main program. It's only 3.07K and contains maps for 10 levels. To minimize the code as much as possible, it's made less readable.
@echo off
set "a=c1=n-;c2=m-;c3=n+;c4=m+;·=^^!r!n!.!m!^^!-·;☆=^^!r!n!.!m!^^!-☆;▓·=▓-·;▓☆=★-·;★·=▓-☆;★☆=★-☆;原=·
set %a:;=&set %
pushd %~dp0
setlocal enabledelayedexpansion
for /f "tokens=2* delims=囧" %%a in (%~nx0) do (set lev!n!=%%a&set/a n+=1)
set a=lev=1;a=■;b=·;c=▓;d=☆;e=★;f=大;tc=abcdefg;tn=1234567890;g= ;/a end=n,z=8180,x=0,n=1,m=1
set %a:;=&set %
mode con: cols=40 lines=20
:restart
setlocal enabledelayedexpansion
set str=!lev%lev%!
for /l %%a in (1,1,14) do (set/a "y=(z-x)/2+x"
for %%b in (!y!) do if "!str:~%%b,1!" equ "" (set/a z=y) else (set/a x=y)
)
for /l %%a in (0,1,!x!) do (set/a t=%%a+1
for %%b in (!t!) do (
for /f "tokens=1-3 delims=-" %%1 in ("!str:~%%a,1!-!str:~%%b,1!-!n!") do (
if "!tc:%%1=!" neq "!tc!" (
if "!tn:%%2=!" neq "!tn!" (set k=%%2) else (set k=1)
for /l %%k in (1,1,!k!) do (set r!n!.!m!=!%%1!&set rr!%%1!=!n!.!m!
if "!%%1!" equ "☆" set "ke=!ke!^!r!n!.!m!^!"
set "r%%3=!r%%3!^!r!n!.!m!^!"&set/a m+=1)
) else (if "%%1" equ " " set /a n+=1,m=1)
)
))
set /a r=n,n=!rr大:.=,m=!
set ji=%ke%&set ji=!ji:☆=★!
:loop
cls&echo;&echo;&echo 批处理推箱子 第%lev%关
for /l %%a in (1,1,!r!) do for %%b in ("!r%%a!") do echo; %%~b
if "%ke%" equ "!ji!" echo 恭喜你过关了!&pause&goto me9
echo;&echo wasd移动,b后退一步,r重新开始&echo f上一关,g下一关,q退出。
Choice /c:wasdbrqfg>nul
set/a in=!errorlevel!
if !in! gtr 4 goto :me%in%
set/a sm=m,sn=n,!c%in%!=1,bm=m,bn=n,!c%in%!=1
for /f "tokens=1,2" %%a in ("!r%bn%.%bm%! !r%bn%.%bm%!!r%n%.%m%!") do (
for %%c in ("!%%a!!%%b!") do (
for /f "tokens=1,2 delims=-" %%1 in (%%c) do (
if "!%%b!" neq "" set save=r%sn%.%sm%=!r%sn%.%sm%!^&set r%bn%.%bm%=!r%bn%.%bm%!^&set r%n%.%m%=!r%n%.%m%!^&set 原=%原%^&set/a m=%sm%,n=%sn%
set r%sn%.%sm%=!原!&set r%bn%.%bm%=大&set r%n%.%m%=%%1&set/a m=bm,n=bn&set 原=%%2
goto :loop
)
set/a m=sm,n=sn
)
)
goto :loop
:me5
if defined save (
set r%n%.%m%=%原%
set %save%
set save=
)
goto :loop
:me6
endlocal&goto :restart
:me7
exit /b
:me8
set/a lev-=2
:me9
set/a lev+=1
if !lev! equ !end! set lev=1
if !lev! equ 0 set/a lev=end-1
endlocal&set lev=%lev%&goto :restart
:囧a9a ab8a ab4d2fba ab2a2b4a ab2a4b2a aba2b5a ab4c2b2a ab8a ab8a a9a
:囧a8g ab3ab2a abdbcdba a2ca2b2a ab2a2ca2 abdfb3a ab2ab3a a8
:囧g5a4g a6b2a abcb2cb2a abab2daba2 ab2dbadfba a2cabdcb2a gab3a5 ga5
:囧ga4g5 gab2a a2dfa abdca6 abc2bcb2a2 abd2b4a2 a4b2a4 g3a4
:囧g5a6g g5ab4a ga5ba2ba2 gabcb2cb2cba a2badada2dba abcb2cda2dba ab2d2bcfbca2 a8b2a g7a4
:囧a9g2 ab7a ab2cbcbca a2baca2ba gabd2bd2a2 ga2d2bd2ba g2aba2caba2 g2acbcbcb2a g2ab6fa g2a9
:囧a5g7 ab3a8 abfdbdbdbdba a2bababababa gabcbcbcbcba ga6b2a3 g6a4
:囧g4a4g a5b2a abcb3ca ab2dadba a2ba3ba2 gabdadb2a gacbfbcba gab2a5 ga4
:囧g2a8g a3b2fb3a ab3cbcb2a ab2cbcbcba a5ca5 g3a2bdbd2a g3ab2dab2a g3abdb3da g3a4b2a2 g6a4
:囧a9g ab2fb4a ac7a ad3ad3a ad7a ac3bc3a ab7a a9
:囧a9ag ab8a2 abcacacacfa adbdcd3cda adbdcd3cda abcacacaca2 ab8a a9a
If you want to add levels, compress the following code and paste it at the end of the main program.
The map source data format can be downloaded on the first floor.
@echo off&setlocal enabledelayedexpansion
set a=lev=;a=■;b=·;c=▓;d=☆;e=★;f=大;tc=abcdefg;tn=1234567890;g=
set %a:;=&set %
(for /l %%a in (0,1,10) do (if exist level%%a.txt (
set de=
for /f "delims=" %%b in (level%%a.txt) do set str=%%b&call :sub
for %%b in (a-■;b-·;c-▓;d-☆;e-★;f-大;"g- ") do (for /f "tokens=1,2 delims=-" %%1 in ("%%~b") do (
set de=!de:%%2=%%1!
))
echo :囧!de:1=!
)))>ys.txt
goto :eof
:sub
if defined str (
if "!o!" equ "!str:~,1!" (set/a n+=1) else (set de=!de!!o!!n!&set o=!str:~,1!&set n=1)
if !n! gtr 9 set de=!de!!o!9&set/a n-=9
set str=!str:~1!
goto :sub
)
set de=!de!!o!!n! &set o=&set n=
Through the writing of this batch processing game, I learned a trick again,
The compact format for variable definition:
set "a=c1=n-;c2=m-;c3=n+;c4=m+;·=^^!r!n!.!m!^^!-·;☆=^^!r!n!.!m!^^!-☆;▓·=▓-·;▓☆=★-·;★·=▓-☆;★☆=★-☆;原=·
set %a:;=&set %
|

精简
=> 个人 网志  |
|
2009-8-28 15:39 |
|
|
netbenton
银牌会员
     批处理编程迷
积分 1916
发帖 752
注册 2008-12-28 来自 广西
状态 离线
|
『第 6 楼』:
使用 LLM 解释/回答一下
再次改进,摆脱了choice.exe的依赖,
一楼已更新
Improved again, getting rid of the dependency on choice.exe, the first floor has been updated
|

精简
=> 个人 网志  |
|
2009-8-29 03:49 |
|
|
starjaymy
新手上路

积分 13
发帖 6
注册 2009-8-23
状态 离线
|
|
2009-8-29 05:36 |
|
|
523066680
银牌会员
     SuperCleaner
积分 2362
发帖 1133
注册 2008-2-2
状态 离线
|
『第 8 楼』:
使用 LLM 解释/回答一下
先看到凑合式那段, 加分。
主代码还没看
08-29,挺你啦 我很喜欢。
Last edited by 523066680 on 2009-8-29 at 06:13 ]
First saw the makeshift part, add points.
The main code hasn't been read yet
08-29, support you啦 I like it very much.
Last edited by 523066680 on 2009-8-29 at 06:13 ]
|

综合型编程论坛
我的作品索引 |
|
2009-8-29 05:53 |
|
|
523066680
银牌会员
     SuperCleaner
积分 2362
发帖 1133
注册 2008-2-2
状态 离线
|
『第 9 楼』:
使用 LLM 解释/回答一下
有个优化选项: 记住玩过的关卡,这样的话下次可以接着玩。
There is an optimization option: Remember the levels you have played, so that you can continue playing next time.
|

综合型编程论坛
我的作品索引 |
|
2009-8-29 06:27 |
|
|
netbenton
银牌会员
     批处理编程迷
积分 1916
发帖 752
注册 2008-12-28 来自 广西
状态 离线
|
『第 10 楼』:
使用 LLM 解释/回答一下
re 523066680
谢谢支持和提出意见,
已经在一楼更新:可以保存当前状态,记录已经通过的关,并且增加了一键清除记录
re 523066680
Thanks for your support and feedback,
It has been updated on the first floor: can save the current state, record the passed levels, and add a one-click clear record
|

精简
=> 个人 网志  |
|
2009-8-29 08:35 |
|
|
netbenton
银牌会员
     批处理编程迷
积分 1916
发帖 752
注册 2008-12-28 来自 广西
状态 离线
|
『第 11 楼』:
使用 LLM 解释/回答一下
2009-08-30 更新
连玩家记录也不用临时文件了。
已经在顶楼更新
2009-08-30 update
Even player records no longer use temporary files.
Already updated on the top floor
|

精简
=> 个人 网志  |
|
2009-8-30 10:21 |
|
|
netbenton
银牌会员
     批处理编程迷
积分 1916
发帖 752
注册 2008-12-28 来自 广西
状态 离线
|
『第 12 楼』:
使用 LLM 解释/回答一下
怎么那么少人喜欢玩“推箱子”。
本想有时间做它几十关的,
唉,看来算了。
Last edited by netbenton on 2009-9-4 at 09:30 ]
Why are there so few people who like playing "Sokoban"?
I originally wanted to have time to make dozens of levels of it,
Alas, it seems I'll give it up.
Last edited by netbenton on 2009-9-4 at 09:30 ]
|

精简
=> 个人 网志  |
|
2009-9-4 11:28 |
|
|
523066680
银牌会员
     SuperCleaner
积分 2362
发帖 1133
注册 2008-2-2
状态 离线
|
|
2009-9-4 21:34 |
|
|
ldr2zjj
初级用户
 
积分 167
发帖 95
注册 2007-5-6
状态 离线
|
|
2009-9-5 16:03 |
|
|
523066680
银牌会员
     SuperCleaner
积分 2362
发帖 1133
注册 2008-2-2
状态 离线
|
『第 15 楼』:
使用 LLM 解释/回答一下
楼主,我很喜欢你写的这套游戏,我玩到这三关就觉得好难的了
我觉得对待游戏不能太急,就没一直闯关了。
玩家的回复是游戏制作者最大的鼓励。
各位觉得好的话 要懂得回帖,懂得提出建议。
就算是来回帖灌水,也要有心意。
Last edited by 523066680 on 2009-9-5 at 22:06 ]
LZ, I really like the set of games you wrote. I find the first three levels quite difficult.
I think one shouldn't be too hasty with games, so I haven't been rushing to clear the levels.
Players' responses are the greatest encouragement for game creators.
Everyone who thinks it's good should know to post replies and offer suggestions.
Even if it's just posting to fill the thread, there should be some thought behind it.
Last edited by 523066680 on 2009-9-5 at 22:06 ]
|

综合型编程论坛
我的作品索引 |
|
2009-9-5 22:05 |
|
|