@echo off&mode con cols=42 lines=20&color 0c
setlocal enabledelayedexpansion
title 数码雨-zw19750516
set code=1 2 3 4 5 6 7 8 9 a b c d e f 0 &set m=1&set v=1
set code1=!code: =!
:begin
set /a a=%random%%%48
set a=!code:~%a%,1!
set str%m%=!str%m%!%a%
set /a n+=1
if %n% lss 40 goto begin
set /a x+=1
if %x% equ 20 call :lp
cls
for /l %%i in (%m%,-1,%v%) do echo !str%%i!
set /a m+=1
if %m% geq 20 set /a v+=1
set n=0&goto begin
:lp
set /a a=%random%%%15
set a=!code1:~%a%,1!
color 0%a%&set x=0
[ Last edited by zw19750516 on 2008-5-25 at 06:27 PM ]
@echo off&mode con cols=42 lines=20&color 02
setlocal enabledelayedexpansion
title 数码雨-zw19750516
set code=123456789abcdef0&set m=1&set v=1
:set
set num=20
cls&echo 默认回车将设置雨量为20
set /p num=请设置雨量(1-40)：
echo %num%|findstr "">nul&&goto wrong
if %num% lss 1 goto wrong
if %num% gtr 40 goto wrong
set num1=%num%
set /a num=200/num
if %num% equ 5 (
title 当前暴雨，雨量：%num1%
) else (
if %num% leq 10 (
title 当前大雨，雨量：%num1%
) else (
if %num% leq 20 (
title 当前中雨，雨量：%num1%
) else (
if %num% leq 40 (
title 当前小雨，雨量：%num1%
) else (
title 当前微雨，雨量：%num1%
)
)
)
)
color 0c
:begin
set /a a=%random%%%16,b=%random%%%%num%
set a=!code:~%a%,1!
if %b% equ 0 (
set "b=%a%"
) else (
set "b= "
)
set str%m%=!str%m%!%b%
set /a n+=1
if %n% lss 40 goto begin
set /a x+=1
if %x% equ 20 call :lp
cls
for /l %%i in (%m%,-1,%v%) do echo.!str%%i!
set /a m+=1
if %m% geq 20 set /a v+=1
set n=0&goto begin
:wrong
cls&echo 请正确设置&ping /n 2 127.1>nul&goto set
:lp
set /a a=%random%%%15
set a=!code:~%a%,1!
color 0%a%&set x=0
[ Last edited by zw19750516 on 2008-5-25 at 11:31 AM ]
@echo off&mode con cols=42 lines=20&color 02
setlocal enabledelayedexpansion
title 天下咒语-zw19750516
set code=123456789abcdef&set m=1&set v=1
set code1=哞喃呢吮咪嘛啊哄唏怛陀茶吒伽迦揭羯婆跋沙娑鸠度谜讫瞋赭阇唋奢
:set
set num=20
cls&echo 默认回车将设置咒级为20
set /p num=请设置咒级(1-40)：
echo %num%|findstr "">nul&&goto wrong
if %num% lss 1 goto wrong
if %num% gtr 40 goto wrong
title 当前咒级：%num%
set /a num=200/num
color 0c
:begin
set /a a=%random%%%30,b=%random%%%%num%
set a=!code1:~%a%,1!
if %b% equ 0 (
set "b=%a%"
) else (
set "b= "
)
set str%m%=!str%m%!%b%
set /a n+=1
if %n% lss 20 goto begin
set /a x+=1
if %x% equ 20 call :lp
cls
for /l %%i in (%m%,-1,%v%) do echo.!str%%i!
set /a m+=1
if %m% geq 20 set /a v+=1
set n=0&goto begin
:wrong
cls&echo 请正确设置&ping /n 2 127.1>nul&goto set
:lp
set /a a=%random%%%15
set a=!code:~%a%,1!
color 0%a%&set x=0
[ Last edited by zw19750516 on 2008-5-25 at 11:31 AM ]
@echo off&mode con cols=42 lines=20&color 02
title 乱雨-zw19750516
set code=123456789abcdef&set m=1&set v=1
set code1==^^^&%%%^:!$#^>^<:=~*()@"'`;\|abcdefghijklmnopqrstuvwxyz0123456789-_+?,.
setlocal enabledelayedexpansion
:set
set num=20
cls&echo 默认回车将设置雨量为20
set /p num=请设置雨量(1-40)：
echo %num%|findstr "">nul&&goto wrong
if %num% lss 1 goto wrong
if %num% gtr 40 goto wrong
set num1=%num%
set /a num=200/num
if %num% equ 5 (
title 当前暴雨，雨量：%num1%
) else (
if %num% leq 10 (
title 当前大雨，雨量：%num1%
) else (
if %num% leq 20 (
title 当前中雨，雨量：%num1%
) else (
if %num% leq 40 (
title 当前小雨，雨量：%num1%
) else (
title 当前微雨，雨量：%num1%
)
)
)
)
color 0c
:begin
set /a a=%random%%%63,b=%random%%%%num%
set a=!code1:~%a%,1!
if %b% equ 0 (
set "b=!a!"
) else (
set "b= "
)
set str%m%=!str%m%!!b!
set /a n+=1
if %n% lss 40 goto begin
set /a x+=1
if %x% equ 20 call :lp
cls
for /l %%i in (%m%,-1,%v%) do echo.!str%%i!
set /a m+=1
if %m% geq 20 set /a v+=1
set n=0&goto begin
:wrong
cls&echo 请正确设置&ping /n 2 127.1>nul&goto set
:lp
set /a a=%random%%%15
set a=!code:~%a%,1!
color 0%a%&set x=0
if %x% equ 20 call :lp
cls
for /l %%i in (%m%,-1,%v%) do echo.!str%%i!
set /a m+=1
if %m% geq 20 set /a v+=1
set n=0&goto begin
:wrong
cls&echo 请正确设置&ping /n 2 127.1>nul&goto set
:lp
set /a a=%random%%%15
set a=!code:~%a%,1!
color 0%a%&set x=0
[ Last edited by zw19750516 on 2008-5-25 at 02:10 PM ]
