@echo off&setlocal enabledelayedexpansion
:: 2007-12-15  code by  随风   @bbs.bathome.net
mode con: cols=61 lines=15&color 1f
title 什么时候是个头啊!
for /l %%l in (1 1 58) do set "ko= !ko!"
:ss
set "t="&set "t2= "&set su=0
set hang=30&set lie=13
set "a=*"&set "b=!ko!*"
:lis
cls&set /a su+=1
if !su! equ 3 (
  for /l %%h in (1 1 13) do echo.
  set "a=!ko!*"
  set yan=40&set hang=30
) else set yan=100
for /l %%i in (1 1 !hang!) do (
  set/p= !a!<nul
  for /l %%l in (1 1 !yan!) do ver>nul
  set/p=!t! <nul
  if !su! equ 3 set a=!a:~2!&for /l %%a in (1 1 60) do set /p=<nul
)
if !su! geq 3 goto loop
set hang=%lie%&set lie=%hang%
set a=!b!&set b=!a!
set t=!t2!&set "t2=!t!"
goto lis
:loop
for /l %%a in (13 -1 1) do (
  cls&for /l %%b in (1 1 %%a) do echo.
  echo  * 
  for /l %%l in (1 1 100) do ver>nul
)
goto ss
复制代码

@echo off&color 1f
setlocal enabledelayedexpansion
for /l %%a in (1,1,80) do set kong= !kong!
set /a a=0,b=0
call :a hehe
:a
if "%1"=="hehe" (for /l %%a in (1,1,50) do echo,>nul
set /p=  *<nul
if %a% equ 77 (call :b xixi)
set /a a+=1
) else (for /l %%a in (1,1,50) do echo,>nul
set /p=  *<nul
if %a% equ 0 (call :b kaka)
set /a a-=1)
goto :a
:b
if "%1"=="xixi" (for /l %%a in (1,1,100) do echo,>nul
cls
for /l %%a in (1,1,%b%) do echo,
set /p=%kong:~2%*<nul
if !b! equ 20 (call :a haha)
set /a b+=1) else (
for /l %%a in (1,1,100) do echo,>nul
cls
for /l %%a in (1,1,%b%) do echo,
set /p=*<nul
if !b! equ 0 (call :a hehe)
set /a b-=1)
goto :b
复制代码