中国DOS联盟

@echo off&mode con cols=20 lines=29&color 2c

setlocal enabledelayedexpansion

title 弹球-zw19750516

set a=●&set "b= "

:begin

cls&set n=0

set /a lm=%random%%%19,lr=%random%%%2

if %lm% equ 0 (

   set z=+

   ) else (

   if %lm% equ 17 (

      set z=-

      ) else (

      if %lr% equ 0 (

         set z=-

         ) else (

         set z=+

      )

    )

)

:contin

set "kong="

set /a n+=1,lm%z%=1

for /l %%i in (1,1,%lm%) do set kong=!kong!%b%

set str%n%=%kong%%a%

if %n% equ 30 goto begin

if %lm% equ 0 set z=+

if %lm% equ 17 set z=-

set /p=!str%n%!<nul&ping /n 127.1>nul

for /l %%i in (1,1,20) do set /p= <nul

echo.

goto contin

@echo off&mode con cols=60 lines=20

setlocal enabledelayedexpansion

title 调皮的汉字-zw19750516

set code=23456789abcdef我是调皮的汉字&set "b= "

set code1=%code:~14%&set d=-1

:begin

set n=0&set m=0&set x=+

set /a lm=%random%%%59,lr=%random%%%2,c=%random%%%14,d+=1

if %d% equ 7 set d=0

set a=!code1:~%d%,1!&set c=!code:~%c%,1!

color 0%c%

if %lm% equ 0 (

   set z=+

   ) else (

   if %lm% equ 57 (

      set z=-

      ) else (

      if %lr% equ 0 (

         set z=-

         ) else (

         set z=+

      )

    )

)

:contin

cls&for /l %%i in (1,1,%n%) do echo.

set "kong="

set /a n%x%=1,lm%z%=1,m+=1

if %n% equ 0 if %m% geq 100 goto begin

if %lm% equ 0 set z=+

if %lm% equ 57 set z=-

for /l %%i in (1,1,%lm%) do set kong=!kong!%b%

set str=%kong%%a%

if %n% equ 20 set x=-&goto contin

if %n% equ 0 set x=+&goto contin

echo %str%&ping /n 127.1>nul

goto contin