再次挑战数码雨(已更新) - 中国DOS联盟论坛

就是速度慢了点，要睡觉了，先不提速了。


@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 ]

果然有下雨的感觉，加满分！

为什么"雨"换成中文,下几下,就卡呢

[ Last edited by cad55 on 2008-5-25 at 08:40 AM ]

能否像黑客帝国里面那样，每一列都是对齐的？

对齐不难，就是对齐后不怎么好看了。。。

我觉得对齐的话开头的字符不变后面的字符在变就会很像
最主要的是下落的速度但是越完美就越难
这个数码雨很不错的了


@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 ]

兴奋！！！！！这可是我的建议啊！！！！我是功臣！！（吹牛没打草稿）

一时间忘了 --完美这个单词怎么写唉~~~

楼主34岁了？？


@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 ]

好大雨的啊.哈哈

第1楼　bat-zw	发表于 2008-05-25 02:32
金牌会员　发帖 1,276　积分 3,105
再次挑战数码雨(已更新) 就是速度慢了点，要睡觉了，先不提速了。 @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 ]

第2楼　26933062	发表于 2008-05-25 02:43
银牌会员　发帖 879　积分 2,268
果然有下雨的感觉，加满分！

第3楼　cad55	发表于 2008-05-25 08:33
高级用户　发帖 329　积分 620
为什么"雨"换成中文,下几下,就卡呢 [ Last edited by cad55 on 2008-5-25 at 08:40 AM ]

第4楼　HAT	发表于 2008-05-25 08:33
版主　发帖 5,017　积分 9,023
能否像黑客帝国里面那样，每一列都是对齐的？

第5楼　bat-zw	发表于 2008-05-25 08:48
金牌会员　发帖 1,276　积分 3,105
对齐不难，就是对齐后不怎么好看了。。。

第6楼　523066680	发表于 2008-05-25 09:21
银牌会员　发帖 1,133　积分 2,361
我觉得对齐的话开头的字符不变后面的字符在变就会很像最主要的是下落的速度但是越完美就越难这个数码雨很不错的了

第7楼　bat-zw	发表于 2008-05-25 09:24
金牌会员　发帖 1,276　积分 3,105
加入雨量控制： @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 ]

第8楼　cad55	发表于 2008-05-25 10:27
高级用户　发帖 329　积分 620
楼主. 是下雨专家呀........ 怎样才能下中文呢...........

第9楼　bat-zw	发表于 2008-05-25 10:31
金牌会员　发帖 1,276　积分 3,105
中文字符一个占两个空位，注意这点就是的了。

第10楼　bat-zw	发表于 2008-05-25 11:25
金牌会员　发帖 1,276　积分 3,105
下咒语： @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 ]

第11楼　523066680	发表于 2008-05-25 12:43
银牌会员　发帖 1,133　积分 2,361
兴奋！！！！！这可是我的建议啊！！！！我是功臣！！（吹牛没打草稿）一时间忘了 --完美这个单词怎么写唉~~~

第12楼　faultcode	发表于 2008-05-25 12:52
初级用户　发帖 60　积分 120
LS: Perfect :)

第13楼　huahua0919	发表于 2008-05-25 12:53
银牌会员　发帖 780　积分 1,608
楼主34岁了？？

第14楼　bat-zw	发表于 2008-05-25 14:07
金牌会员　发帖 1,276　积分 3,105
再来一个： @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* ]

第15楼　hansom	发表于 2008-05-25 18:05
初级用户　发帖 87　积分 161
好大雨的啊.哈哈